From 77f68d38a6dc24ec0679f7fd23bf42869e795313 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 7 Jul 2008 22:52:27 +0000
Subject: * Published more events and properties for EditInteger and EditFload
 components. * Now the Min/Max Size is actually applied, the Message Dialogs
 needed minor attention. * Updated all the example projects to use the newer
 all-in-one fpgui_toolkit lazarus package. * Did some minor bug fixing in some
 of the examples. 1-based indexing instead of 0-based indexing etc.

---
 examples/gui/panel/mainform.pas   |  8 ++++----
 examples/gui/panel/panel_test.lpi |  2 +-
 examples/gui/panel/panel_test.lpr | 18 +++++++++---------
 3 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'examples/gui/panel')

diff --git a/examples/gui/panel/mainform.pas b/examples/gui/panel/mainform.pas
index ba6fca4e..c9be22eb 100644
--- a/examples/gui/panel/mainform.pas
+++ b/examples/gui/panel/mainform.pas
@@ -239,12 +239,12 @@ end;
 procedure TfrmMain.cbxShapeChange(Sender: TObject);
 begin
   if Sender is TfpgComboBox then
-    B_Bevel.Shape := TPanelShape((Sender as TfpgComboBox).FocusItem-1);
+    B_Bevel.Shape := TPanelShape((Sender as TfpgComboBox).FocusItem);
 end;
 
 procedure TfrmMain.cbxBorderChange(Sender: TObject);
 begin
-  if cbxBorder.FocusItem = 1 then
+  if cbxBorder.FocusItem = 0 then
   begin
     B_Bevel.BorderStyle     := bsSingle;
     P_Panel.BorderStyle     := bsSingle;
@@ -362,13 +362,13 @@ begin
   cbxShape.Items.Add('bsLeftLine');
   cbxShape.Items.Add('bsRightLine');
   cbxShape.Items.Add('bsSpacer');
-  cbxShape.FocusItem := 1;
+  cbxShape.FocusItem := 0;
   cbxShape.OnChange := @cbxShapeChange;
   
   cbxBorder := CreateComboBox(self, 250, 528, 100, nil);
   cbxBorder.Items.Add('bsSingle');
   cbxBorder.Items.Add('bsDouble');
-  cbxBorder.FocusItem := 1;
+  cbxBorder.FocusItem := 0;
   cbxBorder.OnChange := @cbxBorderChange;
 end;
 
diff --git a/examples/gui/panel/panel_test.lpi b/examples/gui/panel/panel_test.lpi
index 39eb3543..ee25dc61 100644
--- a/examples/gui/panel/panel_test.lpi
+++ b/examples/gui/panel/panel_test.lpi
@@ -29,7 +29,7 @@
     </RunParams>
     <RequiredPackages Count="1">
       <Item1>
-        <PackageName Value="fpgui_package"/>
+        <PackageName Value="fpgui_toolkit"/>
       </Item1>
     </RequiredPackages>
     <Units Count="2">
diff --git a/examples/gui/panel/panel_test.lpr b/examples/gui/panel/panel_test.lpr
index f5365dd5..ff0f1fcd 100644
--- a/examples/gui/panel/panel_test.lpr
+++ b/examples/gui/panel/panel_test.lpr
@@ -7,25 +7,25 @@ uses
   cthreads,
   {$ENDIF}{$ENDIF}
   Classes,
-  { you can add units after this } fpgfx,
+  fpgfx,
   MainForm;
 
 procedure MainProc;
 var
   frmMain: TfrmMain;
 begin
-fpgApplication.Initialize;
-frmMain:= TfrmMain.Create(nil);
-try
-  frmMain.Show;
-  fpgApplication.Run;
-finally
-  frmMain.Free;
+  fpgApplication.Initialize;
+  frmMain:= TfrmMain.Create(nil);
+  try
+    frmMain.Show;
+    fpgApplication.Run;
+  finally
+    frmMain.Free;
   end;
 end;
 
 begin
-MainProc;
+  MainProc;
 end.
 
 
-- 
cgit v1.2.3-70-g09d2