Class TUSAppBar (unit USAppBar)

Inherits from

TComponent

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 : boolean

Published 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;



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 : boolean

Published 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;