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

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

Delphi控件源码

开发平台：

Delphi

trackdemo.pas：源码内容
  1. unit trackdemo;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, dbcgrids, DB, DBTables, ExtCtrls, fcpanel,
  8.   fctrackbar, ComCtrls, fcLabel, StdCtrls, fcDemoRichEdit, Grids;
  10. type
  11.   TTrackbarForm = class(TForm)
  12.     fcGroupBox1: TfcGroupBox;
  13.     fcDemoRichEdit1: TfcDemoRichEdit;
  14.     fcLabel1: TfcLabel;
  15.     fcGroupBox2: TfcGroupBox;
  16.     fcLabel2: TfcLabel;
  17.     fcTrackBar1: TfcTrackBar;
  18.     fcTrackBar7: TfcTrackBar;
  19.     fcDemoRichEdit2: TfcDemoRichEdit;
  20.     fcTrackBar5: TfcTrackBar;
  21.     fcTrackBar4: TfcTrackBar;
  22.     fcGroupBox3: TfcGroupBox;
  23.     fcTrackBar6: TfcTrackBar;
  24.     fcDemoRichEdit3: TfcDemoRichEdit;
  25.     fcGroupBox4: TfcGroupBox;
  26.     DBCtrlGrid1: TDBCtrlGrid;
  27.     fcTrackBar2: TfcTrackBar;
  28.     DataSource1: TDataSource;
  29.     Table1: TTable;
  30.     procedure fcTrackBar6DrawTickText(Sender: TObject; TickValue: Double;
  31.       var ATickText: String; var ARect: TRect; var DoDefault: Boolean);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   TrackbarForm: TTrackbarForm;
  41. implementation
  43. {$R *.dfm}
  45. procedure TTrackbarForm.fcTrackBar6DrawTickText(Sender: TObject;
  46.   TickValue: Double; var ATickText: String; var ARect: TRect;
  47.   var DoDefault: Boolean);
  48. var TickInt: integer;
  49. begin
  50.   TickInt:= Round(TickValue);
  51.   if (abs(TickValue-TickInt)<0.01) then
  52.   begin
  53.     case TickInt of
  54.       0: ATickText:= 'Low';
  55.       1: ATickText:= 'Medium';
  56.       2: ATickText:= 'High';
  57.       3: ATickText:= 'Top Priority';
  58.     end;
  59.   end;
  60. end;
  62. end.