Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
5. Okt 2005
Das sgRechts war ein Fehler. Bei mir ist das gleich rechtsbündig usw. Habe es editiert. Aber der Code mit dem for i :=... der steht doch hoffentlich nicht in dem OnDrawCell ? :shock:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
5. Okt 2005
ungefähr so :
procedure Tfrm.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
inherited;
if (ARow >= sgNr.FixedRows) and (ACol >= sgNr.FixedCols) then begin
if sgNr.Cells = 'N' then with Sender as TStringGrid do begin
sgNr.Font.Color := clwhite;
sgNr.Brush.Color := clRed;