Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
JerryWenz
0 / 0 / 0
Регистрация: 19.05.2015
Сообщений: 66
1

Как увеличить шрифт сразу вместе с panel?

30.04.2017, 13:56. Просмотров 268. Ответов 4
Метки нет (Все метки)

Привет, есть текст в Label который находится в Panel, по клику я увеличиваю текст и нужно чтобы panel подстраивался под размеры текста Label? Как сделать?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2017, 13:56
Ответы с готовыми решениями:

Как увеличить шрифт в StatusBar
Можете подсказать, как увеличить размер шрифта компонента Timer на форме procedure...

Компонент унаследованный от Panel, в нем Edit. как прописать свойство позволяющее изменять цвет и шрифт Edita?
Компонент унаследованный от Panel, в нем FEdit. как прописать свойство позволяющее изменять цвет и...

Пишу программу которая меняет в тексте ( Panel) цвет,шрифт,размер написал все как надо выдает ошибку
Как исправить эту ошибку нужно ввести что то в var? Incompatible types Tcolor and strings ...

Lable не двигается вместе с курсором при перетаскивании его на Panel
Lable не двигается вместе с курсором при перетаскивании его на Panel. Проект прилагается.

Panel всегда появляется вместе с формой. А можно ли сделать её появление полностью отдельным?
Panel всегда появляется вместе с формой. А можно ли сделать её появление полностью отдельным, чтобы...

4
ROS88
130 / 129 / 99
Регистрация: 10.03.2015
Сообщений: 534
30.04.2017, 14:06 2
Увеличиваешь текст или размер шрифта?
0
cfbogd
botsik
260 / 260 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
30.04.2017, 14:27 3
JerryWenz, пример с TrackBar'ом :
Delphi
1
2
3
4
5
6
7
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Label1.Font.Size:=TrackBar1.Position; 
Canvas.Font.Size:=Label1.Font.Size;
panel1.Width:=Canvas.TextWidth(Label1.Caption)+Label1.Left*2;
panel1.Height:=Canvas.TextHeight(Label1.Caption)+Label1.Top*2;
end;
Добавлено через 9 минут
это для размера шрифта, если меняется только длина текста, то просто оставить последние 2 строки кода
p.s.:Label1.Top/Left*2 для себя написал, чтобы красиво было)))
0
JerryWenz
0 / 0 / 0
Регистрация: 19.05.2015
Сообщений: 66
30.04.2017, 23:04  [ТС] 4
Размер шрифта:0 увеличить
0
cfbogd
01.05.2017, 10:31     Как увеличить шрифт сразу вместе с panel?
  #5

Не по теме:

JerryWenz, код у вас уже есть, не выпендривайтесь :D

0
01.05.2017, 10:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.05.2017, 10:31
Привет! Вот еще темы с ответами:

После компиляции программы открывается сразу две формы вместе
после компиляции в delphi открывает сразу две формы вместе. почему? помогите пожалуйста

Как увеличить шрифт
Поскажите пожалуйста как установить большой шрифт в блоке 336*280 (в настройках adsense указан...

Как увеличить шрифт?
Помогите увеличить размер шрифта в панели пуск, ну и заодно цвет поменять. Собственно, нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru