تلوين كلمة داخل StringGrid

[me_delphi]

PHP كود :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var s:string;
begin
    with StringGrid1 do
begin
if (gdSelected in state)then
         begin
            canvas.brush.color:=ClWhite;
            canvas.FillRect(rect);
            canvas.font.color:=clred;
            //canvas.font.style:=[fsbold];
            s:=cells[Acol,ARow];
            DrawText(Canvas.Handle,PChar(s),StrLen(PChar(s)),Rect,DT_LEFT);
         end;
end;
end; 


في الحدث OnDrawCell

كما أننا نستطيع جعل النص في منتصف الخلية باستبدال DT_LEFT الى DT_CENTER