怎样才能做一个会自动隐藏的工具条?(100分)

drroc · 2001-02-11

我用以下代码创建一条Window工具条,但不会自动隐藏,请问, 是哪里错了?如何改正. 代码如下: unit AppBarSampleCode; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellApi,   StdCtrls; const   APPBAR_CALLBACK=WM_USER+1024;   DEF_APPBAR_WIDTH=40;   DEF_APPBAR_HEIGHT=35; type   TMainForm = class(TForm)     Button1: TButton;     Button2: TButton;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   protected     procedure CreateParams(var Params:TCreateParams);override;     procedure SetTopMost(TopMost:Boolean);   private     { Private declarations }     aAppBarData:TAppBarData;     procedure SetAppBarPos(uPosition:UINT);     procedure AppbarCallBack(var Msg:TMessage);message APPBAR_CALLBACK;     procedure WMActivate(var Msg:TMessage);message WM_ACTIVATE;     procedure WMWindowPosChange(var Msg:TMessage);message WM_WINDOWPOSCHANGED;     function SendAppBarMsg(Msg

WORD):UINT;   public     { Public declarations }   end; var   MainForm: TMainForm; implementation {$R *.DFM} procedure TMainForm.FormCreate(Sender: TObject); begin aAppBarData.hWnd:=Handle; aAppBarData.cbSize:=SizeOf(TAppBarData); aAppBarData.uCallbackMessage:=APPBAR_CALLBACK; if SendAppBarMsg(ABM_NEW)=0 then   Application.Terminate; SendAppBarMsg(ABM_SETAUTOHIDEBAR); SetAppBarPos(ABE_TOP); end; procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin SHAppBarMessage(ABM_REMOVE,aAppBarData); end; procedure TMainForm.SetAppBarPos(uPosition:UINT); begin aAppBarData.uEdge:=uPosition; with aAppBarData.rc do begin   Top:=0;   Left:=0;   Right:=Screen.Width;   Bottom:=Screen.Height;   SendAppBarMsg(ABM_QUERYPOS);   case uPosition of   ABE_LEFT:Right:=Left+DEF_APPBAR_WIDTH;   ABE_RIGHT:Left:=Right-DEF_APPBAR_WIDTH;   ABE_TOP:Bottom:=Top+DEF_APPBAR_HEIGHT;   ABE_BOTTOM:Top:=Bottom-DEF_APPBAR_HEIGHT;   end;   SendAppBarMsg(ABM_SETPOS); end; BoundsRect:=aAppBarData.rc; end; procedure TMainForm.AppbarCallBack(var Msg:TMessage); var   uState:UINT; begin case Msg.wParam of ABN_STATECHANGE: begin   uState:=SendAppBarMsg(ABM_GETSTATE);   if ABS_ALWAYSONTOP and uState=0 then     SetTopMost(False)   else     SetTopMost(True); end; ABN_FULLSCREENAPP: begin   uState:=SendAppBarMsg(ABM_GETSTATE);   if Msg.lParam<>0 then   begin     if ABS_ALWAYSONTOP and uState=0 then       SetTopMost(False)     else       SetTopMost(True);   end   else   begin     if uState and ABS_ALWAYSONTOP<>0 then       SetTopMost(True);   end; end; ABN_POSCHANGED: begin   SetAppBarPos(aAppBarData.uEdge); end; end; end; procedure TMainForm.WMActivate(var Msg:TMessage); begin inherited; SendAppBarMsg(ABM_ACTIVATE); end; procedure TMainForm.CreateParams(var Params:TCreateParams); begin inherited CreateParams(Params); with Params do begin ExStyle:=WS_EX_TOOLWINDOW or WS_EX_TOPMOST; Style:=WS_VISIBLE or WS_POPUP or WS_THICKFRAME or WS_CLIPCHILDREN; end; end; function TMainForm.SendAppBarMsg(Msg

WORD):UINT; begin Result:=SHAppBarMessage(Msg,aAppBarData); end; procedure TMainForm.WMWindowPosChange(var Msg:TMessage); begin inherited; SendAppBarMsg(ABM_WINDOWPOSCHANGED); end; procedure TMainForm.SetTopMost(TopMost:Boolean); const   WndPosArray:array[Boolean] of HWND=(HWND_BOTTOM,HWND_TOPMOST); begin SetWindowPos(Handle,WndPosArray[TopMost],0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE) end; procedure TMainForm.Button1Click(Sender: TObject); begin SetTopMost(False); end; procedure TMainForm.Button2Click(Sender: TObject); begin SetTopMost(True); end; end.

yaya8163 · 2001-02-23

