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