procedure TForm1.Button1ApplyStyleLookup(Sender: TObject);
var bck : TFmxObject;
begin
bck:=Button1.FindStyleResource('background');
// on a affaire à un TButtonStyleObject
if (bck is TButtonStyleObject) AND (not TButtonStyleObject(bck).NormalLink.IsEmpty) then
 begin
  TButtonStyleObject(bck).NormalLink.Clear; // désactive le fond normal
  TButtonStyleObject(bck).FocusedLink.Clear; // désactive le fond si focus
 end;
end;

procedure TForm3.Rectangle2Click(Sender: TObject);
var bmp : Tbitmap;
    dbmp : TBitmapData;
    dobreak : boolean;
    x,y :integer;
begin
 bmp:=Rectangle2.MakeScreenshot;
 bmp.Map(TMapAccess.read,dbmp);
 var tcolor:=dbmp.GetPixel(0,0);   // topleft
 var cColor:=dbmp.GetPixel(dbmp.width div 2, dbmp.height div 2);   // center
 radiant.text:=format('%s %s',[AlphaColorToString(tcolor), AlphaColorToString(ccolor)]);
 bmp.Unmap(dbmp);
 freeandnil(bmp);
end;

procedure TForm1.AddDirectories(ParentNode: TTreeviewItem; const Path: string);
var
  SubDirs: TStringDynArray;
  SubDir: string;
  NewNode: TTreeviewItem;
  HasChildren: Boolean;
begin
  // Récupère tous les sous-répertoires en une seule ligne
  if DirectoryExists(Path) then
  begin
    SubDirs := TDirectory.GetDirectories(Path, '*',
      TSearchOption.soTopDirectoryOnly);
    for SubDir in SubDirs do
    begin
 //      try
 //        HasChildren := Length(TDirectory.GetDirectories(SubDir)) > 0;
        NewNode := TTreeViewItem.Create(ParentNode);
        NewNode.Parent := ParentNode;
        NewNode.Text := TPath.GetFileName(SubDir); // Nom seul, sans le chemin
        NewNode.ImageIndex := 0;
        NewNode.TagString := StrNew(PChar(SubDir)); // Chemin complet stocké
        NewNode.OnClick := TreeViewItemClick;
        // Vérifie si ce sous-dossier a lui-même des enfants
        // pour afficher ou non le bouton [+]
        try
          HasChildren := Length(TDirectory.GetDirectories(SubDir)) > 0;
        except
          HasChildren := False;
        end;

        if HasChildren then
          // Nœud fantôme : déclenche l'affichage du bouton [+]
          NoeudFantome(NewNode);
    end;
  end;
end;

procedure TForm3.AddSystemPath;
var
  SystemItem, DiskItem: TTreeViewItem;
begin
  SystemItem := TTreeViewItem.Create(Self);
  SystemItem.Text := 'Ce PC';
  SystemItem.ImageIndex := 2;
  SystemItem.TagString := '';
  SystemItem.OnClick := TreeViewItemClick;
  SystemItem.Parent := TreeView1;
  for var s in TDirectory.GetLogicalDrives do
  begin
    DiskItem := TTreeViewItem.Create(Self);
    DiskItem.Parent := SystemItem;
    DiskItem.Text := s;
    DiskItem.ImageIndex := 3;
    DiskItem.TagString := S;
    DiskItem.OnClick := TreeViewItemClick;
    AddDirectories(DiskItem, S);
  end;
end;

procedure Tcomparateur.RefreshWindowsMnu;
var amnuItem : TMenuItem;
begin
for var F  in Datas.Childforms do     //  Childforms  est TDictionary<String,PForm>, PForm : un pointeur de TForm
  begin
    amnuitem:=TmenuItem.Create(Fenetres);   // fenetres est un TMenuItem
    amnuItem.Parent:=Fenetres;
    amnuItem.Text:=F.Key;
    amnuItem.name:=StringReplace(F.key,'.','',[rfReplaceAll]);
    amnuItem.OnClick:=ShowChildWindow;
  end;
end;

 
var sb : TFMXObject;
begin
  if assigned(btnStyle.Scene) then
   begin
   if not Assigned(btnStyle.Scene.StyleBook) then
      sb := TStyleManager.ActiveStyleForScene(btnstyle.Scene)
    else
      sb := btnStyle.Scene.StyleBook.Style;

type
  TForm3 = class(TForm)
    StyleBook1: TStyleBook;
    Button1: TButton;
    FlowLayout1: TFlowLayout;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
       FFrames : TDictionary<String,TFrame>;
       procedure CloseFrame(Sender : TObject);
  public
    { Déclarations publiques }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.fmx}
 
procedure TForm3.Button1Click(Sender: TObject);
var F : TFrame1;
begin
if opendialog1.execute then
begin
 // pas de doublon possible
 if not FFrames.ContainsKey(ExtractFileName(Opendialog1.FileName)) then
 begin
   // création du cadre
   F:=TFrame1.Create(Self);
   F.Parent:=FlowLayout1;
   var t:=StringReplace(ExtractFileName(Opendialog1.FileName),'.','',[TReplaceFlag.rfReplaceAll]);
   F.Name:=T;
   F.Label1.Text:=ExtractFileName(Opendialog1.FileName);
   F.SpeedButton1.TagObject:=F;  // bouton de fermeture du cadre
   F.SpeedButton1.OnClick:=CloseFrame;
   F.LoadStyle(Opendialog1.FileName);   // permet de charger le fond 
   FFrames.Add(F.Label1.Text,F);
 end;
