// Borland C++ Builder // Copyright (c) 1995, 1999 by Borland International // All rights reserved // (DO NOT EDIT: machine generated header) 'RxCombos.pas' rev: 5.00 #ifndef RxCombosHPP #define RxCombosHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #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 }; #pragma option pop typedef Set TColorComboOptions; class DELPHICLASS TColorComboBox; class PASCALIMPLEMENTATION TColorComboBox : public TOwnerDrawComboBox { typedef TOwnerDrawComboBox inherited; private: Graphics::TColor FColorValue; bool FDisplayNames; Classes::TStrings* FColorNames; TColorComboOptions FOptions; Classes::TNotifyEvent FOnChange; Graphics::TColor __fastcall GetColorValue(void); void __fastcall SetColorValue(Graphics::TColor NewValue); void __fastcall SetDisplayNames(bool Value); void __fastcall SetColorNames(Classes::TStrings* Value); void __fastcall SetOptions(TColorComboOptions Value); void __fastcall ColorNamesChanged(System::TObject* Sender); protected: virtual void __fastcall CreateWnd(void); virtual void __fastcall DrawItem(int Index, const Windows::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 ; __published: __property Graphics::TColor ColorValue = {read=GetColorValue, write=SetColorValue, default=0}; __property Classes::TStrings* ColorNames = {read=FColorNames, write=SetColorNames}; __property bool DisplayNames = {read=FDisplayNames, write=SetDisplayNames, default=1}; __property TColorComboOptions Options = {read=FOptions, write=SetOptions, default=0}; __property Color ; __property Ctl3D ; __property DragMode ; __property DragCursor ; __property Enabled ; __property Font ; __property Anchors ; __property BiDiMode ; __property Constraints ; __property DragKind ; __property ParentBiDiMode ; __property ImeMode ; __property ImeName ; __property ParentColor ; __property ParentCtl3D ; __property ParentFont ; __property ParentShowHint ; __property PopupMenu ; __property ShowHint ; __property Style ; __property TabOrder ; __property TabStop ; __property Visible ; __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 Windows::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 ; __property Ctl3D ; __property DragMode ; __property DragCursor ; __property Enabled ; __property Font ; __property Anchors ; __property BiDiMode ; __property Constraints ; __property DragKind ; __property ParentBiDiMode ; __property ImeMode ; __property ImeName ; __property ParentColor ; __property ParentCtl3D ; __property ParentFont ; __property ParentShowHint ; __property PopupMenu ; __property ShowHint ; __property Style ; __property TabOrder ; __property TabStop ; __property Visible ; __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 */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Rxcombos; #endif #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // RxCombos