Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.09;
Скачать: CL | DM;

Вниз

Выравнивание текста в ячейках StringGrid   Найти похожие ветки 

 
Mishenka   (2007-08-16 11:19) [0]

Как в StringGrid указать выравнивание текста (по левому, правому краям или по центру) в определенном столбце или ячейке?


 
Игорь Шевченко ©   (2007-08-16 11:35) [1]

В событии OnDrawCell рисовать с нужным выравниванием, используя DrawText

procedure TForm1.GridDrawCell(Sender: TObject; ACol,
 ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 Flags: Integer;
 DrawRect: TRect;
begin
 Grid.Canvas.FillRect(Rect);
 DrawRect := Rect;
 case ACol of
 1:
     Flags := DT_CENTER or DT_NOPREFIX or DT_EXPANDTABS
 2:
     Flags := DT_RIGHT or DT_NOPREFIX or DT_EXPANDTABS or DT_SINGLELINE;
 else
     Flags := DT_LEFT or DT_NOPREFIX or DT_EXPANDTABS;
 end;
 DrawText(Grid.Canvas.Handle, PChar(Grid.Cells[ACol,ARow]), -1, DrawRect, Flags);
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2007.09.09;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.03 c
15-1187185177
Леонид Федьков
2007-08-15 17:39
2007.09.09
DELPHI 6 и 64-разрядные компьютеры.


2-1187248746
Mishenka
2007-08-16 11:19
2007.09.09
Выравнивание текста в ячейках StringGrid


15-1186604629
Суслик
2007-08-09 00:23
2007.09.09
Покупка непереведенных книг


3-1178876828
Sairex
2007-05-11 13:47
2007.09.09
Локальна сеть и InterBase


6-1168890768
vasia222
2007-01-15 22:52
2007.09.09
Компрессор трафика! подскажите