Axolot Data

Hi Found the problem in: function TXLSMMUVectorManager.MemorySize: integer; changed: Result := Integer(PXVectHeader(FVector).OffsetToLastEq) + GetItemsBlockSize(TMMUPtr( LongWord (FVector) + PXVectHeader(FVector).OffsetToLastEq)); To Result := Integer(PXVectHeader(FVector).OffsetToLastEq) + GetItems...

Hi because i still have problems with access violations when compiling 64 Bits i did some tests with simple app's using 64 Bits. They all work fine! So i wondered if the fact that i'm using it in a 64 Bits COM object could be the problem. Our 32 Bits COM server does not have these problems. Do you h...

Hi We get Access Violation compiling 64 bits in TXLSMMURebuildVector.WriteVector No problem in 32 bits if n > 0 then begin pVect^ := XVECT_EQCOUNT_EMPTY or n; Inc(pVect) end; Any idea what going On? I had it on: FSheet.AsString[FFirstColumn + 1, FCurrentRow] := ASettingValueA; as well as on ExcelObj...

Hi Changed all old code to cmdFormat code except: R := FSheet.Range.Items[FFirstColumn + i, FCurrentRow, FFirstColumn + i, FCurrentRow]; R.WrapText := True; R.VertAlignment := cvaTop; R := FSheet.Range.Items[FFirstColumn + i, FCurrentRow, FFirstColumn + i, FCurrentRow]; R.BorderTopStyle := cbsThin; ...

Hi Found the problem :-) if (AApplyFormating) then begin ExcelObject.CmdFormat.Mode := xcfmMerge; ExcelObject.CmdFormat.BeginEdit(ExcelObject[0]); ExcelObject.CmdFormat.Fill.BackgroundColor.RGB := RGB(128, 128, 128); ExcelObject.CmdFormat.Font.Color.RGB := $FFFFFF; // Border color and style. ExcelOb...

Hi

Hmm...

While making little demo i notice my problem is in the

ExcelObject[0].Cell[ part

Especially the [0]

I have a Simple demo working now.
What i need to know is with which value i need to replace my [0]

Eric

Hi

When compiling SampleFormatCells

I get Undeclared Identifier ApplyCols

on XLS.CmdFormat.ApplyCols(1,5);

and

I get Undeclared Identifier ApplyRows

on XLS.CmdFormat.ApplyRows(1,5);


Eric

Hi

What do you mean with:

If I replace the missing variables in your sample with my guesses, it works fine with 64-bit.

Eric

Hi Changed my code to procedure TExcelReportSheet.WriteHeader(const ATitles: array of String; const AApplyFormating: Boolean); var i: Integer; j: Integer; begin if (AApplyFormating) then Inc(FCurrentRow); FColumnCount := Length(ATitles); FHeaderRow := FCurrentRow; for i := Low(ATitles) to High(ATitl...

Hi This code works fine on 32 bits but results in an Index out of bounds when saving the file. R := FSheet.Range.Items[FFirstColumn, FCurrentRow, FFirstColumn + FColumnCount - 1, FCurrentRow]; R.FontColor := clWhite; R.FillPatternForeColor := RGB(128, 128, 128); // Beware Excel used BGR R.FontStyle ...

Hi Found the problem! I have FastMM in the project that fails: uses {$IFDEF DEBUG} FastMM4 in '..\Shared\ThirdParty\FastMM\FastMM4.pas', FastMM4Messages in '..\Shared\ThirdParty\FastMM\FastMM4Messages.pas', {$ENDIF} If i comment this , the 64bits version works. I think this can mean you may have som...

Hi When using var R: TXLSRange; begin R := FSheet.Range.Items[FFirstColumn, FCurrentRow, FFirstColumn, FCurrentRow]; R.FontName := 'Calibri'; I get an access violation running after compiling in Win64, not in Win32, just in 1 IntrawebApplication. I removed all dcu's, let Delphi rebuild them, still s...