stringgrid'e metin

[hematit]

Merhabalar arkadaşlar.Ben bir dama programı hazırladım fakat işime yarayacak olan strinngrid hücrelerine farklı renklerde metin giremedim.Bunun bir çözümü var mı?Örneğin [0,0]hücresine mavi renkte 'merhaba' [0,1]hücresine sarı renkte 'merhaba' v.b...girmek istiyorum.Birde array'i döngüsüz olarak bir çırpıda boşaltabilirmiyiz?Herkese çok TEŞEKKÜRLER..........

[Kefukar]

procedure TForm1.FormShow(Sender: TObject);
var
I, J, K : Integer;
begin
with StringGrid1 do
begin
for I := 1 to ColCount - 1 do
for J:= 1 to RowCount - 1 do
begin
K := K + 1;
Cells[I,J] := IntToStr(K);
end;
end;
end;


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
TempPString:Array [0..255] of char;
begin
If (gdFixed in State){or (gdSelected in State)} then exit;

StringGrid1.Canvas.Brush.Style:=bsSolid;
Case ACol of
1: StringGrid1.Canvas.Brush.Color:=clRed;
2: StringGrid1.Canvas.Brush.Color:=clWhite;
3: StringGrid1.Canvas.Brush.Color:=clBlue;
end;
StringGrid1.Canvas.FillRect(Rect);
StrPCopy(TempPString,StringGrid1.Cells[ACol,ARow]);
DrawText(StringGrid1.Canvas.Handle,TempPString,-1,Rect,DT_LE FT);
end;

Umarım işine yarar... Kolay gelsin..