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

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

Delphi控件源码

开发平台：

Delphi

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