请参阅如下控件   unit USAppBar; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellApi; const WM_Appbar = WM_USER+23;       id_UnhideTimer = 2906 ;       id_HideTimer   = 2907 ; type   TEdge = (abeLeft,abeTop,abeRight,abeBottom);   TUSAppBar = class(TComponent)   private     { Private declarations }    FABOldStyle,FABOldStyleEx,FABZOrder,FABTimerID:Integer;    FABOwner:TForm;    FABHandle:THandle;    FABData:TAppBarData;    FABReg,FABMoving,FABHidden:Boolean;    FABWide,FABEdge:Integer;    FABActive,FABSliding,FABAutoHide,FABAlwaysOnTop:Boolean;    FABOldRect,FABRect:TRect;    procedure SlideWindow (hwnd:Integer;np:TRect;slide:boolean);    procedure AB_Register; //Registriert    procedure AB_Remove;   //Entfernt AppBar aus dem System    procedure AB_CB (var msg:TMessage);    procedure AB_Hide;    procedure AB_Unhide;    procedure AB_CalcRect (wide:Integer;var R:TRect);    procedure AB_CheckPos (wide:Integer;var R:Trect);    procedure AB_SetABPos;    procedure AB_SetWndPos;    procedure AB_SetActive;    procedure AB_NoAutoHide;    procedure AB_AutoHide;    procedure AB_SetAutoHide;    procedure AB_SetAlwaysOnTop (aAlwaysOnTop:Boolean);   protected     { Protected declarations }     FOnChangeEdge:TNotifyEvent;     OldWndProc : TFarProc;     NewWndProc : Pointer;     procedure SetEdge (aEdge:TEdge);     function  GetEdge:TEdge;     procedure SetWide (aWide:Integer);     procedure SetAutoHide (aAutoHide:Boolean);     procedure SetAlwaysOnTop (aAlwaysOnTop:Boolean);     procedure SetActive (aActive:Boolean);     procedure HookWin;     procedure UnhookWin;     function Design:Boolean; //Noch ersetzen     procedure HookWndProc(var Message: TMessage);   public     { Public declarations }     constructor Create(AOwner: TComponent);  override;     destructor  Destroy; override;   published     { Published declarations }     property Active:boolean read FABActive write SetActive;     property Wide:Integer read FABWide write SetWide;     property Edge:TEdge read GetEdge write SetEdge;     property Autohide:boolean read FABAutohide write SetAutohide;     property AlwaysOnTop:boolean read FABAlwaysOnTop write SetAlwaysOnTop;     property Sliding:boolean read FABSliding write FABSliding;     property Registerd:Boolean Read FABReg;     property OnChangeEdge:TNotifyEvent read FOnChangeEdge write FOnChangeEdge;   end; procedure Register; implementation procedure Register; begin   RegisterComponents('Win95', [TUSAppBar]); end; function TUSAppBar.Design:Boolean; BEGIN result:=csDesigning in ComponentState; END; procedure TUSAppBar.SlideWindow(hwnd:Integer;np:TRect;slide:Boolean); var OldPos:TRect;     priority,x,y,dx,dy,dt,t,t0:Integer;     fShow:Boolean;     hThreadMe:Integer; const g_dtSlideHide = 400; const g_dtSlideShow = 400; begin  IF slide THEN   BEGIN  GetWindowRect(hwnd, OldPos);  fShow:=((np.bottom - np.top)>(OldPos.bottom - OldPos.top)) or   ((np.right - np.left) > (OldPos.right - OldPos.left));  dx := (np.right - oldpos.right) + (np.left - oldpos.left);  dy := (np.bottom - oldpos.bottom) + (np.top - oldpos.top); if (fShow) THEN  BEGIN   OldPos:=np;   OffsetRect(OldPos, -dx, -dy);   SetWindowPos(hwnd,0,OldPos.left,OldPos.top,      OldPos.right - OldPos.left, OldPos.bottom - OldPos.top,      SWP_NOZORDER OR SWP_NOACTIVATE {OR SWP_DRAWFRAME});   dt := g_dtSlideShow; END  else   dt := g_dtSlideHide; hThreadMe := GetCurrentThread(); priority := GetThreadPriority(hThreadMe); SetThreadPriority(hThreadMe, THREAD_PRIORITY_BELOW_NORMAL); t0 := GetTickCount(); t:=t0; while ((t) < t0 + dt) do  begin    t := GetTickCount();    x := Round(OldPos.left + dx * (t - t0) / dt);    y := Round(OldPos.top + dy * (t - t0) / dt);    SetWindowPos(hwnd, 0, x, y, 0, 0,    SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE);    if (fShow) THEN UpdateWindow(hwnd) else;     UpdateWindow(GetDesktopWindow());  END;   SetThreadPriority(hThreadMe, priority);   END;  SetWindowPos(hwnd, 0, np.left, np.top,     np.right - np.left, np.bottom - np.top,     SWP_NOZORDER or SWP_NOACTIVATE or SWP_DRAWFRAME); END; procedure  TUSAppBar.AB_Register; begin with FABData do  begin   cbsize:=SizeOf (FABData);   hwnd:=FABHandle;   uCallBackMessage:=wm_appbar;  end;  if not FABReg THEN   FABReg:=(shAppBarMessage (ABM_NEW,FABData)<>0); end; procedure TUSAppBar.AB_Remove; begin with FABData do  begin   cbsize:=SizeOf (FABData);   hwnd:=FABHandle;  end; if FABReg THEN shAppBarMessage (ABM_REMOVE,FABData); FABReg:=false; end; procedure TUSAppBar.AB_CB (var msg:TMessage); begin   IF msg.WPARAM = ABN_PosChanged THEN    BEGIN     AB_SetABPOS;AB_SetWndPos    END end; procedure TUSAppBar.AB_Hide; var r:TRect; begin If (not FABHidden) Then  BEGIN  AB_CheckPos(2,r);  SlideWindow (FABHandle,r,FABSliding);  FABHidden:=true;  END; end; procedure TUSAppBar.AB_Unhide; var r:TRect; begin If FABHidden Then  BEGIN  AB_CheckPos (FABWide,r);  SlideWindow (FABHandle,r,FABSliding);  FABHidden:=False;  if (fABAutoHide) THEN    FABTimerId:=SetTimer(FABHandle, ID_HIDETIMER, 500, NIL)  END END; procedure TUSAppBar.AB_CalcRect (wide:Integer;var R:TRect); BEGIN case FABEdge of  ABE_LEFT  : with r do               BEGIN                TOP:=0;                LEFT:=0;                Bottom:=GetSystemMetrics(SM_CYSCREEN);                Right:=Wide;               END;  ABE_RIGHT : with r do               BEGIN                TOP:=0;                Bottom:=GetSystemMetrics(SM_CYSCREEN);                Right:=GetSystemMetrics(SM_CXSCREEN);                LEFT:=Right-Wide;               END;  ABE_TOP   : with r do               BEGIN                TOP:=0;                LEFT:=0;                Bottom:=Wide;                Right:=GetSystemMetrics(SM_CXSCREEN);               END;  ABE_BOTTOM: with r do               BEGIN                LEFT:=0;                Bottom:=GetSystemMetrics(SM_CYSCREEN);                TOP:=Bottom-Wide;                Right:=GetSystemMetrics(SM_CXSCREEN);               END   END  END; procedure TUSAppBar.AB_CheckPos (wide:Integer;var R:Trect); begin  AB_CalcRect (wide,r);  with FABData do   BEGIN    cbsize:=SizeOf (FABData);    uEdge:=FABEdge;    hwnd:=FABHandle;    rc:=r   END;  IF FABReg THEN shAppBarMessage (ABM_QUERYPOS,FABData);  r:=FABData.rc; case FABEdge of  ABE_LEFT  : r.LEFT:=0;  ABE_RIGHT : r.Bottom:=GetSystemMetrics(SM_CYSCREEN);  ABE_TOP   : r.TOP:=0;  ABE_BOTTOM: r.Bottom:=GetSystemMetrics(SM_CYSCREEN);   END end; procedure TUSAppBar.AB_SetABPos; var wide:Integer; begin IF FABReg THEN  BEGIN   wide:=FABWide;   If FABAutohide THEN wide:=2;   IF (not FABAlwaysOnTop) and (not FABAutohide) Then wide:=0;   AB_CheckPos (wide,FABRect);   with FABData do    begin     cbsize:=SizeOf (FABData);     uEdge:=FABEdge;     hwnd:=FABHandle;     rc:=FABRect    end;   shAppBarMessage (ABM_setPos,FABData);  END; end; procedure TUSAppBar.AB_SetWndPos; var wide:Integer;     r:TREct; BEGIN IF FABReg THEN   BEGIN    If FABHidden Then wide:=2 else wide:=FABWide;    AB_CheckPos (Wide,r);    SlideWindow (FABHandle,r,FABSliding);   END; END; procedure TUSAppBar.AB_SetActive; BEGIN If FABActive THEN  BEGIN //Registrieren, Werte setzen, und hinschieben...  IF not FABReg THEN AB_Register;  IF FABReg THEN   BEGIN    GetWindowRect (FABHandle,FABOldRect);    FABOldStyleEx:=GetWindowLong (FABHandle,GWL_EXSTYLE);    FABOldStyle:=GetWindowLong (FABHandle,GWL_STYLE);    SetWindowLong (FABHandle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);    SetWindowLong (FABHandle,GWL_Style,WS_VISIBLE or WS_DLGFRAME or ws_thickframe);    HookWin;    AB_SetAutohide;    AB_SetAlwaysOnTop(FABAlwaysOnTop);    AB_SetABPos;    AB_SetWndPos   END  END ELSE  BEGIN  AB_NoAutoHide;  AB_SetAlwaysOnTop (false);  AB_Remove;  UnHookWin;  SetWindowLong (FABHandle,GWL_EXSTYLE,FABOldStyleEx);  SetWindowLong (FABHandle,GWL_STYLE,FABOldStyle);  SlideWindow (FABHandle,FABOldRect,false);  END END; procedure TUSAppBar.AB_NoAutoHide; var ret:Integer; BEGIN IF FABReg THEN  BEGIN  with FABData do   begin   cbsize:=Sizeof(FABData);   uEdge:=FABEdge;   hwnd:=FABHandle   END;  ret:=shAppBarMessage (ABM_GetAutohideBar,FABData);  IF (ret=FABHandle) THEN   BEGIN    FABData.LParam:=0;    ret:=shAppBarMessage (ABM_SetAutohideBar,FABData);   END  END END; procedure TUSAppBar.AB_AutoHide; var ret:Integer; BEGIN IF FABReg THEN  BEGIN  with FABData do   begin   cbsize:=Sizeof(FABData);   uEdge:=FABEdge;   hwnd:=FABHandle   END;  ret:=shAppBarMessage (ABM_GetAutohideBar,FABData);  IF (ret<>0) THEN   BEGIN      MessageDlg ('Another appbar ist already registered to this edge',        mtError,[mbOk],0);      AB_Unhide;      FABAutohide:=FALSE;   END  ELSE   BEGIN      FABData.LParam:=1;      ret:=shAppBarMessage (ABM_SetAutohideBar,FABData);      FABAutohide:=ret<>0;      IF FABAutohide THEN FABTimerId:=SetTimer(FABHandle, ID_HIDETIMER, 500, NIL)   END  END; END; procedure TUSAppBar.AB_SetAutoHide; begin If FABAutohide THEN AB_AutoHide ELSE AB_NoAutoHide; END; procedure TUSAppBar.AB_SetAlwaysOnTop; BEGIN IF FABReg THEN BEGIN   If aAlwaysOnTop THEN   SetWindowPos(FABHandle,HWND_TOPMOST,      0, 0, 0, 0, SWP_NOMOVE OR SWP_NOSIZE OR SWP_NOACTIVATE)    ELSE   SetWindowPos(FABHandle,HWND_NOTOPMOST,      0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);   AB_SetABPos; END; END; procedure TUSAppBar.SetEdge (aEdge:TEdge); BEGIN IF FABEdge<>Ord(aEdge) THEN  BEGIN  FABEdge:=Ord(aEdge);  IF not Design THEN   BEGIN    AB_SetABPos;    AB_SetWndPos   END  END END; function  TUSAppBar.GetEdge:TEdge; BEGIN Result:=TEdge(FABEdge); END; procedure TUSAppBar.SetWide (aWide:Integer); BEGIN IF FABWide<>aWide THEN  BEGIN  FABWide:=aWide;  IF not Design THEN   BEGIN    AB_SetABPos;    AB_SetWndPos   END  END END; procedure TUSAppBar.SetAutoHide (aAutoHide:Boolean); BEGIN IF FABAutoHide<>aAutoHide THEN  BEGIN  FABAutohide:=aAutohide;  If not Design THEN AB_SetAutohide;  END END; procedure TUSAppBar.SetAlwaysOnTop (aAlwaysOnTop:Boolean); BEGIN IF FABAlwaysOnTop<>aAlwaysOnTop THEN  BEGIN  FABAlwaysOnTop:=aAlwaysOnTop;  If not Design THEN AB_SetAlwaysOnTop(FABAlwaysOnTop);  END END; procedure TUSAppBar.SetActive (aActive:Boolean); BEGIN IF aActive <>FABActive THEN  BEGIN  FABActive:=aActive;  IF not Design THEN AB_SetActive  END END; procedure TUSAppBar.HookWin; BEGIN  OldWndProc := TFarProc(GetWindowLong(FABHandle, GWL_WNDPROC));  NewWndProc := MakeObjectInstance(HookWndProc);  SetWindowLong(FABHandle, GWL_WNDPROC, LongInt(NewWndProc)); END; procedure TUSAppBar.UnhookWin; begin  SetWindowLong(FABHandle, GWL_WNDPROC, LongInt(OldWndProc));  if assigned(NewWndProc) then   FreeObjectInstance(NewWndProc);  NewWndProc := nil; end; procedure TUSAppBar.HookWndProc(var Message: TMessage); var VorlRes:Integer;     MP:TPoint;     R:Trect;     dx,dy,cxscreen,cyscreen,vert,horz:Integer; begin   with Message do   begin     CASE Msg OF      wm_AppBar     : AB_CB (Message); //Eine Nachricht von unsere Appbar      wm_Timer      : If ((WParam=id_UnHideTimer) OR (WParam=id_HideTimer)) //Ein Timer zum Autohiding                           AND FABAutoHide THEN                       BEGIN                        IF WParam=id_HideTimer THEN                        BEGIN                         GetCursorPos(MP);                         GetWindowRect(FABHandle, R);                         if not PtInRect(r, mp) THEN                         BEGIN                          KillTimer(FABHandle, id_HideTimer);                          AB_Hide                         END                        END;                       IF WParam=id_UnHideTimer THEN                        BEGIN                         GetCursorPos(MP);                         GetWindowRect(FABHandle, R);                         if PtInRect(r, mp) THEN                         BEGIN                          KillTimer(FABHandle, id_UnhideTimer);                          AB_Unhide                         END                        END                       END                      ELSE                        Result := CallWindowProc (OldWndProc,FABHandle, Msg, wParam, lParam);      WM_NCHITTEST:  //Es wird gerade NichtClient getestet                        BEGIN                        If FABHIDDEN THEN                          FABTimerID:=SetTimer(FABHandle,id_UnhideTimer,200,nil);                        result:=HTClient;                        VorlRes := CallWindowProc (                        OldWndProc,FABHandle, Msg, wParam, lParam);                        IF not(VorlRes in [HTBottom,HTTOP,HTRight,HTLeft]) THEN                         result:=VorlRes;               if ((FABEdge=ABE_TOP) AND (VorlRes = HTBOTTOM)) THEN        result:= HTBOTTOM;               if ((FABEdge=ABE_Bottom) AND (VorlRes = HTTop)) THEN        result:= HTTOP;                        if (FABEdge=ABE_LEFT) AND (VorlRes = HTRight) THEN        result:= HTRight;                        if ((FABEdge=ABE_RIGHT) AND (VorlRes = HTLeft)) THEN        result:= HTLeft;                       END;     wm_sizing :  IF (wparam=wmsz_top) or (wparam=wmsz_bottom) THEN                        FABWide:=PRect(lparam)^.bottom-PRect(lparam)^.top                     else                        FABWide:=PRect(lparam)^.right-PRect(lparam)^.left;      wm_LButtonDown : BEGIN                       SetForeGroundWindow (FABHandle);                       SetCapture (FABHandle);                       FABMoving:=true;                       AB_NoAutohide;                       END;      wm_MouseMove   : IF FABMoving THEN                        BEGIN                         cxScreen := GetSystemMetrics(SM_CXSCREEN);                cyScreen := GetSystemMetrics(SM_CYSCREEN);                         GetCursorPos(MP) ;                if mp.x < (cxScreen div 2) THEN                 BEGIN         dx := mp.x;         horz:= ABE_LEFT;                          END                         else                          BEGIN         dx := (cxscreen-mp.x);         horz:= ABE_RIGHT;                          END;                if ((mp.y) < (cyScreen div 2)) THEN                 BEGIN         dy := mp.y;         vert:= ABE_TOP;                          END                         else                          BEGIN         dy := cyscreen-mp.y;         vert:= ABE_Bottom;                          END;                         if (cxScreen div dx) > (cyScreen div dy) THEN                           FABEdge:=horz ELSE                           FABEDge:=vert;                           AB_CheckPos (FABWide,R);                           SlideWindow (FABHandle,R,FALSE);                          END;      wm_LButtonUp   : IF FABMoving THEN                        BEGIN                         IF Assigned (FOnChangeEdge) THEN FOnChangeEdge(self);                         AB_SetABPos;                         AB_SetAutoHide;                         FABMoving:=False;                         ReleaseCapture();                        END;      wm_Activate     : BEGIN                        with FABData do                         BEGIN                         cbSize:=sizeof (FABData);                         hwnd:=FABHandle;                         lparam:=0;                         END;                        SHAppBarMessage (ABM_Activate,FABData);                        CASE wParamlo of                         WA_CLICKACTIVE: BEGIN                                          IF FABAutohide THEN AB_Unhide;                                          KillTimer (FABHandle,ID_HideTimer);                                         END;                         WA_InACtive   : IF FABAutohide THEN AB_Hide;                        END                        END;      wm_size : BEGIN                with FABData do                 begin                 cbSize:=sizeof(FABData);                 hWnd:=FABHandle;                 lParam:=0                 END;                SHAppBarMessage (ABM_WindowPosChanged,FABData);                Result := CallWindowProc (OldWndProc,FABHandle, Msg, wParam, lParam);                END     ELSE Result := CallWindowProc (OldWndProc,FABHandle, Msg, wParam, lParam);    END //von Case   end; end; constructor TUSAppBar.Create(AOwner: TComponent); BEGIN inherited Create (AOwner); FABOwner:=Aowner As TForm; FABHandle:=FABOwner.Handle; FABActive:=false; FABAutoHide:=false; FABAlwaysOnTop:=false; FABSliding:=true; FABWide:=50; FABEdge:=ABE_Left; FABHidden:=false; FABMoving:=false; FABReg:=false; END; destructor  TUSAppBar.Destroy; BEGIN AB_Remove; inherited Destroy; END; end.

