开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
fcbuttongroup.hpp
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：11k
源码类别：

Delphi控件源码

开发平台：

Delphi

fcbuttongroup.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcButtonGroup.pas' rev: 5.00
  7. #ifndef fcButtonGroupHPP
  8. #define fcButtonGroupHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp> // Pascal unit
  14. #include <fcCollection.hpp> // Pascal unit
  15. #include <fcImgBtn.hpp> // Pascal unit
  16. #include <fcShapeBtn.hpp> // Pascal unit
  17. #include <fcCommon.hpp> // Pascal unit
  18. #include <fcClearPanel.hpp> // Pascal unit
  19. #include <fcButton.hpp> // Pascal unit
  20. #include <fcChangeLink.hpp> // Pascal unit
  21. #include <Math.hpp> // Pascal unit
  22. #include <ExtCtrls.hpp> // Pascal unit
  23. #include <StdCtrls.hpp> // Pascal unit
  24. #include <Dialogs.hpp> // Pascal unit
  25. #include <Forms.hpp> // Pascal unit
  26. #include <Controls.hpp> // Pascal unit
  27. #include <Graphics.hpp> // Pascal unit
  28. #include <TypInfo.hpp> // Pascal unit
  29. #include <Classes.hpp> // Pascal unit
  30. #include <SysUtils.hpp> // Pascal unit
  31. #include <Messages.hpp> // Pascal unit
  32. #include <Windows.hpp> // Pascal unit
  33. #include <SysInit.hpp> // Pascal unit
  34. #include <System.hpp> // Pascal unit
  36. //-- user supplied -----------------------------------------------------------
  38. namespace Fcbuttongroup
  39. {
  40. //-- type declarations -------------------------------------------------------
  41. typedef TMetaClass*TfcButtonGroupItemClass;
  43. typedef TMetaClass*TfcButtonGroupItemsClass;
  45. class DELPHICLASS TfcButtonGroupItem;
  46. class DELPHICLASS TfcCustomButtonGroup;
  47. class PASCALIMPLEMENTATION TfcButtonGroupItem : public Fccollection::TfcCollectionItem 
  48. {
  49. typedef Fccollection::TfcCollectionItem inherited;
  51. private:
  52. Fcbutton::TfcCustomBitBtn* FButton;
  53. virtual TfcCustomButtonGroup* __fastcall GetButtonGroup(void);
  54. virtual int __fastcall GetGroupIndex(void);
  55. virtual bool __fastcall GetSelected(void);
  56. virtual void __fastcall SetGroupIndex(int Value);
  57. virtual void __fastcall SetSelected(bool Value);
  59. protected:
  60. virtual AnsiString __fastcall GetDisplayName();
  61. virtual void __fastcall Loaded(void);
  62. virtual void __fastcall SetIndex(int Value);
  64. public:
  65. __fastcall virtual TfcButtonGroupItem(Classes::TCollection* Collection);
  66. __fastcall virtual ~TfcButtonGroupItem(void);
  67. virtual Classes::TPersistent* __fastcall GetInstance(const AnsiString PropertyName);
  68. __property Fcbutton::TfcCustomBitBtn* Button = {read=FButton};
  69. __property TfcCustomButtonGroup* ButtonGroup = {read=GetButtonGroup};
  70. __property int GroupIndex = {read=GetGroupIndex, write=SetGroupIndex, nodefault};
  71. __property bool Selected = {read=GetSelected, write=SetSelected, nodefault};
  72. };
  75. class DELPHICLASS TfcButtonGroupItems;
  76. class PASCALIMPLEMENTATION TfcButtonGroupItems : public Fccollection::TfcCollection 
  77. {
  78. typedef Fccollection::TfcCollection inherited;
  80. private:
  81. TfcCustomButtonGroup* FButtonGroup;
  83. protected:
  84. DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  85. virtual void __fastcall Update(Classes::TCollectionItem* Item);
  86. virtual TfcCustomButtonGroup* __fastcall GetButtonGroup(void);
  87. HIDESBASE TfcButtonGroupItem* __fastcall GetItems(int Index);
  88. int __fastcall GetVisibleCount(void);
  89. TfcButtonGroupItem* __fastcall GetVisibleItems(int Index);
  91. public:
  92. bool ArrangingControls;
  93. bool AddingControls;
  94. bool DeletingControl;
  95. __fastcall virtual TfcButtonGroupItems(TfcCustomButtonGroup* AButtonGroup, TMetaClass* ACollectionItemClass);
  96. HIDESBASE TfcButtonGroupItem* __fastcall Add(void);
  97. virtual Fccollection::TfcCollectionItem* __fastcall AddItem(void);
  98. virtual void __fastcall ArrangeControls(void);
  99. virtual TfcButtonGroupItem* __fastcall FindButton(Fcbutton::TfcCustomBitBtn* AButton);
  100. virtual TfcButtonGroupItem* __fastcall FindPointerTag(void * APointerTag);
  101. HIDESBASE virtual void __fastcall Clear(void);
  102. __property TfcCustomButtonGroup* ButtonGroup = {read=GetButtonGroup};
  103. __property TfcButtonGroupItem* Items[int Index] = {read=GetItems/*, default*/};
  104. __property int VisibleCount = {read=GetVisibleCount, nodefault};
  105. __property TfcButtonGroupItem* VisibleItems[int Index] = {read=GetVisibleItems};
  106. public:
  107. #pragma option push -w-inl
  108. /* TfcCollection.Destroy */ inline __fastcall virtual ~TfcButtonGroupItems(void) { }
  109. #pragma option pop
  111. };
  114. typedef void __fastcall (__closure *TfcButtonGroupChangeEvent)(TfcCustomButtonGroup* ButtonGroup, TfcButtonGroupItem* OldSelected, TfcButtonGroupItem* Selected);
  116. #pragma option push -b-
  117. enum TfcButtonGroupClickStyle { bcsCheckList, bcsRadioGroup, bcsClick };
  118. #pragma option pop
  120. class PASCALIMPLEMENTATION TfcCustomButtonGroup : public Fcclearpanel::TfcCustomTransparentPanel 
  121. {
  122. typedef Fcclearpanel::TfcCustomTransparentPanel inherited;
  124. private:
  125. bool FAutoBold;
  126. TfcButtonGroupClickStyle FClickStyle;
  127. int FControlSpacing;
  128. int FColumns;
  129. Fccommon::TfcLayout FLayout;
  130. int FMaxControlSize;
  131. TfcButtonGroupItem* FOldSelected;
  132. TfcButtonGroupChangeEvent FOnChange;
  133. TfcButtonGroupChangeEvent FOnChanging;
  134. TMetaClass*FButtonClass;
  135. #pragma pack(push, 1)
  136. Types::TRect FLastButtonRect;
  137. #pragma pack(pop)
  139. Fcchangelink::TfcChangeLink* FChangeLink;
  140. bool FShowDownAsUp;
  141. bool FDisableThemes;
  142. Fcbutton::TfcCustomBitBtn* __fastcall GetButton(AnsiString Name);
  143. virtual TfcButtonGroupItem* __fastcall GetSelected(void);
  144. void __fastcall SetAutoBold(bool Value);
  145. void __fastcall SetClickStyle(TfcButtonGroupClickStyle Value);
  146. void __fastcall SetControlSpacing(int Value);
  147. void __fastcall SetColumns(int Value);
  148. void __fastcall SetItems(TfcButtonGroupItems* Value);
  149. void __fastcall SetLastButtonRect(const Types::TRect &Value);
  150. void __fastcall SetLayout(Fccommon::TfcLayout Value);
  151. void __fastcall SetSelected(TfcButtonGroupItem* Value);
  152. HIDESBASE MESSAGE void __fastcall CMBorderChanged(Messages::TMessage &Message);
  153. MESSAGE void __fastcall CMControlChange(Controls::TCMControlChange &Message);
  154. HIDESBASE MESSAGE void __fastcall CMControlListChange(Controls::TCMControlListChange &Message);
  155. MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  156. void __fastcall SetShowDownAsUp(bool Value);
  158. protected:
  159. bool SuspendNotification;
  160. TfcButtonGroupItems* FItems;
  161. virtual TMetaClass* __fastcall GetCollectionClass(void);
  162. virtual tagSIZE __fastcall ResizeToControl(Controls::TControl* Control, bool DoResize);
  163. virtual void __fastcall ButtonPressed(System::TObject* Sender);
  164. virtual void __fastcall ButtonPressing(System::TObject* Sender);
  165. virtual void __fastcall MouseMoveInLoop(System::TObject* Sender);
  166. virtual void __fastcall DoChanging(TfcButtonGroupItem* OldSelected, TfcButtonGroupItem* Selected);
  167. virtual void __fastcall DoChange(TfcButtonGroupItem* OldSelected, TfcButtonGroupItem* Selected);
  168. DYNAMIC Classes::TComponent* __fastcall GetChildOwner(void);
  169. virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
  170. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  171. virtual void __fastcall Loaded(void);
  172. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  173. virtual void __fastcall Paint(void);
  174. DYNAMIC void __fastcall Resize(void);
  175. virtual void __fastcall WriteState(Classes::TWriter* Writer);
  176. virtual void __fastcall SetName(const AnsiString NewName);
  177. virtual AnsiString __fastcall GetButtonClassName();
  178. virtual void __fastcall SetButtonClass(TMetaClass* Value);
  179. virtual void __fastcall SetButtonClassName(AnsiString Value);
  180. virtual void __fastcall SetMaxControlSize(int Value);
  181. virtual void __fastcall UpdateBold(bool AAutoBold);
  182. virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  183. virtual bool __fastcall IsTransparent(void);
  184. virtual void __fastcall WndProc(Messages::TMessage &Message);
  185. __property TMetaClass* ButtonClass = {read=FButtonClass, write=SetButtonClass};
  186. __property TfcButtonGroupItem* OldSelected = {read=FOldSelected};
  188. public:
  189. Variant ButtonGroupPatch;
  190. __fastcall virtual TfcCustomButtonGroup(Classes::TComponent* Owner);
  191. __fastcall virtual ~TfcCustomButtonGroup(void);
  192. __property bool AutoBold = {read=FAutoBold, write=SetAutoBold, nodefault};
  193. __property Fcbutton::TfcCustomBitBtn* Buttons[AnsiString Name] = {read=GetButton};
  194. __property TfcButtonGroupClickStyle ClickStyle = {read=FClickStyle, write=SetClickStyle, nodefault};
  195. __property int ControlSpacing = {read=FControlSpacing, write=SetControlSpacing, nodefault};
  196. __property int Columns = {read=FColumns, write=SetColumns, nodefault};
  197. __property TfcButtonGroupItems* ButtonItems = {read=FItems, write=SetItems, stored=false};
  198. __property Fccommon::TfcLayout Layout = {read=FLayout, write=SetLayout, nodefault};
  199. __property int MaxControlSize = {read=FMaxControlSize, write=SetMaxControlSize, nodefault};
  200. __property bool ShowDownAsUp = {read=FShowDownAsUp, write=SetShowDownAsUp, default=0};
  201. __property TfcButtonGroupItem* Selected = {read=GetSelected, write=SetSelected};
  202. __property TfcButtonGroupChangeEvent OnChange = {read=FOnChange, write=FOnChange};
  203. __property TfcButtonGroupChangeEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  204. __property AnsiString ButtonClassName = {read=GetButtonClassName, write=SetButtonClassName};
  205. __property Types::TRect LastButtonRect = {write=SetLastButtonRect};
  206. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  207. public:
  208. #pragma option push -w-inl
  209. /* TWinControl.CreateParented */ inline __fastcall TfcCustomButtonGroup(HWND ParentWindow) : Fcclearpanel::TfcCustomTransparentPanel(ParentWindow) { }
  210. #pragma option pop
  212. };
  215. class DELPHICLASS TfcButtonGroup;
  216. class PASCALIMPLEMENTATION TfcButtonGroup : public TfcCustomButtonGroup 
  217. {
  218. typedef TfcCustomButtonGroup inherited;
  220. __published:
  221. __property DisableThemes ;
  222. __property Anchors ;
  223. __property Constraints ;
  224. __property Align ;
  225. __property AutoBold ;
  226. __property BevelInner ;
  227. __property BevelOuter ;
  228. __property BorderStyle ;
  229. __property BorderWidth ;
  230. __property ButtonClassName ;
  231. __property ClickStyle ;
  232. __property ControlSpacing ;
  233. __property Columns ;
  234. __property Color ;
  235. __property Font ;
  236. __property ParentFont ;
  237. __property ButtonItems ;
  238. __property Layout ;
  239. __property MaxControlSize ;
  240. __property PopupMenu ;
  241. __property ShowDownAsUp ;
  242. __property TabOrder ;
  243. __property TabStop ;
  244. __property Transparent ;
  245. __property Visible ;
  246. __property OnChange ;
  247. __property OnChanging ;
  248. __property OnClick ;
  249. __property OnEnter ;
  250. __property OnExit ;
  251. __property OnKeyDown ;
  252. __property OnKeyUp ;
  253. __property OnKeyPress ;
  254. __property OnMouseDown ;
  255. __property OnMouseMove ;
  256. __property OnMouseUp ;
  257. __property OnResize ;
  258. public:
  259. #pragma option push -w-inl
  260. /* TfcCustomButtonGroup.Create */ inline __fastcall virtual TfcButtonGroup(Classes::TComponent* Owner) : TfcCustomButtonGroup(Owner) { }
  261. #pragma option pop
  262. #pragma option push -w-inl
  263. /* TfcCustomButtonGroup.Destroy */ inline __fastcall virtual ~TfcButtonGroup(void) { }
  264. #pragma option pop
  266. public:
  267. #pragma option push -w-inl
  268. /* TWinControl.CreateParented */ inline __fastcall TfcButtonGroup(HWND ParentWindow) : TfcCustomButtonGroup(ParentWindow) { }
  269. #pragma option pop
  271. };
  274. //-- var, const, procedure ---------------------------------------------------
  276. } /* namespace Fcbuttongroup */
  277. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  278. using namespace Fcbuttongroup;
  279. #endif
  280. #pragma option pop // -w-
  281. #pragma option pop // -Vx
  283. #pragma delphiheader end.
  284. //-- end unit ----------------------------------------------------------------
  285. #endif // fcButtonGroup