TrackBar,
设置为tboVertical后,
上端显示为0,下面显示为200,
怎么让数值大的在上面。
设置为tboVertical后,
上端显示为0,下面显示为200,
怎么让数值大的在上面。
解决方案 »
- delphi调用php webservice 出错
- 帮帮忙!!
- [大龍駒] 昨晚喝醉了, 醉人醉語, 散分.
- 我想在提交数据前自动计算2个子段的积,并送入第三个子段,怎么实现?
- 在电脑上装了一个输入设备,类型于健盘一样的东西,不过只有一个健,现在我想当按
- 关于dcu文件问题高手看过来~~
- 三層結構問題,DCOMconnection連接的servername和GUID設置正確,但是連接時出錯:RPC伺服器沒有聽候指令,為什麼?
- 函数的调用
- 如何做一个单机运行的数据库程序!
- 有没有人知道怎么使三个或更多个timer同时有效
- installshield 2010
- delphi 关于dom元素获取。 (使用mshtml IHTMLDocument)进入看详情!
1 在dev安装目录下找出cxtrackbar.pas文件拷贝到你的项目文件夹下
2 项目中加入该文件
3 打开cxtrackbar.pas文件进行如下修改//第一步:
//找到这个方法
procedure TcxCustomTrackBarViewInfo.DrawTicks(ACanvas: TcxCanvas);修改这句
// for I := Min to Max do //修改前
for I := Max downto Min do//修改后
//第二步, GetTickOffset函数改成下边的:
function GetTickOffset(AIndex: Integer): Integer;
begin
// Result := Round(TickOffset * (AIndex - Min)) + (ThumbSize div 2);
Result := Round(TickOffset * (Max - AIndex - Min)) + (ThumbSize div 2);
end;//第三步, 外部提取cxTrackBar1.Position时加控制, 如下
caption := IntToStr(cxTrackBar1.Properties.Max - cxTrackBar1.Position);
这样处理比较简单快速
如果要更强大的功能, 就比较麻烦(改的代码较多)