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

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

Delphi控件源码

开发平台：

Delphi

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