fcbutton.hpp

一套及时通讯的原码

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

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

#ifndef fcButtonHPP
#define fcButtonHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <fctext.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <ActnList.hpp>	// Pascal unit
#include <ImgList.hpp>	// Pascal unit
#include <DB.hpp>	// Pascal unit
#include <DBCtrls.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <fcChangeLink.hpp>	// Pascal unit
#include <fcBitmap.hpp>	// Pascal unit
#include <fcCommon.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Consts.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <CommCtrl.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Classes.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 Fcbutton
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TfcShadeStyle { fbsNormal, fbsRaised, fbsHighlight, fbsFlat };
#pragma option pop

#pragma option push -b-
enum TfcButtonOption { boFocusable, boOverrideActionGlyph, boToggleOnUp, boFocusRect, boAutoBold };
#pragma option pop

typedef Set<TfcButtonOption, boFocusable, boAutoBold>  TfcButtonOptions;

typedef TMetaClass*TfcCustomBitBtnClass;

#pragma pack(push, 4)
struct TfcRegionData
{
	int dwSize;
	_RGNDATA *rgnData;
} ;
#pragma pack(pop)

typedef TfcRegionData *PfcRegionData;

class DELPHICLASS TfcOffsets;
class DELPHICLASS TfcCustomBitBtn;
class PASCALIMPLEMENTATION TfcOffsets : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Controls::TWinControl* FControl;
	int FGlyphX;
	int FGlyphY;
	int FTextX;
	int FTextY;
	int FTextDownX;
	int FTextDownY;
	void __fastcall SetGlyphX(int Value);
	void __fastcall SetGlyphY(int Value);
	void __fastcall SetTextX(int Value);
	void __fastcall SetTextY(int Value);
	
protected:
	virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
	__property Controls::TWinControl* Control = {read=FControl};
	
public:
	__fastcall TfcOffsets(TfcCustomBitBtn* Button);
	
__published:
	__property int GlyphX = {read=FGlyphX, write=SetGlyphX, default=0};
	__property int GlyphY = {read=FGlyphY, write=SetGlyphY, default=0};
	__property int TextX = {read=FTextX, write=SetTextX, default=0};
	__property int TextY = {read=FTextY, write=SetTextY, default=0};
	__property int TextDownX = {read=FTextDownX, write=FTextDownX, default=1};
	__property int TextDownY = {read=FTextDownY, write=FTextDownY, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TfcOffsets(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfcShadeColors;
class PASCALIMPLEMENTATION TfcShadeColors : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TfcCustomBitBtn* FButton;
	Graphics::TColor FBtnHighlight;
	Graphics::TColor FBtn3dLight;
	Graphics::TColor FBtnShadow;
	Graphics::TColor FBtnBlack;
	Graphics::TColor FBtnFocus;
	Graphics::TColor FShadow;
	void __fastcall SetBtn3DLight(Graphics::TColor Value);
	void __fastcall SetBtnBlack(Graphics::TColor Value);
	void __fastcall SetBtnHighlight(Graphics::TColor Value);
	void __fastcall SetBtnShadow(Graphics::TColor Value);
	void __fastcall SetBtnFocus(Graphics::TColor Value);
	void __fastcall SetShadow(Graphics::TColor Value);
	
protected:
	virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
	
public:
	__fastcall TfcShadeColors(TfcCustomBitBtn* Button);
	
__published:
	__property Graphics::TColor Btn3DLight = {read=FBtn3dLight, write=SetBtn3DLight, default=-2147483626};
	__property Graphics::TColor BtnHighlight = {read=FBtnHighlight, write=SetBtnHighlight, default=-2147483628};
	__property Graphics::TColor BtnShadow = {read=FBtnShadow, write=SetBtnShadow, default=-2147483632};
	__property Graphics::TColor BtnBlack = {read=FBtnBlack, write=SetBtnBlack, default=0};
	__property Graphics::TColor BtnFocus = {read=FBtnFocus, write=SetBtnFocus, default=0};
	__property Graphics::TColor Shadow = {read=FShadow, write=SetShadow, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TfcShadeColors(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfcCustomBitBtn : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
private:
	bool FActive;
	bool FAllowAllUp;
	bool FCancel;
	bool FDefault;
	bool FDown;
	Graphics::TBitmap* FGlyph;
	int FGroupIndex;
	bool FInMouseSendForMouseActivate;
	Buttons::TBitBtnKind FKind;
	Buttons::TButtonLayout FLayout;
	int FMargin;
	Controls::TModalResult FModalResult;
	Buttons::TNumGlyphs FNumGlyphs;
	HRGN FRegion;
	HRGN FLastRegion;
	TfcShadeColors* FShadeColors;
	TfcShadeStyle FShadeStyle;
	bool FShowFocusRect;
	int FSpacing;
	Buttons::TButtonStyle FStyle;
	Fctext::TfcCaptionText* FTextOptions;
	bool FSmoothFont;
	#pragma pack(push, 1)
	Types::TRect FGlyphRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect FTextRect;
	#pragma pack(pop)
	
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseLeave;
	Classes::TNotifyEvent FOnSelChange;
	Classes::TNotifyEvent FOnSetName;
	Graphics::TCanvas* FCanvas;
	TfcOffsets* FOffsets;