Mega Code Archive

 

Categories / Delphi / VCL

 

Stringgridde renkli karakterler

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState); const CharOffset = 3; begin with StringGrid1.canvas do begin font.color := clMaroon; textout(rect.left + CharOffset, rect.top + CharOffset, 'L'); font.color := clNavy; textout(rect.left + CharOffset + TextWidth('L'), rect.top + CharOffset, 'loyd'); end; end; end