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

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

Delphi控件源码

开发平台：

Delphi

fcStatusBar.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcStatusBar.pas' rev: 5.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. private:
  53. TfcCustomStatusBar* FStatusBar;
  54. HIDESBASE TfcStatusPanel* __fastcall GetItem(int Index);
  55. HIDESBASE void __fastcall SetItem(int Index, TfcStatusPanel* Value);
  57. protected:
  58. virtual void __fastcall RedrawIfNeeded(TfcStatusPanelStyle StyleToCheck);
  59. DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  60. virtual void __fastcall Update(Classes::TCollectionItem* Item);
  61. __property TfcCustomStatusBar* StatusBar = {read=FStatusBar};
  63. public:
  64. __fastcall TfcStatusPanels(TfcCustomStatusBar* StatusBar, TMetaClass* AStatusPanelClass);
  65. HIDESBASE TfcStatusPanel* __fastcall Add(void);
  66. TfcStatusPanel* __fastcall PanelByName(AnsiString AName);
  67. __property TfcStatusPanel* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  68. public:
  69. #pragma option push -w-inl
  70. /* TfcCollection.Destroy */ inline __fastcall virtual ~TfcStatusPanels(void) { }
  71. #pragma option pop
  73. };
  76. typedef void __fastcall (__closure *TDrawKeyboardStateEvent)(TfcCustomStatusBar* StatusBar, TfcStatusPanel* StatusPanel, bool KeyIsOn, const Types::TRect &Rect, AnsiString &AText);
  78. typedef void __fastcall (__closure *TDrawPanelEvent)(TfcCustomStatusBar* StatusBar, TfcStatusPanel* Panel, const Types::TRect &Rect);
  80. typedef TMetaClass*TfcStatusPanelsClass;
  82. class PASCALIMPLEMENTATION TfcCustomStatusBar : public Controls::TWinControl 
  83. {
  84. typedef Controls::TWinControl inherited;
  86. private:
  87. Graphics::TCanvas* FCanvas;
  88. #pragma pack(push, 1)
  89. tagSIZE FLastSize;
  90. #pragma pack(pop)
  92. Imglist::TCustomImageList* FImageList;
  93. TfcStatusPanels* FPanels;
  94. bool FSimplePanel;
  95. AnsiString FSimpleText;
  96. bool FSizeGrip;
  97. bool FSizing;
  98. TDrawKeyboardStateEvent FOnDrawKeyboardState;
  99. TDrawPanelEvent FOnDrawPanel;
  100. TfcStatusBarText* FStatusBarText;
  101. bool FDisableThemes;
  102. void __fastcall SetPanels(TfcStatusPanels* Value);
  103. void __fastcall SetSimplePanel(bool Value);
  104. void __fastcall SetSimpleText(const AnsiString Value);
  105. void __fastcall SetSizeGrip(bool Value);
  106. bool __fastcall GetSizeGrip(void);
  107. HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
  108. MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  109. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  110. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  111. MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
  113. protected:
  114. virtual TMetaClass* __fastcall GetCollectionClass(void);
  115. DYNAMIC void __fastcall DrawPanel(TfcStatusPanel* Panel, const Types::TRect &Rect);
  116. DYNAMIC void __fastcall Resize(void);
  117. void __fastcall UpdatePanel(int Index, bool DoInvalidate);
  118. virtual void __fastcall UpdatePanels(void);
  119. DYNAMIC void __fastcall Click(void);
  120. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  121. virtual void __fastcall CreateWnd(void);
  122. DYNAMIC void __fastcall DblClick(void);
  123. virtual void __fastcall DestroyWnd(void);
  124. virtual void __fastcall Loaded(void);
  125. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  126. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  127. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  128. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  129. virtual void __fastcall WndProc(Messages::TMessage &Message);
  130. __property Graphics::TCanvas* Canvas = {read=FCanvas};
  132. public:
  133. Variant Patch;
  134. __fastcall virtual TfcCustomStatusBar(Classes::TComponent* AOwner);
  135. __fastcall virtual ~TfcCustomStatusBar(void);
  136. virtual void __fastcall Invalidate(void);
  137. virtual TfcStatusPanel* __fastcall GetPanelFromPt(int x, int y);
  138. void __fastcall ComponentExclusive(Classes::TComponent* Value, TfcStatusPanel* Panel, bool ThisStatusBarOnly);
  139. __property Imglist::TCustomImageList* Images = {read=FImageList, write=FImageList};
  140. __property TfcStatusPanels* Panels = {read=FPanels, write=SetPanels};
  141. __property bool SimplePanel = {read=FSimplePanel, write=SetSimplePanel, nodefault};
  142. __property AnsiString SimpleText = {read=FSimpleText, write=SetSimpleText};
  143. __property bool SizeGrip = {read=GetSizeGrip, write=SetSizeGrip, default=1};
  144. __property TDrawKeyboardStateEvent OnDrawKeyboardState = {read=FOnDrawKeyboardState, write=FOnDrawKeyboardState};
  145. __property TDrawPanelEvent OnDrawPanel = {read=FOnDrawPanel, write=FOnDrawPanel};
  146. __property TfcStatusBarText* StatusBarText = {read=FStatusBarText, write=FStatusBarText};
  147. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  148. public:
  149. #pragma option push -w-inl
  150. /* TWinControl.CreateParented */ inline __fastcall TfcCustomStatusBar(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
  151. #pragma option pop
  153. };
  156. class PASCALIMPLEMENTATION TfcStatusBarText : public Classes::TPersistent 
  157. {
  158. typedef Classes::TPersistent inherited;
  160. private:
  161. TfcCustomStatusBar* FOwner;
  162. AnsiString FCapsLock;
  163. AnsiString FOverwrite;
  164. AnsiString FNumLock;
  165. AnsiString FScrollLock;
  166. void __fastcall SetCapsLock(AnsiString Value);
  167. void __fastcall SetOverwrite(AnsiString Value);
  168. void __fastcall SetNumLock(AnsiString Value);
  169. void __fastcall SetScrollLock(AnsiString Value);
  171. public:
  172. __fastcall TfcStatusBarText(TfcCustomStatusBar* AOwner);
  174. __published:
  175. __property AnsiString CapsLock = {read=FCapsLock, write=SetCapsLock};
  176. __property AnsiString Overwrite = {read=FOverwrite, write=SetOverwrite};
  177. __property AnsiString NumLock = {read=FNumLock, write=SetNumLock};
  178. __property AnsiString ScrollLock = {read=FScrollLock, write=SetScrollLock};
  179. public:
  180. #pragma option push -w-inl
  181. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcStatusBarText(void) { }
  182. #pragma option pop
  184. };
  187. typedef TMetaClass*TfcCustomStatusBarClass;
  189. #pragma option push -b-
  190. enum TfcStatusPanelBevel { pbNone, pbLowered, pbRaised };
  191. #pragma option pop
  193. typedef void __fastcall (__closure *TfcPanelTextChangedEvent)(System::TObject* Sender, const AnsiString Text);
  195. typedef void __fastcall (__closure *TfcDrawTextEvent)(TfcStatusPanel* Panel, AnsiString &Text, bool &Enabled);
  197. class PASCALIMPLEMENTATION TfcStatusPanel : public Fccollection::TfcCollectionItem 
  198. {
  199. typedef Fccollection::TfcCollectionItem inherited;
  201. private:
  202. Graphics::TCanvas* FCanvas;
  203. int FCol;
  204. int FRow;
  205. TfcStatusPanelBevel FBevel;
  206. Graphics::TColor FColor;
  207. Classes::TComponent* FComponent;
  208. bool FEnabled;
  209. bool FDrawTextEnabled;
  210. bool FInDrawText;
  211. Graphics::TFont* FFont;
  212. AnsiString FHint;
  213. int FImageIndex;
  214. int FIndent;
  215. int FMargin;
  216. AnsiString FName;
  217. int FPaintWidth;
  218. Menus::TPopupMenu* FPopupMenu;
  219. TfcStatusPanelStyle FStyle;
  220. AnsiString FText;
  221. System::TDateTime FCurDateTime;
  222. Fctext::TfcCaptionText* FTextOptions;
  223. AnsiString FWidth;
  224. Classes::TNotifyEvent FOnClick;
  225. Classes::TNotifyEvent FOnDblClick;
  226. TfcDrawTextEvent FOnDrawText;
  227. Controls::TMouseEvent FOnMouseDown;
  228. Controls::TMouseMoveEvent FOnMouseMove;
  229. Controls::TMouseEvent FOnMouseUp;
  230. Classes::TNotifyEvent FOnSetName;
  231. TfcPanelTextChangedEvent FOnTextChanged;
  232. #pragma pack(push, 1)
  233. Types::TRect FRect;
  234. #pragma pack(pop)
  236. Controls::TControl* __fastcall GetControl(void);
  237. void __fastcall SetBevel(TfcStatusPanelBevel Value);
  238. void __fastcall SetColor(Graphics::TColor Value);
  239. void __fastcall SetComponent(Classes::TComponent* Value);
  240. void __fastcall SetEnabled(bool Value);
  241. void __fastcall SetFont(Graphics::TFont* Value);
  242. void __fastcall SetHint(AnsiString Value);
  243. void __fastcall SetImageIndex(int Value);
  244. void __fastcall SetIndent(int Value);
  245. void __fastcall SetMargin(int Value);
  246. void __fastcall SetName(const AnsiString Value);
  247. void __fastcall SetStyle(TfcStatusPanelStyle Value);
  248. void __fastcall SetText(const AnsiString Value);
  249. void __fastcall SetWidth(AnsiString Value);
  251. protected:
  252. virtual AnsiString __fastcall GenerateName();
  253. virtual AnsiString __fastcall GetDisplayName();
  254. virtual TfcCustomStatusBar* __fastcall GetStatusBar(void);
  255. virtual bool __fastcall StoreWidth(void);
  256. virtual void __fastcall FontChanged(System::TObject* Sender);
  257. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  258. virtual bool __fastcall GetTextEnabled(void);
  259. virtual void __fastcall AdjustBounds(void);
  260. virtual bool __fastcall DoDrawDateTime(void);
  261. virtual void __fastcall Draw(Graphics::TCanvas* ACanvas, const Types::TRect &ARect);
  262. virtual void __fastcall DrawControl(void);
  263. virtual void __fastcall DrawGlyph(void);
  264. virtual void __fastcall DrawKeyboardState(void);
  265. virtual void __fastcall DrawHint(void);
  266. virtual void __fastcall DrawUserName(void);
  267. virtual void __fastcall DrawComputerName(void);
  268. virtual void __fastcall DrawRichEditStatus(void);
  269. virtual void __fastcall DrawText(AnsiString AText, const Types::TRect &ARect, bool AEnabled);
  270. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  271. DYNAMIC void __fastcall Click(void);
  272. DYNAMIC void __fastcall DblClick(void);
  273. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  274. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  275. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  276. DYNAMIC void __fastcall PanelTextChanged(const AnsiString Text);
  277. __property Graphics::TCanvas* Canvas = {read=FCanvas};
  278. __property bool DrawTextEnabled = {read=FDrawTextEnabled, write=FDrawTextEnabled, nodefault};
  280. public:
  281. Variant Patch;
  282. __fastcall virtual TfcStatusPanel(Classes::TCollection* Collection);
  283. __fastcall virtual ~TfcStatusPanel(void);
  284. virtual Types::TPoint __fastcall ClientToScreen(const Types::TPoint &p);
  285. virtual Types::TRect __fastcall GetRect();
  286. virtual void __fastcall Invalidate(void);
  287. __property int Col = {read=FCol, nodefault};
  288. __property Controls::TControl* Control = {read=GetControl};
  289. __property int PaintWidth = {read=FPaintWidth, write=FPaintWidth, nodefault};
  290. __property int Row = {read=FRow, nodefault};
  291. __property TfcCustomStatusBar* StatusBar = {read=GetStatusBar};
  292. __property Classes::TNotifyEvent OnSetName = {read=FOnSetName, write=FOnSetName};
  294. __published:
  295. __property TfcStatusPanelBevel Bevel = {read=FBevel, write=SetBevel, default=1};
  296. __property Graphics::TColor Color = {read=FColor, write=SetColor, default=-2147483633};
  297. __property Classes::TComponent* Component = {read=FComponent, write=SetComponent};
  298. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
  299. __property Graphics::TFont* Font = {read=FFont, write=SetFont};
  300. __property AnsiString Hint = {read=FHint, write=SetHint};
  301. __property int ImageIndex = {read=FImageIndex, write=SetImageIndex, default=0};
  302. __property int Indent = {read=FIndent, write=SetIndent, default=0};
  303. __property int Margin = {read=FMargin, write=SetMargin, default=0};
  304. __property AnsiString Name = {read=FName, write=SetName};
  305. __property Menus::TPopupMenu* PopupMenu = {read=FPopupMenu, write=FPopupMenu};
  306. __property TfcStatusPanelStyle Style = {read=FStyle, write=SetStyle, default=0};
  307. __property Tag ;
  308. __property AnsiString Text = {read=FText, write=SetText};
  309. __property Fctext::TfcCaptionText* TextOptions = {read=FTextOptions, write=FTextOptions};
  310. __property AnsiString Width = {read=FWidth, write=SetWidth, stored=StoreWidth};
  311. __property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
  312. __property Classes::TNotifyEvent OnDblClick = {read=FOnDblClick, write=FOnDblClick};
  313. __property TfcDrawTextEvent OnDrawText = {read=FOnDrawText, write=FOnDrawText};
  314. __property Controls::TMouseEvent OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};
  315. __property Controls::TMouseMoveEvent OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
  316. __property Controls::TMouseEvent OnMouseUp = {read=FOnMouseUp, write=FOnMouseUp};
  317. __property TfcPanelTextChangedEvent OnTextChanged = {read=FOnTextChanged, write=FOnTextChanged};
  318. };
  321. class DELPHICLASS TfcStatusBar;
  322. class PASCALIMPLEMENTATION TfcStatusBar : public TfcCustomStatusBar 
  323. {
  324. typedef TfcCustomStatusBar inherited;
  326. __published:
  327. __property DisableThemes ;
  328. __property Anchors ;
  329. __property Constraints ;
  330. __property Align ;
  331. __property DragCursor ;
  332. __property DragMode ;
  333. __property Enabled ;
  334. __property Font ;
  335. __property Images ;
  336. __property Panels ;
  337. __property ParentFont ;
  338. __property ParentShowHint ;
  339. __property PopupMenu ;
  340. __property ShowHint ;
  341. __property SimplePanel ;
  342. __property SimpleText ;
  343. __property SizeGrip ;
  344. __property StatusBarText ;
  345. __property Visible ;
  346. __property OnClick ;
  347. __property OnDblClick ;
  348. __property OnDragDrop ;
  349. __property OnDragOver ;
  350. __property OnEndDrag ;
  351. __property OnMouseDown ;
  352. __property OnMouseMove ;
  353. __property OnMouseUp ;
  354. __property OnDrawKeyboardState ;
  355. __property OnDrawPanel ;
  356. __property OnResize ;
  357. __property OnStartDrag ;
  358. public:
  359. #pragma option push -w-inl
  360. /* TfcCustomStatusBar.Create */ inline __fastcall virtual TfcStatusBar(Classes::TComponent* AOwner) : TfcCustomStatusBar(AOwner) { }
  361. #pragma option pop
  362. #pragma option push -w-inl
  363. /* TfcCustomStatusBar.Destroy */ inline __fastcall virtual ~TfcStatusBar(void) { }
  364. #pragma option pop
  366. public:
  367. #pragma option push -w-inl
  368. /* TWinControl.CreateParented */ inline __fastcall TfcStatusBar(HWND ParentWindow) : TfcCustomStatusBar(ParentWindow) { }
  369. #pragma option pop
  371. };
  374. //-- var, const, procedure ---------------------------------------------------
  375. static const Byte TIMER_ID = 0xc8;
  376. static const Word HINT_TIMER_ID = 0x12c;
  377. static const Word RICHEDIT_TIMER_ID = 0x190;
  379. } /* namespace Fcstatusbar */
  380. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  381. using namespace Fcstatusbar;
  382. #endif
  383. #pragma option pop // -w-
  384. #pragma option pop // -Vx
  386. #pragma delphiheader end.
  387. //-- end unit ----------------------------------------------------------------
  388. #endif // fcStatusBar