Forum du club des d�veloppeurs et IT Pro - Composants FMX

Analyser une image contenant un gradient (d�grad� de couleurs)

SergioMaster — Mon, 25 May 2026 07:47:30 GMT

Bonjour,

Je cherche des pistes pour mieux d�finir mon analyse de gradient.

Mon programme test est basique. Au design je cr�� un rectangle avec un gradient.

puis via le onclick j'utilise ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;

Facile, oui, mais, ce n'est qu'un exemple particulier !
Comment d�tecter le type (radial dans cet exemple) et surtout le centre ?
Dans le cas d'un gradient lin�aire cela devient encore plus compliqu� puisque l'angle va jouer !

Et enfin, je ne me suis arr�t� qu'� deux couleurs or les possibilit�s des gradients (m�me si je trouve que le designer est plut�t bogu�) sont �normes.

Il y a d�j� un bail, j'avais fait un truc par code pour un composant led
. Cet apart� me fait penser que depuis 2022 les choses ont peut-�tre chang� :roll:

Vous vous poserez peut-�tre la question du pourquoi je me casse la t�te. Ma r�ponse : cela concerne toujours les styles firemonkey

Comment extraire le gradient du style Calypso complexe puisqu'il me semble qu'il est impossible � r�aliser avec Delphi, il doit manquer les gradients de type conique et mesh (encore que pour ce dernier je pense que ce n'est qu'un probl�me de centre)

Images attach�es

[Windows] Les styles Metroplis*.style

SergioMaster — Sat, 02 May 2026 08:54:39 GMT

Bonjour,
Toujours dans ma future unit� permettant un dialogue d'ouverture de fichier je suis "tomb�" sur un cas �trange voil� deux images.

D�j� que les styles W10Modern*.style ne respectent pas les hauteurs des composants lors du design (je pense en connaitre la raison).

C'est surtout la seconde image qui m'interpelle.

Comme vous le constatez l'arborescence est bogu�e (pour ne pas dire de gros mots).

