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

Панель инструментов   Найти похожие ветки 

← →
nap<>   (2006-02-26 12:10) [0]

Подскажите как получить высоту панели инструментов

---

← →
clickmaker ©   (2006-02-26 12:29) [1]

Toolbar.Height

---

← →
nap<>   (2006-02-26 12:38) [2]

Не уточнил извиняюсь У WINDOWS Внизу которая

---

← →
Andy BitOff ©   (2006-02-26 12:50) [3]

А почуму внизу? У меня она сверху. Распространенная ошибка большинства программистов.

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 13:07) [4]

TAppBarData а это что

---

← →
nap<>   (2006-02-26 13:13) [5]

Подскажите что за тип TAppBarData

---

← →
Andy BitOff ©   (2006-02-26 16:02) [6]

uses
 ... ShellAPI ...

---

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

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



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