Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
18. Nov 2003
Procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Begin
If StringGrid1.Cells = '1' Then Begin {Zelleninhalt auf irrgend etwas prüfen...}
StringGrid1.Canvas.Brush.Color := StringGrid1.Color;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.Font := StringGrid1.Font;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
18. Nov 2003
siehe Einzelne Zellen im Grid markieren ??
Procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Begin
If (ACol = 4) and (ARow = 2) Then Begin {Zelle auswählen}
StringGrid1.Canvas.Brush.Color := StringGrid1.Color;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.Font := StringGrid1.Font;
...