The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
var
Form1: TForm1;
BlueCol: Integer;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1DrawCell
Rect: TRect; State: TGridDrawState);
begin
If (ACOl=BlueCOl) and (ARow > 0) then
StringGrid1.Canvas.Brush.C
else
StringGrid1.Canvas.Brush.C
StringGrid1.Canvas.FillRec
end;
procedure TForm1.StringGrid1SelectCe
ARow: Integer; var CanSelect: Boolean);
begin
BlueCOl := ACol;
STringGrid1.Refresh;
end;
F68 ;-)