diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-19 15:17:38 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-19 15:17:38 +0000 |
commit | 8ff503a46409a7ca024e9f85b65c2baebcc5982e (patch) | |
tree | 8bf39a9b73d339c92c45635b34c1a19d4f500150 /examples/gui/bevel | |
parent | 1de4860f5ffd1ce743d0b1f63a20e94d06e83785 (diff) | |
download | fpGUI-8ff503a46409a7ca024e9f85b65c2baebcc5982e.tar.xz |
* Updated the Bevel example so it compiles again. * Updated the EventTest example.
Diffstat (limited to 'examples/gui/bevel')
-rw-r--r-- | examples/gui/bevel/beveltest.lpi | 9 | ||||
-rw-r--r-- | examples/gui/bevel/beveltest.lpr | 20 |
2 files changed, 15 insertions, 14 deletions
diff --git a/examples/gui/bevel/beveltest.lpi b/examples/gui/bevel/beveltest.lpi index 28d21960..a0654cb0 100644 --- a/examples/gui/bevel/beveltest.lpi +++ b/examples/gui/bevel/beveltest.lpi @@ -1,15 +1,15 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <PathDelim Value="/"/> - <Version Value="6"/> + <PathDelim Value="\"/> + <Version Value="5"/> <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"> @@ -42,6 +42,7 @@ </ProjectOptions> <CompilerOptions> <Version Value="5"/> + <PathDelim Value="\"/> <CodeGeneration> <Generate Value="Faster"/> </CodeGeneration> diff --git a/examples/gui/bevel/beveltest.lpr b/examples/gui/bevel/beveltest.lpr index 287788ea..3b7deb9d 100644 --- a/examples/gui/bevel/beveltest.lpr +++ b/examples/gui/bevel/beveltest.lpr @@ -11,7 +11,7 @@ uses fpgfx, gui_form, gui_button, - gui_bevel, + gui_panel, gui_label; type @@ -57,19 +57,19 @@ end; procedure TMainForm.btnShapesClick(Sender: TObject); var - next: TBevelShape; + next: TPanelShape; begin - if Bevel.Shape = High(TBevelShape) then - Bevel.Shape := Low(TBevelShape) + if Bevel.Shape = High(TPanelShape) then + Bevel.Shape := Low(TPanelShape) else - Bevel.Shape := TBevelShape(Ord(Bevel.Shape) + 1); - lblShape.Text := 'Shape is ' + GetEnumName(TypeInfo(TBevelShape), Ord(Bevel.Shape)); + Bevel.Shape := TPanelShape(Ord(Bevel.Shape) + 1); + lblShape.Text := 'Shape is ' + GetEnumName(TypeInfo(TPanelShape), Ord(Bevel.Shape)); - if Bevel.Shape = High(TBevelShape) then - next := Low(TBevelShape) + if Bevel.Shape = High(TPanelShape) then + next := Low(TPanelShape) else - next := TBevelShape(Ord(Bevel.Shape) + 1); - btnShapes.Text := GetEnumName(TypeInfo(TBevelShape), Ord(next)); + next := TPanelShape(Ord(Bevel.Shape) + 1); + btnShapes.Text := GetEnumName(TypeInfo(TPanelShape), Ord(next)); end; constructor TMainForm.Create(AOwner: TComponent); |