Свой дизайн

[Pearl777]

Здравствуйте! Решил вот сделать свой дизайн используя Image и фотошоп.

Все хорошо, но при увеличении шрифта и элементов в системе дизайн программы стает просто ужасным.


Можно ли как-то запретить изменять размеры программы?

[kta87]

MyForm.BorderStyle:= bsSingle;

Ну и в BorderIcons выставить что то типа [biSystemMenu,biMinimize]

[Pearl777]

Сообщение от kta87

MyForm.BorderStyle:= bsSingle;

Ну и в BorderIcons выставить что то типа [biSystemMenu,biMinimize]

Совсем не то.

Речь идет об увеличении элементов средствами Windows (например со 100% до 125%).

[kta87]

Pearl777, как поставлен вопрос так и составлен ответ епть! А теперь внимание:

const
  ScreenWidth: Longint = 1366; {У меня разрешение экрана 1366x768.}
  ScreenHeight: Longint = 768; 
...
if (screen.Width <> ScreenWidth) then
  begin
    Height := Longint(Height) * Longint(screen.Height) div ScreenHeight;
    Width := Longint(Width) * Longint(screen.Width) div ScreenWidth;
    scaleBy(screen.Width, ScreenWidth);
  end;

Код поместить в событие FormCreate. Писал и тестировал на Lazarus!

[xxbesoxx]

Сообщение от Pearl777

Можно ли как-то запретить изменять размеры программы?

Да можно вот так

procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.AutoSize := True;
end;

end.

[xxbesoxx]

Еще 5 кусок

[xxbesoxx]

Проект Delphi XE3 но будет работать на любой версий . Даже можно руками поменять свойства на форму

[Pearl777]

Спасибо большое за помощь!

[xxbesoxx]

Пожалуйста