ClAnimateFloatWait - Revision history

ClomosyAdmin at 10:21, 24 December 2024

2024-12-24T10:21:23Z

← Older revision		Revision as of 10:21, 24 December 2024
Line 121:		Line 121:
	<h2> See Also </h2>		<h2> See Also </h2>
	* [[System_Library#Cl_Utilities_Functions \| Cl Utilities Functions]]		* [[System_Library#Cl_Utilities_Functions \| Cl Utilities Functions]]
			{{#seo:\|description=clAnimateFloatWait animates component properties with customizable types and smooth transitions, controlling values like opacity, size, and position.}}

ClomosyManager at 10:42, 13 November 2024

2024-11-13T10:42:30Z

@@ Line 76: / Line 76: @@
 <b>Example</b><br>
 For example, an image is created within the program, and the opacity of the image is increased and decreased over a certain period of time. The codes of the program are provided below.<br>
-<b>TRObject Syntax</b><br>
 <pre>
 var
@@ Line 117: / Line 117: @@
   MainForm.Run;
+}
 </pre>
 <h2> See Also </h2>
 * [[System_Library#Cl_Utilities_Functions | Cl Utilities Functions]]

ClomosyManager at 12:53, 6 November 2024

2024-11-06T12:53:11Z

← Older revision		Revision as of 12:53, 6 November 2024
Line 1:		Line 1:
	<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">		<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">
	procedure clAnimateFloatWait(Object: ~~TComponent~~; PropName: String; TargetValue, Duration, TAnimationType.In, TInterpolationType.Linear: Integer;);		procedure clAnimateFloatWait(Object: TCLComponent; PropName: String; TargetValue, Duration, TAnimationType.In, TInterpolationType.Linear: Integer;);
	</div>		</div>

ClomosyManager at 15:26, 9 October 2024

2024-10-09T15:26:15Z

← Older revision		Revision as of 15:26, 9 October 2024
Line 65:		Line 65:
	*<b>Bounce</b>: This interpolation type allows the animation to transition by bouncing, providing a bouncing transition between values.		*<b>Bounce</b>: This interpolation type allows the animation to transition by bouncing, providing a bouncing transition between values.

			<div class="alert alert-warning" role="alert" data-bs-theme="light">
	In the TInterpolationType enum, the animation transition types also start from index 0.<br>		In the TInterpolationType enum, the animation transition types also start from index 0.<br>
	In this case, if the values in this enum type are sequential, they are numbered accordingly, such as Linear 0, Quadratic 1, Cubic 2, and so on.		In this case, if the values in this enum type are sequential, they are numbered accordingly, such as Linear 0, Quadratic 1, Cubic 2, and so on.
			</div>

	For example, you can use the following code to animate the opacity of a button:<br>		For example, you can use the following code to animate the opacity of a button:<br>

ClomosyManager at 15:13, 9 October 2024

2024-10-09T15:13:40Z

← Older revision		Revision as of 15:13, 9 October 2024
Line 74:		Line 74:

	<b>Example</b><br>		<b>Example</b><br>
	For example, an image is created within the program, and the opacity of the image is increased and decreased over a certain period of time. The codes of the program are provided below.		For example, an image is created within the program, and the opacity of the image is increased and decreased over a certain period of time. The codes of the program are provided below.<br>
	<b>TRObject Syntax</b><br>		<b>TRObject Syntax</b><br>
	<pre>		<pre>

ClomosyManager at 15:13, 9 October 2024

2024-10-09T15:13:11Z

Show changes

ClomosyManager at 10:51, 23 August 2024

2024-08-23T10:51:20Z

@@ Line 69: / Line 69: @@
 '''Example:'''
 For example, an image is created within the program, and the opacity of the image is increased and decreased over a certain period of time. The codes of the program are provided below.
 :'''Base Syntax'''
@@ Line 111: / Line 152: @@
    MainForm.Run;
   end;
 = See Also=

ClomosyManager at 12:25, 1 July 2024

2024-07-01T12:25:13Z

← Older revision		Revision as of 12:25, 1 July 2024
Line 72:		Line 72:
	:'''Base Syntax'''		:'''Base Syntax'''

	var		var
	MainForm : TclForm;		MainForm : TclForm;
	iconImg : TCLProImage;		iconImg : TCLProImage;
	~~GetTimer~~: ~~TClTimer~~;		informationLbl : TclLabel;

	procedure Animation;		procedure Animation;
	begin		begin
	~~'''~~clAnimateFloatWait~~'''~~(iconImg,'Opacity',0,1,0,0);		clAnimateFloatWait(iconImg,'Opacity',0,1,0,0);
	clAnimateFloat(iconImg,'Opacity',1, 1,0,0);		clAnimateFloat(iconImg,'Opacity',1, 1,0,0);
	end;		end;

	begin		begin
	MainForm:=TclForm.Create(self);		MainForm:=TclForm.Create(self);
	MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');		MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
	~~GetTimer:= MainForm.AddNewTimer(MainForm,'GetTimer',1500);~~
	~~GetTimer.Enabled := True;~~
	~~MainForm.AddNewEvent(GetTimer,tbeOnTimer,'Animation');~~

	~~iconImg := MainForm.AddNewProImage(MainForm,'iconImg');~~
	~~clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":50,"MarginLeft":50,"MarginRight":50,~~
	~~"Height":250,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');~~

	~~MainForm.Run~~;

	end;		informationLbl:= MainForm.AddNewLabel(MainForm,'informationLbl','Click on the image to see the animation.');
			informationLbl.StyledSettings := ssFamily;
			informationLbl.TextSettings.Font.Size:=14;
			informationLbl.Align := alTop;
			informationLbl.Margins.Left:= 10;
			informationLbl.Margins.Top:= 10;
			informationLbl.Height := 50;
			informationLbl.Width := 150;
			informationLbl.AutoSize := True;
			informationLbl.WordWrap := True;

			iconImg := MainForm.AddNewProImage(MainForm,'iconImg');
			iconImg.Align := alTop;
			iconImg.Height := 250;
			iconImg.Margins.Top := 50;
			iconImg.Margins.Left := 50;
			iconImg.Margins.Right := 50;
			iconImg.clProSettings.PictureSource := 'https://clomosy.com/demos/moon.png';
			iconImg.clProSettings.PictureAutoFit := True;
			iconImg.SetclProSettings(iconImg.clProSettings);
			MainForm.AddNewEvent(iconImg,tbeOnClick,'Animation');

			MainForm.Run;
			end;

	:'''TRObject Syntax'''		:'''TRObject Syntax'''
	var		var
	MainForm : TclForm;		MainForm : TclForm;
	iconImg : TCLProImage;		iconImg : TCLProImage;
	~~GetTimer~~: ~~TClTimer~~;		informationLbl : TclLabel;

	void Animation;		void Animation;
	{		{
	~~'''~~clAnimateFloatWait~~'''~~(iconImg,'Opacity',0,1,0,0);		clAnimateFloatWait(iconImg,'Opacity',0,1,0,0);
	clAnimateFloat(iconImg,'Opacity',1, 1,0,0);		clAnimateFloat(iconImg,'Opacity',1, 1,0,0);
	}		}

	{		{
	MainForm=TclForm.Create(self);		MainForm=TclForm.Create(self);
	MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');		MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
	~~GetTimer= MainForm.AddNewTimer(MainForm,'GetTimer',1500);~~
	~~GetTimer.Enabled = True;~~
	~~MainForm.AddNewEvent(GetTimer,tbeOnTimer,'Animation');~~

	~~iconImg = MainForm.AddNewProImage(MainForm,'iconImg');~~
	~~clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":50,"MarginLeft":50,"MarginRight":50,~~
	~~"Height":250,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');~~

	~~MainForm.Run~~;

	}		informationLbl= MainForm.AddNewLabel(MainForm,'informationLbl','Click on the image to see the animation.');
			informationLbl.StyledSettings = ssFamily;
			informationLbl.TextSettings.Font.Size=14;
			informationLbl.Align = alTop;
			informationLbl.Margins.Left= 10;
			informationLbl.Margins.Top= 10;
			informationLbl.Height = 50;
			informationLbl.Width = 150;
			informationLbl.AutoSize = True;
			informationLbl.WordWrap = True;

			iconImg = MainForm.AddNewProImage(MainForm,'iconImg');
			iconImg.Align = alTop;
			iconImg.Height = 250;
			iconImg.Margins.Top = 50;
			iconImg.Margins.Left = 50;
			iconImg.Margins.Right = 50;
			iconImg.clProSettings.PictureSource = 'https://clomosy.com/demos/moon.png';
			iconImg.clProSettings.PictureAutoFit = True;
			iconImg.SetclProSettings(iconImg.clProSettings);
			MainForm.AddNewEvent(iconImg,tbeOnClick,'Animation');

			MainForm.Run;
			}

	= See Also=		= See Also=

ClomosyManager at 06:54, 14 May 2024

2024-05-14T06:54:00Z

← Older revision		Revision as of 06:54, 14 May 2024
Line 30:		Line 30:
	The indices of the animation types in TAnimationType also start from 0.		The indices of the animation types in TAnimationType also start from 0.

	<span style="color:red">''~~TAnimationType~~''</span>		<span style="color:red">''TInterpolationType''</span>

	TInterpolationType is an enum type used to determine the transitions of animations and transformations between values. This enum type allows animations to occur more naturally and smoothly.		TInterpolationType is an enum type used to determine the transitions of animations and transformations between values. This enum type allows animations to occur more naturally and smoothly.

ClomosyManager at 06:36, 14 May 2024

2024-05-14T06:36:27Z

@@ Line 9: / Line 9: @@
 *<span style="color:red">''TargetValue''</span>: Specifies the target value that the property should reach at the end of the animation.
 *<span style="color:red">''Duration''</span>: Specifies the duration of the animation in seconds.
-*<span style="color:red">''TAnimationType.In''</span>: It is one of the animation types and typically represents an animation type that involves an increase in a value or the visibility of a specific property.
+*<span style="color:red">''TAnimationType''</span>: It is one of the animation types and typically represents an animation type that involves an increase in a value or the visibility of a specific property.
-*<span style="color:red">''TInterpolationType.Linear''</span>: It is used to control the smooth transition of values in animations.
+*<span style="color:red">''TInterpolationType''</span>: It is used to control the smooth transition of values in animations.