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的控件是否(滑动)滚动的公共单元》