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

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

Delphi控件源码

开发平台：

Delphi

fcStatusBar.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 2002 by Borland Software Corporation
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcStatusBar.pas' rev: 6.00
  7. #ifndef fcStatusBarHPP
  8. #define fcStatusBarHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ImgList.hpp> // Pascal unit
  14. #include <ComCtrls.hpp> // Pascal unit
  15. #include <fctext.hpp> // Pascal unit
  16. #include <fcCommon.hpp> // Pascal unit
  17. #include <fcCollection.hpp> // Pascal unit
  18. #include <StdCtrls.hpp> // Pascal unit
  19. #include <RichEdit.hpp> // Pascal unit
  20. #include <Menus.hpp> // Pascal unit
  21. #include <CommCtrl.hpp> // Pascal unit
  22. #include <Dialogs.hpp> // Pascal unit
  23. #include <Forms.hpp> // Pascal unit
  24. #include <Controls.hpp> // Pascal unit
  25. #include <Graphics.hpp> // Pascal unit
  26. #include <Classes.hpp> // Pascal unit
  27. #include <SysUtils.hpp> // Pascal unit
  28. #include <Messages.hpp> // Pascal unit
  29. #include <Windows.hpp> // Pascal unit
  30. #include <SysInit.hpp> // Pascal unit
  31. #include <System.hpp> // Pascal unit
  33. //-- user supplied -----------------------------------------------------------
  35. namespace Fcstatusbar
  36. {
  37. //-- type declarations -------------------------------------------------------
  38. class DELPHICLASS TfcStatusBarText;
  39. class DELPHICLASS TfcCustomStatusBar;
  40. class DELPHICLASS TfcStatusPanels;
  41. class DELPHICLASS TfcStatusPanel;
  42. #pragma option push -b-
  43. enum TfcStatusPanelStyle { psTextOnly, psControl, psOverWrite, psCapsLock, psNumLock, psDateTime, psDate, psTime, psGlyph, psRichEditStatus, psHint, psUserName, psComputerName, psScrollLock, psHintContainerOnly };
  44. #pragma option pop
  46. typedef TMetaClass* TfcStatusPanelClass;
  48. class PASCALIMPLEMENTATION TfcStatusPanels : public Fccollection::TfcCollection 
  49. {
  50. typedef Fccollection::TfcCollection inherited;
  52. public:
  53. TfcStatusPanel* operator[](int Index) { return Items[Index]; }
  55. private:
  56. TfcCustomStatusBar* FStatusBar;
  57. HIDESBASE TfcStatusPanel* __fastcall GetItem(int Index);
  58. HIDESBASE void __fastcall SetItem(int Index, TfcStatusPanel* Value);
  60. protected:
  61. virtual void __fastcall RedrawIfNeeded(TfcStatusPanelStyle StyleToCheck);
  62. DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  63. virtual void __fastcall Update(Classes::TCollectionItem* Item);
  64. __property TfcCustomStatusBar* StatusBar = {read=FStatusBar};
  66. public:
  67. __fastcall TfcStatusPanels(TfcCustomStatusBar* StatusBar, TMetaClass* AStatusPanelClass);
  68. HIDESBASE TfcStatusPanel* __fastcall Add(void);
  69. TfcStatusPanel* __fastcall PanelByName(AnsiString AName);
  70. __property TfcStatusPanel* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  71. public:
  72. #pragma option push -w-inl
  73. /* TfcCollection.Destroy */ inline __fastcall virtual ~TfcStatusPanels(void) { }
  74. #pragma option pop
  76. };
  79. typedef void __fastcall (__closure *TDrawKeyboardStateEvent)(TfcCustomStatusBar* StatusBar, TfcStatusPanel* StatusPanel, bool KeyIsOn, const Types::TRect &Rect, AnsiString &AText);
  81. typedef void __fastcall (__closure *TDrawPanelEvent)(TfcCustomStatusBar* StatusBar, TfcStatusPanel* Panel, const Types::TRect &Rect);
  83. typedef TMetaClass* TfcStatusPanelsClass;
  85. class PASCALIMPLEMENTATION TfcCustomStatusBar : public Controls::TWinControl 
  86. {
  87. typedef Controls::TWinControl inherited;
  89. private:
  90. Graphics::TCanvas* FCanvas;
  91. #pragma pack(push, 1)
  92. tagSIZE FLastSize;
  93. #pragma pack(pop)
  95. Imglist::TCustomImageList* FImageList;
  96. TfcStatusPanels* FPanels;
  97. bool FSimplePanel;
  98. AnsiString FSimpleText;
  99. bool FSizeGrip;
  100. bool FSizing;
  101. TDrawKeyboardStateEvent FOnDrawKeyboardState;
  102. TDrawPanelEvent FOnDrawPanel;
  103. TfcStatusBarText* FStatusBarText;
  104. bool FDisableThemes;
  105. void __fastcall SetPanels(TfcStatusPanels* Value);
  106. void __fastcall SetSimplePanel(bool Value);
  107. void __fastcall SetSimpleText(const AnsiString Value);
  108. void __fastcall SetSizeGrip(bool Value);
  109. bool __fastcall GetSizeGrip(void);
  110. HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
  111. MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  112. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  113. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  114. MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
  116. protected:
  117. virtual TMetaClass* __fastcall GetCollectionClass(void);
  118. DYNAMIC void __fastcall DrawPanel(TfcStatusPanel* Panel, const Types::TRect &Rect);
  119. DYNAMIC void __fastcall Resize(void);
  120. void __fastcall UpdatePanel(int Index, bool DoInvalidate);
  121. virtual void __fastcall UpdatePanels(void);
  122. DYNAMIC void __fastcall Click(void);
  123. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  124. virtual void __fastcall CreateWnd(void);
  125. DYNAMIC void __fastcall DblClick(void);
  126. virtual void __fastcall DestroyWnd(void);
  127. virtual void __fastcall Loaded(void);
  128. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  129. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  130. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  131. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  132. virtual void __fastcall WndProc(Messages::TMessage &Message);
  133. __property Graphics::TCanvas* Canvas = {read=FCanvas};
  135. public:
  136. Variant Patch;
  137. __fastcall virtual TfcCustomStatusBar(Classes::TComponent* AOwner);
  138. __fastcall virtual ~TfcCustomStatusBar(void);
  139. virtual void __fastcall Invalidate(void);
  140. virtual TfcStatusPanel* __fastcall GetPanelFromPt(int x, int y);
  141. void __fastcall ComponentExclusive(Classes::TComponent* Value, TfcStatusPanel* Panel, bool ThisStatusBarOnly);
  142. __property Imglist::TCustomImageList* Images = {read=FImageList, write=FImageList};
  143. __property TfcStatusPanels* Panels = {read=FPanels, write=SetPanels};
  144. __property bool SimplePanel = {read=FSimplePanel, write=SetSimplePanel, nodefault};
  145. __property AnsiString SimpleText = {read=FSimpleText, write=SetSimpleText};
  146. __property bool SizeGrip = {read=GetSizeGrip, write=SetSizeGrip, default=1};
  147. __property TDrawKeyboardStateEvent OnDrawKeyboardState = {read=FOnDrawKeyboardState, write=FOnDrawKeyboardState};
  148. __property TDrawPanelEvent OnDrawPanel = {read=FOnDrawPanel, write=FOnDrawPanel};
  149. __property TfcStatusBarText* StatusBarText = {read=FStatusBarText, write=FStatusBarText};
  150. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  151. public:
  152. #pragma option push -w-inl
  153. /* TWinControl.CreateParented */ inline __fastcall TfcCustomStatusBar(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
  154. #pragma option pop
  156. };
  159. class PASCALIMPLEMENTATION TfcStatusBarText : public Classes::TPersistent 
  160. {
  161. typedef Classes::TPersistent inherited;
  163. private:
  164. TfcCustomStatusBar* FOwner;
  165. AnsiString FCapsLock;
  166. AnsiString FOverwrite;
  167. AnsiString FNumLock;
  168. AnsiString FScrollLock;
  169. void __fastcall SetCapsLock(AnsiString Value);
  170. void __fastcall SetOverwrite(AnsiString Value);
  171. void __fastcall SetNumLock(AnsiString Value);
  172. void __fastcall SetScrollLock(AnsiString Value);
  174. public:
  175. __fastcall TfcStatusBarText(TfcCustomStatusBar* AOwner);
  177. __published:
  178. __property AnsiString CapsLock = {read=FCapsLock, write=SetCapsLock};
  179. __property AnsiString Overwrite = {read=FOverwrite, write=SetOverwrite};
  180. __property AnsiString NumLock = {read=FNumLock, write=SetNumLock};
  181. __property AnsiString ScrollLock = {read=FScrollLock, write=SetScrollLock};
  182. public:
  183. #pragma option push -w-inl
  184. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcStatusBarText(void) { }
  185. #pragma option pop
  187. };
  190. typedef TMetaClass* TfcCustomStatusBarClass;
  192. #pragma option push -b-
  193. enum TfcStatusPanelBevel { pbNone, pbLowered, pbRaised };
  194. #pragma option pop
  196. typedef void __fastcall (__closure *TfcPanelTextChangedEvent)(System::TObject* Sender, const AnsiString Text);
  198. typedef void __fastcall (__closure *TfcDrawTextEvent)(TfcStatusPanel* Panel, AnsiString &Text, bool &Enabled);
  200. class PASCALIMPLEMENTATION TfcStatusPanel : public Fccollection::TfcCollectionItem 
  201. {
  202. typedef Fccollection::TfcCollectionItem inherited;
  204. private:
  205. Graphics::TCanvas* FCanvas;
  206. int FCol;
  207. int FRow;
  208. TfcStatusPanelBevel FBevel;
  209. Graphics::TColor FColor;
  210. Classes::TComponent* FComponent;
  211. bool FEnabled;
  212. bool FDrawTextEnabled;
  213. bool FInDrawText;
  214. Graphics::TFont* FFont;
  215. AnsiString FHint;
  216. int FImageIndex;
  217. int FIndent;
  218. int FMargin;
  219. AnsiString FName;
  220. int FPaintWidth;
  221. Menus::TPopupMenu* FPopupMenu;
  222. TfcStatusPanelStyle FStyle;
  223. AnsiString FText;
  224. System::TDateTime FCurDateTime;
  225. Fctext::TfcCaptionText* FTextOptions;
  226. AnsiString FWidth;
  227. Classes::TNotifyEvent FOnClick;
  228. Classes::TNotifyEvent FOnDblClick;
  229. TfcDrawTextEvent FOnDrawText;
  230. Controls::TMouseEvent FOnMouseDown;
  231. Controls::TMouseMoveEvent FOnMouseMove;
  232. Controls::TMouseEvent FOnMouseUp;
  233. Classes::TNotifyEvent FOnSetName;
  234. TfcPanelTextChangedEvent FOnTextChanged;
  235. #pragma pack(push, 1)
  236. Types::TRect FRect;
  237. #pragma pack(pop)
  239. Controls::TControl* __fastcall GetControl(void);
  240. void __fastcall SetBevel(TfcStatusPanelBevel Value);
  241. void __fastcall SetColor(Graphics::TColor Value);
  242. void __fastcall SetComponent(Classes::TComponent* Value);
  243. void __fastcall SetEnabled(bool Value);
  244. void __fastcall SetFont(Graphics::TFont* Value);
  245. void __fastcall SetHint(AnsiString Value);
  246. void __fastcall SetImageIndex(int Value);
  247. void __fastcall SetIndent(int Value);
  248. void __fastcall SetMargin(int Value);
  249. void __fastcall SetName(const AnsiString Value);
  250. void __fastcall SetStyle(TfcStatusPanelStyle Value);
  251. void __fastcall SetText(const AnsiString Value);
  252. void __fastcall SetWidth(AnsiString Value);
  254. protected:
  255. virtual AnsiString __fastcall GenerateName();
  256. virtual AnsiString __fastcall GetDisplayName();
  257. virtual TfcCustomStatusBar* __fastcall GetStatusBar(void);
  258. virtual bool __fastcall StoreWidth(void);
  259. virtual void __fastcall FontChanged(System::TObject* Sender);
  260. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  261. virtual bool __fastcall GetTextEnabled(void);
  262. virtual void __fastcall AdjustBounds(void);
  263. virtual bool __fastcall DoDrawDateTime(void);
  264. virtual void __fastcall Draw(Graphics::TCanvas* ACanvas, const Types::TRect &ARect);
  265. virtual void __fastcall DrawControl(void);
  266. virtual void __fastcall DrawGlyph(void);
  267. virtual void __fastcall DrawKeyboardState(void);
  268. virtual void __fastcall DrawHint(void);
  269. virtual void __fastcall DrawUserName(void);
  270. virtual void __fastcall DrawComputerName(void);
  271. virtual void __fastcall DrawRichEditStatus(void);
  272. virtual void __fastcall DrawText(AnsiString AText, const Types::TRect &ARect, bool AEnabled);
  273. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  274. DYNAMIC void __fastcall Click(void);
  275. DYNAMIC void __fastcall DblClick(void);
  276. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  277. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  278. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  279. DYNAMIC void __fastcall PanelTextChanged(const AnsiString Text);
  280. __property Graphics::TCanvas* Canvas = {read=FCanvas};
  281. __property bool DrawTextEnabled = {read=FDrawTextEnabled, write=FDrawTextEnabled, nodefault};
  283. public:
  284. Variant Patch;
  285. __fastcall virtual TfcStatusPanel(Classes::TCollection* Collection);
  286. __fastcall virtual ~TfcStatusPanel(void);
  287. virtual Types::TPoint __fastcall ClientToScreen(const Types::TPoint &p);
  288. virtual Types::TRect __fastcall GetRect();
  289. virtual void __fastcall Invalidate(void);
  290. __property int Col = {read=FCol, nodefault};
  291. __property Controls::TControl* Control = {read=GetControl};
  292. __property int PaintWidth = {read=FPaintWidth, write=FPaintWidth, nodefault};
  293. __property int Row = {read=FRow, nodefault};
  294. __property TfcCustomStatusBar* StatusBar = {read=GetStatusBar};
  295. __property Classes::TNotifyEvent OnSetName = {read=FOnSetName, write=FOnSetName};
  297. __published:
  298. __property TfcStatusPanelBevel Bevel = {read=FBevel, write=SetBevel, default=1};
  299. __property Graphics::TColor Color = {read=FColor, write=SetColor, default=-16777201};
  300. __property Classes::TComponent* Component = {read=FComponent, write=SetComponent};
  301. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
  302. __property Graphics::TFont* Font = {read=FFont, write=SetFont};
  303. __property AnsiString Hint = {read=FHint, write=SetHint};
  304. __property int ImageIndex = {read=FImageIndex, write=SetImageIndex, default=0};
  305. __property int Indent = {read=FIndent, write=SetIndent, default=0};
  306. __property int Margin = {read=FMargin, write=SetMargin, default=0};
  307. __property AnsiString Name = {read=FName, write=SetName};
  308. __property Menus::TPopupMenu* PopupMenu = {read=FPopupMenu, write=FPopupMenu};
  309. __property TfcStatusPanelStyle Style = {read=FStyle, write=SetStyle, default=0};
  310. __property Tag ;
  311. __property AnsiString Text = {read=FText, write=SetText};
  312. __property Fctext::TfcCaptionText* TextOptions = {read=FTextOptions, write=FTextOptions};
  313. __property AnsiString Width = {read=FWidth, write=SetWidth, stored=StoreWidth};
  314. __property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
  315. __property Classes::TNotifyEvent OnDblClick = {read=FOnDblClick, write=FOnDblClick};
  316. __property TfcDrawTextEvent OnDrawText = {read=FOnDrawText, write=FOnDrawText};
  317. __property Controls::TMouseEvent OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};
  318. __property Controls::TMouseMoveEvent OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
  319. __property Controls::TMouseEvent OnMouseUp = {read=FOnMouseUp, write=FOnMouseUp};
  320. __property TfcPanelTextChangedEvent OnTextChanged = {read=FOnTextChanged, write=FOnTextChanged};
  321. };
  324. class DELPHICLASS TfcStatusBar;
  325. class PASCALIMPLEMENTATION TfcStatusBar : public TfcCustomStatusBar 
  326. {
  327. typedef TfcCustomStatusBar inherited;
  329. __published:
  330. __property DisableThemes  = {default=0};
  331. __property Anchors  = {default=3};
  332. __property Constraints ;
  333. __property Align  = {default=2};
  334. __property DragCursor  = {default=-12};
  335. __property DragMode  = {default=0};
  336. __property Enabled  = {default=1};
  337. __property Font ;
  338. __property Images ;
  339. __property Panels ;
  340. __property ParentFont  = {default=1};
  341. __property ParentShowHint  = {default=1};
  342. __property PopupMenu ;
  343. __property ShowHint ;
  344. __property SimplePanel ;
  345. __property SimpleText ;
  346. __property SizeGrip  = {default=1};
  347. __property StatusBarText ;
  348. __property Visible  = {default=1};
  349. __property OnClick ;
  350. __property OnDblClick ;
  351. __property OnDragDrop ;
  352. __property OnDragOver ;
  353. __property OnEndDrag ;
  354. __property OnMouseDown ;
  355. __property OnMouseMove ;
  356. __property OnMouseUp ;
  357. __property OnDrawKeyboardState ;
  358. __property OnDrawPanel ;
  359. __property OnResize ;
  360. __property OnStartDrag ;
  361. public:
  362. #pragma option push -w-inl
  363. /* TfcCustomStatusBar.Create */ inline __fastcall virtual TfcStatusBar(Classes::TComponent* AOwner) : TfcCustomStatusBar(AOwner) { }
  364. #pragma option pop
  365. #pragma option push -w-inl
  366. /* TfcCustomStatusBar.Destroy */ inline __fastcall virtual ~TfcStatusBar(void) { }
  367. #pragma option pop
  369. public:
  370. #pragma option push -w-inl
  371. /* TWinControl.CreateParented */ inline __fastcall TfcStatusBar(HWND ParentWindow) : TfcCustomStatusBar(ParentWindow) { }
  372. #pragma option pop
  374. };
  377. //-- var, const, procedure ---------------------------------------------------
  378. #pragma error Unsupported symbol type (23, fcStatusBar)
  379. static const Byte TIMER_ID = 0xc8;
  380. static const Word HINT_TIMER_ID = 0x12c;
  381. static const Word RICHEDIT_TIMER_ID = 0x190;
  383. } /* namespace Fcstatusbar */
  384. using namespace Fcstatusbar;
  385. #pragma option pop // -w-
  386. #pragma option pop // -Vx
  388. #pragma delphiheader end.
  389. //-- end unit ----------------------------------------------------------------
  390. #endif // fcStatusBar