end;
end;
 
procedure TForm3.CloseFrame(Sender: TObject);
begin
// supprimer un cadre
var F :=TSpeedButton(Sender).TagObject as TFrame1;
FFrames.Remove(F.Label1.Text);
FreeAndNil(TSpeedButton(Sender).TagObject);
// Button1.SetFocus; fonctionne pas !?
end;
 
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
var F : TFrame;
begin
// supprimer les cadres restant
for var cle in FFrames.Keys do
 begin
  if FFrames.TryGetValue(cle,F) then F.Free;
  FFrames.Remove(cle);
 end;
// supprimer le dictionnaire
FreeAndNil(FFrames);
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
// créer de dictionnaire
FFrames:=TDictionary<String,TFrame>.Create;
end;

constructor TFrame1.Create(AOwner: TComponent);
begin
inherited;
StyleBook:=TStyleBook.Create(self);
end;
 
destructor TFrame1.Destroy;
begin
StyleBook.Free;
inherited;
end;
 
procedure TFrame1.LoadStyle(const filename: String);
var aStream : TMemoryStream;
    Back: TControl;
begin
aStream:=TMemoryStream.Create;
try
  aStream.LoadFromFile(FileName);
  aStream.Position:=0;
  StyleBook.LoadFromStream(aStream);
finally
  aStream.Free;
end;
var Style := StyleBook.Styles[0].Style;
var Backg := Style.FindStyleResource('backgroundstyle');
       if Assigned(Backg) then
        begin
          Back := Backg.Clone(LayoutView) as TControl;
          Back.Parent := LayoutView;
          Back.Align := TAlignLayout.Client;
          Back.HitTest := false;
          Back.Visible := True;
        end;
 
end;

{$R svgbuttonstyle.res svgbuttonstyle.rc}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
button1.IsPressed:=not button1.IsPressed;
var t:=button1.FindStyleResource('pressedstyle');
if assigned(t) then TColorAnimation(t).Enabled:=button1.IsPressed;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
button1.ApplyStyleLookup;
end;
 
initialization
 TStyleStreaming.LoadFromResource(HInstance,'fmxsvgbuttonstyle',RT_RCDATA);

object TStyleContainer
  object TLayout
    StyleName = 'svgbuttonstyle'
    Align = Center
    Size.Width = 177.666687011718800000
    Size.Height = 38.000000000000000000
    Size.PlatformDefault = False
    Visible = False
    TabOrder = 0
    object TRectangle
      StyleName = 'background'
      Align = Contents
      Fill.Color = claSilver
      Size.Width = 177.666687011718800000
      Size.Height = 38.000000000000000000
      Size.PlatformDefault = False
      Stroke.Kind = None
      object TRectangle
        StyleName = 'buttoncontent'
        Align = Client
        Fill.Kind = None
        HitTest = False
        Size.Width = 177.666687011718800000
        Size.Height = 38.000000000000000000
        Size.PlatformDefault = False
        Stroke.Kind = None
        object TSkSvg
          StyleName = 'svg'
          Align = Left
          Anchors = [akLeft, akTop, akRight, akBottom]
          Margins.Left = 2.000000000000000000
          Margins.Top = 2.000000000000000000
          Margins.Right = 2.000000000000000000
          Margins.Bottom = 2.000000000000000000
          Position.X = 2.000000000000000000
          Position.Y = 2.000000000000000000
          Size.Width = 36.000000000000000000
          Size.Height = 34.000000000000000000
          Size.PlatformDefault = False
          Svg.Source = 
            '<svg xmlns="http://www.w3.org/2000/svg" width="1200" height="800' +
            '">'#13#10'<rect width="1200" height="800" fill="#0057B7"/>'#13#10'<rect widt' +
            'h="1200" height="400" y="400" fill="#FFD700"/>'#13#10'</svg>'
        end
        object TLabel
          StyleName = 'text'
          Align = Client
          Size.Width = 137.666687011718800000
          Size.Height = 38.000000000000000000
          Size.PlatformDefault = False
          Text = 'Texte'
          TabOrder = 1
        end
      end
      object TColorAnimation
        StyleName = 'mouseoverstyle'
        Enabled = True
        Duration = 0.200000002980232200
        Inverse = True
        PropertyName = 'Fill.Color'
        StartValue = claSilver
        StopValue = claTurquoise
        Trigger = 'IsMouseOver=true'
        TriggerInverse = 'IsMouseOver=false'
      end
      object TColorAnimation
        StyleName = 'pressedstyle'
        Duration = 0.200000002980232200
        PropertyName = 'Fill.Color'
        StartValue = claSilver
        StopValue = claYellowgreen
        Trigger = 'IsPressed=true'
        TriggerInverse = 'IsPressed=false'
      end
    end
  end
end