Questions : Pourquoi ? Comment m'en sortir ? C'est quoi metropolis de Microsoft (j'ai compl�tement oubli�) ?

Aucune urgence, je vais simplement enlever ces Metropolisxxx de ma boite de choix, mais quand m�me, c'est �trange et c'est le genre de chose qui surprend.

Images attach�es

[Windows] Faire une arborescence de r�pertoires (Delphi 12+)

SergioMaster — Tue, 21 Apr 2026 08:17:07 GMT

Bonjour,

Je me suis lanc� dans une sorte de d�fi : Faire l'�quivalent d'un TOpendialog mais avec "style". Pour l'instant je m'occupe de la partie r�pertoires

Mais je tombe sur un os :
EDirectoryNotFoundException 'Impossible de trouver le chemin sp�cifi� [C:\Documents and Settings]'.

Qu'est-ce que ce c:\Documents and Settings ? Un lien symbolique

Si je sais comment ne plus afficher ce "Documents and settings" simplement en d�pla�ant les lignes try HasChildren := Length(TDirectory.GetDirectories(SubDir)) > 0; comme marqu� ici en rouge,
je ne voudrai pas pass� � cot� d'un lien particulier.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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;

utilisation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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;

En bref, GetDirectories est rapide mais est-ce la meilleure solution ?

En attendant, je vais continuer en codant la partie onExpand

Images attach�es

[Windows] Fusion de menu

SergioMaster — Tue, 14 Apr 2026 06:32:10 GMT

Bonjour,

Si en VCL la fusion de menu est simple, je n'ai pas trouv� son �quivalent. A moins que ce soit moi ?

Ajouter des �l�ments de menu est semble t-il assez simple, j'ai fait un truc de ce genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure Tcomparateur.RefreshWindowsMnu;
var amnuItem : TMenuItem;
begin
for var F  in Datas.Childforms do     //  Childforms  est TDictionary, 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;

Mais qu'en est-il de la suppression d'un �l�ment ainsi cr�� ?

Question subsidiaire : comment faire en sorte d'ins�rer les items cr��s au dessus des options "fixe" (par exemple Fermer tout, R�duire tout) ?

Utilisation de TImageViewer

_alx_ — Thu, 02 Apr 2026 10:05:34 GMT

Bonjour,
Je veux visualiser une image dans un TImageviewer et pouvoir adresser les pixels � l'aide la souris.
Par d�faut, qu'elle que soit la taille du composant d�finie � la cr�ation, la taille de l'image visualis�e est adapt�e � la fen�tre du composant (option "bestfit").
Le niveau de zoom peut alors �tre chang� en utilisant la molette centrale de la souris, et le centrage de l'image ajust� avec les curseurs lat�raux (option "scroll"). C'est parfait.
Maintenant, en promenant la souris (option "hittest'' et utilisation de l'�v�nement "mousemove"), j'obtiens des coordonn�es X et Y pour chaque pixel, qui semblent �tre des coordonn�es ''�cran''.
J'ai bien trouv� la m�thode "screentolocal" mais elle donne des coordonn�es dans le composant (donc apr�s centrage et zoom).
Quelle est la m�thode pour les transformer en coordonn�es dans l'image initiale ?
Merci, d'avance.

[Windows] TFlowLayout questions de manipulations

SergioMaster — Thu, 02 Apr 2026 09:08:40 GMT

Bonjour,

Dans mon programme de comparateur de style (cf. discussion 1, discusion 2)
j'utilise un TFlowLayout pour pour stocker des cadres (TFrame) tous identiques.

Ma premi�re question concerne le premier cadre pos�. Comment faire en sorte que le cadre montrant le style de r�f�rence soit toujours le premier dans le TFlowlayout ?
Je m'explique, quand je d�marre mon application (obligatoirement sous windows) j'obtiens mon "style par d�faut" (selon la version de windows).
J'ai une option de programme qui me permet de changer ce style (que je nomme mon style de r�f�rence)

Seulement je voudrais que ce style de r�f�rence (dans cette image UbuntuClearFantasy) soit le premier cadre dans mon TLayout

Deuxi�me question, beaucoup plus subsidiaire, j'ai mis ce TFlowLayout au sein d'un TScrollbox pour tenter d'obtenir un d�filement, seulement, la plupart du temps je ne vois absolument pas les barres de d�filement.
Si, pour la barre horizontale, j'arrive � comprendre la cause autant pour la barre verticale j'ai de r�els soucis l'affichage de cette barre �tant vraiment trop al�atoire !
Je pense que mon souci vient essentiellement du calcul de la taille du TFlowLayout. Comment calculer correctement ses hauteurs et largeurs et dans quel �v�nement ?

Images attach�es

Obtenir le style en cours / Faire un comparateur

SergioMaster — Sun, 29 Mar 2026 09:10:28 GMT

Bonjour,

Il y a d�j� un bail, que je sais comment obtenir le style d'un TControl en utilisant sa "scene"

Code:

1
2
3
4
5
6
7
8
9
 
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;

seulement il ne s'agit pas du style de la fiche et j'ai un gros doute sur le r�sultat si je teste ce code dans le onCreate de la fiche

Mais voil�, un TForm n'est pas un TControl et donc, n'a pas de scene.

Comment alors obtenir le style utilis� � la cr�ation de la forme si StyleBook est vide ?

Images attach�es

Tableau de Tframes - perte de focus sur l'application

SergioMaster — Sat, 28 Mar 2026 09:12:46 GMT

Bonjour,

En fait, je tente de cr�er un comparateur de style. Pour cela dans ma fiche principale j'ai un TFlowlayout (ce qui ressemble beaucoup � un tableau d'o� le titre).
Voil� ce que cela donne (ceci n'est, pour l'instant, qu'un brouillon)

Comme vous le constaterez, il est possible de supprimer un �l�ment du tableau et c'est peut-�tre de l� que viens le souci.
Si je ferme l'une de ces cadres, j'ai l'impression de perdre le focus. C'est � dire que je ne peux pas fermer la fen�tre principale. Il faut que je clique sur le bouton (m�me en annulant ensuite le dialogue) pour "r�-avoir" la main.
Maintenant que j'y pense, j'ai d�j� eu ce cas lors de cl�ture d'onglet mais avec des Fiches "dock�es", je vais fouiller cette piste mais, en attendant, voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
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;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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;

Images attach�es

[Android] Quelle m�moire allou�e et quelle m�moire utilis�e par une app?

Anselme45 — Wed, 11 Mar 2026 09:55:32 GMT

Petit pr�ambule: Je poste cette discussion sous "Composants FMX" bien que cela ne concerne pas vraiment un composant FMX mais plus pr�cis�ment une probl�matique pos�e par Android et comme il n'y a pas un chapitre Delphi/Android, je poste la discussion sous FMX (parce que le plus souvent FMX = app multi-plateforme = Android)

Mon probl�me: Afficher dans une app, la m�moire allou�e � l'app par Android et la m�moire vraiment utilis�e � l'instant t...

J'ai beau eu cherch�, j'ai pas trouv� la solution:

1. Je peux afficher la m�moire totale de l'appareil et la m�moire encore disponible � l'instant t, mais cela ne dit rien puisque par une soustraction on va obtenir la m�moire utilis�e par la totalit� des app qui tournent sur l'appareil Android et pas sp�cifiquement pour une app donn�e

2. On peut v�rifier dans les options de d�veloppement de l'appareil Android, l'utilisation moyenne de la m�moire faite par l'app sur une dur�e pr�d�finie du genre 1 jour, 3 jours, 1 semaine >>> Ce n'est pas ce que je veux!

3. On peut visualiser l'utilisation de la m�moire via Android Studio >>> Ce n'est pas ce que je veux!

Est-ce que quelqu'un connait un moyen d'obtenir la m�moire max allou�e � une app et la m�moire vraiment utilis�e pas une app Android via du code Delphi?

Un bouton avec un TSKSVG

SergioMaster — Sat, 28 Feb 2026 08:06:52 GMT

Citation:

Envoy� par SergioMaster

Qui n'est pas frustr� par la taille des glyphes dans un FMX.TButton, sans parler du fait que l'on retombe dans l'utilisation d'un TImageList (avec 3 tailles par icones), impossible � agrandir sans passer par du code ! Un de mes projets est de cr�er un nouveau composant utilisant un SVG � la place du glyphe histoire de m'affranchir de la TimageList et de g�rer la taille ou du moins d'en faire quelque chose de plus "visible".

Une premi�re �bauche avant de passer au stade composant.

Au design

Comme vous le constaterez, pas de TStyleBook.
Le style est en fait inclus dans une ressource "ind�pendante"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{$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);

et voil� un premier r�sultat

Mais tout n'est pas rose, j'ai un probl�me avec le ispressed : si je repasse avec la souris je perd la couleur d�finie par le trigger ispressed :weird:

contenu du fichier .rc ?

Code:

fmxsvgbuttonstyle RCDATA "FMX.svgbuttonstyle.fsf"

le "source" du style ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
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 = 
            '#13#10''#13#10' +
            'h="1200" height="400" y="400" fill="#FFD700"/>'#13#10''
        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

comment je me suis d�brouill� pour obtenir le style ?
J'ai pos� un TStylebook, cr�� mon style (cf le source ci-dessus) et sauvegard� en .fsf vant de supprimer le TStyleBook.

Inconv�nient de cette m�thode : au design on a un bouton "standard" ce n'est qu'� l'�xecution que l'on voit le r�sultat d'o� l'id�e de cr�er un composant.
Inconnue actuelle : ce style, �videmment, devra se trouver dans l'unit� mais surtout �tre charg� autrement que par l'instruction que j'ai utilis�e

Code:

TStyleStreaming.LoadFromResource(HInstance,'fmxsvgbuttonstyle',RT_RCDATA);

Images attach�es

Modifier un style au runtime - Suite � son analyse

SergioMaster — Sat, 21 Feb 2026 08:33:48 GMT

Bonjour,

je n'en suis qu'aux pr�misses (donc test� uniquement avec le style windows11) mais je pense bient�t pouvoir le faire pour tous (background inclus)

J'ai cependant quelques soucis.
Je me suis seulement attach� � deux cas : des composants ayant des textes (TLabel, TButton) ou des glyphes (TButton)
Dans mon pr�c�dent post, j'ai donn� la possibilit� de charger un icone, mais si j'ai un menu option qui permet ou non d'indiquer l'affichage d'un glyph
Question Comment r�agir � ces options ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
 
// Changement d'un élément
procedure TMainForm_modif.ListBox1Click(Sender: TObject);
var
  DicProperties: TOrderedDictionary<string, TFmxObject>;
  Back: TControl;
  compoparent: TFmxObject;
  aFmxObj : TFmxObject;
 
  procedure Props(const C: TFMXObject; inDicList: TOrderedDictionary<string,
    TFMXObject>);
var
  ctx: TRttiContext;
  typ: TRttiType;
  prop : TArray;
  valeur : string;
begin
  if C.ChildrenCount = 0 then exit;
  for var ccomp in C.Children do
  begin
    ctx := TRttiContext.Create;
   try
    typ := ctx.GetType(ccomp.ClassType);
    if Assigned(typ) then
      begin
        prop := typ.GetProperties;
        SortRttiPropertiesByNameIgnoreCase(prop);
        for var S in prop do
          begin
            if S.HasName('stylename')
            //AND  S.IsReadable and S.IsWritable
            // AND (S.Visibility in [TMemberVisibility.mvPublic,TMemberVisibility.mvPublished])
            then
            begin
              valeur := #9 + S.GetValue(Ccomp).ToString;
              if Not valeur.Trim.IsEmpty then inDicList.add(S.GetValue(Ccomp).ToString ,ccomp);
            end;
          end;
        end;
    finally
      ctx.free;
    end;
  end;
end;
 
 
begin
  if (Listbox1.ItemIndex < 0) then exit;
  var item := Listbox1.ItemByIndex(Listbox1.ItemIndex);
  if SameText(item.StyleLookup, 'headeritemstyle') then exit;
  //
  LayoutView.DeleteChildren;
  var Style := DMModifyer.StyleToAnalyse.Styles[0].Style;
  var Backg := Style.FindStyleResource('backgroundstyle');
  var Compo := Style.FindStyleResource(Item.Text.trim);
 
  var c := Style.Components[Item.Tag];
  DicProperties := TOrderedDictionary<string, TFmxObject>.Create;
  try
    props(TFmxObject(C), DicProperties);
//    for var v in DicProperties do Memo1.Lines.add(V.Key);
    if DicProperties.ContainsKey('text') then
      begin
         DicProperties.TryGetValue('text',aFmxObj);
         TStyleTextObject(aFmxObj).Text:='Hello';
      end;
    if DicProperties.ContainsKey('glyphstyle') then
      begin
         DicProperties.TryGetValue('glyphstyle',aFmxObj);
         TGlyph(aFmxObj).Images:=mesimages;
         if mishowglyph.IsChecked then TGlyph(aFmxObj).ImageIndex:=0;
      end;
 
    compoparent := LayoutView;
    if c is TControl then // TControl
    begin
      compoparent := LayoutView;
      var Comp := Compo.Clone(compoparent) as TControl;
      comp.BeginUpdate;
 
      comp.Parent := compoparent;
      Comp.Align := TAlignLayout.Center;
              comp.Visible := true;
              comp.HitTest := False;
              if comp.FixedSize<>TSize.Zero then
               begin
                comp.Size.width:=Comp.FixedSize.Width;
                comp.Size.Height:=Comp.FixedSize.Height;
              // set FixedHeight and FixedWidth of the item to 0
                Comp.FixedSize := TSize.Zero;
               end
              else begin
              Comp.Size.Width:=LayoutView.width/2;
              Comp.Size.Height:=50;
              end;
      Comp.Anchors:=[TAnchorKind.akLeft,TAnchorKind.akRight,TAnchorKind.akTop,TAnchorKind.akBottom];
      if DicProperties.ContainsKey('text') then
      begin
         DicProperties.TryGetValue('text',aFmxObj);
         TStyleTextObject(aFmxObj).Text:='Hello';
      end;
 
      Comp.EndUpdate;
    end;
  finally
    FreeAndNil(DicProperties);
  end;
 
end;

Pour l'instant, ce que je consid�re comme bogues majeurs :

Le texte est chang� mais identique pour tous les styles cr��s
L'icone est toujours affich� (et le texte aussi) que ce soit pour tbuttonstyle, toolbutton ou tspeedbutton
Tous les �l�ments ne sont pas affich� dans mon panneau d'analyse :calim2: je dois avoir une diff�rence de code quelque part entre mon programme qui liste les �l�ments et celui-ci

Images attach�es

Remplir/modifier un TImageList au runtime

SergioMaster — Tue, 17 Feb 2026 10:44:03 GMT

Bonjour,

J'ai voulu faire le malin en me proposant de changer un TImageList au runtime. Et l� je s�che.
J'ai tent� plusieurs approches dont TCustomImageList(ImageLIst).AddOrSet mais cela semble remplir la source pas la destination

Code:

1
2
3
4
5
6
7
8
9
10
11
12
   Opendialog1.DefaultExt := '*.png';
    Opendialog1.Filter:='Fichier d''images en png|*.png|Fichier d''images en bmp|*.bmp';
    Opendialog1.InitialDir :='';
    Opendialog1.Title := 'Charger une liste d''images';
    if Opendialog1.Execute then
    begin
     imagelist1.BeginUpdate;
     newindex:=ImageList1.AddOrSet('ico1',[1],[opendialog1.FileName],TColors.SysNone);
     showmessage(newindex.tostring);
     imagelist1.EndUpdate;
     Glyph1.imageindex:=newindex;
    end;

�trangement newindex=7 alors que je n'ai rien au d�part :koi:

Bug d'affichage pour certains styles analys�s.

SergioMaster — Sun, 15 Feb 2026 08:37:16 GMT

Suite � cette discussion je me retrouve avec quelques probl�mes d'affichage :weird:
J'ai voulu am�lior� la pr�sentation en proposant de choisir entre diff�rents fonds et pas seulement celui du style ou aucun

et cela m'a fait d�couvrir le souci.

Si vous faites bien attention � cette derni�re image c'est comme si le composant utilisant buttonstyle �tait soit plus grand soit pas contenu soit :koi: dans le layout de visualisation.

mon code coupable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
  
LayoutView.DeleteChildren;
var Style := StyleBook1.Styles[0].Style;
var Backg := Style.FindStyleResource('backgroundstyle');

var c := Style.Components[Item.Tag];  
  try
    if Assigned(C) then
    begin
      Back := nil;
      if c is TControl then // TControl
      begin
        compoparent:=LayoutView;

        if cbBackgroud.IsChecked AND Assigned(Backg) then
        begin
          Back := Backg.Clone(LayoutView) as TControl;
          Back.Parent := LayoutView;
          Back.Align := TAlignLayout.Client;
          Back.HitTest := false;
          Back.Visible := True;
          compoparent :=Back;
        end;

        if cbcustom.IsChecked then
        begin
           Back:=TRectangle.Create(LayoutView);
           Back.parent:=Layoutview;
           TRectangle(Back).Fill.Color:=BackGroundColor.Color;
           TRectangle(Back).Stroke.Kind:=TBrushKind.None;
           Back.Align:=TAlignLayout.Client;
           compoparent :=Back;
        end;

        var Comp := Compo.Clone(LayoutView) as TControl;  // Layout ou compoparent ?
        comp.Visible := true;
        Comp.Align := TAlignLayout.Center;
        comp.HitTest := False;
        // set FixedHeight and FixedWidth of the item to 0
        Comp.FixedSize := TSize.Zero;  // Bug possible ?
        comp.Parent := compoparent;
       end;
    ... 
    
    end;
  except
  end;
  LayoutView.Repaint;

[Edit] j'ai modifi� l'ordre du code et mis des valeurs pour les largeur et hauteur du composant

Code:

1
2
3
4
5
6
7
8
9
        var Comp := Compo.Clone(compoparent) as TControl;
        comp.Parent := compoparent;
        // set FixedHeight and FixedWidth of the item to 0
        Comp.FixedSize := TSize.Zero;
        Comp.Align := TAlignLayout.Center;
        comp.Visible := true;
        comp.HitTest := False;
        Comp.Size.Width:=50;
        Comp.Size.Height:=50;

le hic c'est que, si �a s'affiche bien, les valeurs fixes �a me g�ne.

Images attach�es

FastReport FMX avec moins d'objets que pour VCL?

Anselme45 — Fri, 30 Jan 2026 11:18:33 GMT

Bonjour,

Sur Delphi12, j'installe via GetIt le composant intitul� "FastReport VCL & FMX".

Je constate que le composant FastReport plac� dans un projet multiPlateforme poss�de beaucoup MOINS de fonctionnalit�s que pour une application purement VCL.

Je le vois imm�diatement en regardant la liste des objets disponibles pour cr�er le rapport avec uniquement un objet texte et un objet image pour un projet MultiPlateforme alors que pour un projet VCL FastReport fournit toute une s�rie d'objets allant jusqu'� la possibilit� de g�rer des objets de type "code-barres".

Est-ce que mon diagnostic est correct?

Et est-ce que la version 2025 de FastReport qui est sens� s'installer sur Delphi13 (mais l'installation ne fonctionne pas, cf. mon autre billet sur Delphi-EDI) a �t� compl�t� et est-ce qu'il fournit l'objet code-barre?

Question subsidiaire: Si FastReport 2025 fournit l'objet "code-barres" pour les projets multiPlateforme, est-il possible d'installer la version FastReport2025 sur Delphi12?

Merci d'avance pour votre aide

Analyse d'un style Firemonkey

SergioMaster — Fri, 16 Jan 2026 08:01:24 GMT

Bonjour,

Suite � la discussion pr�c�dente
j'arrive d�sormais � explorer les styles (cach�s ou non) que ce soit en tant que fichier .style, .fsf ou m�me en .res.

ici, le style Gnome (oui, il existe, je l'ai "r�cup�r�" avec le programme de la discussion pr�c�dente) et pourtant le programme est Windows32

Comme vous le constatez sur cette image, je suis capable d'afficher les images utilis�es.

Pour certains styles je suis m�me capable de visualiser, plus ou moins correctement, quelques uns des �l�ments

Malheureusement ce n'est pas le cas de tous les �l�ments list�s. Logique, ce ne sont pas que des contr�les visuels.

Ma premi�re question du jour : comment savoir si un �l�ment est un contr�le visuel . J'ai d�j� distingu� 3 cas TControl, TText, TImage

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
    if Assigned(Compo) then
    begin
      if compo is Tcontrol then
      begin
        if Assigned(Backg) then
        begin
          Back := Backg.Clone(Layout1) as TControl;
          Back.Align := TAlignLayout.Client;
          Back.Parent := Layout1;
          Back.HitTest:=false;
        end
        else
          Back := nil;
 
        var Comp := Compo.Clone(Layout1) as TControl;
        comp.Visible := true;
        Comp.Align := TAlignLayout.Center;
        comp.HitTest:=False;
        if Assigned(Backg) then
          comp.Parent := Back
        else
          Comp.Parent := Layout1;
      end;
 
    if compo is TText then
    begin
      var Comp := Compo.Clone(Layout1) as TText;
      comp.Visible := true;
      comp.Text := 'Hello World';
      comp.AutoSize := true;
      Comp.Align := TAlignLayout.Center;
      Comp.HitTest:=False;
      if Assigned(Backg) then
        comp.Parent := Back
      else
        Comp.Parent := Layout1;
    end;
 
    if compo is TImage then
    begin
      var comp := Compo.Clone(Layout1) as TImage;
      comp.Bitmap := comp.MultiResBitmap.Items[0].Bitmap;
      comp.Parent := Layout1;
      comp.Align := TalignLayout.Client;
      comp.Margins.Rect := TRect.Create(3, 3, 3, 3);
      comp.wrapmode := Timagewrapmode.Stretch;
      comp.HitTest:=False;
      comp.Visible := true; // je me suis fait avoir par défaut c'est false ! Du coup j'ai reproduit sur les autres types
    end;

Mais du coup, j'ai un certaine frustration, si je dois essayer de retrouver tous les types, quelle gal�re !
N.B. La plupart des �l�ments des styles Linux ne se dessine pas je ne sais pour quelle raison

Cela �tant, j'obtiens bien le dessin mais pas vraiment ce que je cherche : le composant qui utilise l'�l�ment de style.
Prenons l'exemple du bouton de l'image #2, elle a certainement un texte mais je suis incapable de le repr�senter.

Toute id�e sera bienvenue.

Images attach�es