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