aquihelpers.hpp

AutomatedDocking Library 控件源代码修改 适合Delphi 2009 和C++ Builder 20009 使用。 修正汉字不能正确显示问题

// CodeGear C++Builder
// Copyright (c) 1995, 2008 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Aquihelpers.pas' rev: 20.00

#ifndef AquihelpersHPP
#define AquihelpersHPP

#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 <Graphics.hpp>	// Pascal unit
#include <Toolwin.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Aqdockingutils.hpp>	// Pascal unit

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

namespace Aquihelpers
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TaqEdgeBorder { ebLeft, ebTop, ebRight, ebBottom };
#pragma option pop

typedef Set<TaqEdgeBorder, ebLeft, ebBottom>  TaqEdgeBorders;

#pragma option push -b-
enum TaqEdgeStyle { esNone, esRaised, esLowered, esFlat };
#pragma option pop

#pragma option push -b-
enum TaqOrientation { orLeft, orTop, orRight, orBottom };
#pragma option pop

typedef Set<TaqOrientation, orLeft, orBottom>  TaqOrientations;

#pragma option push -b-
enum TGradientType { gtSolid, gtHorizontal, gtVertical, gtHorzSplit, gtVertSplit };
#pragma option pop

typedef Word TBands;

class DELPHICLASS TGradient;
class PASCALIMPLEMENTATION TGradient : public Classes::TPersistent
{
	typedef Classes::TPersistent inherited;
	
private:
	TGradientType FType;
	Graphics::TColor FStart;
	Graphics::TColor FEnd;
	TBands FSteps;
	StaticArray<System::Byte, 3> FCStart;
	StaticArray<int, 3> FCDiff;
	int FUpdateCount;
	Classes::TNotifyEvent FOnChange;
	void __fastcall SetEnd(Graphics::TColor Value);
	void __fastcall SetStart(Graphics::TColor Value);
	void __fastcall SetType(TGradientType Value);
	void __fastcall SetSteps(TBands Value);
	void __fastcall SetColors(bool SwapColors);
	
public:
	__fastcall TGradient(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall Clear(void);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	void __fastcall Change(void);
	void __fastcall Fill(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, const Types::TRect &AClip, bool ASwapColors = false);
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	
__published:
	__property TBands Bands = {read=FSteps, write=SetSteps, nodefault};
	__property Graphics::TColor EndColor = {read=FEnd, write=SetEnd, nodefault};
	__property TGradientType FillType = {read=FType, write=SetType, nodefault};
	__property Graphics::TColor StartColor = {read=FStart, write=SetStart, nodefault};
public:
	/* TPersistent.Destroy */ inline __fastcall virtual ~TGradient(void) { }
	
};


#pragma option push -b-
enum TaqImageDrawStyle { idsDefault, idsCenter, idsStretch };
#pragma option pop

#pragma option push -b-
enum TaqShowAccelChar { sacTrue, sacFalse, sacIgnore };
#pragma option pop

class DELPHICLASS TaqThemeNotifier;
class PASCALIMPLEMENTATION TaqThemeNotifier : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	unsigned FHandle;
	Classes::TNotifyEvent FOnThemeChange;
	void __fastcall MainWndProc(Messages::TMessage &Message);
	void __fastcall WndProc(Messages::TMessage &Msg);
	
protected:
	void __fastcall DoThemeChange(void);
	
public:
	__fastcall TaqThemeNotifier(void);
	__fastcall virtual ~TaqThemeNotifier(void);
	__property Classes::TNotifyEvent OnThemeChange = {read=FOnThemeChange, write=FOnThemeChange};
};


//-- var, const, procedure ---------------------------------------------------
#define ebRect (Set<TaqEdgeBorder, ebLeft, ebBottom> () << ebLeft << ebTop << ebRight << ebBottom )
#define orAll (Set<TaqOrientation, orLeft, orBottom> () << orLeft << orTop << orRight << orBottom )
extern PACKAGE void __fastcall DrawEdge(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, TaqEdgeStyle AEdgeInner, TaqEdgeStyle AEdgeOuter, TaqEdgeBorders AEdgeBorders, Graphics::TColor ABaseColor = (Graphics::TColor)(0xff00000f), unsigned ALineWidth = (unsigned)(0x1));
extern PACKAGE void __fastcall DrawRoundEdge(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, TaqEdgeBorders AEdgeBorders, Graphics::TColor AColor = (Graphics::TColor)(0xff00000f), unsigned ALineWidth = (unsigned)(0x1));
extern PACKAGE TaqEdgeStyle __fastcall InvertEdgeStyle(TaqEdgeStyle AEdgeStyle);
extern PACKAGE unsigned __fastcall GetRealColor(unsigned AColor);
extern PACKAGE unsigned __fastcall DarkColorBy(Graphics::TColor Col, System::Byte Percentage);
extern PACKAGE unsigned __fastcall LightColorBy(Graphics::TColor Col, System::Byte Percentage);
extern PACKAGE unsigned __fastcall LightColor(Graphics::TColor AColor);
extern PACKAGE unsigned __fastcall LightLightColor(Graphics::TColor AColor);
extern PACKAGE unsigned __fastcall DarkColor(Graphics::TColor AColor);
extern PACKAGE unsigned __fastcall DarkDarkColor(Graphics::TColor AColor);
extern PACKAGE unsigned __fastcall NETBackColor(Graphics::TColor AColor);
extern PACKAGE unsigned __fastcall GetComplexColor(Graphics::TColor AColor1, Graphics::TColor AColor2, Graphics::TColor AColor3, int APercentage1, int APercentage2, int APercentage3)/* overload */;
extern PACKAGE unsigned __fastcall GetComplexColor(Graphics::TColor AColor1, Graphics::TColor AColor2, int APercentage)/* overload */;
extern PACKAGE bool __fastcall SubtractRect(/* out */ Types::TRect &ARect, const Types::TRect &R1, const Types::TRect &R2);
extern PACKAGE void __fastcall OutTextRect(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, int AIndentX, int AIndentY, const System::UnicodeString AText, Stdctrls::TTextLayout AVertAlign, Classes::TAlignment AHorAlign, bool ARotate = false, bool AWordWrap = false, TaqShowAccelChar AShowAccelChar = (TaqShowAccelChar)(0x0));
extern PACKAGE bool __fastcall MinimizeText(const System::UnicodeString AText, Graphics::TCanvas* ACanvas, int AMaxWidth, TaqShowAccelChar AShowAccelChar, /* out */ System::UnicodeString &ADest);
extern PACKAGE Types::TPoint __fastcall TextMetrics(Graphics::TFont* AFont, const System::UnicodeString AText);
extern PACKAGE void __fastcall DrawImage(Imglist::TCustomImageList* AImages, int AImageIndex, Graphics::TCanvas* ACanvas, const Types::TRect &ARect, bool AEnabled = true, TaqImageDrawStyle AStyle = (TaqImageDrawStyle)(0x2));
extern PACKAGE void __fastcall DrawImageEx(Graphics::TBitmap* AImage, Graphics::TCanvas* ACanvas, const Types::TRect &ARect, TaqOrientation AOrientation, unsigned Region);
extern PACKAGE void __fastcall aqProcessPaintMessages(void);

}	/* namespace Aquihelpers */
using namespace Aquihelpers;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// AquihelpersHPP