fcstatusbar.hpp

一套及时通讯的原码

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'fcStatusBar.pas' rev: 5.00

#ifndef fcStatusBarHPP
#define fcStatusBarHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ImgList.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <fctext.hpp>	// Pascal unit
#include <fcCommon.hpp>	// Pascal unit
#include <fcCollection.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <RichEdit.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Commctrl.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Fcstatusbar
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TfcStatusBarText;
class DELPHICLASS TfcCustomStatusBar;
class DELPHICLASS TfcStatusPanels;
class DELPHICLASS TfcStatusPanel;
#pragma option push -b-
enum TfcStatusPanelStyle { psTextOnly, psControl, psOverWrite, psCapsLock, psNumLock, psDateTime, psDate, 
	psTime, psGlyph, psRichEditStatus, psHint, psUserName, psComputerName, psScrollLock, psHintContainerOnly 
	};
#pragma option pop

typedef TMetaClass*TfcStatusPanelClass;

class PASCALIMPLEMENTATION TfcStatusPanels : public Fccollection::TfcCollection 
{
	typedef Fccollection::TfcCollection inherited;
	
private:
	TfcCustomStatusBar* FStatusBar;
	HIDESBASE TfcStatusPanel* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TfcStatusPanel* Value);
	
protected:
	virtual void __fastcall RedrawIfNeeded(TfcStatusPanelStyle StyleToCheck);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	__property TfcCustomStatusBar* StatusBar = {read=FStatusBar};
	
public:
	__fastcall TfcStatusPanels(TfcCustomStatusBar* StatusBar, TMetaClass* AStatusPanelClass);
	HIDESBASE TfcStatusPanel* __fastcall Add(void);
	TfcStatusPanel* __fastcall PanelByName(AnsiString AName);
	__property TfcStatusPanel* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
public:
	#pragma option push -w-inl
	/* TfcCollection.Destroy */ inline __fastcall virtual ~TfcStatusPanels(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TDrawKeyboardStateEvent)(TfcCustomStatusBar* StatusBar, TfcStatusPanel* 
	StatusPanel, bool KeyIsOn, const Windows::TRect &Rect, AnsiString &AText);

typedef void __fastcall (__closure *TDrawPanelEvent)(TfcCustomStatusBar* StatusBar, TfcStatusPanel* 
	Panel, const Windows::TRect &Rect);

typedef TMetaClass*TfcStatusPanelsClass;

class PASCALIMPLEMENTATION TfcCustomStatusBar : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
private:
	Graphics::TCanvas* FCanvas;
	tagSIZE FLastSize;
	Imglist::TCustomImageList* FImageList;
	TfcStatusPanels* FPanels;
	bool FSimplePanel;
	AnsiString FSimpleText;
	bool FSizeGrip;
	bool FSizing;
	TDrawKeyboardStateEvent FOnDrawKeyboardState;
	TDrawPanelEvent FOnDrawPanel;
	TfcStatusBarText* FStatusBarText;
	bool FDisableThemes;
	void __fastcall SetPanels(TfcStatusPanels* Value);
	void __fastcall SetSimplePanel(bool Value);
	void __fastcall SetSimpleText(const AnsiString Value);
	void __fastcall SetSizeGrip(bool Value);
	bool __fastcall GetSizeGrip(void);
	HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
	
protected:
	virtual TMetaClass* __fastcall GetCollectionClass(void);
	DYNAMIC void __fastcall DrawPanel(TfcStatusPanel* Panel, const Windows::TRect &Rect);
	DYNAMIC void __fastcall Resize(void);
	void __fastcall UpdatePanel(int Index, bool DoInvalidate);
	virtual void __fastcall UpdatePanels(void);
	DYNAMIC void __fastcall Click(void);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall CreateWnd(void);
	DYNAMIC void __fastcall DblClick(void);
	virtual void __fastcall DestroyWnd(void);
	virtual void __fastcall Loaded(void);
	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 Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	__property Graphics::TCanvas* Canvas = {read=FCanvas};
	
public:
	Variant Patch;
	__fastcall virtual TfcCustomStatusBar(Classes::TComponent* AOwner);
	__fastcall virtual ~TfcCustomStatusBar(void);
	virtual void __fastcall Invalidate(void);
	virtual TfcStatusPanel* __fastcall GetPanelFromPt(int x, int y);
	void __fastcall ComponentExclusive(Classes::TComponent* Value, TfcStatusPanel* Panel, bool ThisStatusBarOnly
		);
	__property Imglist::TCustomImageList* Images = {read=FImageList, write=FImageList};
	__property TfcStatusPanels* Panels = {read=FPanels, write=SetPanels};
	__property bool SimplePanel = {read=FSimplePanel, write=SetSimplePanel, nodefault};
	__property AnsiString SimpleText = {read=FSimpleText, write=SetSimpleText};
	__property bool SizeGrip = {read=GetSizeGrip, write=SetSizeGrip, default=1};
	__property TDrawKeyboardStateEvent OnDrawKeyboardState = {read=FOnDrawKeyboardState, write=FOnDrawKeyboardState
		};
	__property TDrawPanelEvent OnDrawPanel = {read=FOnDrawPanel, write=FOnDrawPanel};
	__property TfcStatusBarText* StatusBarText = {read=FStatusBarText, write=FStatusBarText};
	__property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfcCustomStatusBar(HWND ParentWindow) : Controls::TWinControl(
		ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfcStatusBarText : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TfcCustomStatusBar* FOwner;
	AnsiString FCapsLock;
	AnsiString FOverwrite;
	AnsiString FNumLock;
	AnsiString FScrollLock;
	void __fastcall SetCapsLock(AnsiString Value);
	void __fastcall SetOverwrite(AnsiString Value);
	void __fastcall SetNumLock(AnsiString Value);
	void __fastcall SetScrollLock(AnsiString Value);
	
public:
	__fastcall TfcStatusBarText(TfcCustomStatusBar* AOwner);
	
__published:
	__property AnsiString CapsLock = {read=FCapsLock, write=SetCapsLock};
	__property AnsiString Overwrite = {read=FOverwrite, write=SetOverwrite};
	__property AnsiString NumLock = {read=FNumLock, write=SetNumLock};
	__property AnsiString ScrollLock = {read=FScrollLock, write=SetScrollLock};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TfcStatusBarText(void) { }
	#pragma option pop
	
};


typedef TMetaClass*TfcCustomStatusBarClass;

#pragma option push -b-
enum TfcStatusPanelBevel { pbNone, pbLowered, pbRaised };
#pragma option pop

typedef void __fastcall (__closure *TfcPanelTextChangedEvent)(System::TObject* Sender, const AnsiString