Работаем со StringGrid, подгоняем колонку

Опубиковано: 21.07.2008 г., автор: , просмотров: 27036

Уроки программрования на delphi автоформат колонки StringGrid

В этом уроке я хочу показать вам процедуру автоматически подгоняющую размер колонки в компоненте TStringGrid, под написанный там текст.

Поехали..!

Запускаме Delphi и после ключевого слова public пишем procedure AutoSizeGridColumn(Grid : TStringGrid; column : integer);

Далее жмем уже полюбившуюся комбинацию клавиш CTRL+SHIFT+C, Delphi генерирует шаблон процедуры. А вот как должна выглядеть эта процедура полностью, посмотрите ниже и допишите то чего хватает.

procedure AutoSizeGridColumn(Grid : TStringGrid; column : integer);
var
i : integer;
temp : integer;
max : integer;
begin
max := 0;
for i := 0 to (Grid.RowCount - 1) do begin
temp := Grid.Canvas.TextWidth(grid.cells[column, i]);
if temp > max then max := temp;
end;
Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3;
end;

Теперь нам осталось кинуть на форму кнопку (button) и сам компонент StringGrid.

Сделали ... ?! Надеюсь что да !

Создаем обработчик событий на кнопке и в нем прописываем:

AutoSizeGridColumn(StringGrid1, 1);

Вот и все, компилируем и запускаем.
До встречи DelphiExpert.ru !!!

P.S Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.



Похожие материалы

Последние из рубрики

Bezuma 24 Сен 2012 в 00:00 #
Спасибо, но с DBGridEh не получилось..
Дмитрий 03 Июл 2012 в 00:00 #
А чо горизонтальный скролл не добавляется? (установлен ssBoth)
Денис 08 Сен 2011 в 00:00 #
Спасибо. Пригодилось
Даулет 17 Авг 2011 в 00:00 #
Спасибо очень помог... УРА, УРА, УРА!!!
stas 28 Июл 2011 в 00:00 #
Вообще замечательно! Спасибо.

ОтменитьДобавить комментарий