Скачать: CL | DM;

Пацаны выручайте, диплом. Короче, как я понял свойство формы 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c