From 8ff503a46409a7ca024e9f85b65c2baebcc5982e Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Thu, 19 Jun 2008 15:17:38 +0000
Subject: * Updated the Bevel example so it compiles again.  * Updated the
 EventTest example.

---
 examples/gui/bevel/beveltest.lpi |  9 +++++----
 examples/gui/bevel/beveltest.lpr | 20 ++++++++++----------
 2 files changed, 15 insertions(+), 14 deletions(-)

(limited to 'examples/gui/bevel')

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);
-- 
cgit v1.2.3-70-g09d2