Ich habe ein StringGrid und möchte gerne einzele Zellen einfärben. Ich will das ganze letzendlich so einbauen, dass ich eine Funktion bekomme nach diesem Schema:
ColorCell(StringGrid1,1,1,clred);
Ich muss halt im Programmablauf die Zellen farbig unterlegen.
Ich habe das hier als Beispiel gefunden:
Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender).Canvas do begin
if (ACol=1) and (ARow=1) then begin
Brush.Color:= clRed;
FillRect(Rect);
end;
end;
end;
Aber leider verstehe ich es nciht wirklich und dann möchte ich es nciht benutzen. Kann mir einer ein wenig erläutern wie es funktioniert, was z.B. in die Parameter rein müsste und wie ich es in meine Form bringen könnte?!
Vielen Dank
zorakh