Скачать: 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 вся ветка

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



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