Масштабирование программы для разных экранов

[IliaIT]

Вот возникла такая задача.
есть программа в основной форме которой много меток, фреймов, таблиц по разным листам PageControl. всё хорошо работает. но программа делалась под разрешение 1024*768 (размер окна главной формы 800*600). в те лет 5 назад про широкоформатный монитор не думали. вот тут начальство обновило себе компы и воткнуло разрешение на них 1920x1080. и говорит что мелкая программа не видно в ней ничего без очков... вопрос как можно сделать увеличение без глобального переписывания программы.? в винде например можно тему с крупными шрифтами поставить, но это решение не подходит так как меняет весь рабочий стол и "портит всю красоту". можно ли как нибудь к существующему проекту прикрутить тему с большими шрифтами, без изменения всей темы винды? (винда 7 или выше в редакции проф.)

[Аватар]

На счет прикрутить тему не в курсе. А без глобального переписывания поиграться со свойством PixelsPerInch формы, увеличив его.

[kropotkina-alice]

Универсальные способы получить ответ:
- воспользоваться поиском;
- просмотреть темы, указанные в самом низу этой страницы...

[IliaIT]

Сообщение от kropotkina-alice

Универсальные способы получить ответ:
- воспользоваться поиском;
- просмотреть темы, указанные в самом низу этой страницы...

и пример запроса конечно не приложил... или я не заметил?

сейчас пытаюсь понять PixelsPerInch и всё что с ним связано.

[kropotkina-alice]

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

и пример запроса конечно не приложил... или я не заметил?

Запрос простецкий - "масштабирование"

[Аватар]

Форма при нормальном разрешении и эта же форма при том же разрешении, но с крупным шрифтом. Вернее увеличен размер фонтов. Ну и пересчитаны размеры и положение

procedure TForm1.FormCreate(Sender: TObject);
begin
  Width:= Round(Width*1.25);
  Height:= Round(Height*1.25);
  ScaleBy(120,96);
end;

PixelsPerInch-ом в такой ситуации не добиться. На сложной форме скорее всего останутся огрехи

[northener]

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

сейчас пытаюсь понять PixelsPerInch и всё что с ним связано.

А что тут понимать, если уже

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

в винде например можно тему с крупными шрифтами поставить, но это решение не подходит так как меняет весь рабочий стол и "портит всю красоту".

Имхо, не переписывая программу ничего "красиво" не получится.

[IliaIT]

хмм. это я вирус где-то хапнул или всё же каспер не любит PixelsPerInch?

[IliaIT]

Для масштабирования достаточно было, увеличивать размеры сторон не надо. в картинках аутосайз убрать(false), скале поставить (true). в таблицах у меня пришлось немного переделывать. но это намного меньше чем писать всё с 0.

ScaleBy(120,96);

верхнее сообщение о вирусе это реакция каспера на изменение при создании формы из модуля. Хотя не понял на что ругался, вроде в форме то же самое сделал но прошло без ругани.

unit geScale;

interface
uses Forms, Controls;

procedure geAutoScale(MForm: TForm);

implementation

type
TFooClass = class(TControl); { необходимо выяснить защищенность }
{ свойства Font }
procedure geAutoScale(MForm: TForm);
const
cScreenWidth: integer = 800;
cScreenHeight: integer = 600;
cPixelsPerInch: integer = 96;
cFontHeight: integer = -11; {В режиме проектирование значение из Font.Height}
var i: integer;
begin
{ВАЖНО!! : Установите в Инспекторе Объектов свойство Scaled TForm в FALSE.
Следующая программа масштабирует форму так, чтобы она выглядела одинаково
внезависимости от размера экрана и пикселей на дюйм. Расположенный ниже
участок кода проверяет, отличается ли размер экрана во время выполнения
от размера во время проектирования. Если да, Scaled устанавливается в True
и компоненты снова масштабируются так, чтобы они выводились в той же
позиции экрана, что и во время проектирования.}
if (Screen.width <> cScreenWidth) or (Screen.PixelsPerInch <>
cPixelsPerInch) then
begin
MForm.scaled := TRUE;
MForm.height := MForm.height * screen.Height div cScreenHeight;
MForm.width := MForm.width * screen.width div cScreenWidth;
MForm.ScaleBy(screen.width, cScreenWidth);
end;

{Этот код проверяет, отличается ли размер шрифта во времы выполнения от
размера во время проектирования. Если во время выполнения pixelsperinch
формы отличается от pixelsperinch во время проектирования, шрифты снова
масштабируются так, чтобы форма не отличалась от той, которая была во
время разработки. Масштабирование производится исходя из коэффициента,
получаемого путем деления значения font.height во время проектирования
на font.height во время выполнения. Font.size в этом случае работать не
будет, так как это может дать результат больший, чем текущие размеры
компонентов, при этом текст может оказаться за границами области компонента.
Например, форма создана при размерах экрана 800x600 с установленными
маленькими шрифтами, имеющими размер font.size = 8. Когда вы запускаете
в системе с 800x600 и большими шрифтами, font.size также будет равен 8,
но текст будет бОльшим чем при работе в системе с маленькими шрифтами.
Данное масштабирование позволяет иметь один и тот же размер шрифтов
при различных установках системы.}

if (Screen.PixelsPerInch <> cPixelsPerInch) then
begin
for i := MForm.ControlCount - 1 downto 0 do
TFooClass(MForm.Controls[i]).Font.Height :=
(MForm.Font.Height div cFontHeight) *
TFooClass(MForm.Controls[i]).Font.Height;
end;
end;

end.

[Heneken87]

Каспер в принципе ничего самописного не любит. В коде программы скорей всего есть функционал который он распосзнал как потенциально опасное. Например подключение к стороннему сайту для закачки там обновлений. На пикселизацию он врядли будет ругаться, хотя это тоже не исключено, точнее только у касперского можно узнать. Удалалит временно класс и посмотрите реакцию касперского. Если вякать прекратит как вывод ругается на пикселизацию.