[FMX]教程:运行时动态修改 FMX 样式

简单说几个点:

1、FMX 框架下,样式是通过名称来标志的。

2、GetStyleObject 默认是克隆原始的样式,所以直接修改对象自身的 FResourceLink 实例,不会影响其它样式,如果要修改全部同一类型控件的样式,手动调用控件的 GetStyleObject(false) 来获取样式的原始实例即可,进行调整即可。

2、只修改当前实例的特定样式步骤:

  • 通过 ResourceLink 保护属性获取对应的样式对象(受保护成员具体如何访问参考以前的文章)
  • 直接修改对应的样式对象或者从 ResourceLink 中删除它,然后再创建一个新的 StyleName 同名的对象,添加到 ResourceLink 中
  • 调用 ApplyStyle 保护方法,来应用样式

3、修改全局样式步骤:

  • 通过 GetStyleObject 保护方法,获取原始的对象链接。
  • 查找对应的样式对象实例
  • 视需要直接修改对应的样式对象或者从 ResourceLink 中删除它,然后再创建一个新的 StyleName 同名的对象,添加到 ResourceLink 中
  • 发送 TStyleChangedMessage 消息,这样所有的控件都会更新样式。如果只是当前控件,那么调用下NeedStyleLookup 即可。

参考代码:

uses syste
m.Messaging;
{$R *.fmx}
type
THackedListView=class(TListView)

end;
procedure TForm4.ComboColorBox1Change(Sender: TObject);
var
  AStyle,AStyleLink:TFMXObject;
begin
// 仅修改 ListView1 的样式
//  AStyleLink:=THackedListView(ListView1).ResourceLink;
// 修改全局的 TListView 样式
  AStyleLink:= THackedListView(ListView1).GetStyleObject(false);
  AStyle:=AStyleLink.FindStyleResource('selection');
  if Assigned(AStyle) then
  begin
    if not (AStyle is TColorObject) then
      begin
      AStyleLink.RemoveObject(AStyle);
      AStyle:=TColorObject.Create(AStyleLink);
      AStyle.StyleName:='selection';
      AStyleLink.AddObject(AStyle);
      end;
      (AStyle as TColorObject).Color:=ComboColorBox1.Color;  
//仅修改 ListView1 的样式
//  THackedListView(ListView1).ApplyStyle;
// 修改了全局样式,但当前只应用 ListView1
//  ListView1.NeedStyleLookup;
// 修改了全局样式,其它所有 ListView 都更新
      TMessageManager.DefaultManager.SendMessage(Sender,TStyleChangedMessage.Create(StyleBook));

  end;
end;

上面的代码在 Windows 下是没有问题的,在其它平台,由于在克隆样式时,FMX 采用了不同的策略,所以需要做变动,参考代码如下:

type
  THackedListView = class(TListView)

  end;

procedure ChangeListViewSelectionColor(AListView: TListView; ANewColor: TAlphaColor); overload;
var
  AStyle, AStyleLink: TFmxObject;
begin
  AStyleLink := THackedListView(AListView).ResourceLink;
  AStyle := AStyleLink.FindStyleResource('selection');
  if Assigned(AStyle) then
  begin
    if not(AStyle is TColorObject) then
    begin
      AStyleLink.RemoveObject(AStyle);
      AStyle := TColorObject.Create(AStyleLink);
      AStyle.StyleName := 'selection';
      AStyleLink.AddObject(AStyle);
    end;
    (AStyle as TColorObject).Color := ANewColor;
    THackedListView(AListView).ApplyStyle;
  end;
end;

procedure ChangeListViewSelectionColor(ANewColor: TAlphaColor); overload;
var
  I: Integer;
  procedure ApplyColor(AParent: TFmxObject);
  var
    AIndex: Integer;
  begin
    if AParent is TListView then
      ChangeListViewSelectionColor(TListView(AParent),ANewColor);
    for AIndex := 0 to AParent.ChildrenCount - 1 do
      ApplyColor(AParent.Children[AIndex]);
  end;

begin
  for I := 0 to Screen.FormCount - 1 do
    ApplyColor(Screen.Forms[I]);
end;

Warning: Undefined variable $post_id in /www/qdac.cc/wp-content/themes/minty/functions.php on line 460
分享到:

评论已关闭。