IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Масштабирование ComboBox, минимальный размер, размер по умолчанию
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 37
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Очень нужна помощь! Кто чем может... rolleyes.gif
Интересует такой вопрос: как правильно масштабировать (width) элемента ComboBox?
По умолчанию длина должна быть равна размеру самой большой надписи в списке. При этом сам список генерируется, а не заполняется вручную:
procedure TForm1.FormCreate(Sender: TObject);
begin
With ComboBox1 do
begin
Items:=Screen.Fonts;
ItemIndex:=Items.IndexOf(Font.Name);
end;
Caption:='Font Display -'+Font.Name;
end;

Т.е. список заполняется шрифтами (в дальнейшем эти шрифты применяются к элементу DrawGrid.

Процедура, масштабирующая DrawGrid в зависимости от размера формы:
procedure TForm1.FormResize(Sender: TObject);
begin
DrawGrid1.DefaultRowHeight:=ClientHeight div (DrawGrid1.RowCount+2)-1;
DrawGrid1.DefaultColWidth:=ClientWidth div (DrawGrid1.ColCount+1);
Refresh;
end;


Сообщение отредактировано: Psychologist -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.11.2020 22:47
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name