обьясните как это возможно

[kvitaliy]

Сообщение от король смерти

Если можно, то объясните как исправить эту хр*нь.

C картинками у вас всё нормально.
Вам нужно подогнать размер главного окна и всех окон, элементов внутри.
К примеру у меня есть форма с кнопкой. Я создавал её для экрана FullHD 1920x1080, увеличения экрана нет, т.е. коэфф. DPI = 1
Для масштабирования на экранах, где включено увеличение я написал такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
PixPerInchX: Integer;
DeltaDPI: Real;
begin

PixPerInchX:=GetDeviceCaps(GetDC(0),LOGPIXELSX);
DeltaDPI:=PixPerInchX/96;
// Меняем размер всех окон и элементов внутри в зависимости от DPI

Form1.Width:= Round(Form1.Width * DeltaDPI);
Form1.Height:= Round(Form1.Height * DeltaDPI);
Button1.Width:= Round(Button1.Width * DeltaDPI);
Button1.Height:= Round(Button1.Height * DeltaDPI);

 // Для контроля DPI: может быть 1, 1,25, 1,5
ShowMessage('DeltaDPI = ' +  FloatToStr(DeltaDPI));

end;

end.

Т.е. размеры Формы и всех кнопок, лейбов, текстовых полей и т.п. умножаем на DeltaDPI

[король смерти]

kvitaliy, спасибо

[король смерти]

kvitaliy, вроде лучше не стало. может я что-то не так сделал?

procedure TForm1.FormCreate(Sender: TObject);
var
PixPerInchX: Integer;
DeltaDPI: Real;
begin


PixPerInchX:=GetDeviceCaps(GetDC(0),LOGPIXELSX);
DeltaDPI:=PixPerInchX/96;
// Меняем размер всех окон и элементов внутри в зависимости от DPI

Form1.Width:= Round(Form1.Width * DeltaDPI);
Form1.Height:= Round(Form1.Height * DeltaDPI);

Image4.Width:= Round(Image4.Width * DeltaDPI);
Image4.Height:= Round(Image4.Height * DeltaDPI);

Image3.Width:= Round(Image3.Width * DeltaDPI);
Image3.Height:= Round(Image3.Height * DeltaDPI);

Image2.Width:= Round(Image2.Width * DeltaDPI);
Image2.Height:= Round(Image2.Height * DeltaDPI);

Image1.Width:= Round(Image1.Width * DeltaDPI);
Image1.Height:= Round(Image1.Height * DeltaDPI);

Image4.Picture.LoadFromFile('png\fon.png');

Image3.Picture.LoadFromFile('png\menu\close.png');
Image3.Left:=10;
Image3.Top:=149;

Image2.Picture.LoadFromFile('png\menu\new_game.png');
Image2.Left:=251;
Image2.Top:=66;

Image1.Picture.LoadFromFile('png\menu\prodol_game.png');
Image1.Left:=8;
Image1.Top:=66;
end;

[kvitaliy]

У вас на вашем компе чему равно DeltaDPI?

[король смерти]

kvitaliy, у меня 1.25. Но у меня и так было все норм. Но вот у друга DeltaDPI = 1 и у него такая хрень и вот это я хочу исправить.

[kvitaliy]

Сообщение от король смерти

может я что-то не так сделал?

Почему только размер изображений? С изображениями то как раз всё нормально, все надписи надо корректировать.

[kvitaliy]

Сообщение от король смерти

Но вот у друга DeltaDPI = 1 и у него такая хрень и вот это я хочу исправить.

Написал же, вы должны делать программу при Dpi =1. А программа подстраивается под другие увеличения.

[король смерти]

kvitaliy, сделал на Dpi = 1 запустил все норм, сохранил. Поменял на Dpi =1,25 запустил exe. И вот результат.

[kvitaliy]

Сообщение от король смерти

И вот результат.

Нормальный результат.
Нужно не только расположение надписей и размеры тоже корректировать на этот же коэффициент, но и изображения.
Там у вас Label или что? Left, Top как указано, как и у изображений, явно? Все линейные размеры нужно корректировать.

[Viktor61]

король смерти, рискну предположить, что надписи "Продолжить", "Новая игра", "Выход из игры" у Вас не нарисованы на соответствующих картинках-кнопках оранжевого и красного цвета. Возможно, надо нарисовать на соответствующих картинках-кнопках оранжевого и красного цвета надписи "Продолжить", "Новая игра", "Выход из игры", а затем соорудить соответствующие обработчики для этих картинок-кнопок. В противном случае рисунки и надписи совмещать очень сложно: при измерении разрешения экрана они обязательно "слетят". Успехов!