* 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.

3 files changed, 14 insertions, 14 deletions

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.