summaryrefslogtreecommitdiff
path: root/prototypes
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-02-15 13:58:18 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-02-15 13:58:18 +0000
commit831cb67e19cfe06c390cc632d1d6e8446acfa57c (patch)
tree6aca91bff4114393585fac87911e08866d6a1abc /prototypes
parent0bfd76ac0c585efcdbf4ee8574c8c844e7142108 (diff)
downloadfpGUI-831cb67e19cfe06c390cc632d1d6e8446acfa57c.tar.xz
* Applied Jean-Marc's TextColor and BackgroundColor patch.
* Made many more modifications based on Jean-Marc's patch and fixed a few things missed.
Diffstat (limited to 'prototypes')
-rw-r--r--prototypes/fpgui2/tests/edittest.lpi9
-rw-r--r--prototypes/fpgui2/tests/edittest.lpr10
2 files changed, 14 insertions, 5 deletions
diff --git a/prototypes/fpgui2/tests/edittest.lpi b/prototypes/fpgui2/tests/edittest.lpi
index 8b8c2d24..2879bbde 100644
--- a/prototypes/fpgui2/tests/edittest.lpi
+++ b/prototypes/fpgui2/tests/edittest.lpi
@@ -1,15 +1,15 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
- <PathDelim Value="\"/>
- <Version Value="5"/>
+ <PathDelim Value="/"/>
+ <Version Value="6"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
- <IconPath Value=".\"/>
+ <IconPath Value="./"/>
<TargetFileExt Value=""/>
</General>
<VersionInfo>
@@ -23,7 +23,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
- <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+ <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
@@ -47,7 +47,6 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
- <PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
diff --git a/prototypes/fpgui2/tests/edittest.lpr b/prototypes/fpgui2/tests/edittest.lpr
index d9f860bd..aa0dddbf 100644
--- a/prototypes/fpgui2/tests/edittest.lpr
+++ b/prototypes/fpgui2/tests/edittest.lpr
@@ -67,6 +67,7 @@ type
procedure btn3Click(Sender: TObject);
procedure checkbox1Changed(Sender: TObject);
procedure TrackBarChanged(Sender: TObject; APosition: integer);
+ procedure xpsilverClick(Sender: TObject);
public
label1: TfpgLabel;
label2: TfpgLabel;
@@ -302,6 +303,14 @@ end;
{ TMainForm }
+procedure TMainForm.xpsilverClick(Sender: TObject);
+begin
+ if BackgroundColor = clWindowBackground then
+ BackgroundColor := clGreen
+ else
+ BackgroundColor := clWindowBackground;
+end;
+
procedure TMainForm.Trackbar1Changed(Sender: TObject; APosition: integer);
begin
progress.Position := APosition;
@@ -469,6 +478,7 @@ begin
bmp.CreateMaskFromSample(0, 0);
bmp.UpdateImage;
xpsilver.ThemeImage := bmp;
+ xpsilver.OnClick := @xpsilverClick;
checkbox1 := CreateCheckBox(self, 10, 265, 'Disable components');
checkbox1.OnChange := @checkbox1Changed;