sfontctrls.hpp

I mComputermaster programmisDelphi+pascal

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

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

#ifndef SfontctrlsHPP
#define SfontctrlsHPP

#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 <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Salphalistbox.hpp>	// Pascal unit
#include <Scombobox.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit

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

namespace Sfontctrls
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum FontTypes { PS, TTF, RASTER, UNKNOWN };
#pragma option pop

class DELPHICLASS TFontClass;
class PASCALIMPLEMENTATION TFontClass : public System::TObject
{
	typedef System::TObject inherited;
	
public:
	System::UnicodeString FntName;
	FontTypes FntType;
public:
	/* TObject.Create */ inline __fastcall TFontClass(void) : System::TObject() { }
	/* TObject.Destroy */ inline __fastcall virtual ~TFontClass(void) { }
	
};


typedef DynamicArray<TFontClass*> TFontsArray;

typedef StaticArray<Graphics::TBitmap*, 4> TBitmapArray;

#pragma option push -b-
enum TFilterOption { ShowTrueType, ShowPostScript, ShowRaster };
#pragma option pop

typedef Set<TFilterOption, ShowTrueType, ShowRaster>  TFilterOptions;

typedef void __fastcall (__closure *EValidateFont)(System::TObject* Sender, TFontClass* Font, bool &accept);

class DELPHICLASS TsFontListBox;
class PASCALIMPLEMENTATION TsFontListBox : public Salphalistbox::TsAlphaListBox
{
	typedef Salphalistbox::TsAlphaListBox inherited;
	
private:
	TFilterOptions FFilterOptions;
	EValidateFont FOnValidateFont;
	bool FDrawFont;
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	void __fastcall SetDrawFont(const bool Value);
	
protected:
	void __fastcall SetFilterOptions(TFilterOptions Value);
	
public:
	__fastcall virtual TsFontListBox(Classes::TComponent* AOwner);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall DrawItem(int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	virtual void __fastcall MeasureItem(int Index, int &Height);
	
__published:
	__property Align = {default=0};
	__property BorderStyle = {default=1};
	__property Color = {default=-16777211};
	__property Ctl3D;
	__property DragCursor = {default=-12};
	__property DragMode = {default=0};
	__property Enabled = {default=1};
	__property ExtendedSelect = {default=1};
	__property Font;
	__property IntegralHeight = {default=0};
	__property ItemHeight;
	__property Items = {stored=false};
	__property MultiSelect = {default=0};
	__property ParentColor = {default=0};
	__property ParentCtl3D = {default=1};
	__property ParentFont = {default=1};
	__property ParentShowHint = {default=1};
	__property PopupMenu;
	__property ShowHint;
	__property Style = {default=2};
	__property TabOrder = {default=-1};
	__property TabWidth = {default=0};
	__property Visible = {default=1};
	__property EValidateFont OnValidateFont = {read=FOnValidateFont, write=FOnValidateFont};
	__property OnClick;
	__property OnDblClick;
	__property OnDragDrop;
	__property OnDragOver;
	__property OnDrawItem;
	__property OnEndDrag;
	__property OnEnter;
	__property OnExit;
	__property OnKeyDown;
	__property OnKeyPress;
	__property OnKeyUp;
	__property OnMeasureItem;
	__property OnMouseDown;
	__property OnMouseMove;
	__property OnMouseUp;
	__property OnStartDrag;
	__property bool DrawFont = {read=FDrawFont, write=SetDrawFont, default=1};
	__property TFilterOptions FilterOptions = {read=FFilterOptions, write=SetFilterOptions, default=7};
public:
	/* TsAlphaListBox.Destroy */ inline __fastcall virtual ~TsFontListBox(void) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TsFontListBox(HWND ParentWindow) : Salphalistbox::TsAlphaListBox(ParentWindow) { }
	
};


class DELPHICLASS TsFontComboBox;
class PASCALIMPLEMENTATION TsFontComboBox : public Scombobox::TsCustomComboBox
{
	typedef Scombobox::TsCustomComboBox inherited;
	
private:
	TFilterOptions FFilterOptions;
	EValidateFont FOnValidateFont;
	bool FDrawFont;
	void __fastcall SetDrawFont(const bool Value);
	
protected:
	void __fastcall SetFilterOptions(TFilterOptions Value);
	virtual void __fastcall PaintText(void);
	
public:
	__fastcall virtual TsFontComboBox(Classes::TComponent* AOwner);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall DrawItem(int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	virtual void __fastcall MeasureItem(int Index, int &Height);
	__property Style = {default=4};
	
__published:
	__property Align = {default=0};
	__property Color = {default=-16777211};
	__property Ctl3D;
	__property DragMode = {default=0};
	__property DragCursor = {default=-12};
	__property DropDownCount = {default=16};
	__property Enabled = {default=1};
	__property Font;
	__property ItemHeight;
	__property Items = {stored=false};
	__property MaxLength = {default=0};
	__property ParentColor = {default=0};
	__property ParentCtl3D = {default=1};
	__property ParentFont = {default=1};
	__property ParentShowHint = {default=1};
	__property PopupMenu;
	__property ShowHint;
	__property TabOrder = {default=-1};
	__property TabStop = {default=1};
	__property Text;
	__property Visible = {default=1};
	__property EValidateFont OnValidateFont = {read=FOnValidateFont, write=FOnValidateFont};
	__property OnChange;
	__property OnClick;
	__property OnCloseUp;
	__property OnDblClick;
	__property OnDragDrop;
	__property OnDragOver;
	__property OnDrawItem;
	__property OnDropDown;
	__property OnEndDrag;
	__property OnEnter;
	__property OnExit;
	__property OnKeyDown;
	__property OnKeyPress;
	__property OnKeyUp;
	__property OnMeasureItem;
	__property OnStartDrag;
	__property bool DrawFont = {read=FDrawFont, write=SetDrawFont, default=1};
	__property TFilterOptions FilterOptions = {read=FFilterOptions, write=SetFilterOptions, default=7};
public:
	/* TsCustomComboBox.Destroy */ inline __fastcall virtual ~TsFontComboBox(void) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TsFontComboBox(HWND ParentWindow) : Scombobox::TsCustomComboBox(ParentWindow) { }
	
};


//-- var, const, procedure ---------------------------------------------------

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

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