// Borland C++ Builder // Copyright (c) 1995, 2005 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'Rxcombos.pas' rev: 10.00 #ifndef RxcombosHPP #define RxcombosHPP #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 // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Rxcombos { //-- type declarations ------------------------------------------------------- typedef Stdctrls::TComboBoxStyle TOwnerDrawComboStyle; class DELPHICLASS TOwnerDrawComboBox; class PASCALIMPLEMENTATION TOwnerDrawComboBox : public Stdctrls::TCustomComboBox { typedef Stdctrls::TCustomComboBox inherited; private: Stdctrls::TComboBoxStyle FStyle; bool FItemHeightChanging; void __fastcall SetComboStyle(TOwnerDrawComboStyle Value); HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message); HIDESBASE MESSAGE void __fastcall CMRecreateWnd(Messages::TMessage &Message); protected: virtual void __fastcall CreateParams(Controls::TCreateParams &Params); virtual void __fastcall CreateWnd(void); void __fastcall ResetItemHeight(void); virtual int __fastcall MinItemHeight(void); __property TOwnerDrawComboStyle Style = {read=FStyle, write=SetComboStyle, default=2}; public: __fastcall virtual TOwnerDrawComboBox(Classes::TComponent* AOwner); public: #pragma option push -w-inl /* TCustomComboBox.Destroy */ inline __fastcall virtual ~TOwnerDrawComboBox(void) { } #pragma option pop public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TOwnerDrawComboBox(HWND ParentWindow) : Stdctrls::TCustomComboBox(ParentWindow) { } #pragma option pop }; #pragma option push -b- enum TColorComboOption { coIncludeDefault, coIncludeNone, coIncludeOther }; #pragma option pop typedef Set TColorComboOptions; class DELPHICLASS TColorComboBox; class PASCALIMPLEMENTATION TColorComboBox : public TOwnerDrawComboBox { typedef TOwnerDrawComboBox inherited; private: bool FInternalDropDown; Graphics::TColor FCustomColor; AnsiString FCustomColorList; Graphics::TColor FColorValue; bool FDisplayNames; Classes::TStrings* FColorNames; TColorComboOptions FOptions; Classes::TNotifyEvent FOnChange; int FNumColors; Graphics::TColor __fastcall GetColorValue(void); void __fastcall SetColorValue(Graphics::TColor NewValue); bool __fastcall GetAllColors(void); void __fastcall SetAllColors(bool Value); void __fastcall SetDisplayNames(bool Value); void __fastcall SetColorNames(Classes::TStrings* Value); void __fastcall SetOptions(TColorComboOptions Value); void __fastcall ColorNamesChanged(System::TObject* Sender); bool __fastcall CheckColorNames(void); HIDESBASE MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message); void __fastcall SetCustomColor(Graphics::TColor Value); protected: virtual void __fastcall CreateWnd(void); virtual void __fastcall DrawItem(int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State); DYNAMIC void __fastcall Click(void); DYNAMIC void __fastcall Change(void); virtual void __fastcall PopulateList(void); DYNAMIC void __fastcall DoChange(void); public: __fastcall virtual TColorComboBox(Classes::TComponent* AOwner); __fastcall virtual ~TColorComboBox(void); __property Text ; __property Graphics::TColor CustomColor = {read=FCustomColor, write=SetCustomColor, nodefault}; __published: __property bool AllColors = {read=GetAllColors, write=SetAllColors, default=0}; __property Graphics::TColor ColorValue = {read=GetColorValue, write=SetColorValue, default=0}; __property Classes::TStrings* ColorNames = {read=FColorNames, write=SetColorNames, stored=CheckColorNames}; __property bool DisplayNames = {read=FDisplayNames, write=SetDisplayNames, default=1}; __property TColorComboOptions Options = {read=FOptions, write=SetOptions, default=0}; __property Color = {default=-16777211}; __property Ctl3D ; __property DragMode = {default=0}; __property DragCursor = {default=-12}; __property Enabled = {default=1}; __property Font ; __property Anchors = {default=3}; __property BiDiMode ; __property Constraints ; __property DragKind = {default=0}; __property ParentBiDiMode = {default=1}; __property ImeMode = {default=3}; __property ImeName ; __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 TabStop = {default=1}; __property Visible = {default=1}; __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange}; __property OnClick ; __property OnDblClick ; __property OnDragDrop ; __property OnDragOver ; __property OnDropDown ; __property OnEndDrag ; __property OnEnter ; __property OnExit ; __property OnKeyDown ; __property OnKeyPress ; __property OnKeyUp ; __property OnStartDrag ; __property OnContextPopup ; __property OnEndDock ; __property OnStartDock ; public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TColorComboBox(HWND ParentWindow) : TOwnerDrawComboBox(ParentWindow) { } #pragma option pop }; #pragma option push -b- enum TFontDevice { fdScreen, fdPrinter, fdBoth }; #pragma option pop #pragma option push -b- enum TFontListOption { foAnsiOnly, foTrueTypeOnly, foFixedPitchOnly, foNoOEMFonts, foOEMFontsOnly, foScalableOnly, foNoSymbolFonts }; #pragma option pop typedef Set TFontListOptions; class DELPHICLASS TFontComboBox; class PASCALIMPLEMENTATION TFontComboBox : public TOwnerDrawComboBox { typedef TOwnerDrawComboBox inherited; private: Graphics::TBitmap* FTrueTypeBMP; Graphics::TBitmap* FDeviceBMP; Classes::TNotifyEvent FOnChange; TFontDevice FDevice; bool FUpdate; bool FUseFonts; TFontListOptions FOptions; void __fastcall SetFontName(const AnsiString NewFontName); AnsiString __fastcall GetFontName(); bool __fastcall GetTrueTypeOnly(void); void __fastcall SetDevice(TFontDevice Value); void __fastcall SetOptions(TFontListOptions Value); void __fastcall SetTrueTypeOnly(bool Value); void __fastcall SetUseFonts(bool Value); void __fastcall Reset(void); HIDESBASE MESSAGE void __fastcall WMFontChange(Messages::TMessage &Message); protected: virtual void __fastcall PopulateList(void); DYNAMIC void __fastcall Change(void); DYNAMIC void __fastcall Click(void); DYNAMIC void __fastcall DoChange(void); virtual void __fastcall CreateWnd(void); virtual void __fastcall DrawItem(int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State); virtual int __fastcall MinItemHeight(void); public: __fastcall virtual TFontComboBox(Classes::TComponent* AOwner); __fastcall virtual ~TFontComboBox(void); __property Text ; __published: __property TFontDevice Device = {read=FDevice, write=SetDevice, default=0}; __property AnsiString FontName = {read=GetFontName, write=SetFontName}; __property TFontListOptions Options = {read=FOptions, write=SetOptions, default=0}; __property bool TrueTypeOnly = {read=GetTrueTypeOnly, write=SetTrueTypeOnly, stored=false, nodefault}; __property bool UseFonts = {read=FUseFonts, write=SetUseFonts, default=0}; __property Color = {default=-16777211}; __property Ctl3D ; __property DragMode = {default=0}; __property DragCursor = {default=-12}; __property Enabled = {default=1}; __property Font ; __property Anchors = {default=3}; __property BiDiMode ; __property Constraints ; __property DragKind = {default=0}; __property ParentBiDiMode = {default=1}; __property ImeMode = {default=3}; __property ImeName ; __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 TabStop = {default=1}; __property Visible = {default=1}; __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange}; __property OnClick ; __property OnDblClick ; __property OnDragDrop ; __property OnDragOver ; __property OnDropDown ; __property OnEndDrag ; __property OnEnter ; __property OnExit ; __property OnKeyDown ; __property OnKeyPress ; __property OnKeyUp ; __property OnStartDrag ; __property OnContextPopup ; __property OnEndDock ; __property OnStartDock ; public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TFontComboBox(HWND ParentWindow) : TOwnerDrawComboBox(ParentWindow) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- } /* namespace Rxcombos */ using namespace Rxcombos; #pragma pack(pop) #pragma option pop #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // Rxcombos