33{ SVGIconImageList: An extended ImageList for Delphi/FMX }
44{ to simplify use of SVG Icons (resize, opacity and more...) }
55{ }
6- { Copyright (c) 2019-2022 (Ethea S.r.l.) }
6+ { Copyright (c) 2019-2023 (Ethea S.r.l.) }
77{ Author: Carlo Barazzetta }
88{ Contributors: }
99{ }
@@ -49,15 +49,11 @@ interface
4949 TFmxImageSVG = class (TObject)
5050 private
5151 FSource: String;
52- FWidth: Single;
53- FHeight: Single;
5452 FFixedColor: TAlphaColor;
5553 FApplyFixedColorToRootOnly: Boolean;
5654 FGrayScale: Boolean;
5755 FOpacity: Single;
5856 // property access methods
59- function GetWidth : Single;
60- function GetHeight : Single;
6157 function GetOpacity : Single;
6258 procedure SetOpacity (const Opacity: Single);
6359 function GetGrayScale : Boolean;
@@ -69,8 +65,6 @@ TFmxImageSVG = class(TObject)
6965 function GetSource : string;
7066 // procedures and functions
7167 procedure Clear ;
72- procedure SetHeight (const Value : Single);
73- procedure SetWidth (const Value : Single);
7468 { $IFDEF CheckForUnsupportedSvg}
7569 procedure CheckForUnsupportedSvg ;
7670 { $ENDIF}
@@ -94,8 +88,6 @@ TFmxImageSVG = class(TObject)
9488 property Opacity: Single read GetOpacity write SetOpacity;
9589 property FixedColor: TAlphaColor read GetFixedColor write SetFixedColor;
9690 property GrayScale: Boolean read GetGrayScale write SetGrayScale;
97- property Width: Single read GetWidth write SetWidth;
98- property Height: Single read GetHeight write SetHeight;
9991 property Source: string read GetSource;
10092 property ApplyFixedColorToRootOnly: Boolean read GetApplyFixedColorToRootOnly write SetApplyFixedColorToRootOnly;
10193 end ;
@@ -148,12 +140,6 @@ function TFmxImageSVG.GetGrayScale: Boolean;
148140begin
149141 Result := FGrayScale;
150142end ;
151-
152- function TFmxImageSVG.GetHeight : Single;
153- begin
154- Result := FHeight;
155- end ;
156-
157143function TFmxImageSVG.GetOpacity : Single;
158144begin
159145 Result := FOpacity;
@@ -163,12 +149,6 @@ function TFmxImageSVG.GetSource: string;
163149begin
164150 Result := FSource;
165151end ;
166-
167- function TFmxImageSVG.GetWidth : Single;
168- begin
169- Result := FWidth;
170- end ;
171-
172152procedure TFmxImageSVG.LoadFromText (const ASVGText: string);
173153var
174154 LOldText: string;
@@ -244,12 +224,6 @@ procedure TFmxImageSVG.SetGrayScale(const IsGrayScale: Boolean);
244224 FGrayScale := IsGrayScale;
245225 FFixedColor := TAlphaColorRec.Null;
246226end ;
247-
248- procedure TFmxImageSVG.SetHeight (const Value : Single);
249- begin
250- FHeight := Value ;
251- end ;
252-
253227procedure TFmxImageSVG.SetOpacity (const Opacity: Single);
254228begin
255229 FOpacity := Opacity;
@@ -264,9 +238,4 @@ procedure TFmxImageSVG.SetSource(const ASource: string);
264238 end ;
265239end ;
266240
267- procedure TFmxImageSVG.SetWidth (const Value : Single);
268- begin
269- FWidth := Value ;
270- end ;
271-
272241end .
0 commit comments