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

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

Delphi控件源码

开发平台：

Delphi

fctrackbar.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fctrackbar.pas' rev: 5.00
  7. #ifndef fctrackbarHPP
  8. #define fctrackbarHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <fcCommon.hpp> // Pascal unit
  14. #include <fcpanel.hpp> // Pascal unit
  15. #include <DB.hpp> // Pascal unit
  16. #include <DBCtrls.hpp> // Pascal unit
  17. #include <ComCtrls.hpp> // Pascal unit
  18. #include <ExtCtrls.hpp> // Pascal unit
  19. #include <ImgList.hpp> // Pascal unit
  20. #include <StdCtrls.hpp> // Pascal unit
  21. #include <Graphics.hpp> // Pascal unit
  22. #include <Menus.hpp> // Pascal unit
  23. #include <Forms.hpp> // Pascal unit
  24. #include <Controls.hpp> // Pascal unit
  25. #include <Classes.hpp> // Pascal unit
  26. #include <CommCtrl.hpp> // Pascal unit
  27. #include <SysUtils.hpp> // Pascal unit
  28. #include <Windows.hpp> // Pascal unit
  29. #include <Messages.hpp> // Pascal unit
  30. #include <Consts.hpp> // Pascal unit
  31. #include <SysInit.hpp> // Pascal unit
  32. #include <System.hpp> // Pascal unit
  34. //-- user supplied -----------------------------------------------------------
  36. namespace Fctrackbar
  37. {
  38. //-- type declarations -------------------------------------------------------
  39. #pragma option push -b-
  40. enum TfcTrackBarOrientation { trfcHorizontal, trfcVertical };
  41. #pragma option pop
  43. #pragma option push -b-
  44. enum TfcTickMark { tmfcBottomRight, tmfcTopLeft, tmfcBoth };
  45. #pragma option pop
  47. #pragma option push -b-
  48. enum TfcTickStyle { tsfcNone, tsfcAuto, tsfcManual };
  49. #pragma option pop
  51. #pragma option push -b-
  52. enum TfcTrackBarTextPosition { tbtLeft, tbtRight, tbtTop, tbtBottom };
  53. #pragma option pop
  55. class DELPHICLASS TfcTrackBarText;
  56. class DELPHICLASS TfcTrackBar;
  57. class DELPHICLASS TfcTrackIcon;
  58. class PASCALIMPLEMENTATION TfcTrackIcon : public Controls::TGraphicControl 
  59. {
  60. typedef Controls::TGraphicControl inherited;
  62. private:
  63. Graphics::TBitmap* TrackBmp;
  64. Classes::TNotifyEvent FOnEndDrag;
  65. void __fastcall MouseLoop_Drag(int X, int Y);
  67. protected:
  68. bool DraggingThumb;
  69. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  70. virtual void __fastcall Paint(void);
  71. HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  73. public:
  74. TfcTrackBar* TrackBar;
  75. __fastcall virtual TfcTrackIcon(Classes::TComponent* AOwner);
  76. __fastcall virtual ~TfcTrackIcon(void);
  78. __published:
  79. __property Classes::TNotifyEvent OnEndDrag = {read=FOnEndDrag, write=FOnEndDrag};
  80. };
  83. class DELPHICLASS TfcTrackRepeatTimer;
  84. class PASCALIMPLEMENTATION TfcTrackRepeatTimer : public Extctrls::TTimer 
  85. {
  86. typedef Extctrls::TTimer inherited;
  88. private:
  89. double Increment;
  90. public:
  91. #pragma option push -w-inl
  92. /* TTimer.Create */ inline __fastcall virtual TfcTrackRepeatTimer(Classes::TComponent* AOwner) : Extctrls::TTimer(AOwner) { }
  93. #pragma option pop
  94. #pragma option push -w-inl
  95. /* TTimer.Destroy */ inline __fastcall virtual ~TfcTrackRepeatTimer(void) { }
  96. #pragma option pop
  98. };
  101. typedef void __fastcall (__closure *TfcDrawTickTextEvent)(System::TObject* Sender, double TickValue, AnsiString &ATickText, Types::TRect &ARect, bool &DoDefault);
  103. class PASCALIMPLEMENTATION TfcTrackBar : public Fcpanel::TfcCustomPanel 
  104. {
  105. typedef Fcpanel::TfcCustomPanel inherited;
  107. private:
  108. TfcTrackBarText* FTextAttributes;
  109. TfcTrackBarOrientation FOrientation;
  110. TfcTickMark FTickMarks;
  111. TfcTickStyle FTickStyle;
  112. double FIncrement;
  113. int FPageSize;
  114. int FThumbLength;
  115. int FThumbThickness;
  116. bool FSliderVisible;
  117. double FMin;
  118. double FMax;
  119. double FFrequency;
  120. double FPosition;
  121. double FSelStart;
  122. double FSelEnd;
  123. Classes::TNotifyEvent FOnChange;
  124. Dbctrls::TFieldDataLink* FDataLink;
  125. TfcTrackIcon* TrackButton;
  126. Graphics::TBitmap* FTrackThumbIcon;
  127. int FThumbTrackSeparation;
  128. Graphics::TColor FThumbColor;
  129. Graphics::TColor FTrackColor;
  130. Graphics::TColor FTrackPartialFillColor;
  131. TfcTrackRepeatTimer* FRepeatTimer;
  132. int FSpacingLeftTop;
  133. int FSpacingRightBottom;
  134. int FSpacingEdgeTrackbar;
  135. bool FReadOnly;
  136. bool FInverted;
  137. TfcDrawTickTextEvent FOnDrawTickText;
  138. bool FDisableThemes;
  139. bool SkipEdit;
  140. virtual void __fastcall PositionChanging(void);
  141. virtual void __fastcall TimerExpired(System::TObject* Sender);
  142. void __fastcall SetThumbColor(Graphics::TColor val);
  143. int __fastcall GetThumbLength(void);
  144. int __fastcall GetThumbThickness(void);
  145. void __fastcall SetOrientation(TfcTrackBarOrientation Value);
  146. void __fastcall SetParams(double APosition, double AMin, double AMax);
  147. void __fastcall SetPosition(double Value);
  148. void __fastcall SetMin(double Value);
  149. void __fastcall SetMax(double Value);
  150. void __fastcall SetFrequency(double Value);
  151. void __fastcall SetTickStyle(TfcTickStyle Value);
  152. void __fastcall SetTickMarks(TfcTickMark Value);
  153. void __fastcall SetIncrement(double Value);
  154. void __fastcall SetPageSize(int Value);
  155. void __fastcall SetThumbLength(int Value);
  156. void __fastcall SetThumbThickness(int Value);
  157. void __fastcall SetSliderVisible(bool Value);
  158. void __fastcall SetSelStart(double Value);
  159. void __fastcall SetSelEnd(double Value);
  160. void __fastcall UpdateSelection(void);
  161. void __fastcall UpdateFromButton(System::TObject* Sender);
  162. MESSAGE void __fastcall CNHScroll(Messages::TWMScroll &Message);
  163. MESSAGE void __fastcall CNVScroll(Messages::TWMScroll &Message);
  164. HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
  165. HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  166. AnsiString __fastcall GetDataField();
  167. Db::TDataSource* __fastcall GetDataSource(void);
  168. void __fastcall SetDataField(const AnsiString Value);
  169. void __fastcall SetDataSource(Db::TDataSource* Value);
  170. Db::TField* __fastcall GetField(void);
  171. void __fastcall SetThumbIcon(Graphics::TBitmap* Value);
  172. Graphics::TBitmap* __fastcall GetThumbIcon(void);
  173. MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  174. HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  175. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  176. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  177. MESSAGE void __fastcall CMGetDataLink(Messages::TMessage &Message);
  178. void __fastcall SetSpacingLeftTop(int Value);
  179. void __fastcall SetSpacingRightBottom(int Value);
  180. void __fastcall SetSpacingEdgeTrackbar(int Value);
  181. double __fastcall GetDBValue(void);
  182. void __fastcall SetTrackColor(Graphics::TColor Value);
  183. void __fastcall SetTrackPartialFillColor(Graphics::TColor Value);
  185. protected:
  186. virtual void __fastcall DrawTickText(double TickValue, AnsiString TickText, const Types::TRect &ARect);
  187. void __fastcall UpdateRecord(void);
  188. virtual void __fastcall UpdateData(System::TObject* Sender);
  189. virtual bool __fastcall EffectiveReadOnly(void);
  190. virtual bool __fastcall EditCanModify(void);
  191. virtual void __fastcall PaintThumb(int ALeft, int ATop);
  192. virtual double __fastcall getPosition(void);
  193. Types::TRect __fastcall GetTrackBarRect();
  194. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  195. virtual void __fastcall CreateWnd(void);
  196. virtual void __fastcall DestroyWnd(void);
  197. HIDESBASEDYNAMIC void __fastcall Changed(void);
  198. virtual void __fastcall DataChange(System::TObject* Sender);
  199. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  200. virtual void __fastcall Paint(void);
  201. int __fastcall ValToPixel(Extended Val);
  202. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  203. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  204. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  206. public:
  207. __fastcall virtual TfcTrackBar(Classes::TComponent* AOwner);
  208. __fastcall virtual ~TfcTrackBar(void);
  209. __property Dbctrls::TFieldDataLink* DataLink = {read=FDataLink};
  210. __property Db::TField* Field = {read=GetField};
  212. __published:
  213. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  214. __property TfcTrackBarText* TextAttributes = {read=FTextAttributes, write=FTextAttributes};
  215. __property Graphics::TBitmap* TrackThumbIcon = {read=GetThumbIcon, write=SetThumbIcon};
  216. __property Graphics::TColor ThumbColor = {read=FThumbColor, write=SetThumbColor, nodefault};
  217. __property int SpacingLeftTop = {read=FSpacingLeftTop, write=SetSpacingLeftTop, default=5};
  218. __property int SpacingRightBottom = {read=FSpacingRightBottom, write=SetSpacingRightBottom, default=5};
  219. __property int SpacingEdgeTrackbar = {read=FSpacingEdgeTrackbar, write=SetSpacingEdgeTrackbar, default=2};
  220. __property bool ReadOnly = {read=FReadOnly, write=FReadOnly, nodefault};
  221. __property bool Inverted = {read=FInverted, write=FInverted, default=0};
  222. __property Graphics::TColor TrackColor = {read=FTrackColor, write=SetTrackColor, default=16777215};
  223. __property Graphics::TColor TrackPartialFillColor = {read=FTrackPartialFillColor, write=SetTrackPartialFillColor, default=536870911};
  224. __property Align ;
  225. __property Anchors ;
  226. __property BorderWidth ;
  227. __property Ctl3D ;
  228. __property DragCursor ;
  229. __property DragKind ;
  230. __property DragMode ;
  231. __property Enabled ;
  232. __property Constraints ;
  233. __property double Increment = {read=FIncrement, write=SetIncrement};
  234. __property double Max = {read=FMax, write=SetMax};
  235. __property double Min = {read=FMin, write=SetMin};
  236. __property TfcTrackBarOrientation Orientation = {read=FOrientation, write=SetOrientation, default=0};
  237. __property ParentCtl3D ;
  238. __property ParentShowHint ;
  239. __property int PageSize = {read=FPageSize, write=SetPageSize, default=2};
  240. __property PopupMenu ;
  241. __property double Frequency = {read=FFrequency, write=SetFrequency};
  242. __property double Position = {read=getPosition, write=SetPosition};
  243. __property bool SliderVisible = {read=FSliderVisible, write=SetSliderVisible, default=1};
  244. __property double SelEnd = {read=FSelEnd, write=SetSelEnd};
  245. __property double SelStart = {read=FSelStart, write=SetSelStart};
  246. __property ShowHint ;
  247. __property TabOrder ;
  248. __property TabStop ;
  249. __property int ThumbLength = {read=GetThumbLength, write=SetThumbLength, default=20};
  250. __property int ThumbThickness = {read=GetThumbThickness, write=SetThumbThickness, default=10};
  251. __property TfcTickMark TickMarks = {read=FTickMarks, write=SetTickMarks, default=0};
  252. __property TfcTickStyle TickStyle = {read=FTickStyle, write=SetTickStyle, default=1};
  253. __property Visible ;
  254. __property OnContextPopup ;
  255. __property TfcDrawTickTextEvent OnDrawTickText = {read=FOnDrawTickText, write=FOnDrawTickText};
  256. __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  257. __property OnDragDrop ;
  258. __property OnDragOver ;
  259. __property OnEndDock ;
  260. __property OnEndDrag ;
  261. __property OnEnter ;
  262. __property OnExit ;
  263. __property OnKeyDown ;
  264. __property OnKeyPress ;
  265. __property OnKeyUp ;
  266. __property OnStartDock ;
  267. __property OnStartDrag ;
  268. __property AnsiString DataField = {read=GetDataField, write=SetDataField};
  269. __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
  270. public:
  271. #pragma option push -w-inl
  272. /* TWinControl.CreateParented */ inline __fastcall TfcTrackBar(HWND ParentWindow) : Fcpanel::TfcCustomPanel(ParentWindow) { }
  273. #pragma option pop
  275. };
  278. class PASCALIMPLEMENTATION TfcTrackBarText : public Classes::TPersistent 
  279. {
  280. typedef Classes::TPersistent inherited;
  282. private:
  283. bool FShowText;
  284. TfcTrackBarTextPosition FPosition;
  285. int FOffsetX;
  286. int FOffsetY;
  287. AnsiString FDisplayFormat;
  288. int FTickLabelFrequency;
  289. AnsiString FTickDisplayFormat;
  290. void __fastcall SetFont(Graphics::TFont* Value);
  291. Graphics::TFont* __fastcall GetFont(void);
  292. void __fastcall SetPosition(TfcTrackBarTextPosition Value);
  293. void __fastcall SetOffsetX(int Value);
  294. void __fastcall SetOffsetY(int Value);
  295. void __fastcall SetDisplayFormat(AnsiString Value);
  296. void __fastcall SetShowText(bool Value);
  297. void __fastcall SetTickLabelFrequency(int Value);
  298. void __fastcall SetTickDisplayFormat(AnsiString Value);
  300. public:
  301. TfcTrackBar* Owner;
  302. __fastcall TfcTrackBarText(Classes::TComponent* AOwner);
  304. __published:
  305. __property TfcTrackBarTextPosition Position = {read=FPosition, write=SetPosition, default=0};
  306. __property int OffsetX = {read=FOffsetX, write=SetOffsetX, default=0};
  307. __property int OffsetY = {read=FOffsetY, write=SetOffsetY, default=0};
  308. __property Graphics::TFont* Font = {read=GetFont, write=SetFont};
  309. __property AnsiString DisplayFormat = {read=FDisplayFormat, write=SetDisplayFormat};
  310. __property bool ShowText = {read=FShowText, write=SetShowText, default=0};
  311. __property int TickLabelFrequency = {read=FTickLabelFrequency, write=SetTickLabelFrequency, default=0};
  312. __property AnsiString TickDisplayFormat = {read=FTickDisplayFormat, write=SetTickDisplayFormat};
  313. public:
  314. #pragma option push -w-inl
  315. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcTrackBarText(void) { }
  316. #pragma option pop
  318. };
  321. //-- var, const, procedure ---------------------------------------------------
  323. } /* namespace Fctrackbar */
  324. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  325. using namespace Fctrackbar;
  326. #endif
  327. #pragma option pop // -w-
  328. #pragma option pop // -Vx
  330. #pragma delphiheader end.
  331. //-- end unit ----------------------------------------------------------------
  332. #endif // fctrackbar