Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Мар

Уменьшить размер букв в зависимости от ширины GroupBox

Posted by micher under Delphi

Как уменьшить шрифт метки, если ширина метки превысит ширину GroupBox?

Алексей_2012



procedure TForm1.Timer1Timer(Sender: TObject);

begin

 if not groupbox1.visible then timer1.enabled:=false;

if RadioButton3.Checked or RadioButton4.Checked then

label6.caption:='Курсор поля 1: '+IntToStr(Edit1.selstart)+'; '+'Курсор поля 2: '+IntToStr(Edit2.selstart)

else

label6.caption:='Курсор поля 1: '+IntToStr(Edit1.selstart);

while Label6.width>=groupbox1.Width do

begin

Label6.Font.Size:=Label6.Font.size-1;

GroupBox1.height:=GroupBox1.Height-2;

end;

while Label6.width<=groupbox1.Width-25 do

begin

Label6.Font.Size:=Label6.Font.size+1;

if GroupBox1.height=Label1.Top then exit else

GroupBox1.height:=GroupBox1.Height+1;

end;

end;