// Borland C++ Builder // Copyright (c) 1995, 1998 by Borland International // All rights reserved // (DO NOT EDIT: machine generated header) 'TB97.pas' rev: 3.00 #ifndef TB97HPP #define TB97HPP #include #include #include #include #include #include #include #include #include #include #include #include //-- user supplied ----------------------------------------------------------- namespace Tb97 { //-- type declarations ------------------------------------------------------- enum TDockBoundLinesValues { blTop, blBottom, blLeft, blRight }; typedef Set TDockBoundLines; enum TDockPosition { dpTop, dpBottom, dpLeft, dpRight }; enum TDockType { dtNotDocked, dtTopBottom, dtLeftRight }; typedef Set TDockableTo; class DELPHICLASS TCustomToolWindow97; typedef void __fastcall (__closure *TInsertRemoveEvent)(System::TObject* Sender, bool Inserting, TCustomToolWindow97* Bar); typedef void __fastcall (__closure *TRequestDockEvent)(System::TObject* Sender, TCustomToolWindow97* Bar, bool &Accept); class DELPHICLASS TDock97; class PASCALIMPLEMENTATION TDock97 : public Controls::TCustomControl { typedef Controls::TCustomControl inherited; private: TDockPosition FPosition; bool FAllowDrag; TDockBoundLines FBoundLines; Graphics::TBitmap* FBkg; Graphics::TBitmap* FBkgCache; bool FBkgTransparent; bool FBkgOnToolbars; bool FFixAlign; bool FLimitToOneRow; TInsertRemoveEvent FOnInsertRemoveBar; TRequestDockEvent FOnRequestDock; Classes::TNotifyEvent FOnResize; int DisableArrangeToolbars; Classes::TList* DockList; Classes::TList* RowSizes; void __fastcall SetAllowDrag(bool Value); void __fastcall SetBackground(Graphics::TBitmap* Value); void __fastcall SetBackgroundOnToolbars(bool Value); void __fastcall SetBackgroundTransparent(bool Value); void __fastcall SetBoundLines(TDockBoundLines Value); void __fastcall SetFixAlign(bool Value); void __fastcall SetPosition(TDockPosition Value); int __fastcall GetToolbarCount(void); TCustomToolWindow97* __fastcall GetToolbars(int Index); void __fastcall FreeRowInfo(void); int __fastcall GetRowOf(const int XY, bool &Before); int __fastcall GetDesignModeRowOf(const int XY); int __fastcall GetHighestRow(void); int __fastcall GetNumberOfToolbarsOnRow(const int Row, const TCustomToolWindow97* NotIncluding); void __fastcall RemoveBlankRows(void); void __fastcall InsertRowBefore(const int BeforeRow); void __fastcall BuildRowInfo(void); void __fastcall ChangeDockList(const bool Insert, const TCustomToolWindow97* Bar, const bool IsVisible ); void __fastcall ChangeWidthHeight(const bool IsClientWidthAndHeight, int NewWidth, int NewHeight); void __fastcall ArrangeToolbars(void); void __fastcall DrawBackground(const HDC DC, const Windows::TRect &IntersectClippingRect, const Windows::PRect ExcludeClippingRect, const Windows::TRect &DrawRect); void __fastcall InvalidateBackgrounds(void); void __fastcall BackgroundChanged(System::TObject* Sender); bool __fastcall UsingBackground(void); HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message); HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message); MESSAGE void __fastcall WMNCCalcSize(Messages::TWMNCCalcSize &Message); MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message); protected: virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect); DYNAMIC HPALETTE __fastcall GetPalette(void); virtual void __fastcall Loaded(void); virtual void __fastcall SetParent(Controls::TWinControl* AParent); virtual void __fastcall Paint(void); DYNAMIC void __fastcall VisibleChanging(void); public: __fastcall virtual TDock97(Classes::TComponent* AOwner); virtual void __fastcall CreateParams(Controls::TCreateParams &Params); __fastcall virtual ~TDock97(void); int __fastcall GetRowSize(const int Row, const TCustomToolWindow97* DefaultToolbar); __property int ToolbarCount = {read=GetToolbarCount, nodefault}; __property TCustomToolWindow97* Toolbars[int Index] = {read=GetToolbars}; __published: __property bool AllowDrag = {read=FAllowDrag, write=SetAllowDrag, default=1}; __property Graphics::TBitmap* Background = {read=FBkg, write=SetBackground}; __property bool BackgroundOnToolbars = {read=FBkgOnToolbars, write=SetBackgroundOnToolbars, default=1 }; __property bool BackgroundTransparent = {read=FBkgTransparent, write=SetBackgroundTransparent, default=0 }; __property TDockBoundLines BoundLines = {read=FBoundLines, write=SetBoundLines, default=0}; __property Color ; __property bool FixAlign = {read=FFixAlign, write=SetFixAlign, default=0}; __property bool LimitToOneRow = {read=FLimitToOneRow, write=FLimitToOneRow, default=0}; __property PopupMenu ; __property TDockPosition Position = {read=FPosition, write=SetPosition, default=0}; __property TInsertRemoveEvent OnInsertRemoveBar = {read=FOnInsertRemoveBar, write=FOnInsertRemoveBar }; __property TRequestDockEvent OnRequestDock = {read=FOnRequestDock, write=FOnRequestDock}; __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize}; public: /* TWinControl.CreateParented */ __fastcall TDock97(HWND ParentWindow) : Controls::TCustomControl(ParentWindow ) { } }; enum TToolWindowArrangeType { atNone, atMoveControls, atMoveControlsAndResize }; #pragma pack(push, 1) struct TToolWindowParams { bool CallAlignControls; bool ResizeEightCorner; bool ResizeClipCursor; } ; #pragma pack(pop) typedef int __fastcall (*TPositionReadIntProc)(const System::AnsiString ToolbarName, const System::AnsiString Value, const int Default, const void * ExtraData); typedef System::AnsiString __fastcall (*TPositionReadStringProc)(const System::AnsiString ToolbarName , const System::AnsiString Value, const System::AnsiString Default, const void * ExtraData); typedef void __fastcall (*TPositionWriteIntProc)(const System::AnsiString ToolbarName, const System::AnsiString Value, const int Data, const void * ExtraData); typedef void __fastcall (*TPositionWriteStringProc)(const System::AnsiString ToolbarName, const System::AnsiString Value, const System::AnsiString Data, const void * ExtraData); class PASCALIMPLEMENTATION TCustomToolWindow97 : public Controls::TCustomControl { typedef Controls::TCustomControl inherited; private: int FDockPos; int FDockRow; bool FDocked; TDock97* FDockedTo; TDock97* FDefaultDock; Classes::TNotifyEvent FOnClose; Classes::TNotifyEvent FOnDockChanged; Classes::TNotifyEvent FOnDockChanging; Classes::TNotifyEvent FOnRecreated; Classes::TNotifyEvent FOnRecreating; Classes::TNotifyEvent FOnResize; Classes::TNotifyEvent FOnVisibleChanged; bool FActivateParent; bool FHideWhenInactive; bool FCloseButton; bool FFullSize; bool FResizable; bool FDragHandle; TDockableTo FDockableTo; TToolWindowParams FParams; int FUpdatingBounds; int FDisableArrangeControls; int FHidden; bool FArrangeNeeded; bool FInactiveCaption; tagPOINT FFloatingTopLeft; Controls::TWinControl* FloatParent; Forms::TForm* MDIParentForm; bool NotOnScreen; bool CloseButtonDown; void __fastcall SetCloseButton(bool Value); void __fastcall SetDefaultDock(TDock97* Value); void __fastcall SetDockedTo(TDock97* Value); void __fastcall SetDockPos(int Value); void __fastcall SetDockRow(int Value); void __fastcall SetDragHandle(bool Value); void __fastcall SetFullSize(bool Value); void __fastcall SetResizable(bool Value); void __fastcall MoveOnScreen(const bool OnlyIfFullyOffscreen); void __fastcall CustomArrangeControls(const TToolWindowArrangeType ArrangeType, const TDock97* WasDockedTo , const TDock97* DockingTo, tagPOINT &NewClientSize); void __fastcall ArrangeControls(void); void __fastcall DrawDraggingOutline(const HDC DC, const Windows::PRect NewRect, const Windows::PRect OldRect, const bool NewDocking, const bool OldDocking); /* class method */ static bool __fastcall NewMainWindowHook(System::TMetaClass* vmt, Messages::TMessage &Message); void __fastcall BeginMoving(const int InitX, const int InitY); void __fastcall BeginSizing(const int HitTestValue, bool &Accept, Windows::TRect &NewRect); void __fastcall DrawFloatingNCArea(const HRGN Clip, const bool RedrawBorder, const bool RedrawCaption , const bool RedrawCloseButton); void __fastcall DrawDockedNCArea(const HRGN Clip); void __fastcall InvalidateDockedNCArea(void); void __fastcall ValidateDockedNCArea(void); void __fastcall SetNotOnScreen(const bool Value); void __fastcall SetInactiveCaption(const bool Value); HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message); MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMVisibleChanged(Messages::TMessage &Message); MESSAGE void __fastcall WMActivate(Messages::TWMActivate &Message); MESSAGE void __fastcall WMClose(Messages::TWMNoParams &Message); MESSAGE void __fastcall WMGetMinMaxInfo(Messages::TWMGetMinMaxInfo &Message); HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message); MESSAGE void __fastcall WMMouseActivate(Messages::TWMMouseActivate &Message); MESSAGE void __fastcall WMNCCalcSize(Messages::TWMNCCalcSize &Message); HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message); HIDESBASE MESSAGE void __fastcall WMNCLButtonDown(Messages::TWMNCHitMessage &Message); MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message); MESSAGE void __fastcall WMTB97PaintDockedNCArea(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message); protected: __property bool ActivateParent = {read=FActivateParent, write=FActivateParent, default=1}; __property Color ; __property bool CloseButton = {read=FCloseButton, write=SetCloseButton, default=1}; __property TDock97* DefaultDock = {read=FDefaultDock, write=SetDefaultDock}; __property TDockableTo DockableTo = {read=FDockableTo, write=FDockableTo, default=15}; __property TDock97* DockedTo = {read=FDockedTo, write=SetDockedTo}; __property int DockPos = {read=FDockPos, write=SetDockPos, default=-1}; __property int DockRow = {read=FDockRow, write=SetDockRow, default=0}; __property bool DragHandle = {read=FDragHandle, write=SetDragHandle, default=1}; __property bool FullSize = {read=FFullSize, write=SetFullSize, default=0}; __property bool HideWhenInactive = {read=FHideWhenInactive, write=FHideWhenInactive, default=1}; __property TToolWindowParams Params = {read=FParams}; __property bool Resizable = {read=FResizable, write=SetResizable, default=1}; __property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose}; __property Classes::TNotifyEvent OnDockChanged = {read=FOnDockChanged, write=FOnDockChanged}; __property Classes::TNotifyEvent OnDockChanging = {read=FOnDockChanging, write=FOnDockChanging}; __property Classes::TNotifyEvent OnRecreated = {read=FOnRecreated, write=FOnRecreated}; __property Classes::TNotifyEvent OnRecreating = {read=FOnRecreating, write=FOnRecreating}; __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize}; __property Classes::TNotifyEvent OnVisibleChanged = {read=FOnVisibleChanged, write=FOnVisibleChanged }; virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect); virtual void __fastcall CreateParams(Controls::TCreateParams &Params); DYNAMIC HPALETTE __fastcall GetPalette(void); virtual void __fastcall Loaded(void); DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y); virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation ); virtual void __fastcall Paint(void); DYNAMIC bool __fastcall PaletteChanged(bool Foreground); virtual void __fastcall SetParent(Controls::TWinControl* AParent); DYNAMIC void __fastcall ReadPositionData(const TPositionReadIntProc ReadIntProc, const TPositionReadStringProc ReadStringProc, const void * ExtraData); DYNAMIC void __fastcall DoneReadingPositionData(void); DYNAMIC void __fastcall WritePositionData(const TPositionWriteIntProc WriteIntProc, const TPositionWriteStringProc WriteStringProc, const void * ExtraData); DYNAMIC void __fastcall GetParams(TToolWindowParams &Params); DYNAMIC void __fastcall ResizeBegin(int HitTestValue); DYNAMIC void __fastcall ResizeTrack(Windows::TRect &Rect, const Windows::TRect &OrigRect); DYNAMIC void __fastcall ResizeEnd(bool Accept); virtual void __fastcall GetBarSize(int &ASize, const TDockType DockType) = 0; void __fastcall GetDockRowSize(int &AHeightOrWidth); virtual void __fastcall GetMinimumSize(int &AClientWidth, int &AClientHeight) = 0; DYNAMIC void __fastcall InitializeOrdering(void); virtual void __fastcall OrderControls(const bool CanMoveControls, const TDock97* WasDockedTo, const TDock97* DockingTo, tagPOINT &NewClientSize) = 0; virtual void __fastcall SizeChanging(const int AWidth, const int AHeight); public: __property bool Docked = {read=FDocked, nodefault}; __fastcall virtual TCustomToolWindow97(Classes::TComponent* AOwner); __fastcall virtual ~TCustomToolWindow97(void); virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight); void __fastcall BeginUpdate(void); void __fastcall EndUpdate(void); __published: __property Height = {stored=false}; __property Width = {stored=false}; __property ClientHeight = {stored=true}; __property ClientWidth = {stored=true}; public: /* TWinControl.CreateParented */ __fastcall TCustomToolWindow97(HWND ParentWindow) : Controls::TCustomControl( ParentWindow) { } }; class DELPHICLASS TCustomToolbar97; class PASCALIMPLEMENTATION TCustomToolbar97 : public Tb97::TCustomToolWindow97 { typedef Tb97::TCustomToolWindow97 inherited; private: int FFloatingRightX; void *SizeData; Classes::TList* SlaveInfo; Classes::TList* GroupInfo; Classes::TList* LineSeps; Classes::TList* OrderList; int __fastcall GetOrderIndex(Controls::TControl* Control); void __fastcall SetOrderIndex(Controls::TControl* Control, int Value); bool __fastcall ShouldBeVisible(const Controls::TControl* Control, const bool LeftOrRight, const bool SetIt); void __fastcall FreeGroupInfo(const Classes::TList* List); void __fastcall BuildGroupInfo(const Classes::TList* List, const bool TranslateSlave, const TDockType OldDockType, const TDockType NewDockType); HIDESBASE MESSAGE void __fastcall CMControlListChange(Controls::TCMControlListChange &Message); protected: virtual void __fastcall Paint(void); DYNAMIC void __fastcall ReadPositionData(const TPositionReadIntProc ReadIntProc, const TPositionReadStringProc ReadStringProc, const void * ExtraData); DYNAMIC void __fastcall WritePositionData(const TPositionWriteIntProc WriteIntProc, const TPositionWriteStringProc WriteStringProc, const void * ExtraData); DYNAMIC void __fastcall GetParams(TToolWindowParams &Params); DYNAMIC void __fastcall ResizeBegin(int HitTestValue); DYNAMIC void __fastcall ResizeTrack(Windows::TRect &Rect, const Windows::TRect &OrigRect); DYNAMIC void __fastcall ResizeEnd(bool Accept); virtual void __fastcall GetBarSize(int &ASize, const TDockType DockType); virtual void __fastcall GetMinimumSize(int &AClientWidth, int &AClientHeight); DYNAMIC void __fastcall InitializeOrdering(void); virtual void __fastcall OrderControls(const bool CanMoveControls, const TDock97* WasDockedTo, const TDock97* DockingTo, tagPOINT &NewClientSize); public: __property int OrderIndex[Controls::TControl* Control] = {read=GetOrderIndex, write=SetOrderIndex}; __fastcall virtual TCustomToolbar97(Classes::TComponent* AOwner); __fastcall virtual ~TCustomToolbar97(void); void __fastcall SetSlaveControl(const Controls::TControl* ATopBottom, const Controls::TControl* ALeftRight ); __published: __property ClientHeight = {stored=false}; __property ClientWidth = {stored=false}; public: /* TWinControl.CreateParented */ __fastcall TCustomToolbar97(HWND ParentWindow) : Tb97::TCustomToolWindow97( ParentWindow) { } }; class DELPHICLASS TToolbar97; class PASCALIMPLEMENTATION TToolbar97 : public Tb97::TCustomToolbar97 { typedef Tb97::TCustomToolbar97 inherited; __published: __property ActivateParent ; __property Caption ; __property Color ; __property CloseButton ; __property DefaultDock ; __property DockableTo ; __property DockedTo ; __property DockPos ; __property DockRow ; __property DragHandle ; __property FullSize ; __property HideWhenInactive ; __property ParentShowHint ; __property PopupMenu ; __property ShowHint ; __property TabOrder ; __property Visible ; __property OnClose ; __property OnDragDrop ; __property OnDragOver ; __property OnRecreated ; __property OnRecreating ; __property OnDockChanged ; __property OnDockChanging ; __property OnResize ; __property OnVisibleChanged ; public: /* TCustomToolbar97.Create */ __fastcall virtual TToolbar97(Classes::TComponent* AOwner) : Tb97::TCustomToolbar97( AOwner) { } /* TCustomToolbar97.Destroy */ __fastcall virtual ~TToolbar97(void) { } public: /* TWinControl.CreateParented */ __fastcall TToolbar97(HWND ParentWindow) : Tb97::TCustomToolbar97( ParentWindow) { } }; class DELPHICLASS TToolWindow97; class PASCALIMPLEMENTATION TToolWindow97 : public Tb97::TCustomToolWindow97 { typedef Tb97::TCustomToolWindow97 inherited; private: int FMinClientWidth; int FMinClientHeight; int FBarHeight; int FBarWidth; protected: virtual void __fastcall CreateParams(Controls::TCreateParams &Params); DYNAMIC void __fastcall ReadPositionData(const TPositionReadIntProc ReadIntProc, const TPositionReadStringProc ReadStringProc, const void * ExtraData); DYNAMIC void __fastcall WritePositionData(const TPositionWriteIntProc WriteIntProc, const TPositionWriteStringProc WriteStringProc, const void * ExtraData); virtual void __fastcall GetBarSize(int &ASize, const TDockType DockType); virtual void __fastcall GetMinimumSize(int &AClientWidth, int &AClientHeight); virtual void __fastcall OrderControls(const bool CanMoveControls, const TDock97* WasDockedTo, const TDock97* DockingTo, tagPOINT &NewClientSize); virtual void __fastcall SizeChanging(const int AWidth, const int AHeight); public: __fastcall virtual TToolWindow97(Classes::TComponent* AOwner); __published: __property ActivateParent ; __property Caption ; __property Color ; __property CloseButton ; __property DefaultDock ; __property DockableTo ; __property DockedTo ; __property DockPos ; __property DockRow ; __property DragHandle ; __property FullSize ; __property HideWhenInactive ; __property int MinClientHeight = {read=FMinClientHeight, write=FMinClientHeight, default=32}; __property int MinClientWidth = {read=FMinClientWidth, write=FMinClientWidth, default=32}; __property ParentShowHint ; __property PopupMenu ; __property Resizable ; __property ShowHint ; __property TabOrder ; __property Visible ; __property OnClose ; __property OnDragDrop ; __property OnDragOver ; __property OnDockChanged ; __property OnDockChanging ; __property OnRecreated ; __property OnRecreating ; __property OnResize ; __property OnVisibleChanged ; public: /* TCustomToolWindow97.Destroy */ __fastcall virtual ~TToolWindow97(void) { } public: /* TWinControl.CreateParented */ __fastcall TToolWindow97(HWND ParentWindow) : Tb97::TCustomToolWindow97( ParentWindow) { } }; typedef int TToolbarSepSize; class DELPHICLASS TToolbarSep97; class PASCALIMPLEMENTATION TToolbarSep97 : public Controls::TGraphicControl { typedef Controls::TGraphicControl inherited; private: bool FBlank; TToolbarSepSize FSizeHorz; TToolbarSepSize FSizeVert; void __fastcall SetBlank(bool Value); void __fastcall SetSizeHorz(TToolbarSepSize Value); void __fastcall SetSizeVert(TToolbarSepSize Value); protected: DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y); virtual void __fastcall Paint(void); virtual void __fastcall SetParent(Controls::TWinControl* AParent); public: __fastcall virtual TToolbarSep97(Classes::TComponent* AOwner); __published: __property Width = {stored=false}; __property Height = {stored=false}; __property bool Blank = {read=FBlank, write=SetBlank, default=0}; __property TToolbarSepSize SizeHorz = {read=FSizeHorz, write=SetSizeHorz, default=6}; __property TToolbarSepSize SizeVert = {read=FSizeVert, write=SetSizeVert, default=6}; public: /* TGraphicControl.Destroy */ __fastcall virtual ~TToolbarSep97(void) { } }; enum TButtonDisplayMode { dmBoth, dmGlyphOnly, dmTextOnly }; enum TButtonState97 { bsUp, bsDisabled, bsDown, bsExclusive, bsMouseIn }; typedef Shortint TNumGlyphs97; class DELPHICLASS TToolbarButton97; class PASCALIMPLEMENTATION TToolbarButton97 : public Controls::TGraphicControl { typedef Controls::TGraphicControl inherited; private: bool FAllowAllUp; TButtonDisplayMode FDisplayMode; bool FDown; bool FDropdownArrow; bool FDropdownCombo; Menus::TPopupMenu* FDropdownMenu; bool FFlat; void *FGlyph; int FGroupIndex; TButtonLayout FLayout; int FMargin; Forms::TModalResult FModalResult; bool FNoBorder; bool FOldDisabledStyle; bool FOpaque; bool FRepeating; int FRepeatDelay; int FRepeatInterval; bool FShowBorderWhenInactive; int FSpacing; bool FWordWrap; Classes::TNotifyEvent FOnMouseEnter; Classes::TNotifyEvent FOnMouseExit; bool FInClick; bool FMouseInControl; bool FMouseIsDown; bool FMenuIsDown; bool FHooked; bool FUsesDropdown; Extctrls::TTimer* FRepeatTimer; void __fastcall GlyphChanged(System::TObject* Sender); void __fastcall UpdateExclusive(void); void __fastcall SetAllowAllUp(bool Value); bool __fastcall GetCallDormant(void); void __fastcall SetCallDormant(bool Value); void __fastcall SetDown(bool Value); void __fastcall SetDisplayMode(TButtonDisplayMode Value); void __fastcall SetDropdownArrow(bool Value); void __fastcall SetDropdownCombo(bool Value); void __fastcall SetDropdownMenu(Menus::TPopupMenu* Value); void __fastcall SetFlat(bool Value); Graphics::TBitmap* __fastcall GetGlyph(void); void __fastcall SetGlyph(Graphics::TBitmap* Value); Graphics::TBitmap* __fastcall GetGlyphMask(void); void __fastcall SetGlyphMask(Graphics::TBitmap* Value); void __fastcall SetGroupIndex(int Value); void __fastcall SetLayout(Buttons::TButtonLayout Value); void __fastcall SetMargin(int Value); void __fastcall SetNoBorder(bool Value); TNumGlyphs97 __fastcall GetNumGlyphs(void); void __fastcall SetNumGlyphs(TNumGlyphs97 Value); void __fastcall SetOldDisabledStyle(bool Value); void __fastcall SetOpaque(bool Value); void __fastcall SetSpacing(int Value); void __fastcall SetWordWrap(bool Value); void __fastcall UpdateTracking(void); void __fastcall Redraw(const bool Erase); bool __fastcall PointInButton(int X, int Y); void __fastcall ButtonMouseTimerHandler(System::TObject* Sender); void __fastcall RepeatTimerHandler(System::TObject* Sender); /* class method */ static bool __fastcall DeactivateHook(System::TMetaClass* vmt, Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message); HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message); MESSAGE void __fastcall CMButtonPressed(Messages::TMessage &Message); MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message); HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message); MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message); MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall WMCancelMode(Messages::TWMNoParams &Message); protected: TButtonState97 FState; DYNAMIC HPALETTE __fastcall GetPalette(void); virtual void __fastcall Loaded(void); virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation ); DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y); DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y); DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y); virtual void __fastcall Paint(void); public: __property bool CallDormant = {read=GetCallDormant, write=SetCallDormant, nodefault}; __fastcall virtual TToolbarButton97(Classes::TComponent* AOwner); __fastcall virtual ~TToolbarButton97(void); DYNAMIC void __fastcall Click(void); void __fastcall MouseEntered(void); void __fastcall MouseLeft(void); __published: __property bool AllowAllUp = {read=FAllowAllUp, write=SetAllowAllUp, default=0}; __property int GroupIndex = {read=FGroupIndex, write=SetGroupIndex, default=0}; __property TButtonDisplayMode DisplayMode = {read=FDisplayMode, write=SetDisplayMode, default=0}; __property bool Down = {read=FDown, write=SetDown, default=0}; __property DragCursor ; __property DragMode ; __property bool DropdownArrow = {read=FDropdownArrow, write=SetDropdownArrow, default=1}; __property bool DropdownCombo = {read=FDropdownCombo, write=SetDropdownCombo, default=0}; __property Menus::TPopupMenu* DropdownMenu = {read=FDropdownMenu, write=SetDropdownMenu}; __property Caption ; __property Enabled ; __property bool Flat = {read=FFlat, write=SetFlat, default=1}; __property Font ; __property Graphics::TBitmap* Glyph = {read=GetGlyph, write=SetGlyph}; __property Graphics::TBitmap* GlyphMask = {read=GetGlyphMask, write=SetGlyphMask}; __property Buttons::TButtonLayout Layout = {read=FLayout, write=SetLayout, default=0}; __property int Margin = {read=FMargin, write=SetMargin, default=-1}; __property Forms::TModalResult ModalResult = {read=FModalResult, write=FModalResult, default=0}; __property bool NoBorder = {read=FNoBorder, write=SetNoBorder, default=0}; __property TNumGlyphs97 NumGlyphs = {read=GetNumGlyphs, write=SetNumGlyphs, default=1}; __property bool OldDisabledStyle = {read=FOldDisabledStyle, write=SetOldDisabledStyle, default=0}; __property bool Opaque = {read=FOpaque, write=SetOpaque, default=1}; __property ParentFont ; __property ParentShowHint ; __property bool Repeating = {read=FRepeating, write=FRepeating, default=0}; __property int RepeatDelay = {read=FRepeatDelay, write=FRepeatDelay, default=400}; __property int RepeatInterval = {read=FRepeatInterval, write=FRepeatInterval, default=100}; __property bool ShowBorderWhenInactive = {read=FShowBorderWhenInactive, write=FShowBorderWhenInactive , default=0}; __property ShowHint ; __property int Spacing = {read=FSpacing, write=SetSpacing, default=4}; __property Visible ; __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=0}; __property OnClick ; __property OnDblClick ; __property OnDragDrop ; __property OnDragOver ; __property OnEndDrag ; __property OnMouseDown ; __property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter}; __property Classes::TNotifyEvent OnMouseExit = {read=FOnMouseExit, write=FOnMouseExit}; __property OnMouseMove ; __property OnMouseUp ; __property OnStartDrag ; }; class DELPHICLASS TEdit97; class PASCALIMPLEMENTATION TEdit97 : public Stdctrls::TCustomEdit { typedef Stdctrls::TCustomEdit inherited; private: bool MouseInControl; void __fastcall RedrawBorder(const HRGN Clip); void __fastcall NewAdjustHeight(void); HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message); HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message); MESSAGE void __fastcall WMNCCalcSize(Messages::TWMNCCalcSize &Message); MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message); protected: virtual void __fastcall Loaded(void); public: __fastcall virtual TEdit97(Classes::TComponent* AOwner); __published: __property CharCase ; __property DragCursor ; __property DragMode ; __property Enabled ; __property Font ; __property HideSelection ; __property ImeMode ; __property ImeName ; __property MaxLength ; __property OEMConvert ; __property ParentColor ; __property ParentCtl3D ; __property ParentFont ; __property ParentShowHint ; __property PasswordChar ; __property PopupMenu ; __property ReadOnly ; __property ShowHint ; __property TabOrder ; __property TabStop ; __property Text ; __property Visible ; __property OnChange ; __property OnClick ; __property OnDblClick ; __property OnDragDrop ; __property OnDragOver ; __property OnEndDrag ; __property OnEnter ; __property OnExit ; __property OnKeyDown ; __property OnKeyPress ; __property OnKeyUp ; __property OnMouseDown ; __property OnMouseMove ; __property OnMouseUp ; __property OnStartDrag ; public: /* TWinControl.CreateParented */ __fastcall TEdit97(HWND ParentWindow) : Stdctrls::TCustomEdit(ParentWindow ) { } /* TWinControl.Destroy */ __fastcall virtual ~TEdit97(void) { } }; //-- var, const, procedure --------------------------------------------------- #define Toolbar97Version "1.63" #define WM_TB97DoneCreating (Word)(6062) #define WM_TB97DoneCreating_Magic (int)(1940230388) #define WM_TB97PaintDockedNCArea (Word)(6063) extern PACKAGE TToolbarButton97* ButtonMouseInControl; extern PACKAGE void __fastcall Register(void); extern PACKAGE void __fastcall AddFloatingNCAreaToRect(Windows::TRect &R, const bool Resizable); extern PACKAGE TDockType __fastcall GetDockTypeOf(const TDock97* Control); extern PACKAGE void __fastcall CustomLoadToolbarPositions(const Forms::TForm* Form, const TPositionReadIntProc ReadIntProc, const TPositionReadStringProc ReadStringProc, const void * ExtraData); extern PACKAGE void __fastcall CustomSaveToolbarPositions(const Forms::TForm* Form, const TPositionWriteIntProc WriteIntProc, const TPositionWriteStringProc WriteStringProc, const void * ExtraData); extern PACKAGE void __fastcall IniLoadToolbarPositions(const Forms::TForm* Form, const System::AnsiString Filename); extern PACKAGE void __fastcall IniSaveToolbarPositions(const Forms::TForm* Form, const System::AnsiString Filename); extern PACKAGE void __fastcall RegLoadToolbarPositions(const Forms::TForm* Form, const System::AnsiString BaseRegistryKey); extern PACKAGE void __fastcall RegSaveToolbarPositions(const Forms::TForm* Form, const System::AnsiString BaseRegistryKey); } /* namespace Tb97 */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Tb97; #endif //-- end unit ---------------------------------------------------------------- #endif // TB97