Четверг, 28.03.2024
Королевство Delphi
Главное меню
Статьи
Наш опрос
Нужен форум на сайте?
Всего ответов: 90
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Разные » Примеры 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);

Вот и все, компилируем и запускаем.

Получить ссылку на материал

Категория: Примеры Delphi | Добавил: Барон (21.12.2011)
Просмотров: 1340 | Теги: StringGrid | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Delphi.NET [3]
Kylix Delphi for Linux [9]
Советы Дельферу [6]
Хитрости в Delphi [2]
Обзор Delphi [45]
Инсталлятор [11]
Пользовательский интерфейс [18]
Примеры Delphi [93]
Функции и процедуры [15]
Разные [31]
Королевство Delphi © 2010-2024
Яндекс цитирования