TStirngGrid -> TAdvStringGrid: Spaltenbreite passt nicht

[hoika]

Hallo #,

ersetze ich TStringGrid durch TAdvStringGrid, passen meine
"handoptimierten" Spaltenbreiten nicht mehr.

Grund: TAdvStringGrid hat beim Malen einen Einzug,
beginnt mit dem Zeichnen also etwas weiter rechts.

Bei folgendem Code wird das Datum beim AdvSG nicht komplett angezeigt.

Delphi-Quellcode:

procedure TForm20.FormCreate(Sender: TObject);
const F=8;
begin
  AdvSG.ColWidths[0]:=7*F+4;
  AdvSG.ColWidths[1]:=7*F+4;
  AdvSG.Cells[0,1]:= FormatDateTime('dd.mm.yyyy', Date);

  SG2.ColWidths[0]:=7*F+4;  // normales StringGrid
  SG2.ColWidths[1]:=7*F+4;
  SG2.Cells[0,1]:= FormatDateTime('dd.mm.yyyy', Date);
end;

PS: AutoSize darf ich nicht verwenden.


Danke

[angos]

Zitat von hoika:

Grund: TAdvStringGrid hat beim Malen einen Einzug,
beginnt mit dem Zeichnen also etwas weiter rechts.

Kannst du dann nicht einfach diesen Offset zusätzlich berücksichtigen?

Gruß
angos

[hoika]

Hallo,

schön, wenn man den Quellcode hat.

AdvSG.UpdateXYOffset(0, 0); löst das Problem.

Trotzdem Danke