Цвета текста, ячеек, столбцов и колонок

Code:

unit Strgr;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, Grids, StdCtrls, DB;

type

TForm1 = class(TForm)

   StringGrid1: TStringGrid;

   procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;

     Rect: TRect; State: TGridDrawState);

private

   { Private declarations }

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

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.