FMX component editor redesigned

Added Zoom property for FMX components Updated demo images of FMX FMX version 2.2.2
EtheaDev · Dec 24, 2020 · 04d9559 · 04d9559
1 parent 5654778
commit 04d9559
Show file tree

Hide file tree

Showing 9 changed files with 4,023 additions and 577 deletions.
diff --git a/Demo/Images/ComponentEditorFMX.jpg b/Demo/Images/ComponentEditorFMX.jpg
diff --git a/Demo/Images/DemoFMX.jpg b/Demo/Images/DemoFMX.jpg
diff --git a/Demo/Images/SampleFMX.jpg b/Demo/Images/SampleFMX.jpg
diff --git a/Demo/Source/UMainFMX.fmx b/Demo/Source/UMainFMX.fmx
diff --git a/Demo/Source/UMainFMX.pas b/Demo/Source/UMainFMX.pas
@@ -25,7 +25,6 @@   TSVGIconImageListForm = class(TForm)
     ImageView: TListBox;
     ListBoxItem1: TListBoxItem;
     ListBoxItem2: TListBoxItem;
-    SpinBox1: TSpinBox;
     ListBoxItem3: TListBoxItem;
     TopPanel: TPanel;
     Glyph2: TGlyph;
@@ -34,13 +33,15 @@   TSVGIconImageListForm = class(TForm)
     SVGIconImageList: TSVGIconImageList;
     OpenDialog: TOpenDialog;
     GrayScaleCheckBox: TCheckBox;
+    ZoomSpinBox: TSpinBox;
+    ZoomLabel: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure NextButtonClick(Sender: TObject);
     procedure RandomButtonClick(Sender: TObject);
     procedure AutoSizeCheckBoxChange(Sender: TObject);
     procedure PrevButtonClick(Sender: TObject);
     procedure ShowEditorButtonClick(Sender: TObject);
-    procedure SpinBox1Change(Sender: TObject);
+    procedure ZoomSpinBoxChange(Sender: TObject);
     procedure GrayScaleCheckBoxChange(Sender: TObject);
   private
     procedure UpdateGUI;
@@ -100,9 +101,9 @@ procedure TSVGIconImageListForm.ShowEditorButtonClick(Sender: TObject);
   {$IFDEF MSWINDOWS}EditSVGIconImageList(SVGIconImageList);{$ENDIF}
 end;
 
-procedure TSVGIconImageListForm.SpinBox1Change(Sender: TObject);
+procedure TSVGIconImageListForm.ZoomSpinBoxChange(Sender: TObject);
 begin
-  SVGIconImageList.Size := Round(SpinBox1.Value);
+  SVGIconImageList.Zoom := Round(ZoomSpinBox.Value);
 end;
 
 procedure TSVGIconImageListForm.UpdateGUI;