| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Панель инструментов [D7]
nap<> © (2006-02-26 12:10:00)Подскажите как получить высоту панели инструментов
Andy BitOff (2006-02-26 16:02:00) [1]uses
... ShellAPI ...
nap<> (2006-02-26 13:13:00) [2]Подскажите что за тип TAppBarData
nap<> (2006-02-26 13:07:00) [3]TAppBarData а это что
Andy BitOff (2006-02-26 12:50:00) [4]А почуму внизу? У меня она сверху. Распространенная ошибка большинства программистов.
procedure TMainForm.SetFormHeightByScreenSize();
var
a:integer;
ABData: TAppBarData;
bAlwaysOnTop: Boolean; {Поверх окон}
bAutoHide : boolean; {Авт. убирать с экрана}
ClRect : TRect; {Клиентские области}
Rect : TRect;
Edge : UInt; {Местоположение TaskBar}
begin
//определение положения TaskBar'a и его размера
ABData.hWnd := FindWindow('Shell_TrayWnd', nil);
ABData.cbSize := sizeof(AppBarData);
bAlwaysOnTop := strToBool(IntToStr((SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_ALWAYSONTOP)));
bAutoHide := strToBool(IntToStr((SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE)));
windows.GetClientRect(ABData.hWnd, ClRect);
GetWindowRect(ABData.hwnd, rect);
if (Rect.top > 0) Then Edge := ABE_BOTTOM else if (Rect.Bottom < Screen.Height) Then Edge := ABE_TOP
else if Rect.Right < Screen.Width Then Edge := ABE_LEFT else Edge := ABE_RIGHT;
//установка положения и изменение размеров формы на весь экран по высоте
a:=0;
if Edge=ABE_TOP then a:=clRect.Bottom;
MainForm.Top:=a;
a:=Screen.Height-clRect.Bottom-MainForm.Height;
MainForm.Height:=MainForm.Height+a;
MainForm.Repaint;
EditFilePanel.Height:=a;
end;
nap<> (2006-02-26 12:38:00) [5]Не уточнил извиняюсь У WINDOWS Внизу которая
clickmaker (2006-02-26 12:29:00) [6]Toolbar.Height
| |
