| Class TUSAppBar (unit USAppBar) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);von Case
| Functions |
destructor Destroy;
function Design:Boolean;
function GetEdge:TEdge;
procedure HookWin;
procedure HookWndProc(var Message: TMessage);
procedure SetActive (aActive:Boolean);
procedure SetAlwaysOnTop (aAlwaysOnTop:Boolean);
procedure SetAutoHide (aAutoHide:Boolean);
procedure SetEdge (aEdge:TEdge);
procedure SetWide (aWide:Integer);
procedure UnhookWin;
procedure AB_AutoHide;
procedure AB_CalcRect (wide:Integer;var R:TRect);
procedure AB_CB (var msg:TMessage);
procedure AB_CheckPos (wide:Integer;var R:Trect);
procedure AB_Hide;
procedure AB_NoAutoHide;
procedure AB_Register;
procedure AB_Remove;
procedure AB_SetABPos;
procedure AB_SetActive;
procedure AB_SetAlwaysOnTop (aAlwaysOnTop:Boolean);
procedure AB_SetAutoHide;
procedure AB_SetWndPos;
procedure AB_Unhide;
procedure SlideWindow (hwnd:Integer;np:TRect;slide:boolean);| Properties |
property Active : boolean
property AlwaysOnTop : boolean
property Autohide : boolean
property Edge : TEdge
property Registerd : Boolean
property Sliding : boolean
property Wide : Integer| Events |
event OnChangeEdge : TNotifyEvent| Variables |
FOnChangeEdge : TNotifyEvent;
NewWndProc : Pointer;
OldWndProc : TFarProc;
FABActive : Boolean;
FABAlwaysOnTop : Boolean;
FABAutoHide : Boolean;
FABData : TAppBarData;
FABEdge : Integer;
FABHandle : THandle;
FABHidden : Boolean;
FABMoving : Boolean;
FABOldRect : TRect;
FABOldStyle : Integer;
FABOldStyleEx : Integer;
FABOwner : TForm;
FABRect : TRect;
FABReg : Boolean;
FABSliding : Boolean;
FABTimerID : Integer;
FABWide : Integer;
FABZOrder : Integer;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
von Case
| Functions |
destructor Destroy;
function Design:Boolean;
function GetEdge:TEdge;
procedure HookWin;
procedure HookWndProc(var Message: TMessage);Noch ersetzen
procedure SetActive (aActive:Boolean);
procedure SetAlwaysOnTop (aAlwaysOnTop:Boolean);
procedure SetAutoHide (aAutoHide:Boolean);
procedure SetEdge (aEdge:TEdge);
procedure SetWide (aWide:Integer);
procedure UnhookWin;
procedure AB_AutoHide;
procedure AB_CalcRect (wide:Integer;var R:TRect);
procedure AB_CB (var msg:TMessage);Entfernt AppBar aus dem System
procedure AB_CheckPos (wide:Integer;var R:Trect);
procedure AB_Hide;
procedure AB_NoAutoHide;Registrieren, Werte setzen, und hinschieben...
procedure AB_Register;OR SWP_DRAWFRAME
procedure AB_Remove;Registriert
procedure AB_SetABPos;
procedure AB_SetActive;
procedure AB_SetAlwaysOnTop (aAlwaysOnTop:Boolean);
procedure AB_SetAutoHide;
procedure AB_SetWndPos;
procedure AB_Unhide;
procedure SlideWindow (hwnd:Integer;np:TRect;slide:boolean);| Properties |
property Active : booleanPublished declarations
property AlwaysOnTop : boolean
property Autohide : boolean
property Edge : TEdge
property Registerd : Boolean
property Sliding : boolean
property Wide : Integer| Events |
event OnChangeEdge : TNotifyEvent| Variables |
FOnChangeEdge : TNotifyEvent;Protected declarations
NewWndProc : Pointer;
OldWndProc : TFarProc;
FABActive : Boolean;
FABAlwaysOnTop : Boolean;
FABAutoHide : Boolean;
FABData : TAppBarData;
FABEdge : Integer;
FABHandle : THandle;
FABHidden : Boolean;
FABMoving : Boolean;
FABOldRect : TRect;
FABOldStyle : Integer;Private declarations
FABOldStyleEx : Integer;
FABOwner : TForm;
FABRect : TRect;
FABReg : Boolean;
FABSliding : Boolean;
FABTimerID : Integer;
FABWide : Integer;
FABZOrder : Integer;