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

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

Delphi控件源码

开发平台：

Delphi

fcoutlooklist.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) 'fcOutlookList.pas' rev: 6.00
  7. #ifndef fcOutlookListHPP
  8. #define fcOutlookListHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp> // Pascal unit
  14. #include <ExtCtrls.hpp> // Pascal unit
  15. #include <ImgList.hpp> // Pascal unit
  16. #include <Themes.hpp> // Pascal unit
  17. #include <ActnList.hpp> // Pascal unit
  18. #include <fcImager.hpp> // Pascal unit
  19. #include <fcClearPanel.hpp> // Pascal unit
  20. #include <fcCollection.hpp> // Pascal unit
  21. #include <Buttons.hpp> // Pascal unit
  22. #include <CommCtrl.hpp> // Pascal unit
  23. #include <fcCommon.hpp> // Pascal unit
  24. #include <fccustomdraw.hpp> // Pascal unit
  25. #include <ComCtrls.hpp> // Pascal unit
  26. #include <Dialogs.hpp> // Pascal unit
  27. #include <Forms.hpp> // Pascal unit
  28. #include <Controls.hpp> // Pascal unit
  29. #include <Graphics.hpp> // Pascal unit
  30. #include <Classes.hpp> // Pascal unit
  31. #include <SysUtils.hpp> // Pascal unit
  32. #include <Messages.hpp> // Pascal unit
  33. #include <Windows.hpp> // Pascal unit
  34. #include <SysInit.hpp> // Pascal unit
  35. #include <System.hpp> // Pascal unit
  37. //-- user supplied -----------------------------------------------------------
  39. namespace Fcoutlooklist
  40. {
  41. //-- type declarations -------------------------------------------------------
  42. #pragma option push -b-
  43. enum TfcScrollButtonStyle { sbNone, sbUp, sbDown };
  44. #pragma option pop
  46. class DELPHICLASS TfcOutlookPanel;
  47. class PASCALIMPLEMENTATION TfcOutlookPanel : public Controls::TCustomControl 
  48. {
  49. typedef Controls::TCustomControl inherited;
  51. private:
  52. bool FAnimating;
  53. bool FTransparent;
  54. bool FInEraseBkGnd;
  55. Classes::TPersistent* FOutlookPage;
  56. void __fastcall SetTransparent(bool Value);
  57. HIDESBASE MESSAGE void __fastcall CMControlListChange(Controls::TCMControlListChange &Message);
  58. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  60. protected:
  61. virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
  62. virtual void __fastcall Paint(void);
  63. virtual void __fastcall WndProc(Messages::TMessage &Message);
  65. public:
  66. bool FPreventUpdate;
  67. __fastcall virtual TfcOutlookPanel(Classes::TComponent* AOwner);
  68. __fastcall virtual ~TfcOutlookPanel(void);
  69. __property bool Animating = {read=FAnimating, write=FAnimating, nodefault};
  70. __property Classes::TPersistent* OutlookPage = {read=FOutlookPage, write=FOutlookPage};
  71. __property bool Transparent = {read=FTransparent, write=SetTransparent, nodefault};
  72. public:
  73. #pragma option push -w-inl
  74. /* TWinControl.CreateParented */ inline __fastcall TfcOutlookPanel(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
  75. #pragma option pop
  77. };
  80. class DELPHICLASS TfcCustomOutlookList;
  81. class DELPHICLASS TfcOutlookListItem;
  82. typedef void __fastcall (__closure *TfcCustomOutlookListItemEvent)(TfcCustomOutlookList* OutlookList, TfcOutlookListItem* Item);
  84. typedef void __fastcall (__closure *TfcOutlookListDrawItemEvent)(TfcCustomOutlookList* OutlookList, TfcOutlookListItem* Item, Types::TPoint &GlyphPos, Types::TPoint &TextPos, bool &DefaultDrawing);
  86. class DELPHICLASS TfcOutlookItemActionLink;
  87. class PASCALIMPLEMENTATION TfcOutlookItemActionLink : public Actnlist::TActionLink 
  88. {
  89. typedef Actnlist::TActionLink inherited;
  91. protected:
  92. TfcOutlookListItem* FItem;
  93. virtual void __fastcall AssignClient(System::TObject* AClient);
  94. virtual bool __fastcall IsCaptionLinked(void);
  95. virtual bool __fastcall IsEnabledLinked(void);
  96. virtual bool __fastcall IsHintLinked(void);
  97. virtual bool __fastcall IsVisibleLinked(void);
  98. virtual bool __fastcall IsOnExecuteLinked(void);
  99. virtual void __fastcall SetCaption(const AnsiString Value);
  100. virtual void __fastcall SetEnabled(bool Value);
  101. virtual void __fastcall SetHint(const AnsiString Value);
  102. virtual void __fastcall SetVisible(bool Value);
  103. public:
  104. #pragma option push -w-inl
  105. /* TBasicActionLink.Create */ inline __fastcall virtual TfcOutlookItemActionLink(System::TObject* AClient) : Actnlist::TActionLink(AClient) { }
  106. #pragma option pop
  107. #pragma option push -w-inl
  108. /* TBasicActionLink.Destroy */ inline __fastcall virtual ~TfcOutlookItemActionLink(void) { }
  109. #pragma option pop
  111. };
  114. typedef TMetaClass* TfcOutlookItemActionLinkClass;
  116. class PASCALIMPLEMENTATION TfcOutlookListItem : public Fccollection::TfcCollectionItem 
  117. {
  118. typedef Fccollection::TfcCollectionItem inherited;
  120. private:
  121. TfcOutlookItemActionLink* FActionLink;
  122. #pragma pack(push, 1)
  123. Types::TRect FButtonRect;
  124. #pragma pack(pop)
  126. #pragma pack(push, 1)
  127. Types::TRect FItemRect;
  128. #pragma pack(pop)
  130. int FImageIndex;
  131. bool FMouseDownOnItem;
  132. bool FMouseOnItem;
  133. bool FSelected;
  134. int FSeparation;
  135. AnsiString FText;
  136. Classes::TAlignment FTextAlignment;
  137. int FGlyphOffset;
  138. TfcCustomOutlookListItemEvent FOnClick;
  139. bool FEnabled;
  140. bool FVisible;
  141. AnsiString FHint;
  142. bool __fastcall GetSelected(void);
  143. TfcCustomOutlookList* __fastcall GetOutlookList(void);
  144. void __fastcall SetImageIndex(int Value);
  145. void __fastcall SetMouseDownOnItem(bool Value);
  146. void __fastcall SetMouseOnItem(bool Value);
  147. void __fastcall SetSeparation(int Value);
  148. void __fastcall SetSelected(bool Value);
  149. void __fastcall SetText(AnsiString Value);
  150. void __fastcall SetGlyphOffset(int Value);
  151. void __fastcall SetTextAlignment(Classes::TAlignment Value);
  152. Classes::TBasicAction* __fastcall GetAction(void);
  153. void __fastcall SetAction(Classes::TBasicAction* Value);
  154. void __fastcall DoActionChange(System::TObject* Sender);
  155. void __fastcall SetEnabled(bool Value);
  156. void __fastcall SetVisible(bool Value);
  157. void __fastcall SetHint(AnsiString Value);
  159. protected:
  160. tagSIZE __fastcall GetItemSize(bool IncludePadding);
  161. virtual bool __fastcall IsVisible(bool Completely);
  162. virtual int __fastcall SpacingSize(void);
  163. virtual void __fastcall Paint(void);
  164. virtual void __fastcall PaintButton(const Types::TRect &IconRect);
  165. virtual AnsiString __fastcall GetDisplayName();
  166. __property Types::TRect ButtonRect = {read=FButtonRect};
  167. __property TfcOutlookItemActionLink* ActionLink = {read=FActionLink, write=FActionLink};
  168. DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
  170. public:
  171. __fastcall virtual TfcOutlookListItem(Classes::TCollection* Collection);
  172. __fastcall virtual ~TfcOutlookListItem(void);
  173. Types::TRect __fastcall DisplayRect(Comctrls::TDisplayCode Code, int AStartPos);
  174. virtual bool __fastcall IsDown(void);
  175. virtual void __fastcall Invalidate(bool Erase);
  176. __property Types::TRect ItemRect = {read=FItemRect};
  177. __property bool MouseDownOnItem = {read=FMouseDownOnItem, write=SetMouseDownOnItem, nodefault};
  178. __property bool MouseOnItem = {read=FMouseOnItem, write=SetMouseOnItem, nodefault};
  179. __property TfcCustomOutlookList* OutlookList = {read=GetOutlookList};
  181. __published:
  182. __property Classes::TBasicAction* Action = {read=GetAction, write=SetAction};
  183. __property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
  184. __property bool Selected = {read=GetSelected, write=SetSelected, nodefault};
  185. __property int Separation = {read=FSeparation, write=SetSeparation, nodefault};
  186. __property Tag ;
  187. __property AnsiString Text = {read=FText, write=SetText};
  188. __property TfcCustomOutlookListItemEvent OnClick = {read=FOnClick, write=FOnClick};
  189. __property Classes::TAlignment TextAlignment = {read=FTextAlignment, write=SetTextAlignment, default=2};
  190. __property int GlyphOffset = {read=FGlyphOffset, write=SetGlyphOffset, default=0};
  191. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
  192. __property bool Visible = {read=FVisible, write=SetVisible, default=1};
  193. __property AnsiString Hint = {read=FHint, write=SetHint};
  194. };
  197. typedef TMetaClass* TfcOutlookListItemClass;
  199. class DELPHICLASS TfcOutlookListItems;
  200. class PASCALIMPLEMENTATION TfcOutlookListItems : public Fccollection::TfcCollection 
  201. {
  202. typedef Fccollection::TfcCollection inherited;
  204. public:
  205. TfcOutlookListItem* operator[](int Index) { return Items[Index]; }
  207. private:
  208. TfcCustomOutlookList* FOutlookList;
  210. protected:
  211. DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  212. HIDESBASE TfcOutlookListItem* __fastcall GetItems(int Index);
  213. virtual void __fastcall Update(Classes::TCollectionItem* Item);
  215. public:
  216. __fastcall virtual TfcOutlookListItems(TfcCustomOutlookList* AOutlookList, TMetaClass* ACollectionItemClass);
  217. HIDESBASE TfcOutlookListItem* __fastcall Add(void);
  218. virtual Fccollection::TfcCollectionItem* __fastcall AddItem(void);
  219. __property TfcCustomOutlookList* OutlookList = {read=FOutlookList};
  220. __property TfcOutlookListItem* Items[int Index] = {read=GetItems/*, default*/};
  221. public:
  222. #pragma option push -w-inl
  223. /* TfcCollection.Destroy */ inline __fastcall virtual ~TfcOutlookListItems(void) { }
  224. #pragma option pop
  226. };
  229. #pragma option push -b-
  230. enum TfcOutlookHotTrackStyle { hsIconHilite, hsItemHilite };
  231. #pragma option pop
  233. #pragma option push -b-
  234. enum TfcCustomOutlookListClickStyle { csClick, csSelect };
  235. #pragma option pop
  237. class PASCALIMPLEMENTATION TfcCustomOutlookList : public TfcOutlookPanel 
  238. {
  239. typedef TfcOutlookPanel inherited;
  241. private:
  242. Forms::TFormBorderStyle FBorderStyle;
  243. TfcCustomOutlookListClickStyle FClickStyle;
  244. TfcOutlookHotTrackStyle FHotTrackStyle;
  245. Graphics::TColor FHotTrackTextColor;
  246. Graphics::TColor FItemDisabledTextColor;
  247. Imglist::TCustomImageList* FImageList;
  248. Buttons::TButtonLayout FItemLayout;
  249. Graphics::TColor FItemHighlightColor;
  250. Graphics::TColor FItemHotTrackColor;
  251. Graphics::TColor FItemShadowColor;
  252. TfcOutlookListItems* FItems;
  253. int FItemSpacing;
  254. int FItemsWidth;
  255. Fccommon::TfcLayout FLayout;
  256. Graphics::TBitmap* FPaintBitmap;
  257. int FScrollInterval;
  258. TfcCustomOutlookListItemEvent FOnItemClick;
  259. TfcCustomOutlookListItemEvent FOnItemChange;
  260. TfcOutlookListDrawItemEvent FOnDrawItem;
  261. TfcOutlookListItem* FTopItem;
  262. #pragma pack(push, 1)
  263. Types::TRect FUpButtonRect;
  264. #pragma pack(pop)
  266. #pragma pack(push, 1)
  267. Types::TRect FDownButtonRect;
  268. #pragma pack(pop)
  270. TfcScrollButtonStyle FScrollButtonDown;
  271. bool FScrollButtonsVisible;
  272. TfcScrollButtonStyle FMouseInScrollButton;
  273. Imglist::TChangeLink* FChangeLink;
  274. HWND FOldCapture;
  275. Classes::TPersistent* FOutlookPage;
  276. Graphics::TColor FItemSelectedDitherColor;
  277. Controls::THintWindow* HintWindow;
  278. int HintTimerCount;
  279. Extctrls::TTimer* HintTimer;
  280. void __fastcall HintTimerEvent(System::TObject* Sender);
  281. void __fastcall FreeHintWindow(void);
  282. TfcOutlookListItem* __fastcall GetListItems(int Index);
  283. TfcOutlookListItem* __fastcall GetBottomItem(void);
  284. Graphics::TCanvas* __fastcall GetPaintCanvas(void);
  285. TfcOutlookListItem* __fastcall GetSelected(void);
  286. TfcOutlookListItem* __fastcall GetTopItem(void);
  287. void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  288. void __fastcall SetClickStyle(TfcCustomOutlookListClickStyle Value);
  289. void __fastcall SetImageList(Imglist::TCustomImageList* Value);
  290. void __fastcall SetItemHighlightColor(Graphics::TColor Value);
  291. void __fastcall SetItemDisabledTextColor(Graphics::TColor Value);
  292. void __fastcall SetItemLayout(Buttons::TButtonLayout Value);
  293. void __fastcall SetItemShadowColor(Graphics::TColor Value);
  294. void __fastcall SetItems(TfcOutlookListItems* Value);
  295. void __fastcall SetItemSpacing(int Value);
  296. void __fastcall SetItemsWidth(int Value);
  297. void __fastcall SetLayout(Fccommon::TfcLayout Value);
  298. void __fastcall SetMouseInScrollButton(TfcScrollButtonStyle Value);
  299. void __fastcall SetScrollButtonsVisible(bool Value);
  300. void __fastcall SetTopItem(TfcOutlookListItem* Value);
  301. Fcimager::TfcCustomImager* __fastcall GetImager(void);
  302. bool __fastcall IsEffectiveItemHilite(void);
  303. HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
  304. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  305. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  306. MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
  307. HIDESBASE MESSAGE void __fastcall CNChar(Messages::TWMKey &Message);
  309. protected:
  310. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  311. virtual void __fastcall Loaded(void);
  312. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  313. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  314. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  315. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  316. virtual void __fastcall Paint(void);
  317. virtual void __fastcall UpdateButtonRects(void);
  318. DYNAMIC void __fastcall ValidateInsert(Classes::TComponent* AComponent);
  319. virtual bool __fastcall ScrollButtonVisible(TfcScrollButtonStyle Button);
  320. virtual void __fastcall DoDrawItem(TfcOutlookListItem* Item, Types::TPoint &GlyphPos, Types::TPoint &TextPos, bool &DefaultDrawing);
  321. virtual void __fastcall ImageListChange(System::TObject* Sender);
  322. virtual void __fastcall InvalidateScrollButton(TfcScrollButtonStyle Button);
  323. virtual void __fastcall ItemClick(TfcOutlookListItem* Item);
  324. virtual void __fastcall ScrollButtonClick(void);
  325. virtual void __fastcall UpdateMouseOnItem(void);
  326. virtual void __fastcall UpdateScrollButtonsRect(void);
  327. __property TfcScrollButtonStyle MouseInScrollButton = {read=FMouseInScrollButton, write=SetMouseInScrollButton, nodefault};
  329. public:
  330. Variant Patch;
  331. __fastcall virtual TfcCustomOutlookList(Classes::TComponent* AOwner);
  332. __fastcall virtual ~TfcCustomOutlookList(void);
  333. TfcOutlookListItem* __fastcall GetPriorVisibleItem(TfcOutlookListItem* item);
  334. TfcOutlookListItem* __fastcall GetNextVisibleItem(TfcOutlookListItem* item);
  335. virtual TfcOutlookListItem* __fastcall GetItemAt(int x, int y);
  336. virtual void __fastcall PaintScrollButton(TfcScrollButtonStyle Button);
  337. virtual TfcOutlookListItem* __fastcall GetFirstVisibleItem(void);
  338. __property TfcOutlookListItem* ListItems[int Index] = {read=GetListItems};
  339. __property TfcOutlookListItem* BottomItem = {read=GetBottomItem};
  340. __property TfcOutlookListItem* Selected = {read=GetSelected};
  341. __property TfcOutlookListItem* TopItem = {read=GetTopItem, write=SetTopItem};
  342. __property Graphics::TCanvas* PaintCanvas = {read=GetPaintCanvas};
  343. __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, nodefault};
  344. __property TfcCustomOutlookListClickStyle ClickStyle = {read=FClickStyle, write=SetClickStyle, nodefault};
  345. __property TfcOutlookHotTrackStyle HotTrackStyle = {read=FHotTrackStyle, write=FHotTrackStyle, nodefault};
  346. __property Graphics::TColor HotTrackTextColor = {read=FHotTrackTextColor, write=FHotTrackTextColor, nodefault};
  347. __property Graphics::TColor ItemDisabledTextColor = {read=FItemDisabledTextColor, write=SetItemDisabledTextColor, default=-16777201};
  348. __property Imglist::TCustomImageList* Images = {read=FImageList, write=SetImageList};
  349. __property Graphics::TColor ItemHighlightColor = {read=FItemHighlightColor, write=SetItemHighlightColor, nodefault};
  350. __property Graphics::TColor ItemHotTrackColor = {read=FItemHotTrackColor, write=FItemHotTrackColor, nodefault};
  351. __property Buttons::TButtonLayout ItemLayout = {read=FItemLayout, write=SetItemLayout, nodefault};
  352. __property Graphics::TColor ItemShadowColor = {read=FItemShadowColor, write=SetItemShadowColor, nodefault};
  353. __property TfcOutlookListItems* Items = {read=FItems, write=SetItems};
  354. __property int ItemSpacing = {read=FItemSpacing, write=SetItemSpacing, nodefault};
  355. __property int ItemsWidth = {read=FItemsWidth, write=SetItemsWidth, nodefault};
  356. __property Fccommon::TfcLayout Layout = {read=FLayout, write=SetLayout, nodefault};
  357. __property Classes::TPersistent* OutlookPage = {read=FOutlookPage, write=FOutlookPage};
  358. __property bool ScrollButtonsVisible = {read=FScrollButtonsVisible, write=SetScrollButtonsVisible, nodefault};
  359. __property int ScrollInterval = {read=FScrollInterval, write=FScrollInterval, nodefault};
  360. __property Graphics::TColor ItemSelectedDitherColor = {read=FItemSelectedDitherColor, write=FItemSelectedDitherColor, nodefault};
  361. __property TfcOutlookListDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  362. __property TfcCustomOutlookListItemEvent OnItemClick = {read=FOnItemClick, write=FOnItemClick};
  363. __property TfcCustomOutlookListItemEvent OnItemChange = {read=FOnItemChange, write=FOnItemChange};
  364. public:
  365. #pragma option push -w-inl
  366. /* TWinControl.CreateParented */ inline __fastcall TfcCustomOutlookList(HWND ParentWindow) : TfcOutlookPanel(ParentWindow) { }
  367. #pragma option pop
  369. };
  372. class DELPHICLASS TfcOutlookList;
  373. class PASCALIMPLEMENTATION TfcOutlookList : public TfcCustomOutlookList 
  374. {
  375. typedef TfcCustomOutlookList inherited;
  377. __published:
  378. __property Align  = {default=0};
  379. __property BorderStyle ;
  380. __property ClickStyle ;
  381. __property Color  = {default=-16777211};
  382. __property DragCursor  = {default=-12};
  383. __property DragMode  = {default=0};
  384. __property Font ;
  385. __property HotTrackStyle ;
  386. __property Images ;
  387. __property ItemDisabledTextColor  = {default=-16777201};
  388. __property ItemHighlightColor ;
  389. __property ItemHotTrackColor ;
  390. __property ItemLayout ;
  391. __property ItemShadowColor ;
  392. __property ItemSelectedDitherColor ;
  393. __property Items ;
  394. __property ItemSpacing ;
  395. __property ItemsWidth ;
  396. __property Layout ;
  397. __property PopupMenu ;
  398. __property ScrollButtonsVisible ;
  399. __property ScrollInterval ;
  400. __property ShowHint ;
  401. __property Transparent ;
  402. __property OnDragDrop ;
  403. __property OnDragOver ;
  404. __property OnDrawItem ;
  405. __property OnEndDrag ;
  406. __property OnItemClick ;
  407. __property OnItemChange ;
  408. __property OnMouseDown ;
  409. __property OnMouseUp ;
  410. __property OnMouseMove ;
  411. __property OnStartDrag ;
  412. public:
  413. #pragma option push -w-inl
  414. /* TfcCustomOutlookList.Create */ inline __fastcall virtual TfcOutlookList(Classes::TComponent* AOwner) : TfcCustomOutlookList(AOwner) { }
  415. #pragma option pop
  416. #pragma option push -w-inl
  417. /* TfcCustomOutlookList.Destroy */ inline __fastcall virtual ~TfcOutlookList(void) { }
  418. #pragma option pop
  420. public:
  421. #pragma option push -w-inl
  422. /* TWinControl.CreateParented */ inline __fastcall TfcOutlookList(HWND ParentWindow) : TfcCustomOutlookList(ParentWindow) { }
  423. #pragma option pop
  425. };
  428. //-- var, const, procedure ---------------------------------------------------
  429. #pragma error Unsupported symbol type (23, fcOutlookList)
  431. } /* namespace Fcoutlooklist */
  432. using namespace Fcoutlooklist;
  433. #pragma option pop // -w-
  434. #pragma option pop // -Vx
  436. #pragma delphiheader end.
  437. //-- end unit ----------------------------------------------------------------
  438. #endif // fcOutlookList