Irgenndwie will das nicht bei mir.
Delphi-Quellcode:
procedure Tfrm_setup.sg_preislisteDrawCell(Sender: TObject; Col,
Row: Integer; Rect: TRect; State: TGridDrawState);
begin
If (ACol = 4) and (ARow = 2) Then Begin {Zelle auswählen}
sg_preisliste.Canvas.FillRect(Rect);
sg_preisliste.Canvas.TextRect(Rect, Rect.Left + Max(Rect.Right - Rect.Left -
TextWidth(sg_preisliste.Cells[ACol, ARow]), 0), Rect.Top + 2, sg_preisliste.Cells[ACol, ARow]);
End;
end;
Fehlermeldung: er kennt ACol, ARow, Max und TextWidth sind nicht definiert. Aber das sind doch systemvariabeln, oder?