wjiachun · 2001-04-26

提问者: 如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。 请认真阅读大富翁论坛规则说明   http://www.delphibbs.com/delphibbs/rules.htm

lollman · 2001-04-29

哇靠，太复杂了。用控件吧，很简单的。我有个源码，你看 {*****************************************************************************} {                                                                             } { TAppBar Class v1.4                                                          } { implements Application Desktop Toolbar                                      } { (based on J.Richter's CAppBar MFC Class)                                    } {                                                                             } { Copyright (c) 1997/98 Paolo Giacomuzzi                                      } { e-mail: paolo.giacomuzzi@usa.net                                            } { http://www.geocities.com/SiliconValley/9486                                 } {                                                                             } {*****************************************************************************} unit AppBar; interface uses   Windows, Messages, SysUtils, Classes, Forms, Dialogs, Controls, ExtCtrls,   ShellApi, Registry; const   // AppBar's user notification message   WM_APPBARNOTIFY = WM_USER + 100;   // Timer interval   SLIDE_DEF_TIMER_INTERVAL = 400;  // milliseconds   // Defaults   AB_DEF_SIZE_INC  = 1;   AB_DEF_DOCK_SIZE = 32;   AB_DEF_ROOT_KEY  = HKEY_CURRENT_USER;   AB_DEF_KEY_NAME  = 'Software/AppBar/1.4/Delphi'; type   // You can send to the Windows shell one of the following messages:   // Message             Description   // --------------      --------------------------------------------------   // ABM_NEW             Register a new AppBar to the system   // ABM_REMOVE          Remove a previously created AppBar from the system   // ABM_QUERYPOS        Query the AppBar position   // ABM_SETPOS          Set the AppBar position   // ABM_GETSTATE        Get the edge the Appbar is docked to   // ABM_GETTASKBARPOS   Get the Explorer Taskbar position   // ABM_ACTIVATE        Activate the AppBar   // ABM_GETAUTOHIDEBAR  Query if AppBar has Auto-hide behavior   // ABM_SETAUTOHIDEBAR  Set the AppBar's Auto-hide behavior   // The ABM_message constants are defined in SHELLAPI.PAS as follows:   // ABM_NEW              = $00000000;   // ABM_REMOVE           = $00000001;   // ABM_QUERYPOS         = $00000002;   // ABM_SETPOS           = $00000003;   // ABM_GETSTATE         = $00000004;   // ABM_GETTASKBARPOS    = $00000005;   // ABM_ACTIVATE         = $00000006;   // ABM_GETAUTOHIDEBAR   = $00000007;   // ABM_SETAUTOHIDEBAR   = $00000008;   // ABM_WINDOWPOSCHANGED = $00000009;   // The following enumerated type defines the constants in the table   TAppBarMessage = (abmNew, abmRemove, abmQueryPos, abmSetPos, abmGetState,                     abmGetTaskBarPos, abmActivate, abmGetAutoHideBar,                     abmSetAutoHideBar, abmWindowPosChanged);   // An AppBar can be in one of 6 states shown in the table below:   // State          Description   // -----------    -----------------------------------------------------   // ABE_UNKNOWN    The Appbar is in an unknown state   //                (usually during construction/destruction)   // ABE_FLOAT      The AppBar is floating on the screen   // ABE_LEFT       The Appbar is docked on the left   edge of the screen   // ABE_TOP        The Appbar is docked on the top    edge of the screen   // ABE_RIGHT      The Appbar is docked on the right  edge of the screen   // ABE_BOTTOM     The Appbar is docked on the bottom edge of the screen   // The ABE_edge state constants are defined in SHELLAPI.PAS as follows:   // ABE_LEFT    = 0;   // ABE_TOP     = 1;   // ABE_RIGHT   = 2;   // ABE_BOTTOM  = 3;   // The ABE_UNKNOWN and ABE_FLOAT constants are defined here as follows:   // ABE_UNKNOWN = 4;   // ABE_FLOAT   = 5;   // The following enumerated type defines the constants in the table   // (Values are mutually exclusive)   TAppBarEdge = (abeLeft, abeTop, abeRight, abeBottom, abeUnknown, abeFloat);   // An AppBar can have several behavior flags as shown below:   // Flag                        Description   // --------------------------- -----------------------------------   // ABF_ALLOWLEFT               Allow dock on left   of screen   // ABF_ALLOWRIGHT              Allow dock on right  of screen   // ABF_ALLOWTOP                Allow dock on top    of screen   // ABF_ALLOWBOTTOM             Allow dock on bottom of screen   // ABF_ALLOWFLOAT              Allow float in the middle of screen   // The following enumerated type defines the constants in the table   TAppBarFlag = (abfAllowLeft, abfAllowTop, abfAllowRight, abfAllowBottom,                  abfAllowFloat);   TAppBarFlags = set of TAppBarFlag;   // The following enumerated type defines the AppBar behavior in the Taskbar   TAppBarTaskEntry = (abtShow, abtHide, abtFloatDependent);   // The record below contains all of the AppBar settings that   // can be saved/loaded in/from the Registry   TAppBarSettings = record     cbSize         : DWORD;        // Size of this structure     abEdge         : TAppBarEdge;  // ABE_UNKNOWN, ABE_FLOAT, or ABE_edge     abFlags        : TAppBarFlags; // ABF_* flags     bAutohide      : Boolean;      // Should AppBar be auto-hidden when docked?     bAlwaysOnTop   : Boolean;      // Should AppBar always be on top?     bSlideEffect   : Boolean;      // Should AppBar slide?     nTimerInterval : Integer;      // Slide Timer Interval (determines speed)     szSizeInc      : TSize;        // Discrete width/height size increments     szDockSize     : TSize;        // Width/Height for docked bar     rcFloat        : TRect;        // Floating rectangle in screen coordinates     nMinWidth      : Integer;      // Min allowed width     nMinHeight     : Integer;      // Min allowed height     nMaxWidth      : Integer;      // Max allowed width     nMaxHeight     : Integer;      // Max allowed height     szMinDockSize  : TSize;        // Min Width/Height when docked     szMaxDockSize  : TSize;        // Max Width/Height when docked     abTaskEntry    : TAppBarTaskEntry; // AppBar behavior in the Taskbar   end;   // The record below contains the settings location in the registry   TAppBarSettingsLocation = record     nRootKey : Integer;  // HKEY_CURRENT_USER or HKEY_LOCAL_MACHINE     KeyName  : String;   // Key Name starting from root   end;   // TAppBar class ////////////////////////////////////////////////////////////   TAppBar = class(TForm)   private   { Internal implementation state variables }     // This AppBar's settings info     FABS : TAppBarSettings;     // We need a member variable which tracks the proposed edge of the     // AppBar while the user is moving it, deciding where to position it.     // While not moving, this member must contain ABE_UNKNOWN so that     // GetEdge returns the current edge contained in FABS.abEdge.     // While moving the AppBar, FabEdgeProposedPrev contains the     // proposed edge based on the position of the AppBar.  The proposed     // edge becomes the new edge when the user stops moving the AppBar.     FabEdgeProposedPrev : TAppBarEdge;     // We need a member variable which tracks whether a full screen     // application window is open     FbFullScreenAppOpen : Boolean;     // We need a member variable which tracks whether our autohide window     // is visible or not     FbAutoHideIsVisible : Boolean;     // We need a timer to to determine when the AppBar should be re-hidden     FTimer : TTimer;     // We need a member variable to store the settings location in the registry     FabSettingsLocation : TAppBarSettingsLocation;   { Internal implementation functions }     // Modifies window creation flags     procedure CreateParams (var Params: TCreateParams); override;     // These functions encapsulate the shell's SHAppBarMessage function     function AppBarMessage (abMessage : TAppBarMessage;                             abEdge    : TAppBarEdge;                             lParam    : LPARAM;                             bRect     : Boolean;                             var rc    : TRect) : UINT;     function AppBarMessage1 (abMessage : TAppBarMessage) : UINT;     function AppBarMessage2 (abMessage : TAppBarMessage;                              abEdge    : TAppBarEdge) : UINT;     function AppBarMessage3 (abMessage : TAppBarMessage;                              abEdge    : TAppBarEdge;                              lParam    : LPARAM) : UINT;     function AppBarMessage4 (abMessage : TAppBarMessage;                              abEdge    : TAppBarEdge;                              lParam    : LPARAM;                              var rc    : TRect) : UINT;     // Gets a edge (ABE_FLOAT or ABE_edge) from a point (screen coordinates)     function CalcProposedState (var pt : TSmallPoint) : TAppBarEdge;     // Gets a retangle position (screen coordinates) from a proposed state     procedure GetRect (abEdgeProposed : TAppBarEdge; var rcProposed : TRect);     // Adjusts the AppBar's location to account for autohide     // Returns TRUE if rectangle was adjusted     function AdjustLocationForAutohide (bShow  : Boolean;                                         var rc : TRect) : Boolean;     // If AppBar is Autohide and docked, shows/hides the AppBar     procedure ShowHiddenAppBar (bShow : Boolean);     // When Autohide AppBar is shown/hidden, slides in/out of view     procedure SlideWindow (var rcEnd : TRect);     // Returns which edge we're autohidden on or ABE_UNKNOWN     function GetAutohideEdge : TAppBarEdge;     // Returns a TSmallPoint that gives the cursor position in screen coords     function GetMessagePosition : TSmallPoint;     // Changes the style of a window (translated from AfxModifyStyle)     function ModifyStyle (hWnd         : THandle;                           nStyleOffset : Integer;                           dwRemove     : DWORD;                           dwAdd        : DWORD;                           nFlags       : UINT) : Boolean;   protected   { Property selector functions }     // Retrieves the AppBar's edge.  If the AppBar is being positioned, its     // proposed state is returned instead     function GetEdge : TAppBarEdge;     // Changes the AppBar's edge to ABE_UNKNOWN, ABE_FLOAT or an ABE_edge     procedure SetEdge (abEdge : TAppBarEdge);     // Changes the slide time interval     procedure SetSlideTime (nInterval : Integer);   { Overridable functions }     // Called when the AppBar's proposed state changes     procedure OnAppBarStateChange (bProposed      : Boolean;                                    abEdgeProposed : TAppBarEdge); virtual;     // Called if user attempts to dock an Autohide AppBar on     // an edge that already contains an Autohide AppBar     procedure OnAppBarForcedToDocked; virtual;     // Called when AppBar gets an ABN_FULLSCREENAPP notification     procedure OnABNFullScreenApp (bOpen : Boolean); virtual;     // Called when AppBar gets an ABN_POSCHANGED notification     procedure OnABNPosChanged; virtual;     // Called when AppBar gets an ABN_WINDOWARRANGE notification     procedure OnABNWindowArrange (bBeginning : Boolean); virtual;   { Message handlers }     // Called when the AppBar receives a WM_APPBARNOTIFY window message     procedure OnAppBarCallbackMsg(var Msg : TMessage); message WM_APPBARNOTIFY;     // Called when the AppBar form is first created     procedure OnCreate (var Msg: TWMCreate); message WM_CREATE;     // Called when the AppBar form is about to be destroyed     procedure OnDestroy (var Msg : TWMDestroy); message WM_DESTROY;     // Called when the AppBar receives a WM_WINDOWPOSCHANGED message     procedure OnWindowPosChanged (var Msg : TWMWindowPosChanged);                                                    message WM_WINDOWPOSCHANGED;     // Called when the AppBar receives a WM_ACTIVATE message     procedure OnActivate (var Msg : TWMActivate); message WM_ACTIVATE;     // Called every timer tick     procedure OnAppBarTimer (Sender : TObject);     // Called when the AppBar receives a WM_NCMOUSEMOVE message     procedure OnNcMouseMove (var Msg : TWMNCMouseMove); message WM_NCMOUSEMOVE;     // Called when the AppBar receives a WM_NCHITTEST message     procedure OnNcHitTest (var Msg: TWMNCHitTest); message WM_NCHITTEST;     // Called when the AppBar receives a WM_ENTERSIZEMOVE message     procedure OnEnterSizeMove (var Msg : TMessage); message WM_ENTERSIZEMOVE;     // Called when the AppBar receives a WM_EXITSIZEMOVE message     procedure OnExitSizeMove (var Msg : TMessage); message WM_EXITSIZEMOVE;     // Called when the AppBar receives a WM_MOVING message     procedure OnMoving (var Msg : TMessage); message WM_MOVING;     // Called when the AppBar receives a WM_SIZING message     procedure OnSizing (var Msg : TMessage); message WM_SIZING;     // Called when the AppBar receives a WM_GETMINMAXINFO message     procedure OnGetMinMaxInfo (var Msg : TWMGetMinMaxInfo);                                                       message WM_GETMINMAXINFO;   { AppBar-specific helper functions }     // Returns TRUE if abEdge is ABE_LEFT or ABE_RIGHT, else FALSE is returned     function IsEdgeLeftOrRight (abEdge : TAppBarEdge) : Boolean;     // Returns TRUE if abEdge is ABE_TOP or ABE_BOTTOM, else FALSE is returned     function IsEdgeTopOrBottom (abEdge : TAppBarEdge) : Boolean;     // Returns TRUE if abEdge is ABE_FLOAT, else FALSE is returned     function IsFloating (abEdge : TAppBarEdge) : Boolean;     // Returns TRUE if abFlags contain an at least allowed edge to dock on     function IsDockable (abFlags : TAppBarFlags) : Boolean;     // Returns TRUE if abFlags contain abfAllowLeft and abfAllowRight     function IsDockableVertically (abFlags : TAppBarFlags) : Boolean;     // Returns TRUE if abFlags contain abfAllowTop and abfAllowBottom     function IsDockableHorizontally (abFlags : TAppBarFlags) : Boolean;     // Forces the shell to update its AppBar list and the workspace area     procedure ResetSystemKnowledge;     // Returns a proposed edge or ABE_FLOAT based on ABF_* flags and a     // point specified in screen coordinates     function GetEdgeFromPoint (abFlags : TAppBarFlags;                                pt      : TSmallPoint) : TAppBarEdge;   public   { Public member functions }     // Constructs an AppBar     constructor Create (Owner : TComponent); override;     // Destroys a previously created AppBar     destructor Destroy; override;     // Forces the AppBar's visual appearance to match its internal state     procedure UpdateBar; virtual;     // Loads settings from the registry at RootKey and KeyName location.     // Returns TRUE if the settings are available, else FALSE     function LoadSettings : Boolean; virtual;     // Saves settings into the registry at RootKey and KeyName location.     // Returns TRUE if succeeded, else FALSE     function SaveSettings : Boolean; virtual;   published   { Properties }     // Allowed dockable edges     property Flags : TAppBarFlags read FABS.abFlags write FABS.abFlags;     // Horizontal size increment     property HorzSizeInc : Integer read  FABS.szSizeInc.cx                                    write FABS.szSizeInc.cx;     // Vertical size increment     property VertSizeInc : Integer read  FABS.szSizeInc.cy                                    write FABS.szSizeInc.cy;     // Edge to dock on     property Edge : TAppBarEdge read GetEdge write SetEdge;     // Auto-hide On/Off     property AutoHide : Boolean read FABS.bAutohide write FABS.bAutohide;     // Always On Top On/Off     property AlwaysOnTop : Boolean read  FABS.bAlwaysOnTop                                    write FABS.bAlwaysOnTop;     // Slide Effect On/Off     property SlideEffect : Boolean read  FABS.bSlideEffect                                    write FABS.bSlideEffect;     // Slide Time     property SlideTime : Integer read FABS.nTimerInterval write SetSlideTime;     // Horizontal size when docked on left or right     property HorzDockSize : Integer read  FABS.szDockSize.cy                                     write FABS.szDockSize.cy;     // Vertical size when docked on top or bottom     property VertDockSize : Integer read  FABS.szDockSize.cx                                     write FABS.szDockSize.cx;     // AppBar coordinates when floating     property FloatLeft   : Integer read  FABS.rcFloat.Left                                    write FABS.rcFloat.Left;     property FloatTop    : Integer read  FABS.rcFloat.Top                                    write FABS.rcFloat.Top;     property FloatRight  : Integer read  FABS.rcFloat.Right                                    write FABS.rcFloat.Right;     property FloatBottom : Integer read  FABS.rcFloat.Bottom                                    write FABS.rcFloat.Bottom;     // AppBar MinMax dimensions when floating     property MinWidth  : Integer read FABS.nMinWidth  write FABS.nMinWidth;     property MinHeight : Integer read FABS.nMinHeight write FABS.nMinHeight;     property MaxWidth  : Integer read FABS.nMaxWidth  write FABS.nMaxWidth;     property MaxHeight : Integer read FABS.nMaxHeight write FABS.nMaxHeight;     // Min Height when docked horizontally     property MinHorzDockSize : Integer read  FABS.szMinDockSize.cy                                        write FABS.szMinDockSize.cy;     // Min Width when docked vertically     property MinVertDockSize : Integer read  FABS.szMinDockSize.cx                                        write FABS.szMinDockSize.cx;     // Max Height when docked horizontally     property MaxHorzDockSize : Integer read  FABS.szMaxDockSize.cy                                        write FABS.szMaxDockSize.cy;     // Max Width when docked vertically     property MaxVertDockSize : Integer read  FABS.szMaxDockSize.cx                                        write FABS.szMaxDockSize.cx;     // AppBar behavior in the Window Taskbar     property TaskEntry : TAppBarTaskEntry read  FABS.abTaskEntry                                           write FABS.abTaskEntry;     // RootKey in the registry where settings should be loaded/saved     property RootKey : Integer read  FabSettingsLocation.nRootKey                                write FabSettingsLocation.nRootKey;     // KeyName in the registry where settings should be loaded/saved     property KeyName : String read  FabSettingsLocation.KeyName                               write FabSettingsLocation.KeyName;   end; implementation { Internal implementation functions } // TAppBar.CreateParams /////////////////////////////////////////////////////// procedure TAppBar.CreateParams (var Params: TCreateParams); var   dwAdd, dwRemove, dwAddEx, dwRemoveEx : DWORD; begin   // Call the inherited first   inherited CreateParams(Params);   // Styles to be added   dwAdd := 0;   dwAddEx := WS_EX_TOOLWINDOW;   // Styles to be removed   dwRemove := WS_SYSMENU or WS_MAXIMIZEBOX or WS_MINIMIZEBOX;   dwRemoveEx := WS_EX_APPWINDOW;   // Modify style flags   with Params do begin     Style := Style and (not dwRemove);     Style := Style or dwAdd;     ExStyle := ExStyle and (not dwRemoveEx);     ExStyle := ExStyle or dwAddEx;   end; end; // TAppBar.AppBarMessage ////////////////////////////////////////////////////// function TAppBar.AppBarMessage (abMessage : TAppBarMessage;                                 abEdge    : TAppBarEdge;                                 lParam    : LPARAM;                                 bRect     : Boolean;                                 var rc    : TRect) : UINT; var   abd : TAppBarData; begin   // Initialize an APPBARDATA structure   abd.cbSize := sizeof(abd);   abd.hWnd := Handle;   abd.uCallbackMessage := WM_APPBARNOTIFY;   abd.uEdge := Ord(abEdge);   if bRect then     abd.rc := rc   else     abd.rc := Rect(0, 0, 0, 0);   abd.lParam := lParam;   Result := SHAppBarMessage(Ord(abMessage), abd);   // If the caller passed a rectangle, return the updated rectangle   if bRect then     rc := abd.rc; end; // TAppBar.AppBarMessage1 ///////////////////////////////////////////////////// function TAppBar.AppBarMessage1 (abMessage : TAppBarMessage) : UINT; var   rc : TRect; begin   Result := AppBarMessage(abMessage, abeFloat, 0, False, rc); end; // TAppBar.AppBarMessage2 ///////////////////////////////////////////////////// function TAppBar.AppBarMessage2 (abMessage : TAppBarMessage;                                  abEdge    : TAppBarEdge) : UINT; var   rc : TRect; begin   Result := AppBarMessage(abMessage, abEdge, 0, False, rc); end; // TAppBar.AppBarMessage3 ///////////////////////////////////////////////////// function TAppBar.AppBarMessage3 (abMessage : TAppBarMessage;                                  abEdge    : TAppBarEdge;                                  lParam    : LPARAM) : UINT; var   rc : TRect; begin   Result := AppBarMessage(abMessage, abEdge, lParam, False, rc); end; // TAppBar.AppBarMessage4 ///////////////////////////////////////////////////// function TAppBar.AppBarMessage4 (abMessage : TAppBarMessage;                                  abEdge    : TAppBarEdge;                                  lParam    : LPARAM;                                  var rc    : TRect) : UINT; begin   Result := AppBarMessage(abMessage, abEdge, lParam, True, rc); end; // TAppBar.CalcProposedState ////////////////////////////////////////////////// function TAppBar.CalcProposedState (var pt : TSmallPoint) : TAppBarEdge; var   bForceFloat : Boolean; begin   // Force the AppBar to float if the user is holding down the Ctrl key   // and the AppBar's style allows floating   bForceFloat := ((GetKeyState(VK_CONTROL) and $8000) <> 0) and                  (abfAllowFloat in FABS.abFlags);   if bForceFloat then     Result := abeFloat   else     Result := GetEdgeFromPoint(FABS.abFlags, pt); end; // TAppBar.GetRect //////////////////////////////////////////////////////////// procedure TAppBar.GetRect (abEdgeProposed : TAppBarEdge;                            var rcProposed : TRect); begin   // This function finds the x, y, cx, cy of the AppBar window   if abEdgeProposed = abeFloat then begin     // The AppBar is floating, the proposed rectangle is correct   end else begin     // The AppBar is docked or auto-hide     // Set dimensions to full screen     with rcProposed do begin       Left   := 0;       Top    := 0;       Right  := GetSystemMetrics(SM_CXSCREEN);       Bottom := GetSystemMetrics(SM_CYSCREEN);     end;     // Subtract off what we want from the full screen dimensions     if not FABS.bAutohide then       // Ask the shell where we can dock       AppBarMessage4(abmQueryPos, abEdgeProposed, LPARAM(False), rcProposed);     case abEdgeProposed of       abeLeft:         rcProposed.Right  := rcProposed.Left   + FABS.szDockSize.cx;       abeTop:         rcProposed.Bottom := rcProposed.Top    + FABS.szDockSize.cy;       abeRight:         rcProposed.Left   := rcProposed.Right  - FABS.szDockSize.cx;       abeBottom:         rcProposed.Top    := rcProposed.Bottom - FABS.szDockSize.cy;     end; // end of case   end; // end of else end; // TAppBar.AdjustLocationForAutohide ////////////////////////////////////////// function TAppBar.AdjustLocationForAutohide (bShow  : Boolean;                                             var rc : TRect) : Boolean; var   x, y : Integer;   cxVisibleBorder, cyVisibleBorder : Integer; begin   if ((GetEdge = abeUnknown) or (GetEdge = abeFloat) or       (not FABS.bAutohide)) then begin     // If we are not docked on an edge OR we are not auto-hidden, there is     // nothing for us to do; just return     Result := False;     Exit;   end;   // Showing/hiding doesn't change our size; only our position   x := 0; y := 0; // Assume a position of (0, 0)   if bShow then     // If we are on the right or bottom, calculate our visible position     case GetEdge of       abeRight:         x := GetSystemMetrics(SM_CXSCREEN) - (rc.Right - rc.Left);       abeBottom:         y := GetSystemMetrics(SM_CYSCREEN) - (rc.Bottom - rc.Top);     end   else begin     // Keep a part of the AppBar visible at all times     cxVisibleBorder := 2 * GetSystemMetrics(SM_CXBORDER);     cyVisibleBorder := 2 * GetSystemMetrics(SM_CYBORDER);     // Calculate our x or y coordinate so that only the border is visible     case GetEdge of       abeLeft:         x := -((rc.Right - rc.Left) - cxVisibleBorder);       abeRight:         x := GetSystemMetrics(SM_CXSCREEN) - cxVisibleBorder;       abeTop:         y := -((rc.Bottom - rc.Top) - cyVisibleBorder);       abeBottom:         y := GetSystemMetrics(SM_CYSCREEN) - cyVisibleBorder;     end;   end;   with rc do begin     Right  := x + (Right - Left);     Bottom := y + (Bottom - Top);     Left   := x;     Top    := y;   end;   Result := True; end; // TAppBar.ShowHiddenAppBar /////////////////////////////////////////////////// procedure TAppBar.ShowHiddenAppBar (bShow : Boolean); var   rc : TRect; begin   // Get our window location in screen coordinates   GetWindowRect(Handle, rc);   // Assume  that we are visible   FbAutoHideIsVisible := True;   if AdjustLocationForAutohide(bShow, rc) then begin     // the rectangle was adjusted, we are an autohide bar     // Remember whether we are visible or not     FbAutoHideIsVisible := bShow;     // Slide window in from or out to the edge     SlideWindow(rc);   end; end; // TAppBar.SlideWindow //////////////////////////////////////////////////////// procedure TAppBar.SlideWindow (var rcEnd : TRect); var   bFullDragOn : LongBool;   rcStart : TRect;   dwTimeStart, dwTimeEnd, dwTime : DWORD;   x, y, w, h : Integer; begin   // Only slide the window if the user has FullDrag turned on   SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 0, @bFullDragOn, 0);   // Get the current window position   GetWindowRect(Handle, rcStart);   if (FABS.bSlideEffect and bFullDragOn and       ((rcStart.Left   <> rcEnd.Left &nbsp

or        (rcStart.Top    <> rcEnd.Top   ) or        (rcStart.Right  <> rcEnd.Right ) or        (rcStart.Bottom <> rcEnd.Bottom))) then begin     // Get our starting and ending time     dwTimeStart := GetTickCount;     dwTimeEnd := dwTimeStart + FABS.nTimerInterval;     dwTime := dwTimeStart;     while (dwTime < dwTimeEnd) do begin       // While we are still sliding, calculate our new position       x := rcStart.Left - (rcStart.Left - rcEnd.Left)            * Integer(dwTime - dwTimeStart) div FABS.nTimerInterval;       y := rcStart.Top  - (rcStart.Top  - rcEnd.Top)            * Integer(dwTime - dwTimeStart) div FABS.nTimerInterval;       w := (rcStart.Right - rcStart.Left)            - ((rcStart.Right - rcStart.Left) - (rcEnd.Right - rcEnd.Left))            * Integer(dwTime - dwTimeStart) div FABS.nTimerInterval;       h := (rcStart.Bottom - rcStart.Top)            - ((rcStart.Bottom - rcStart.Top) - (rcEnd.Bottom - rcEnd.Top))            * Integer(dwTime - dwTimeStart) div FABS.nTimerInterval;       // Show the window at its changed position       SetWindowPos(Handle, 0, x, y, w, h,                    SWP_NOZORDER or SWP_NOACTIVATE or SWP_DRAWFRAME);       UpdateWindow(Handle);       dwTime := GetTickCount;     end;   end;   // Make sure that the window is at its final position   Left   := rcEnd.Left;   Top    := rcEnd.Top;   Width  := rcEnd.Right - rcEnd.Left;   Height := rcEnd.Bottom - rcEnd.Top; end; // TAppBar.GetAutohideEdge //////////////////////////////////////////////////// function TAppBar.GetAutohideEdge : TAppBarEdge; begin   if Handle = AppBarMessage2(abmGetAutoHideBar, abeLeft) then     Result := abeLeft   else if Handle = AppBarMessage2(abmGetAutoHideBar, abeTop) then     Result := abeTop   else if Handle = AppBarMessage2(abmGetAutoHideBar, abeRight) then     Result := abeRight   else if Handle = AppBarMessage2(abmGetAutoHideBar, abeBottom) then     Result := abeBottom   else     // NOTE: If AppBar is docked but not auto-hidden, we return ABE_UNKNOWN     Result := abeUnknown; end; // TAppBar.GetMessagePosition ///////////////////////////////////////////////// function TAppBar.GetMessagePosition : TSmallPoint; var   pt : TSmallPoint;   dw : DWORD; begin   dw := GetMessagePos;   pt.X := SHORT(dw);   pt.Y := SHORT((dw and $FFFF0000) shr 16);   Result := pt; end; // TAppBar.ModifyStyle //////////////////////////////////////////////////////// function TAppBar.ModifyStyle (hWnd : THandle;                               nStyleOffset : Integer;                               dwRemove     : DWORD;                               dwAdd        : DWORD;                               nFlags       : UINT) : Boolean; var   dwStyle : DWORD;   dwNewStyle : DWORD; begin   dwStyle := GetWindowLong(hWnd, nStyleOffset);   dwNewStyle := (dwStyle and (not dwRemove)) or dwAdd;   if dwStyle = dwNewStyle then begin     Result := False;     Exit;   end;   SetWindowLong(hWnd, nStyleOffset, dwNewStyle);   if nFlags <> 0 then     SetWindowPos(hWnd, 0, 0, 0, 0, 0,       SWP_NOSIZE or SWP_NOMOVE or SWP_NOZORDER or SWP_NOACTIVATE or nFlags);   Result := True; end; { Property selector functions } // TAppBar.GetEdge //////////////////////////////////////////////////////////// function TAppBar.GetEdge : TAppBarEdge; begin   if FabEdgeProposedPrev <> abeUnknown then     Result := FabEdgeProposedPrev   else     Result := FABS.abEdge; end; // TAppBar.SetEdge //////////////////////////////////////////////////////////// procedure TAppBar.SetEdge (abEdge : TAppBarEdge); var   abCurrentEdge : TAppBarEdge;   currentRect : TRect;   rc : TRect;   hWnd : THandle; begin   // If the AppBar is registered as auto-hide, unregister it   abCurrentEdge := GetAutohideEdge;   if abCurrentEdge <> abeUnknown then     // Our AppBar is auto-hidden, unregister it     AppBarMessage3(abmSetAutoHideBar, abCurrentEdge, LPARAM(False));   // Save the new requested state   FABS.abEdge := abEdge;   case abEdge of     abeUnknown: begin       // We are being completely unregistered.       // Probably, the AppBar window is being destroyed.       // If the AppBar is registered as NOT auto-hide, unregister it       AppBarMessage1(abmRemove);     end;     abeFloat: begin       // We are floating and therefore are just a regular window.       // Tell the shell that the docked AppBar should be of 0x0 dimensions       // so that the workspace is not affected by the AppBar       currentRect := Rect(0, 0, 0, 0);       AppBarMessage4(abmSetPos, abEdge, LPARAM(False), currentRect);       Left   := FABS.rcFloat.Left;       Top    := FABS.rcFloat.Top;       Width  := FABS.rcFloat.Right - FABS.rcFloat.Left;       Height := FABS.rcFloat.Bottom - FABS.rcFloat.Top;     end;     else begin       if FABS.bAutohide and          (AppBarMessage3(abmSetAutoHideBar,                          GetEdge,                          LPARAM(True)) = 0) then begin         // We couldn't set the AppBar on a new edge, let's dock it instead         FABS.bAutohide := False;         // Call a virtual function to let derived classes know that the AppBar         // changed from auto-hide to docked         OnAppBarForcedToDocked;       end;       GetRect(GetEdge, rc);       if FABS.bAutohide then begin         currentRect := Rect(0, 0, 0, 0);         AppBarMessage4(abmSetPos, abeLeft, LPARAM(False), currentRect);       end else begin         // Tell the shell where the AppBar is         AppBarMessage4(abmSetPos, abEdge, LPARAM(False), rc);       end;       AdjustLocationForAutohide(FbAutoHideIsVisible, rc);       // Slide window in from or out to the edge       SlideWindow(rc);     end; // end of else   end; // end of case   // Set the AppBar's z-order appropriately   hWnd := HWND_NOTOPMOST; // Assume normal Z-Order   if FABS.bAlwaysOnTop then begin     // If we are supposed to be always-on-top, put us there     hWnd := HWND_TOPMOST;     if FbFullScreenAppOpen then       // But, if a full-screen window is opened, put ourself at the bottom       // of the z-order so that we don't cover the full-screen window       hWnd := HWND_BOTTOM;   end;   SetWindowPos(Handle,                hWnd,                0, 0, 0, 0,                SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);   // Make sure that any auto-hide appbars stay on top of us after we move   // even though our activation state has not changed   AppBarMessage1(abmActivate);   // Tell our derived class that there is a state change   OnAppBarStateChange(False, abEdge);   // Show or hide the taskbar entry depending on AppBar position   case FABS.abTaskEntry of     abtShow :       ShowWindow(Application.Handle, SW_SHOW);     abtHide :       ShowWindow(Application.Handle, SW_HIDE);     abtFloatDependent :       case abEdge of         abeFloat:           ShowWindow(Application.Handle, SW_SHOW);         abeLeft, abeTop, abeRight, abeBottom :           ShowWindow(Application.Handle, SW_HIDE);       end;   end; end; // TAppBar.SetSlideTime /////////////////////////////////////////////////////// procedure TAppBar.SetSlideTime (nInterval : Integer); begin   FABS.nTimerInterval := nInterval;   FTimer.Interval := nInterval; end; { Overridable functions } // TAppBar.OnAppBarStateChange //////////////////////////////////////////////// procedure TAppBar.OnAppBarStateChange (bProposed      : Boolean;                                        abEdgeProposed : TAppBarEdge); var   bFullDragOn : LongBool; begin   // Find out if the user has FullDrag turned on   SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 0, @bFullDragOn, 0);   // If FullDrag is turned on OR the appbar has changed position   if bFullDragOn or not bProposed then begin     if abEdgeProposed = abeFloat then       // Show the window adornments       ModifyStyle(Handle,                   GWL_STYLE,                   0,                   WS_CAPTION or WS_SYSMENU,                   SWP_DRAWFRAME)     else       // Hide the window adornments       ModifyStyle(Handle,                   GWL_STYLE,                   WS_CAPTION or WS_SYSMENU,                   0,                   SWP_DRAWFRAME);   end; end; // TAppBar.OnAppBarForcedToDocked ///////////////////////////////////////////// procedure TAppBar.OnAppBarForcedToDocked; const   CRLF = #10#13; begin   // Display the application name as the message box caption text.   MessageDlg('There is already an auto hidden window on this edge.' + CRLF +              'Only one auto hidden window is allowed on each edge.',              mtInformation,              [mbOk],              0); end; // TAppBar.OnABNFullScreenApp ///////////////////////////////////////////////// procedure TAppBar.OnABNFullScreenApp (bOpen : Boolean); begin   // This function is called when a FullScreen window is openning or   // closing. A FullScreen window is a top-level window that has its caption   // above the top of the screen allowing the entire screen to be occupied   // by the window's client area.   // If the AppBar is a topmost window when a FullScreen window is activated,   // we need to change our window to a non-topmost window so that the AppBar   // doesn't cover the FullScreen window's client area.   // If the FullScreen window is closing, we need to set the AppBar's   // Z-Order back to when the user wants it to be.   FbFullScreenAppOpen := bOpen;   UpdateBar; end; // TAppBar.OnABNPosChanged //////////////////////////////////////////////////// procedure TAppBar.OnABNPosChanged; begin   // The TaskBar or another AppBar has changed its size or position   if (GetEdge <> abeFloat) and (not FABS.bAutohide) then     // If we're not floating and we're not auto-hidden, we have to     // reposition our window     UpdateBar; end; // TAppBar.OnABNWindowArrange ///////////////////////////////////////////////// procedure TAppBar.OnABNWindowArrange (bBeginning : Boolean); begin   // This function intentionally left blank end; { Message handlers } // TAppBar.OnAppBarCallbackMsg //////////////////////////////////////////////// procedure TAppBar.OnAppBarCallbackMsg (var Msg : TMessage); begin   case Msg.WParam of     ABN_FULLSCREENAPP:       OnABNFullScreenApp(Msg.LParam <> 0);     ABN_POSCHANGED:       OnABNPosChanged;     ABN_WINDOWARRANGE:       OnABNWindowArrange(Msg.LParam <> 0);   end; end; // TAppBar.OnCreate /////////////////////////////////////////////////////////// procedure TAppBar.OnCreate (var Msg : TWMCreate); var   hMenu : THandle; begin   inherited;   // Associate a timer with the AppBar.  The timer is used to determine   // when a visible, inactive, auto-hide AppBar should be re-hidden   FTimer := TTimer.Create(Self);   with FTimer do begin     Interval := FABS.nTimerInterval;     OnTimer := OnAppBarTimer;     Enabled := True;   end;   // Save the initial position of the floating AppBar   FABS.rcFloat.Left   := Left;   FABS.rcFloat.Top    := Top;   // Register our AppBar window with the Shell   AppBarMessage1(abmNew);   // Update AppBar internal state   UpdateBar;   // Save the initial size of the floating AppBar   PostMessage(Handle, WM_ENTERSIZEMOVE, 0, 0);   PostMessage(Handle, WM_EXITSIZEMOVE,  0, 0);   // Remove system menu   hMenu := GetSystemMenu(Handle, False);   DeleteMenu(hMenu, SC_RESTORE,  MF_BYCOMMAND);   DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND);   DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND); end; // TAppBar.OnDestroy ////////////////////////////////////////////////////////// procedure TAppBar.OnDestroy (var Msg : TWMDestroy); begin   // Free the Autohide timer   FTimer.Enabled := False;   FTimer.Free;   // Unregister our AppBar window with the Shell   SetEdge(abeUnknown);   inherited; end; // TAppBar.OnWindowPosChanged ///////////////////////////////////////////////// procedure TAppBar.OnWindowPosChanged (var Msg : TWMWindowPosChanged); begin   inherited;   // When our window changes position, tell the Shell so that any   // auto-hidden AppBar on our edge stays on top of our window making it   // always accessible to the user   AppBarMessage1(abmWindowPosChanged); end; // TAppBar.OnActivate ///////////////////////////////////////////////////////// procedure TAppBar.OnActivate (var Msg : TWMActivate); begin   inherited;   if Msg.Active = WA_INACTIVE then     // Hide the AppBar if we are docked and auto-hidden     ShowHiddenAppBar(False);   // When our window changes position, tell the Shell so that any   // auto-hidden AppBar on our edge stays on top of our window making it   // always accessible to the user.   AppBarMessage1(abmActivate); end; // TAppBar.OnAppBarTimer ////////////////////////////////////////////////////// procedure TAppBar.OnAppBarTimer (Sender : TObject); var   pt : TSmallPoint;   rc : TRect; begin   if GetActiveWindow <> Handle then begin     // Possibly hide the AppBar if we are not the active window     // Get the position of the mouse and the AppBar's position     // Everything must be in screen coordinates     pt := GetMessagePosition;     GetWindowRect(Handle, rc);     // Add a little margin around the AppBar     InflateRect(rc,                 2 * GetSystemMetrics(SM_CXDOUBLECLK),                 2 * GetSystemMetrics(SM_CYDOUBLECLK));     if not PtInRect(rc, SmallPointToPoint(pt)) then       // If the mouse is NOT over the AppBar, hide the AppBar       ShowHiddenAppBar(False);   end;   inherited; end; // TAppBar.OnNcMouseMove ////////////////////////////////////////////////////// procedure TAppBar.OnNcMouseMove (var Msg : TWMNCMouseMove); begin   // If we are a docked, auto-hidden AppBar, shown us   // when the user moves over our non-client area   ShowHiddenAppBar(True);   inherited; end; // TAppBar.OnNcHitTest //////////////////////////////////////////////////////// procedure TAppBar.OnNcHitTest (var Msg: TWMNCHitTest); var   u : UINT;   bPrimaryMouseBtnDown : Boolean;   rcClient : TRect;   pt : TPoint;   vKey : Integer; begin   // Find out what the system thinks is the hit test code   inherited;   u := Msg.Result;   // NOTE: If the user presses the secondary mouse button, pretend that the   // user clicked on the client area so that we get WM_CONTEXTMENU messages   if GetSystemMetrics(SM_SWAPBUTTON) <> 0 then     vKey := VK_RBUTTON   else     vKey := VK_LBUTTON;   bPrimaryMouseBtnDown := ((GetAsyncKeyState(vKey) and $8000) <> 0);   pt.X := Msg.XPos;   pt.Y := Msg.YPos;   pt := ScreenToClient(pt);   if (u = HTCLIENT) and bPrimaryMouseBtnDown      and (ControlAtPos(pt, False) = nil) then     // User clicked in client area, allow AppBar to move.  We get this     // behavior by pretending that the user clicked on the caption area     u := HTCAPTION;   // If the AppBar is floating and the hittest code is a resize code...   if ((GetEdge = abeFloat) and       (HTSIZEFIRST <= u) and (u <= HTSIZELAST)) then begin     case u of       HTLEFT, HTRIGHT:         if FABS.szSizeInc.cx = 0           then u := HTBORDER;       HTTOP, HTBOTTOM:         if FABS.szSizeInc.cy = 0           then u := HTBORDER;       HTTOPLEFT:         if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy = 0)           then u := HTBORDER         else if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy <> 0)           then u := HTTOP         else if (FABS.szSizeInc.cx <> 0) and (FABS.szSizeInc.cy = 0)           then u := HTLEFT;       HTTOPRIGHT:         if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy = 0)           then u := HTBORDER         else if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy <> 0)           then u := HTTOP         else if (FABS.szSizeInc.cx <> 0) and (FABS.szSizeInc.cy = 0)           then u := HTRIGHT;       HTBOTTOMLEFT:         if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy = 0)           then u := HTBORDER         else if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy <> 0)           then u := HTBOTTOM         else if (FABS.szSizeInc.cx <> 0) and (FABS.szSizeInc.cy = 0)           then u := HTLEFT;       HTBOTTOMRIGHT:         if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy = 0)           then u := HTBORDER         else if (FABS.szSizeInc.cx = 0) and (FABS.szSizeInc.cy <> 0)           then u := HTBOTTOM         else if (FABS.szSizeInc.cx <> 0) and (FABS.szSizeInc.cy = 0)           then u := HTRIGHT;     end;   end;   // When the AppBar is docked, the user can resize only one edge.   // This next section determines which edge the user can resize.   // To allow resizing, the AppBar window must have the WS_THICKFRAME style   // If the AppBar is docked and the hittest code is a resize code...   if ((GetEdge <> abeFloat) and (GetEdge <> abeUnknown) and       (HTSIZEFIRST <= u) and (u <= HTSIZELAST)) then begin     if (IsEdgeLeftOrRight(GetEdge) and (FABS.szSizeInc.cx = 0)) or        (not IsEdgeLeftOrRight(GetEdge) and (FABS.szSizeInc.cy = 0)) then begin       // If the width/height size increment is zero, then resizing is NOT       // allowed for the edge that the AppBar is docked on       u := HTBORDER; // Pretend that the mouse is not on a resize border     end else begin       // Resizing IS allowed for the edge that the AppBar is docked on       // Get the location of the appbar's client area in screen coordinates       rcClient := GetClientRect;       pt.X := rcClient.Left;       pt.Y := rcClient.Top;       pt := ClientToScreen(pt);       rcClient.Left := pt.X;       rcClient.Top  := pt.Y;       pt.X := rcClient.Right;       pt.Y := rcClient.Bottom;       pt := ClientToScreen(pt);       rcClient.Right  := pt.X;       rcClient.Bottom := pt.Y;       u := HTBORDER;  // Assume that we can't resize       case GetEdge of         abeLeft:           if Msg.XPos > rcClient.Right then             u := HTRIGHT;         abeTop:           if Msg.YPos > rcClient.Bottom then             u := HTBOTTOM;         abeRight:           if Msg.XPos < rcClient.Left then             u := HTLEFT;         abeBottom:           if Msg.YPos < rcClient.Top then             u := HTTOP;       end; // end of case     end; // end of else   end;   // Return the hittest code   Msg.Result := u; end; // TAppBar.OnEnterSizeMove //////////////////////////////////////////////////// procedure TAppBar.OnEnterSizeMove (var Msg : TMessage); begin   // The user started moving/resizing the AppBar, save its current state   FabEdgeProposedPrev := GetEdge; end; // TAppBar.OnExitSizeMove ///////////////////////////////////////////////////// procedure TAppBar.OnExitSizeMove (var Msg : TMessage); var   abEdgeProposedPrev : TAppBarEdge;   rc, rcWorkArea : TRect;   w, h : Integer; begin   // The user stopped moving/resizing the AppBar, set the new state   // Save the new proposed state of the AppBar   abEdgeProposedPrev := FabEdgeProposedPrev;   // Set the proposed state back to unknown.  This causes GetState   // to return the current state rather than the proposed state   FabEdgeProposedPrev := abeUnknown;   // Get the location of the window in screen coordinates   GetWindowRect(Handle, rc);   // If the AppBar's state has changed...   if GetEdge = abEdgeProposedPrev then     case GetEdge of       abeLeft, abeRight:         // Save the new width of the docked AppBar         FABS.szDockSize.cx := rc.Right - rc.Left;       abeTop, abeBottom:         // Save the new height of the docked AppBar         FABS.szDockSize.cy := rc.Bottom - rc.Top;     end;   // Always save the new position of the floating AppBar   if abEdgeProposedPrev = abeFloat then begin     // If AppBar was floating and keeps floating...     if GetEdge = abeFloat then begin       FABS.rcFloat := rc;     // If AppBar was docked and is going to float...     end else begin       // Propose width and height depending on the current window position       w := rc.Right - rc.Left;       h := rc.Bottom - rc.Top;       // Adjust width and height       SystemParametersInfo(SPI_GETWORKAREA, 0, @rcWorkArea, 0);       if (w >= (rcWorkArea.Right - rcWorkArea.Left)) or          (h >= (rcWorkArea.Bottom - rcWorkArea.Top)) then begin         w := FABS.rcFloat.Right - FABS.rcFloat.Left;         h := FABS.rcFloat.Bottom - FABS.rcFloat.Top;       end;       // Save new floating position       FABS.rcFloat.Left   := rc.Left;       FABS.rcFloat.Top    := rc.Top;       FABS.rcFloat.Right  := rc.Left + w;       FABS.rcFloat.Bottom := rc.Top + h;     end;   end;   // After setting the dimensions, set the AppBar to the proposed state   SetEdge(abEdgeProposedPrev); end; // TAppBar.OnMoving /////////////////////////////////////////////////////////// procedure TAppBar.OnMoving (var Msg : TMessage); var   prc            : PRect;   pt             : TSmallPoint;   abEdgeProposed : TAppBarEdge;   w, h           : Integer; begin   // We control the moving of the AppBar.  For example, if the mouse moves   // close to an edge, we want to dock the AppBar   // The lParam contains the window's position proposed by the system   prc := PRect(Msg.LParam);   // Get the location of the mouse cursor   pt := GetMessagePosition;   // Where should the AppBar be based on the mouse position?   abEdgeProposed := CalcProposedState(pt);   if ((FabEdgeProposedPrev <> abeFloat) and       (abEdgeProposed = abeFloat)) then begin     // While moving, the user took us from a docked/autohidden state to     // the float state.  We have to calculate a rectangle location so that     // the mouse cursor stays inside the window.     prc^ := FABS.rcFloat;     w := prc^.Right - prc^.Left;     h := prc^.Bottom - prc^.Top;     with prc^ do begin       Left   := pt.X - w div 2;       Top    := pt.Y;       Right  := pt.X - w div 2 + w;       Bottom := pt.Y + h;     end;   end;   // Remember the most-recently proposed state   FabEdgeProposedPrev := abEdgeProposed;   // Tell the system where to move the window based on the proposed state   GetRect(abEdgeProposed, prc^);   // Tell our derived class that there is a proposed state change   OnAppBarStateChange(True, abEdgeProposed); end; // TAppBar.OnSizing /////////////////////////////////////////////////////////// procedure TAppBar.OnSizing (var Msg : TMessage); var   prc : PRect;   rcBorder : TRect;   nWidthNew, nHeightNew : Integer; begin   // We control the sizing of the AppBar.  For example, if the user re-sizes   // an edge, we want to change the size in discrete increments.   // The lParam contains the window's position proposed by the system   prc := PRect(Msg.LParam);   // Get the minimum allowed size of the window depending on current edge.   // This is the width/height of the window that must always be present   with FABS do     case abEdge of       abeFloat:         rcBorder := Rect(0, 0, nMinWidth, nMinHeight);       else         rcBorder := Rect(0, 0, szMinDockSize.cx, szMinDockSize.cy);     end;   // We force the window to resize in discrete units set by the FABS.szSizeInc   // member.  From the new, proposed window dimensions passed to us, round   // the width/height to the nearest discrete unit   if FABS.szSizeInc.cx <> 0 then     nWidthNew  := ((prc^.Right - prc^.Left) - (rcBorder.Right - rcBorder.Left)                    + FABS.szSizeInc.cx div 2) div FABS.szSizeInc.cx                    * FABS.szSizeInc.cx + (rcBorder.Right - rcBorder.Left)   else     nWidthNew  := prc^.Right - prc^.Left;   if FABS.szSizeInc.cy <> 0 then     nHeightNew := ((prc^.Bottom - prc^.Top) - (rcBorder.Bottom - rcBorder.Top)                    + FABS.szSizeInc.cy div 2) div FABS.szSizeInc.cy                    * FABS.szSizeInc.cy + (rcBorder.Bottom - rcBorder.Top)   else     nHeightNew := prc^.Bottom - prc^.Top;   // Adjust the rectangle's dimensions   case Msg.wParam of     WMSZ_LEFT:       prc^.Left   := prc^.Right  - nWidthNew;     WMSZ_TOP:       prc^.Top    := prc^.Bottom - nHeightNew;     WMSZ_RIGHT:       prc^.Right  := prc^.Left   + nWidthNew;     WMSZ_BOTTOM:       prc^.Bottom := prc^.Top    + nHeightNew;     WMSZ_BOTTOMLEFT: begin       prc^.Bottom := prc^.Top    + nHeightNew;       prc^.Left   := prc^.Right  - nWidthNew;     end;     WMSZ_BOTTOMRIGHT: begin       prc^.Bottom := prc^.Top    + nHeightNew;       prc^.Right  := prc^.Left   + nWidthNew;     end;     WMSZ_TOPLEFT: begin       prc^.Left   := prc^.Right  - nWidthNew;       prc^.Top    := prc^.Bottom - nHeightNew;     end;     WMSZ_TOPRIGHT: begin       prc^.Top    := prc^.Bottom - nHeightNew;       prc^.Right  := prc^.Left   + nWidthNew;     end;   end; // end of case end; // TAppBar.OnGetMinMaxInfo //////////////////////////////////////////////////// procedure TAppBar.OnGetMinMaxInfo (var Msg : TWMGetMinMaxInfo); begin   if GetEdge = abeFloat then     with Msg.MinMaxInfo^ do begin       ptMinTrackSize.X := FABS.nMinWidth;       ptMinTrackSize.Y := FABS.nMinHeight;       ptMaxTrackSize.X := FABS.nMaxWidth;       ptMaxTrackSize.Y := FABS.nMaxHeight;     end   else     with Msg.MinMaxInfo^ do begin       ptMinTrackSize.X := FABS.szMinDockSize.cx;       ptMinTrackSize.Y := FABS.szMinDockSize.cy;       ptMaxTrackSize.X := GetSystemMetrics(SM_CXSCREEN);       ptMaxTrackSize.Y := GetSystemMetrics(SM_CYSCREEN);       if not IsEdgeTopOrBottom(GetEdge) then         ptMaxTrackSize.X := FABS.szMaxDockSize.cx;       if not IsEdgeLeftOrRight(GetEdge) then         ptMaxTrackSize.Y := FABS.szMaxDockSize.cy;     end; end; { AppBar-specific helper functions } // TAppBar.IsEdgeLeftOrRight ////////////////////////////////////////////////// function TAppBar.IsEdgeLeftOrRight (abEdge : TAppBarEdge) : Boolean; begin   Result := (abEdge in [abeLeft, abeRight]); end; // TAppBar.IsEdgeTopOrBottom ////////////////////////////////////////////////// function TAppBar.IsEdgeTopOrBottom (abEdge : TAppBarEdge) : Boolean; begin   Result := (abEdge in [abeTop, abeBottom]); end; // TAppBar.IsFloating ///////////////////////////////////////////////////////// function TAppBar.IsFloating (abEdge : TAppBarEdge) : Boolean; begin   Result := (abEdge = abeFloat); end; // TAppBar.IsDockable ///////////////////////////////////////////////////////// function TAppBar.IsDockable (abFlags : TAppBarFlags) : Boolean; begin   Result := ((abFlags * [abfAllowLeft .. abfAllowBottom]) <> []); end; // TAppBar.IsDockableVertically /////////////////////////////////////////////// function TAppBar.IsDockableVertically (abFlags : TAppBarFlags) : Boolean; begin   Result := ((abFlags * [abfAllowLeft, abfAllowRight]) <> []); end; // TAppBar.IsDockableHorizontally ///////////////////////////////////////////// function TAppBar.IsDockableHorizontally (abFlags : TAppBarFlags) : Boolean; begin   Result := ((abFlags * [abfAllowTop, abfAllowBottom]) <> []); end; // TAppBar.ResetSystemKnowledge /////////////////////////////////////////////// procedure TAppBar.ResetSystemKnowledge; {$ifdef DEBUG} var   abd : TAppBarData; begin   abd.cbSize := sizeof(abd);   abd.hWnd := 0;   SHAppBarMessage(ABM_REMOVE, abd); end; {$else} begin   // nothing to do when not in debug mode end; {$endif} // TAppBar.GetEdgeFromPoint /////////////////////////////////////////////////// function TAppBar.GetEdgeFromPoint (abFlags : TAppBarFlags;                                    pt      : TSmallPoint) : TAppBarEdge; var   rc             : TRect;   cxScreen       : Integer;   cyScreen       : Integer;   ptCenter       : TSmallPoint;   ptOffset       : TSmallPoint;   bIsLeftOrRight : Boolean;   abSubstEdge    : TAppBarEdge; begin   // Let's get floating out of the way first   if abfAllowFloat in abFlags then begin     // Get the rectangle that bounds the size of the screen     // minus any docked (but not-autohidden) AppBars     SystemParametersInfo(SPI_GETWORKAREA, 0, @rc, 0);     // Leave a 1/2 width/height-of-a-scrollbar gutter around the workarea     InflateRect(rc,                 -GetSystemMetrics(SM_CXVSCROLL),                 -GetSystemMetrics(SM_CYHSCROLL));     // If the point is in the adjusted workarea OR no edges are allowed     if PtInRect(rc, SmallPointToPoint(pt)) or        not IsDockable(abFlags) then begin       // The AppBar should float       Result := abeFloat;       Exit;     end;   end;   // If we get here, the AppBar should be docked; determine the proper edge   // Get the dimensions of the screen   cxScreen := GetSystemMetrics(SM_CXSCREEN);   cyScreen := GetSystemMetrics(SM_CYSCREEN);   // Find the center of the screen   ptCenter.X := cxScreen div 2;   ptCenter.Y := cyScreen div 2;   // Find the distance from the point to the center   ptOffset.X := pt.X - ptCenter.X;   ptOffset.Y := pt.Y - ptCenter.Y;   // Determine if the point is farther from the left/right or top/bottom   bIsLeftOrRight :=     ((Abs(ptOffset.Y) * cxScreen) <= (Abs(ptOffset.X) * cyScreen));   // Propose an edge   if bIsLeftOrRight then begin     if 0 <= ptOffset.X then       Result := abeRight     else       Result := abeLeft;   end else begin     if 0 <= ptOffset.Y then       Result := abeBottom     else       Result := abeTop;   end;   // Calculate an edge substitute   if abfAllowFloat in abFlags then     abSubstEdge := abeFloat   else     abSubstEdge := FABS.abEdge;   // Check if the proposed edge is allowed. If not, return the edge substitute   case Result of     abeLeft  : if not (abfAllowLeft   in abFlags) then Result := abSubstEdge;     abeTop   : if not (abfAllowTop    in abFlags) then Result := abSubstEdge;     abeRight : if not (abfAllowRight  in abFlags) then Result := abSubstEdge;     abeBottom: if not (abfAllowBottom in abFlags) then Result := abSubstEdge;   end; end; { Public member functions } // TAppBar.Create ///////////////////////////////////////////////////////////// constructor TAppBar.Create (Owner : TComponent); begin   // Force the shell to update its list of AppBars and the workarea.   // This is a precaution and is very useful when debugging.  If you create   // an AppBar and then just terminate the application, the shell still   // thinks that the AppBar exists and the user's workarea is smaller than   // it should be.  When a new AppBar is created, calling this function   // fixes the user's workarea.   ResetSystemKnowledge;   // Set default state of AppBar to float with no width & height   FABS.cbSize            := sizeof(TAppBarSettings);   FABS.abEdge            := abeFloat;   FABS.abFlags           := [abfAllowLeft .. abfAllowFloat];   FABS.bAutohide         := False;   FABS.bAlwaysOnTop      := True;   FABS.bSlideEffect      := True;   FABS.nTimerInterval    := SLIDE_DEF_TIMER_INTERVAL;   FABS.szSizeInc.cx      := AB_DEF_SIZE_INC;   FABS.szSizeInc.cy      := AB_DEF_SIZE_INC;   FABS.szDockSize.cx     := AB_DEF_DOCK_SIZE;   FABS.szDockSize.cy     := AB_DEF_DOCK_SIZE;   FABS.rcFloat.Left      := 0;   FABS.rcFloat.Top       := 0;   FABS.rcFloat.Right     := 0;   FABS.rcFloat.Bottom    := 0;   FABS.nMinWidth         := 0;   FABS.nMinHeight        := 0;   FABS.nMaxWidth         := GetSystemMetrics(SM_CXSCREEN);   FABS.nMaxHeight        := GetSystemMetrics(SM_CYSCREEN);   FABS.szMinDockSize.cx  := 0;   FABS.szMinDockSize.cy  := 0;   FABS.szMaxDockSize.cx  := GetSystemMetrics(SM_CXSCREEN) div 2;   FABS.szMaxDockSize.cy  := GetSystemMetrics(SM_CYSCREEN) div 2;   FABS.abTaskEntry       := abtFloatDependent;   FabEdgeProposedPrev    := abeUnknown;   FbFullScreenAppOpen    := False;   FbAutoHideIsVisible    := False;   // Set default location of the settings in the registry   with FabSettingsLocation do begin     RootKey := AB_DEF_ROOT_KEY;     KeyName := AB_DEF_KEY_NAME;   end;   // Call base class   inherited Create(Owner); end; // TAppBar.Destroy //////////////////////////////////////////////////////////// destructor TAppBar.Destroy; begin   ResetSystemKnowledge;   // Call base class   inherited Destroy; end; // TAppBar.UpdateBar ////////////////////////////////////////////////////////// procedure TAppBar.UpdateBar; begin   SetEdge(GetEdge); end; // TAppBar.LoadSettings /////////////////////////////////////////////////////// function TAppBar.LoadSettings : Boolean; var   reg : TRegistry;   abs : TAppBarSettings; begin   // Set the default return value   Result := False;   // Create a TRegistry object   reg := TRegistry.Create;   // Set the RootKey   reg.RootKey := FabSettingsLocation.nRootKey;   // Open the KeyName   if reg.OpenKey(FabSettingsLocation.KeyName, False) then     // Load the FABS record from the 'default' value     if reg.ReadBinaryData('', abs, sizeof(abs)) = sizeof(abs) then begin       FABS := abs;       Result := True;     end;   // Free the TRegistry object   reg.Destroy end; // TAppBar.SaveSettings /////////////////////////////////////////////////////// function TAppBar.SaveSettings : Boolean; var   reg : TRegistry; begin   // Set the default return value   Result := False;   // Create a TRegistry object   reg := TRegistry.Create;   // Set the RootKey   reg.RootKey := FabSettingsLocation.nRootKey;   // Open the KeyName, creating it if not exists   if reg.OpenKey(FabSettingsLocation.KeyName, True) then begin     // Save the FABS record in the 'default' value     reg.WriteBinaryData('', FABS, sizeof(FABS));     Result := True;   end;   // Free the TRegistry object   reg.Destroy end; end.

luyear · 2001-11-09

老兄：你的問題已經過期n天了，請自己結束或提前，謝謝 各位：拜托不要貼那麼長的代碼，看到我頭都暈了，寫關鍵代碼就可以了

drroc · 2001-11-09

多人接受答案了。

怎样才能做一个会自动隐藏的工具条?(100分)

drroc

Unregistered / Unconfirmed

yaya8163

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

lollman

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

drroc

Unregistered / Unconfirmed

Similar threads