Символы разного цвета в StringGrid
Материал из DRKB
Символы разного цвета в StringGrid[править | править код]
Ниже представлен юнит, который позволяет поместить текст в String Grid с символами различного цвета:
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.
Source: Взято из http://forum.sources.ru
ID: 00597