Delphi FMX怎样控制Listview和继承自TCustomPresentedScrollBox的控件在MsWindows和Linux下滚动条的宽窄等

Delphi FMX怎样控制Listview和继承自TCustomPresentedScrollBox的控件在MsWindows和Linux下滚动条的宽窄等

 

procedure TfrmGoodsDefine.FormCreate(Sender: TObject);
var
  LScrollBar_ListView1: TControl;
  //LScrollBar_Memo1,LScrollBar_ScrollBox: TScrollBar;
    //:持久样式资源类遍历不了的:TSizeGrip uses FMX.StdCtrls;//TStyledControl uses FMX.Controls;
begin
  {$IFDEF MSWindows or Linux}
    StyleBook_VertScrollBox_GoodsDefine.FileName:='VertScrollBox_GoodsDefine.Style';
    self.StyleBook:=StyleBook_VertScrollBox_GoodsDefine;
    //(StyleBook_VertScrollBox_GoodsDefine.FindStyleResource('vscrollbar') as TScrollBar).Width := 4;
      //:默认=16;控件右键Edit Custom Style然后Style Designer修改后保存到本地修改为4
      //:控件TScrollBox一族和TMemo都是直接这样改样式文件后Deployment发布到包对应文件夹即可
    for LScrollBar_ListView1 in ListView1.Controls do
      if LScrollBar_ListView1 is TScrollBar then
      begin
        LScrollBar_ListView1.Width := 4;
        //:Listview控件Windows和Android下这样都行...Linux下还是很宽不知改到没有?!
      end;
  {$ENDIF}
end;

本博客相关:

        《FMX用AniCalculations控制基类为TScrollBox的控件是否(滑动)滚动的公共单元

 

 

 

  • 1
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

pulledup

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值