StringGrid цвет шрифта в каждой ячейке

← →
scorpi (2004-02-06 14:32) [0]

Как в двух разных ячейках писать слова разными цветами не через OnDrawCell????

← →
alless (2004-02-06 14:38) [1]

Peredelai cto tebe nado:
type
TStrColor = class(TObject)
public
Color : TColor; {вы могли бы также определить частные и
публичные методы доступа}
end;
...
procedure TForm1.FormCreate(Sender:TObject)
var
i,j : Integer;
begin
With StringList1 do
for i := 0 to ColCount-1
for j := 0 to RowCount-1
Objects[i,j] := TStrColor.Create;
end;
...
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
var
OldColor : TColor;
begin
with StringGrid1.Canvas do begin
OldColor := Font.Color;
Font.Color := (StringGrid1.Objects[col,row] as TStrColor).Color;
TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[Col,Row]);
Font.Color := OldColor;
end;
end;
...
procedure TForm1.ProcessSelection(Sender: TObject);
var
i,j : Integer;
begin
With StringGrid1.Selection do
For i := left to right do
for j := top to bottom do
MessageDlg(IntToStr(i)+","+IntToStr(j)+"-"+
IntToStr((StringGrid1.Objects[i,j] as TStrColor).Color),
mtInformation,[mbOk],0);
end;

← →
Alexander666 (2004-02-06 14:44) [2]

Вообще-то никак...

← →
Alexander666 (2004-02-06 14:46) [3]

А теперь уже есть как :-)

← →
alless (2004-02-06 14:48) [4]

ups! ne rasmotrel cto nado ispolizovati bez OnDrawCell. Sorry

← →
Alexander666 (2004-02-06 14:50) [5]

Короче, мой тебе ответ, НИКАК!

← →
olookin (2004-02-06 14:53) [6]

Alexander666 © (06.02.04 14:50) [5]

Можно. Просто на канве рисовать.

with StringGrid1 do begin
with Canvas do begin Brush.Color:=clBlack;
Font.Color:=clYellow;
Font.Style:=[fsBold]; Font.Name:="MS Sans Serif"; end;
for i:=0 to RowCount-1 do begin
xc:=CellRect(0,i).Left; yc:=CellRect(0,i).Top;
Canvas.FillRect(CellRect(0,i));
Canvas.TextRect(CellRect(0,i),xc+2,yc+2,"fytyry");
end; end;

StringGrid цвет шрифта в каждой ячейке Найти похожие ветки