Текущий архив: 2004.02.17;
Скачать: CL | DM;
Вниз
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;
← →
Talla2k © (2004-02-06 01:29) [3]Спасибо PKT!!!
Страницы: 1 вся ветка
Текущий архив: 2004.02.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
