[Xaiver]

Написал полноценную программу с дизайном оформлением и т. д. У меня на компьютере всё нормально, запускаю на других компах все картинки съехали, шрифты не видны, кнопки не в том месте. Из-за чего это происходит и как это исправить?

[lmikle]

Скорее всего, другие настройки экрана. Например, большие шрифты установлены. Ну и может быть, что каких-то шрифтов не стоит (по поводу того, что что-то не видно). Тут надо очень аккуратно проектировать программу. Например, использовать шрифты, которые гарантированно будут установлены в системе (например, системные имена). Попробуй еще вкл. или наоборот откл. масштабирование формы (св-во Scale).

[angvelem]

Дополнительно по шрифтам: если уж так хочется использовать выбранные шрифты, их нужно распространять вместе с программой и использовать такой код:

Код:

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;