advofficestatusbar.hpp

一个非常棒的控件.做商业软件特别适用.里面的控件涉及面非常的广,有兴趣的话可以下来用用就知道了.

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Advofficestatusbar.pas' rev: 10.00

#ifndef AdvofficestatusbarHPP
#define AdvofficestatusbarHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Commctrl.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Comobj.hpp>	// Pascal unit
#include <Shellapi.hpp>	// Pascal unit
#include <Picturecontainer.hpp>	// Pascal unit
#include <Advgdip.hpp>	// Pascal unit
#include <Gdipicture.hpp>	// Pascal unit
#include <Advhintinfo.hpp>	// Pascal unit
#include <Stdactns.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit

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

namespace Advofficestatusbar
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TAdvOfficeStatusPanelStyle { psHTML, psText, psOwnerDraw, psTime, psDate, psNumLock, psCapsLock, psScrollLock, psProgress, psImage, psImageList, psAnimation, psEllipsText, psFileEllipsText };
#pragma option pop

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

#pragma option push -b-
enum TGaugeOrientation { goHorizontal, goVertical };
#pragma option pop

#pragma option push -b-
enum TPanelAppearanceStyle { psLight, psDark };
#pragma option pop

#pragma option push -b-
enum TGDIPGradient { ggRadial, ggVertical, ggDiagonalForward, ggDiagonalBackward };
#pragma option pop

#pragma option push -b-
enum TButtonLayout { blGlyphLeft, blGlyphTop, blGlyphRight, blGlyphBottom };
#pragma option pop

typedef void __fastcall (__closure *TAnchorClick)(System::TObject* Sender, AnsiString Anchor);

typedef void __fastcall (__closure *TPanelClick)(System::TObject* Sender, int PanelIndex);

#pragma option push -b-
enum TProgressIndication { piPercentage, piAbsolute, piNone };
#pragma option pop

class DELPHICLASS TProgressStyle;
class DELPHICLASS TAdvOfficeStatusPanel;
class PASCALIMPLEMENTATION TAdvOfficeStatusPanel : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	AnsiString FText;
	int FWidth;
	Classes::TAlignment FAlignment;
	TAdvOfficeStatusPanelBevel FBevel;
	Classes::TBiDiMode FBiDiMode;
	bool FParentBiDiMode;
	TAdvOfficeStatusPanelStyle FStyle;
	bool FUpdateNeeded;
	AnsiString FTimeFormat;
	AnsiString FDateFormat;
	int FAnimIndex;
	TProgressStyle* FProgressStyle;
	int FHTMLOffsetY;
	int FHTMLOffsetX;
	int FImageIndex;
	Classes::TStringList* FImageIndexes;
	Controls::TImageList* FAnimationImages;
	int FAnimationDelay;
	bool FAnimated;
	bool FEnabled;
	TPanelAppearanceStyle FAppearanceStyle;
	Advhintinfo::TAdvHintInfo* FOfficeHint;
	bool FButton;
	void __fastcall SetAlignment(Classes::TAlignment Value);
	void __fastcall SetBevel(TAdvOfficeStatusPanelBevel Value);
	void __fastcall SetBiDiMode(Classes::TBiDiMode Value);
	void __fastcall SetParentBiDiMode(bool Value);
	bool __fastcall IsBiDiModeStored(void);
	void __fastcall SetStyle(TAdvOfficeStatusPanelStyle Value);
	void __fastcall SetText(const AnsiString Value);
	void __fastcall SetWidth(int Value);
	void __fastcall SetDateFormat(const AnsiString Value);
	void __fastcall SetTimeFormat(const AnsiString Value);
	void __fastcall SetProgressStyle(const TProgressStyle* Value);
	void __fastcall SetHTMLOffsetX(const int Value);
	void __fastcall SetHTMLOffseTY(const int Value);
	void __fastcall SetImageIndex(const int Value);
	int __fastcall GetImageIndexes(int Index);
	void __fastcall SetImageIndexes(int Index, const int Value);
	void __fastcall SetAnimationImages(const Controls::TImageList* Value);
	void __fastcall SetAnimated(const bool Value);
	void __fastcall SetAnimationDelay(const int Value);
	void __fastcall SetEnabled(const bool Value);
	void __fastcall SetAppearanceStyle(TPanelAppearanceStyle Value);
	void __fastcall SetOfficeHint(const Advhintinfo::TAdvHintInfo* Value);
	void __fastcall SetButton(bool Value);
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	void __fastcall Change(void);
	__property TAdvOfficeStatusPanelBevel Bevel = {read=FBevel, write=SetBevel, default=0};
	
