VPF::Текст по центру StringGrid - Форум программистов

slavonX86

Дата 2.3.2006, 18:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 179
Регистрация: 15.12.2005

Репутация: 0
Всего: 0

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

Vas

Дата 2.3.2006, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 4
Всего: 28

Цитата(slavonX86 @ 2.3.2006, 18:35

)

1 вопрос: Как сделать так, чтобы текст в StringGrid отображался по центру ячейки ?

Код


Procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,ARow: Integer;
                                       Rect: TRect; State: TGridDrawState);
Var
   MyRect:TRect;
Begin
   with TStringGrid(Sender) do
      begin
         MyRect:=Rect;
         MyRect.Top:=Rect.Top+4;
         Canvas.Font.Style:=Canvas.Font.Style + [fsBold]; 
         Canvas.FillRect(Rect);
         DrawText(Canvas.Handle,PChar(Cells[ACol,ARow]),Length(Cells[ACol,ARow]),MyRect, DT_CENTER);
       end;
End;

Цитата(slavonX86 @ 2.3.2006, 18:35

)

2 вопрос: Можно ли текст (заголовки) сделать одного размера, а текст в остальных ячейках другого ?

Можно

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »