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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.07.2021, 00:04   #1
король смерти
Пользователь
 
Регистрация: 17.06.2021
Сообщений: 17
По умолчанию обьясните как это возможно

на рисунке 1 и 2 изображена программа так как я задумывал ее вид (у меня она выглядит так как я задумывал). Но когда я скинул ее своему другу и он ее открыл она выглядит так как показана на рисунках 3 и 4.(и это я еще исправил немного, до этого было еще хуже).

Объясните в чем дело, а то вообще не понятно.
Изображения
Тип файла: png 1.png (10.0 Кб, 47 просмотров)
Тип файла: png 2.png (10.4 Кб, 47 просмотров)
Тип файла: jpg 3.jpg (22.3 Кб, 47 просмотров)
Тип файла: jpg 4.jpg (18.3 Кб, 47 просмотров)

Последний раз редактировалось король смерти; 17.07.2021 в 00:06.
король смерти вне форума Ответить с цитированием
Старый 17.07.2021, 03:18   #2
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,869
По умолчанию

Цитата:
Сообщение от король смерти Посмотреть сообщение
Объясните в чем дело, а то вообще не понятно.
А что конкретно непонятно?
Ну и. Если вы уж задумали написать программу для пользователей, то исправьте грамматические ошибки. "Вернуться" нужно писать с мягким знаком. А французское выражение "достоинство обязывает" нужно писать Nobless oblige.
northener вне форума Ответить с цитированием
Старый 17.07.2021, 06:02   #3
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от король смерти Посмотреть сообщение
Объясните в чем дело, а то вообще не понятно.
Тут Ваше Величество, всё просто.
Во первых у вашего друга нет в системе именно того шрифта, который стоит у вас и используется в программе. Для исправления этой ошибки нужно шрифт распространять и устанавливать вместе с программой.
Вторая ошибка в том, что Ваш код не учитывает различные увеличения экрана. В современных системах можно устанавливать мелкий, средний и крупный до 150%. Для исправления этой ошибки нужно рассчитать размер окон с учетом DPI.
kvitaliy вне форума Ответить с цитированием
Старый 17.07.2021, 13:35   #4
король смерти
Пользователь
 
Регистрация: 17.06.2021
Сообщений: 17
По умолчанию

Цитата:
Сообщение от kvitaliy Посмотреть сообщение
Для исправления этой ошибки нужно рассчитать размер окон с учетом DPI.
И как мне это сделать?

То что этого шрифта нету в системе друга мне и так известно.
король смерти вне форума Ответить с цитированием
Старый 17.07.2021, 13:40   #5
король смерти
Пользователь
 
Регистрация: 17.06.2021
Сообщений: 17
По умолчанию

Цитата:
Сообщение от northener Посмотреть сообщение
А что конкретно непонятно?
То как сделать так чтобы программа выгладила на всех пк одинокого. А то получается у меня все норм, а у других может все быть через одно место.
король смерти вне форума Ответить с цитированием
Старый 17.07.2021, 14:04   #6
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от король смерти Посмотреть сообщение
И как мне это сделать?
нужно вычислить коэф-т, который зависит от DPI и все окна и элементы умножать на него.
Например вычислить так:
Код:
PixPerInchX:=GetDeviceCaps(GetDC(0),LOGPIXELSX);
DeltaDPI:=PixPerInchX/96;
Теперь все размеры умножить на DeltaDPI
kvitaliy вне форума Ответить с цитированием
Старый 17.07.2021, 19:59   #7
король смерти
Пользователь
 
Регистрация: 17.06.2021
Сообщений: 17
По умолчанию

kvitaliy, Что-то у меня ничего не получилось.
король смерти вне форума Ответить с цитированием
Старый 17.07.2021, 22:13   #8
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от король смерти Посмотреть сообщение
Что-то у меня ничего не получилось.
Ну без вашего кода и я не экстрасенс
kvitaliy вне форума Ответить с цитированием
Старый 18.07.2021, 01:33   #9
король смерти
Пользователь
 
Регистрация: 17.06.2021
Сообщений: 17
По умолчанию

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

Код:
procedure TForm1.FormActivate(Sender: TObject);
begin

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;
на другой форма принцип тот же.
король смерти вне форума Ответить с цитированием
Старый 18.07.2021, 03:22   #10
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,869
По умолчанию

Цитата:
Сообщение от король смерти Посмотреть сообщение
kvitaliy, Если можно, то объясните как исправить эту хр*нь.
Так эта хр*нь ещё и сделана картинками! Хм.

Цитата:
Сообщение от король смерти Посмотреть сообщение
То как сделать так чтобы программа выгладила на всех пк одинокого.
Простого решения нет и быть не может!
northener вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как это возможно komra2 Операционные системы общие вопросы 2 07.05.2016 01:29
Обьясните пожалуста как и что делает эта программа и почему она это делает. Dimka-novitsek Общие вопросы C/C++ 7 16.10.2013 12:02
Обьясните как работает это программа(VBA) Desyat Помощь студентам 1 28.12.2011 08:59
Обьясните как решается это уровнения sektor2011 Помощь студентам 3 27.01.2011 18:54
Возможно вы знаете как исправить это RockyNV Компьютерное железо 3 31.05.2010 19:26