Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.11;
Скачать: 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 вся ветка

Текущий архив: 2004.07.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.058 c
4-1086185977
K.o.Z
2004-06-02 18:19
2004.07.11
TOpenDialog


6-1082543497
ultracrash
2004-04-21 14:31
2004.07.11
Копирование текста(в буфер) в WebBrowser


1-1087989906
Vampiros
2004-06-23 15:25
2004.07.11
Иконка к папке


3-1087469130
asa
2004-06-17 14:45
2004.07.11
Поиск


1-1088344486
dido
2004-06-27 17:54
2004.07.11
Как в Label писать более одной строки?