Forum: Programmieren allgemein
by strom,
1. Mai 2016
hey,
ist nur ein Ausschnitt! :-)
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.Font.Color := clblack;
Forum: Programmieren allgemein
by strom,
1. Mai 2016
hallo,
möchte gerne einen roten rahmen im StringGrid haben, also die markierte Zeile soll einen rahmen haben.
if gdSelected in State then
StringGrid1.Canvas.Brush.Color := clMenu;
StringGrid1.Canvas.FillRect( Rect );
StringGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, StringGrid1.Cells );
Stringgrid1.Canvas.Pen.Color:=clRed;