public:
	__fastcall virtual TAdvOfficeStatusPanel(Classes::TCollection* Collection);
	__fastcall virtual ~TAdvOfficeStatusPanel(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall ParentBiDiModeChanged(void);
	bool __fastcall UseRightToLeftAlignment(void);
	bool __fastcall UseRightToLeftReading(void);
	void __fastcall ClearImageIndexes(void);
	int __fastcall ImageCount(void);
	__property int ImageIndexes[int Index] = {read=GetImageIndexes, write=SetImageIndexes};
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
	__property bool Animated = {read=FAnimated, write=SetAnimated, default=0};
	__property Controls::TImageList* AnimationImages = {read=FAnimationImages, write=SetAnimationImages};
	__property int AnimationDelay = {read=FAnimationDelay, write=SetAnimationDelay, default=0};
	__property Classes::TBiDiMode BiDiMode = {read=FBiDiMode, write=SetBiDiMode, stored=IsBiDiModeStored, nodefault};
	__property bool ParentBiDiMode = {read=FParentBiDiMode, write=SetParentBiDiMode, default=1};
	__property AnsiString DateFormat = {read=FDateFormat, write=SetDateFormat};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
	__property int HTMLOffsetX = {read=FHTMLOffsetX, write=SetHTMLOffsetX, default=2};
	__property int HTMLOffsetY = {read=FHTMLOffsetY, write=SetHTMLOffseTY, default=2};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, default=-1};
	__property TProgressStyle* Progress = {read=FProgressStyle, write=SetProgressStyle};
	__property TAdvOfficeStatusPanelStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property AnsiString Text = {read=FText, write=SetText};
	__property AnsiString TimeFormat = {read=FTimeFormat, write=SetTimeFormat};
	__property int Width = {read=FWidth, write=SetWidth, nodefault};
	__property TPanelAppearanceStyle AppearanceStyle = {read=FAppearanceStyle, write=SetAppearanceStyle, nodefault};
	__property Advhintinfo::TAdvHintInfo* OfficeHint = {read=FOfficeHint, write=SetOfficeHint};
	__property bool Button = {read=FButton, write=SetButton, default=0};
};


class PASCALIMPLEMENTATION TProgressStyle : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FMin;
	int FPosition;
	int FMax;
	TProgressIndication FIndication;
	Graphics::TColor FBackground;
	TAdvOfficeStatusPanel* FOwner;
	Graphics::TColor FLevel0Color;
	Graphics::TColor FLevel0ColorTo;
	Graphics::TColor FLevel1Color;
	Graphics::TColor FLevel1ColorTo;
	Graphics::TColor FLevel2Color;
	Graphics::TColor FLevel2ColorTo;
	Graphics::TColor FLevel3Color;
	Graphics::TColor FLevel3ColorTo;
	int FLevel1Perc;
	int FLevel2Perc;
	Graphics::TColor FBorderColor;
	bool FShowBorder;
	bool FStacked;
	bool FShowPercentage;
	bool FCompletionSmooth;
	bool FShowGradient;
	AnsiString FSuffix;
	AnsiString FPrefix;
	void __fastcall SetIndication(const TProgressIndication Value);
	void __fastcall SetMax(const int Value);
	void __fastcall SetMin(const int Value);
	void __fastcall SetPosition(const int Value);
	void __fastcall SetBackGround(const Graphics::TColor Value);
	void __fastcall SetLevel0Color(const Graphics::TColor Value);
	void __fastcall SetLevel0ColorTo(const Graphics::TColor Value);
	void __fastcall SetLevel1Color(const Graphics::TColor Value);
	void __fastcall SetLevel1ColorTo(const Graphics::TColor Value);
	void __fastcall SetLevel2Color(const Graphics::TColor Value);
	void __fastcall SetLevel2ColorTo(const Graphics::TColor Value);
	void __fastcall SetLevel3Color(const Graphics::TColor Value);
	void __fastcall SetLevel3ColorTo(const Graphics::TColor Value);
	void __fastcall SetLevel1Perc(int Value);
	void __fastcall SetLevel2Perc(int Value);
	void __fastcall SetBorderColor(const Graphics::TColor Value);
	void __fastcall SetShowBorder(bool Value);
	void __fastcall SetStacked(bool Value);
	void __fastcall SetShowPercentage(bool Value);
	void __fastcall SetCompletionSmooth(bool Value);
	void __fastcall SetShowGradient(bool Value);
	void __fastcall SetPrefix(const AnsiString Value);
	void __fastcall SetSuffix(const AnsiString Value);
	
protected:
	void __fastcall Changed(void);
	
