Group: it.comp.lang.delphi · Group Profile · Search for Styling Brush in it.comp.lang.delphi
Author: peter
Date: Feb 24, 2007 13:29
...; Rect: TRect; State: TGridDrawState); begin With StringGrid1.Canvas do begin if (ACol = 1) and (ARow = 2)then begin Brush.Color:= clGreen; FillRect(Rect); Font.Style := [fsBold, fsItalic]; TextOut(Rect.left +2, Rect.Top +2, StringGrid1.Cells[ACol, ARow]); end; end; end; E' ...
|