StringGrid

← →
Talla2k © (2004-02-04 22:28) [0]

Цель такова: все введенные данные должны центроваться в ячейке.
На FAQ на нашел пример,изменил предпоследнюю строчку(та что textout),
теперь центрует, но если данные больше размеров ячейки, то они вылезают влево на соседнюю.ЧТО НЕ ЖЕЛАТЕЛЬНО!!!
Подскажите,где ошибся.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with stringgrid1.Canvas do begin
if (Acol<>0) and (Arow<>0) then begin
FillRect(Rect);
Font.Color := clblack;
Brush.Color := clwhite;
textout(rect.left+(rect.right-rect.left -textwidth(stringgrid1.cells[Acol,Arow])) div 2 , Rect.top+4,stringgrid1.Cells[Acol,Arow]);
end; end;end;

← →
Talla2k © (2004-02-05 00:35) [1]

Ну ребята,ПОЖАЛУЙСТА!!!

← →
PKT (2004-02-05 03:25) [2]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
S: string;
begin
with TStringGrid(Sender) do begin
S := Cells[ACol,ARow];
Dec(Rect.Right, 2); Inc(Rect.Top, 2);
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, PChar(S), Length(S), Rect, DT_CENTER);
end;
end;

Спасибо PKT!!!

StringGrid Найти похожие ветки