public:
	__fastcall TProgressStyle(TAdvOfficeStatusPanel* aOwner);
	__fastcall virtual ~TProgressStyle(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor BackGround = {read=FBackground, write=SetBackGround, nodefault};
	__property TProgressIndication Indication = {read=FIndication, write=SetIndication, nodefault};
	__property int Min = {read=FMin, write=SetMin, nodefault};
	__property int Max = {read=FMax, write=SetMax, nodefault};
	__property int Position = {read=FPosition, write=SetPosition, nodefault};
	__property Graphics::TColor Level0Color = {read=FLevel0Color, write=SetLevel0Color, nodefault};
	__property Graphics::TColor Level0ColorTo = {read=FLevel0ColorTo, write=SetLevel0ColorTo, nodefault};
	__property Graphics::TColor Level1Color = {read=FLevel1Color, write=SetLevel1Color, nodefault};
	__property Graphics::TColor Level1ColorTo = {read=FLevel1ColorTo, write=SetLevel1ColorTo, nodefault};
	__property Graphics::TColor Level2Color = {read=FLevel2Color, write=SetLevel2Color, nodefault};
	__property Graphics::TColor Level2ColorTo = {read=FLevel2ColorTo, write=SetLevel2ColorTo, nodefault};
	__property Graphics::TColor Level3Color = {read=FLevel3Color, write=SetLevel3Color, nodefault};
	__property Graphics::TColor Level3ColorTo = {read=FLevel3ColorTo, write=SetLevel3ColorTo, nodefault};
	__property int Level1Perc = {read=FLevel1Perc, write=SetLevel1Perc, nodefault};
	__property int Level2Perc = {read=FLevel2Perc, write=SetLevel2Perc, nodefault};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, nodefault};
	__property bool ShowBorder = {read=FShowBorder, write=SetShowBorder, nodefault};
	__property bool Stacked = {read=FStacked, write=SetStacked, nodefault};
	__property bool ShowPercentage = {read=FShowPercentage, write=SetShowPercentage, default=1};
	__property bool CompletionSmooth = {read=FCompletionSmooth, write=SetCompletionSmooth, default=0};
	__property AnsiString Suffix = {read=FSuffix, write=SetSuffix};
	__property AnsiString Prefix = {read=FPrefix, write=SetPrefix};
	__property bool ShowGradient = {read=FShowGradient, write=SetShowGradient, default=1};
};


class DELPHICLASS TDummyHintControl;
class PASCALIMPLEMENTATION TDummyHintControl : public Controls::TControl 
{
	typedef Controls::TControl inherited;
	
private:
	Advhintinfo::TAdvHintInfo* FOfficeHint;
	void __fastcall SetOfficeHint(const Advhintinfo::TAdvHintInfo* Value);
	
public:
	__fastcall virtual TDummyHintControl(Classes::TComponent* AOwner);
	__fastcall virtual ~TDummyHintControl(void);
	
__published:
	__property Advhintinfo::TAdvHintInfo* OfficeHint = {read=FOfficeHint, write=SetOfficeHint};
};


class DELPHICLASS TAdvOfficeStatusPanels;
class DELPHICLASS TAdvOfficeStatusBar;
class DELPHICLASS TCustomAdvOfficeStatusBarStyler;
class DELPHICLASS TDbgList;
class PASCALIMPLEMENTATION TDbgList : public Classes::TList 
{
	typedef Classes::TList inherited;
	
public:
	void * operator[](int Index) { return Items[Index]; }
	
private:
	void * __fastcall GetItemsEx(int Index);
	void __fastcall SetItemsEx(int Index, const void * Value);
	
public:
	__property void * Items[int Index] = {read=GetItemsEx, write=SetItemsEx/*, default*/};
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TDbgList(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TDbgList(void) : Classes::TList() { }
	#pragma option pop
	
};


class DELPHICLASS TVistaBackground;
class PASCALIMPLEMENTATION TVistaBackground : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FSteps;
	Graphics::TColor FColor;
	Graphics::TColor FColorTo;
	Classes::TNotifyEvent FOnChange;
	Graphics::TColor FColorMirror;
	Graphics::TColor FColorMirrorTo;
	Graphics::TColor FBorderColor;
	Graphics::TColor FTextColor;
	Graphics::TFontStyles FTextStyle;
	Graphics::TColor FColorMirrorDownTo;
	Graphics::TColor FColorHot;
	Graphics::TColor FColorMirrorDown;
	Graphics::TColor FColorDownTo;
	Graphics::TColor FTextColorDown;
	Graphics::TColor FColorDown;
	Graphics::TColor FColorHotTo;
	Graphics::TColor FBorderColorDown;
	Graphics::TColor FColorMirrorHot;
	Graphics::TColor FBorderColorHot;
	Graphics::TColor FColorMirrorHotTo;
	Graphics::TColor FTextColorHot;
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetSteps(const int Value);
	void __fastcall Changed(void);
	void __fastcall SetBorderColor(const Graphics::TColor Value);
	void __fastcall SetColorMirror(const Graphics::TColor Value);