نوشتن یک متن رنگی درون یک خانه String Grid

[مجتبی حسینی]

:گیج:
با عرض سلام و خسته نباشی خدمت دوستان
چطور میشود یک string رنگی درون stringGrid.Cell و string دیگر
با رنگ دیگر در Cell دیگر نوشت .
با تشکر از تمام دوستان

[mkalone]

شاید کمک کرد :

procedure TForm1.GridDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid) do
begin
if (ACol = 0) or (ARow = 0) then
Canvas.Brush.Color := clBtnFace
else
begin
case ACol of
1: Canvas.Font.Color := clBlack;
2: Canvas.Font.Color := clBlue;
end;
if ARow mod 2 = 0 then
Canvas.Brush.Color := clWhite
else
Canvas.Brush.Color := $00F5F5F5;
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
Canvas.FrameRect(Rect);
end;
end;
end;

[مجتبی حسینی]

جناب mkalone عزیز از راهنمایی بسیار خوب شما بسیار سپاسگزار هستم.