|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Почему программа написанная на Delphi 7 у всех отображается по разному
Написал полноценную программу с дизайном оформлением и т. д. У меня на компьютере всё нормально, запускаю на других компах все картинки съехали, шрифты не видны, кнопки не в том месте. Из-за чего это происходит и как это исправить?
|
#2
|
|||
|
|||
Скорее всего, другие настройки экрана. Например, большие шрифты установлены. Ну и может быть, что каких-то шрифтов не стоит (по поводу того, что что-то не видно). Тут надо очень аккуратно проектировать программу. Например, использовать шрифты, которые гарантированно будут установлены в системе (например, системные имена). Попробуй еще вкл. или наоборот откл. масштабирование формы (св-во Scale).
|
#3
|
||||
|
||||
Дополнительно по шрифтам: если уж так хочется использовать выбранные шрифты, их нужно распространять вместе с программой и использовать такой код:
Код:
procedure TForm1.FormCreate(Sender: TObject); begin isFont := AddFontResource('MyFont.ttf')) <> 0; SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); end; procedure TForm1.FormDestroy(Sender: TObject); begin if isFont then begin RemoveFontResource('MyFont.ttf')); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); end; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |