15-06-2009, 09:14 AM
15-06-2009, 11:11 PM
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