Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2019, 13:23   #1
linda88
Пользователь
 
Регистрация: 17.01.2019
Сообщений: 78
Восклицание Непроходимо масштабировать в соответствии с размерами экрана

как масштабировать содержимое в соответствии с размерами экрана содержимое формы процедура которую я писала в надежде что поможет масштабировать содержимое

Код:
procedure Tmenu.Sizepoz;
begin
label3.Text:=image1.Width.ToString;
label4.Text:=image1.Height.ToString;

if (image1.Width<>EkH) and (image1.Height<>EkW) then
begin
 pour_single:=image1.Height/EkH;
 pour_single1:=image1.Width/ EkW;
 ListBox1.Height:=pour_single*ListBox1.Height;

 ListBox1.Width:=pour_single1*ListBox1.Width;
end
else
begin
ListBox1.Height:=EkH;
ListBox1.Width:=EkW;

end;
ListBox1.Position.X:=EkX;
Listbox1.Position.Y:=EkY;

end;
и перемененные и константы к ней
Код:
const EkH = 677;
const EkW = 1570;
const EkX = 16;
const EkY = 80;

var
  menu: Tmenu;
  
   
  
   pour_single,pour_single1:Single;
implementation

Последний раз редактировалось linda88; 16.04.2019 в 13:44.
linda88 вне форума Ответить с цитированием
Старый 17.04.2019, 10:45   #2
IliaIT
Форумчанин
 
Аватар для IliaIT
 
Регистрация: 17.03.2009
Сообщений: 979
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);  
  begin
    ScaleBy(Round(96*kof_form),96);
  end;
kof_form это некий коэффициент 1,2 увеличение формы. должно работать увеличивая всю программу. 96 это зерно разрешения, не помню точно. может его подбирать надо для твоего монитора.
Интуитивно понятный интерфейс - это такой интерфейс, для работы с которым нужна недюжинная интуиция.
IliaIT вне форума Ответить с цитированием
Старый 17.04.2019, 20:49   #3
linda88
Пользователь
 
Регистрация: 17.01.2019
Сообщений: 78
По умолчанию

Благадарю
linda88 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматическое изменение размера формы в соответствии с размером экрана ru3000 Microsoft Office Excel 18 08.11.2021 10:16
Как масштабировать форму вместе с компонентами? roxy7 Компоненты Delphi 1 27.03.2012 13:00
прямоугольник с размерами A*B. xamelion Общие вопросы Delphi 1 17.10.2010 10:39
Глюк с размерами в IMG youko HTML и CSS 2 15.02.2009 11:31
Как масштабировать рисунок по TImage SeRhy Общие вопросы Delphi 3 18.07.2008 12:08