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

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