Пацаны выручайте, диплом. Короче, как я понял свойство формы Pixe

← →
Art (2004-06-23 00:13) [0]

Пацаны выручайте, диплом. Короче, как я понял свойство формы PixelsPerInch выставляет количество пикселей на дюйм, т.е. получается, что если его изменить на меньшее чем стоит по ходу дела вся форма, со всеми элементами должна уменьшиться. Я изменил это значение в событии Formcreate, но почему-то ни черта ни заметил, ни каких изменений, ни размеров, ни качества.
Может я чего-то не догоняю. ПОМОГИТЕ РАЗОБРАТЬСЯ.

Я писал прогу когда у меня на мониторе стояло 1024*768. На экране все смотрелось отлично, и графика и размеры все ОК. Но вот беда, я буду защищать диплом и там мое творение будут смотреть через проектор, а чтоб на полотне было нормальное качество нужно чтоб у монитора (откуда берется изображение) было 800*600. А при таком разрешении (800*600) моя прога выходит за края экрана, т.е. какие-то ее части не видны, становиться просто огромной. Как вы уже поняли, мне надо что при запуске на мониторе с 800*600 размер всего изображения проги пропорционально изменился.
ПОДСКАЖИТЕ ПЛИЗ ЧЕ ДЕЛАТЬ, ЧЕРЕЗ ДВА ДНЯ ЗДАВАТЬ.

← →
P.N.P. © (2004-06-23 00:28) [1]

TForm.ScaleControls

← →
Art (2004-06-23 01:06) [2]

Че значит TForm.ScaleControls

← →
P.N.P. © (2004-06-23 03:17) [3]

Вообще-то для масштабирования наверное лучше будет использовать
ScaleBy, вот кусок кода - надеюсь, что идея будет понятна

procedure TEditForm.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); var N,S,NS:integer; begin s:=(Width+Height); ns:=(NewWidth+NewHeight); if ns>s then begin n:=Round((S/ns/1.3)*100); ScaleBy(70,n); end else if ns<s then begin n:=Round((nS/s/1.3)*100); ScaleBy(n,70); end; resize:=true; end;

еще полезно посмотреть в справке по функции ScaleBy

← →
Роман (2004-06-23 09:06) [4]

перерисуй формы руками

Пацаны выручайте, диплом. Короче, как я понял свойство формы Pixe Найти похожие ветки