summaryrefslogtreecommitdiff
path: root/examples/gui/animation
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-01-29 11:12:28 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-01-29 11:12:28 +0200
commit0540a52cae0760d73f27075ca866d2db179d29e5 (patch)
treeed9fd2ce647193ae644c9c0c65acde5b807c2b3f /examples/gui/animation
parent33a9b2be5a1be7d69f3348871c621d80208dac6e (diff)
downloadfpGUI-0540a52cae0760d73f27075ca866d2db179d29e5.tar.xz
Updated Animation example with new Loading image.
Diffstat (limited to 'examples/gui/animation')
-rw-r--r--examples/gui/animation/anim_test.lpi5
-rw-r--r--examples/gui/animation/anim_test.lpr32
-rw-r--r--examples/gui/animation/loading.bmpbin0 -> 5454 bytes
-rw-r--r--examples/gui/animation/loading.xcfbin0 -> 7040 bytes
4 files changed, 33 insertions, 4 deletions
diff --git a/examples/gui/animation/anim_test.lpi b/examples/gui/animation/anim_test.lpi
index b7506331..13f0bba2 100644
--- a/examples/gui/animation/anim_test.lpi
+++ b/examples/gui/animation/anim_test.lpi
@@ -1,15 +1,14 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
- <PathDelim Value="/"/>
- <Version Value="6"/>
+ <Version Value="7"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
+ <LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
- <IconPath Value="./"/>
<TargetFileExt Value=".elf"/>
</General>
<VersionInfo>
diff --git a/examples/gui/animation/anim_test.lpr b/examples/gui/animation/anim_test.lpr
index 79a2bbb8..b7baef3b 100644
--- a/examples/gui/animation/anim_test.lpr
+++ b/examples/gui/animation/anim_test.lpr
@@ -28,6 +28,8 @@ type
lblName1: TfpgLabel;
lblName2: TfpgLabel;
lblName3: TfpgLabel;
+ loadinglogo: TfpgImgAnim;
+ Label1: TfpgLabel;
{@VFD_HEAD_END: MainForm}
procedure AfterCreate; override;
end;
@@ -86,7 +88,9 @@ begin
SetPosition(212, 216, 80, 24);
Text := 'Quit';
FontDesc := '#Label1';
+ Hint := '';
ImageName := '';
+ TabOrder := 0;
OnClick := @btnQuitClicked;
end;
@@ -97,6 +101,7 @@ begin
SetPosition(140, 12, 80, 24);
Text := 'Start';
FontDesc := '#Label1';
+ Hint := '';
ImageName := '';
TabOrder := 1;
OnClick := @btnStartClicked;
@@ -139,6 +144,7 @@ begin
Name := 'lblName1';
SetPosition(140, 52, 152, 16);
FontDesc := '#Label2';
+ Hint := '';
Text := 'Step through frames';
end;
@@ -146,8 +152,9 @@ begin
with lblName2 do
begin
Name := 'lblName2';
- SetPosition(56, 136, 192, 16);
+ SetPosition(56, 136, 108, 16);
FontDesc := '#Label2';
+ Hint := '';
Text := 'Wanda the fish';
end;
@@ -157,9 +164,32 @@ begin
Name := 'lblName3';
SetPosition(140, 68, 152, 16);
FontDesc := '#Label1';
+ Hint := '';
Text := '(stop the animation first)';
end;
+ loadinglogo := TfpgImgAnim.Create(self);
+ with loadinglogo do
+ begin
+ Name := 'loadinglogo';
+ SetPosition(236, 156, 16, 16);
+ IsTransparent := True;
+ ImageFileName := 'loading.bmp';
+ FrameCount := 8;
+ Interval := 200;
+ Enabled := True;
+ end;
+
+ Label1 := TfpgLabel.Create(self);
+ with Label1 do
+ begin
+ Name := 'Label1';
+ SetPosition(204, 136, 112, 16);
+ FontDesc := '#Label2';
+ Hint := '';
+ Text := 'Loading...';
+ end;
+
{@VFD_BODY_END: MainForm}
end;
diff --git a/examples/gui/animation/loading.bmp b/examples/gui/animation/loading.bmp
new file mode 100644
index 00000000..cf976c53
--- /dev/null
+++ b/examples/gui/animation/loading.bmp
Binary files differ
diff --git a/examples/gui/animation/loading.xcf b/examples/gui/animation/loading.xcf
new file mode 100644
index 00000000..77491058
--- /dev/null
+++ b/examples/gui/animation/loading.xcf
Binary files differ