VPF::ширина отдельных столбцов в StringGrid

vicq

Дата 24.11.2007, 12:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

как установить различную ширину на каждый столбец? или сделать ширину "по-содержимому"?

Вася К.

Дата 24.11.2007, 13:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

StringGrid1.ColWidths[0] := 120;

А это взято с форума forum.vingrad.ru:

Код



procedure TForm1.StringGrid1SelectCell(Sender: TObject; vCol,

vRow: Longint; var CanSelect: Boolean


var

Wid: Integer;

begin

with Sender as TStringGrid do

begin

   Wid := Canvas.TextWidth(Cells[Col, Row] + ' ');

   if Wid > ColWidths[Col] then

     ColWidths[Col] := Wid;

end;

end;

 

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);

var

Wid: Integer;

begin

if Key = #13 then

   with Sender as TStringGrid do

   begin

     Wid := Canvas.TextWidth(Cells[Col, Row] + ' ');

     if Wid > ColWidths[Col] then

       ColWidths[Col] := Wid;

   end;

А ещё много чего даст поиск по форуму

Это сообщение отредактировал(а) Вася К. - 24.11.2007, 13:50

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

Да здраствует ОПТИМИЗМ!

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