Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.02 c
1-53629
Arsen
2004-02-05 23:10
2004.02.17
Сохранение Default имени в LogOn (Win2k/XP/NT4.0)


14-53748
BOA_KAA
2004-01-28 11:27
2004.02.17
Proxy для WIndows


1-53464
DAnton
2004-02-06 09:18
2004.02.17
Не могу убрать BalloonHint.


9-53350
Norlin
2003-08-07 02:02
2004.02.17
Вопрос ПО ПОСТРОЕНИЮ ИГР!!!


1-53593
Lucky[ELF]
2004-02-01 23:04
2004.02.17
Работа с динамической памятью и указателями