Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
colored stringgrid cell
- Thread starter Regany
- Start date
use the DrawCell event:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
if Cells[acol,arow]='5' then begin
canvas.Font.color :=clgreen;
canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[acol,arow]);
end;
end;
Hope it helps !
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
if Cells[acol,arow]='5' then begin
canvas.Font.color :=clgreen;
canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[acol,arow]);
end;
end;
Hope it helps !
- Status
