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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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, Windows::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(
  74. ParentWindow) { }
  75. #pragma option pop
  77. };
  80. class DELPHICLASS TfcCustomOutlookList;
  81. class DELPHICLASS TfcOutlookListItem;
  82. typedef void __fastcall (__closure *TfcCustomOutlookListItemEvent)(TfcCustomOutlookList* OutlookList
  83. , TfcOutlookListItem* Item);
  85. typedef void __fastcall (__closure *TfcOutlookListDrawItemEvent)(TfcCustomOutlookList* OutlookList, 
  86. TfcOutlookListItem* Item, Windows::TPoint &GlyphPos, Windows::TPoint &TextPos, bool &DefaultDrawing
  87. );
  89. class DELPHICLASS TfcOutlookItemActionLink;
  90. class PASCALIMPLEMENTATION TfcOutlookItemActionLink : public Actnlist::TActionLink 
  91. {
  92. typedef Actnlist::TActionLink inherited;
  94. protected:
  95. TfcOutlookListItem* FItem;
  96. virtual void __fastcall AssignClient(System::TObject* AClient);
  97. virtual bool __fastcall IsCaptionLinked(void);
  98. virtual bool __fastcall IsEnabledLinked(void);
  99. virtual bool __fastcall IsHintLinked(void);
  100. virtual bool __fastcall IsVisibleLinked(void);
  101. virtual bool __fastcall IsOnExecuteLinked(void);
  102. virtual void __fastcall SetCaption(const AnsiString Value);
  103. virtual void __fastcall SetEnabled(bool Value);
  104. virtual void __fastcall SetHint(const AnsiString Value);
  105. virtual void __fastcall SetVisible(bool Value);
  106. public:
  107. #pragma option push -w-inl
  108. /* TBasicActionLink.Create */ inline __fastcall virtual TfcOutlookItemActionLink(System::TObject* AClient
  109. ) : Actnlist::TActionLink(AClient) { }
  110. #pragma option pop
  111. #pragma option push -w-inl
  112. /* TBasicActionLink.Destroy */ inline __fastcall virtual ~TfcOutlookItemActionLink(void) { }
  113. #pragma option pop
  115. };
  118. typedef TMetaClass*TfcOutlookItemActionLinkClass;
  120. class PASCALIMPLEMENTATION TfcOutlookListItem : public Fccollection::TfcCollectionItem 
  121. {
  122. typedef Fccollection::TfcCollectionItem inherited;
  124. private:
  125. TfcOutlookItemActionLink* FActionLink;
  126. Windows::TRect FButtonRect;
  127. Windows::TRect FItemRect;
  128. int FImageIndex;
  129. bool FMouseDownOnItem;
  130. bool FMouseOnItem;
  131. bool FSelected;
  132. int FSeparation;
  133. AnsiString FText;
  134. Classes::TAlignment FTextAlignment;
  135. int FGlyphOffset;
  136. TfcCustomOutlookListItemEvent FOnClick;
  137. bool FEnabled;
  138. bool FVisible;
  139. AnsiString FHint;
  140. bool __fastcall GetSelected(void);
  141. TfcCustomOutlookList* __fastcall GetOutlookList(void);
  142. void __fastcall SetImageIndex(int Value);
  143. void __fastcall SetMouseDownOnItem(bool Value);
  144. void __fastcall SetMouseOnItem(bool Value);
  145. void __fastcall SetSeparation(int Value);
  146. void __fastcall SetSelected(bool Value);
  147. void __fastcall SetText(AnsiString Value);
  148. void __fastcall SetGlyphOffset(int Value);
  149. void __fastcall SetTextAlignment(Classes::TAlignment Value);
  150. Classes::TBasicAction* __fastcall GetAction(void);
  151. void __fastcall SetAction(Classes::TBasicAction* Value);
  152. void __fastcall DoActionChange(System::TObject* Sender);
  153. void __fastcall SetEnabled(bool Value);
  154. void __fastcall SetVisible(bool Value);
  155. void __fastcall SetHint(AnsiString Value);
  157. protected:
  158. tagSIZE __fastcall GetItemSize(bool IncludePadding);
  159. virtual bool __fastcall IsVisible(bool Completely);
  160. virtual int __fastcall SpacingSize(void);
  161. virtual void __fastcall Paint(void);
  162. virtual void __fastcall PaintButton(const Windows::TRect &IconRect);
  163. virtual AnsiString __fastcall GetDisplayName(void);
  164. __property Windows::TRect ButtonRect = {read=FButtonRect};
  165. __property TfcOutlookItemActionLink* ActionLink = {read=FActionLink, write=FActionLink};
  166. DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
  168. public:
  169. __fastcall virtual TfcOutlookListItem(Classes::TCollection* Collection);
  170. __fastcall virtual ~TfcOutlookListItem(void);
  171. Windows::TRect __fastcall DisplayRect(Comctrls::TDisplayCode Code, int AStartPos);
  172. virtual bool __fastcall IsDown(void);
  173. virtual void __fastcall Invalidate(bool Erase);
  174. __property Windows::TRect ItemRect = {read=FItemRect};
  175. __property bool MouseDownOnItem = {read=FMouseDownOnItem, write=SetMouseDownOnItem, nodefault};
  176. __property bool MouseOnItem = {read=FMouseOnItem, write=SetMouseOnItem, nodefault};
  177. __property TfcCustomOutlookList* OutlookList = {read=GetOutlookList};
  179. __published:
  180. __property Classes::TBasicAction* Action = {read=GetAction, write=SetAction};
  181. __property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
  182. __property bool Selected = {read=GetSelected, write=SetSelected, nodefault};
  183. __property int Separation = {read=FSeparation, write=SetSeparation, nodefault};
  184. __property Tag ;
  185. __property AnsiString Text = {read=FText, write=SetText};
  186. __property TfcCustomOutlookListItemEvent OnClick = {read=FOnClick, write=FOnClick};
  187. __property Classes::TAlignment TextAlignment = {read=FTextAlignment, write=SetTextAlignment, default=2
  188. };
  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. );
  214. HIDESBASE TfcOutlookListItem* __fastcall Add(void);
  215. virtual Fccollection::TfcCollectionItem* __fastcall AddItem(void);
  216. __property TfcCustomOutlookList* OutlookList = {read=FOutlookList};
  217. __property TfcOutlookListItem* Items[int Index] = {read=GetItems/*, default*/};
  218. public:
  219. #pragma option push -w-inl
  220. /* TfcCollection.Destroy */ inline __fastcall virtual ~TfcOutlookListItems(void) { }
  221. #pragma option pop
  223. };
  226. #pragma option push -b-
  227. enum TfcOutlookHotTrackStyle { hsIconHilite, hsItemHilite };
  228. #pragma option pop
  230. #pragma option push -b-
  231. enum TfcCustomOutlookListClickStyle { csClick, csSelect };
  232. #pragma option pop
  234. class PASCALIMPLEMENTATION TfcCustomOutlookList : public TfcOutlookPanel 
  235. {
  236. typedef TfcOutlookPanel inherited;
  238. private:
  239. Forms::TFormBorderStyle FBorderStyle;
  240. TfcCustomOutlookListClickStyle FClickStyle;
  241. TfcOutlookHotTrackStyle FHotTrackStyle;
  242. Graphics::TColor FHotTrackTextColor;
  243. Graphics::TColor FItemDisabledTextColor;
  244. Imglist::TCustomImageList* FImageList;
  245. Buttons::TButtonLayout FItemLayout;
  246. Graphics::TColor FItemHighlightColor;
  247. Graphics::TColor FItemHotTrackColor;
  248. Graphics::TColor FItemShadowColor;
  249. TfcOutlookListItems* FItems;
  250. int FItemSpacing;
  251. int FItemsWidth;
  252. Fccommon::TfcLayout FLayout;
  253. Graphics::TBitmap* FPaintBitmap;
  254. int FScrollInterval;
  255. TfcCustomOutlookListItemEvent FOnItemClick;
  256. TfcCustomOutlookListItemEvent FOnItemChange;
  257. TfcOutlookListDrawItemEvent FOnDrawItem;
  258. TfcOutlookListItem* FTopItem;
  259. Windows::TRect FUpButtonRect;
  260. Windows::TRect FDownButtonRect;
  261. TfcScrollButtonStyle FScrollButtonDown;
  262. bool FScrollButtonsVisible;
  263. TfcScrollButtonStyle FMouseInScrollButton;
  264. Imglist::TChangeLink* FChangeLink;
  265. HWND FOldCapture;
  266. Classes::TPersistent* FOutlookPage;
  267. Graphics::TColor FItemSelectedDitherColor;
  268. Controls::THintWindow* HintWindow;
  269. int HintTimerCount;
  270. Extctrls::TTimer* HintTimer;
  271. void __fastcall HintTimerEvent(System::TObject* Sender);
  272. void __fastcall FreeHintWindow(void);
  273. TfcOutlookListItem* __fastcall GetListItems(int Index);
  274. TfcOutlookListItem* __fastcall GetBottomItem(void);
  275. Graphics::TCanvas* __fastcall GetPaintCanvas(void);
  276. TfcOutlookListItem* __fastcall GetSelected(void);
  277. TfcOutlookListItem* __fastcall GetTopItem(void);
  278. void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  279. void __fastcall SetClickStyle(TfcCustomOutlookListClickStyle Value);
  280. void __fastcall SetImageList(Imglist::TCustomImageList* Value);
  281. void __fastcall SetItemHighlightColor(Graphics::TColor Value);
  282. void __fastcall SetItemDisabledTextColor(Graphics::TColor Value);
  283. void __fastcall SetItemLayout(Buttons::TButtonLayout Value);
  284. void __fastcall SetItemShadowColor(Graphics::TColor Value);
  285. void __fastcall SetItems(TfcOutlookListItems* Value);
  286. void __fastcall SetItemSpacing(int Value);
  287. void __fastcall SetItemsWidth(int Value);
  288. void __fastcall SetLayout(Fccommon::TfcLayout Value);
  289. void __fastcall SetMouseInScrollButton(TfcScrollButtonStyle Value);
  290. void __fastcall SetScrollButtonsVisible(bool Value);
  291. void __fastcall SetTopItem(TfcOutlookListItem* Value);
  292. Fcimager::TfcCustomImager* __fastcall GetImager(void);
  293. bool __fastcall IsEffectiveItemHilite(void);
  294. HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
  295. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  296. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  297. MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
  298. HIDESBASE MESSAGE void __fastcall CNChar(Messages::TWMKey &Message);
  300. protected:
  301. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  302. virtual void __fastcall Loaded(void);
  303. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  304. int Y);
  305. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  306. Y);
  307. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  308. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  309. );
  310. virtual void __fastcall Paint(void);
  311. virtual void __fastcall UpdateButtonRects(void);
  312. DYNAMIC void __fastcall ValidateInsert(Classes::TComponent* AComponent);
  313. virtual bool __fastcall ScrollButtonVisible(TfcScrollButtonStyle Button);
  314. virtual void __fastcall DoDrawItem(TfcOutlookListItem* Item, Windows::TPoint &GlyphPos, Windows::TPoint 
  315. &TextPos, bool &DefaultDrawing);
  316. virtual void __fastcall ImageListChange(System::TObject* Sender);
  317. virtual void __fastcall InvalidateScrollButton(TfcScrollButtonStyle Button);
  318. virtual void __fastcall ItemClick(TfcOutlookListItem* Item);
  319. virtual void __fastcall ScrollButtonClick(void);
  320. virtual void __fastcall UpdateMouseOnItem(void);
  321. virtual void __fastcall UpdateScrollButtonsRect(void);
  322. __property TfcScrollButtonStyle MouseInScrollButton = {read=FMouseInScrollButton, write=SetMouseInScrollButton
  323. , 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. };
  342. __property TfcOutlookHotTrackStyle HotTrackStyle = {read=FHotTrackStyle, write=FHotTrackStyle, nodefault
  343. };
  344. __property Graphics::TColor HotTrackTextColor = {read=FHotTrackTextColor, write=FHotTrackTextColor, 
  345. nodefault};
  346. __property Graphics::TColor ItemDisabledTextColor = {read=FItemDisabledTextColor, write=SetItemDisabledTextColor
  347. , default=-2147483633};
  348. __property Imglist::TCustomImageList* Images = {read=FImageList, write=SetImageList};
  349. __property Graphics::TColor ItemHighlightColor = {read=FItemHighlightColor, write=SetItemHighlightColor
  350. , nodefault};
  351. __property Graphics::TColor ItemHotTrackColor = {read=FItemHotTrackColor, write=FItemHotTrackColor, 
  352. nodefault};
  353. __property Buttons::TButtonLayout ItemLayout = {read=FItemLayout, write=SetItemLayout, nodefault};
  354. __property Graphics::TColor ItemShadowColor = {read=FItemShadowColor, write=SetItemShadowColor, nodefault
  355. };
  356. __property TfcOutlookListItems* Items = {read=FItems, write=SetItems};
  357. __property int ItemSpacing = {read=FItemSpacing, write=SetItemSpacing, nodefault};
  358. __property int ItemsWidth = {read=FItemsWidth, write=SetItemsWidth, nodefault};
  359. __property Fccommon::TfcLayout Layout = {read=FLayout, write=SetLayout, nodefault};
  360. __property Classes::TPersistent* OutlookPage = {read=FOutlookPage, write=FOutlookPage};
  361. __property bool ScrollButtonsVisible = {read=FScrollButtonsVisible, write=SetScrollButtonsVisible, 
  362. nodefault};
  363. __property int ScrollInterval = {read=FScrollInterval, write=FScrollInterval, nodefault};
  364. __property Graphics::TColor ItemSelectedDitherColor = {read=FItemSelectedDitherColor, write=FItemSelectedDitherColor
  365. , nodefault};
  366. __property TfcOutlookListDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  367. __property TfcCustomOutlookListItemEvent OnItemClick = {read=FOnItemClick, write=FOnItemClick};
  368. __property TfcCustomOutlookListItemEvent OnItemChange = {read=FOnItemChange, write=FOnItemChange};
  369. public:
  371. #pragma option push -w-inl
  372. /* TWinControl.CreateParented */ inline __fastcall TfcCustomOutlookList(HWND ParentWindow) : TfcOutlookPanel(
  373. ParentWindow) { }
  374. #pragma option pop
  376. };
  379. class DELPHICLASS TfcOutlookList;
  380. class PASCALIMPLEMENTATION TfcOutlookList : public TfcCustomOutlookList 
  381. {
  382. typedef TfcCustomOutlookList inherited;
  384. __published:
  385. __property Align ;
  386. __property BorderStyle ;
  387. __property ClickStyle ;
  388. __property Color ;
  389. __property DragCursor ;
  390. __property DragMode ;
  391. __property Font ;
  392. __property HotTrackStyle ;
  393. __property Images ;
  394. __property ItemDisabledTextColor ;
  395. __property ItemHighlightColor ;
  396. __property ItemHotTrackColor ;
  397. __property ItemLayout ;
  398. __property ItemShadowColor ;
  399. __property ItemSelectedDitherColor ;
  400. __property Items ;
  401. __property ItemSpacing ;
  402. __property ItemsWidth ;
  403. __property Layout ;
  404. __property PopupMenu ;
  405. __property ScrollButtonsVisible ;
  406. __property ScrollInterval ;
  407. __property ShowHint ;
  408. __property Transparent ;
  409. __property OnDragDrop ;
  410. __property OnDragOver ;
  411. __property OnDrawItem ;
  412. __property OnEndDrag ;
  413. __property OnItemClick ;
  414. __property OnItemChange ;
  415. __property OnMouseDown ;
  416. __property OnMouseUp ;
  417. __property OnMouseMove ;
  418. __property OnStartDrag ;
  419. public:
  420. #pragma option push -w-inl
  421. /* TfcCustomOutlookList.Create */ inline __fastcall virtual TfcOutlookList(Classes::TComponent* AOwner
  422. ) : TfcCustomOutlookList(AOwner) { }
  423. #pragma option pop
  424. #pragma option push -w-inl
  425. /* TfcCustomOutlookList.Destroy */ inline __fastcall virtual ~TfcOutlookList(void) { }
  426. #pragma option pop
  428. public:
  429. #pragma option push -w-inl
  430. /* TWinControl.CreateParented */ inline __fastcall TfcOutlookList(HWND ParentWindow) : TfcCustomOutlookList(
  431. ParentWindow) { }
  432. #pragma option pop
  434. };
  437. //-- var, const, procedure ---------------------------------------------------
  439. } /* namespace Fcoutlooklist */
  440. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  441. using namespace Fcoutlooklist;
  442. #endif
  443. #pragma option pop // -w-
  444. #pragma option pop // -Vx
  446. #pragma delphiheader end.
  447. //-- end unit ----------------------------------------------------------------
  448. #endif // fcOutlookList