Покрашенный StringGrid II

В данном модуле демонстрируется техника изменения цвета у выводимого в StringGrid текста.

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.

[001499]

Содержание раздела