Ниже представлен юнит, который позволяет поместить текст в String Grid с символами различного цвета:

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.

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить