Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Проблема с размерами ToolbarBurron и не только...   Найти похожие ветки 

 
eSKey   (2002-04-22 17:10) [0]

Мне нужно в моей проге сделать такую возможность, чтобы она могла сворачиваться до размеров по высоте = тулбара+caption+statusbar и по ширине так, чтобы вмещать все кнопки на тулбаре. я делаю в MainForm.FormCreate следующее:

begin
//определяем системные габариты
yCaption:=getsystemmetrics(SM_CYCAPTION);
yFrame:= getsystemmetrics(SM_CYFRAME);
yFrame:=yFrame*2;
minYsize:=yFrame+yCaption+MyToolBar.ButtonHeight+MyStatusBar.Height;
minXsize:=MyToolBar.ButtonCount*MyToolBar.ButtonWidth
+getsystemmetrics(SM_CXFRAME)*2;

Потом где надо делаю height:=minYsize и width:=minXsize.
Это все замечательно пашет на том же разрешении, какое стоит у меня при написании (800х600). А на других компах, с более высоким разрешением, высота получается меньше - "съедается" несколько пикселов снизу кнопок, ширина вообще меньше раза в полтора.

Еще хуже с Grid"ом - для него у меня оба скроллбара включены. И опять же - они отбражаются на моем компе, и просто исчезают на других... :(
Помогите, плз!


 
Malder ©   (2002-04-22 17:22) [1]

Вопрос у тебя путанный, пожалуйста, разъясни поподробнее.

Если тебе нужно узнать разрешение экрана, то используй Screen.Width и Screen.Height


 
eSKey   (2002-04-22 17:44) [2]


> Malder


Понимаешь, по идее мне должно быть фиолетово на разрешение экрана - ведь как я понимаю, getsystemmetrics возвращает нужные мне размеры именно для текущего разрешения во время выполнения. Я подозреваю, что дельфи оптимизирует там чего не надо, и заменяет вызов функции на константу :(


 
Андрей Сенченко ©   (2002-04-22 17:58) [3]

В инспекторе объектов:
Form1.Scaled := false
возможно решит проблемы


 
eSKey   (2002-04-22 18:29) [4]


> Андрей Сенченко


Жаль сейчас проверить не могу :( Т.е. сам проект загрузил, но на другом компе, поэтому не могу судить о сохранении/искажении размеров. Однако при загрузке формы в дизайн моде наблюдал тоже съедение нижней границы - самим тулбаром. Выставил MyToolBar.AutoSize:=True (было фальс), он размер подогнал. Может от этого зависит?

С Grid"ом - Scrollbars стоит ssBoth, также Anchors:=[akLeft,akTop,akRight,akBottom] - при этом видно, что нижняя и правая границы уехали куда-то за форму (дома этого не было!). Выставил Align:=alClient - похоже стало нормально. Дома попробую, завтра напишу. А пока идеи приветствуются!
Спасибо.



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
14-17667
Феликс
2002-03-27 12:03
2002.05.06
Почем железо, сынок!


3-17478
Walker
2002-04-11 06:07
2002.05.06
Изменяемая структура БД


1-17574
SaperXL
2002-04-22 09:38
2002.05.06
PaintBox


6-17665
Yr2
2002-02-16 20:47
2002.05.06
NMHTTP.Post - как передать большой бинарный файл?


1-17571
cypher
2002-04-21 22:42
2002.05.06
Как вставить TPicture в панель TStatusBarэ