added the menu button to manage web pages (#35)

Author: DeveloppeurPascal

v2_x/fMain.fmx

@@ -2,7 +2,7 @@ object frmMain: TfrmMain
   Left = 0
   Top = 0
   Caption = 'Delphi Books Database Admin'
-  ClientHeight = 412
+  ClientHeight = 482
   ClientWidth = 640
   Position = ScreenCenter
   FormFactor.Width = 320
@@ -36,7 +36,7 @@ object frmMain: TfrmMain
     Size.Width = 620.000000000000000000
     Size.Height = 48.000000000000000000
     Size.PlatformDefault = False
-    TabOrder = 6
+    TabOrder = 7
     Text = 'Ab&out this program'
     OnClick = btnAboutClick
   end
@@ -48,11 +48,11 @@ object frmMain: TfrmMain
     Margins.Right = 10.000000000000000000
     Margins.Bottom = 10.000000000000000000
     Position.X = 10.000000000000000000
-    Position.Y = 350.000000000000000000
+    Position.Y = 418.000000000000000000
     Size.Width = 620.000000000000000000
     Size.Height = 48.000000000000000000
     Size.PlatformDefault = False
-    TabOrder = 5
+    TabOrder = 6
     Text = '&Close'
     OnClick = btnCloseClick
   end
@@ -67,7 +67,7 @@ object frmMain: TfrmMain
     Size.Width = 620.000000000000000000
     Size.Height = 48.000000000000000000
     Size.PlatformDefault = False
-    TabOrder = 4
+    TabOrder = 5
     Text = '&Books'
     OnClick = btnBooksClick
   end
@@ -116,4 +116,19 @@ object frmMain: TfrmMain
     Text = '&Languages'
     OnClick = btnLanguagesClick
   end
+  object btnWebPages: TButton
+    Align = Top
+    Margins.Left = 10.000000000000000000
+    Margins.Top = 10.000000000000000000
+    Margins.Right = 10.000000000000000000
+    Margins.Bottom = 10.000000000000000000
+    Position.X = 10.000000000000000000
+    Position.Y = 350.000000000000000000
+    Size.Width = 620.000000000000000000
+    Size.Height = 48.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 4
+    Text = '&Web pages'
+    OnClick = btnWebPagesClick
+  end
 end

v2_x/fMain.pas

@@ -28,6 +28,7 @@   TfrmMain = class(TForm)
     btnPublishers: TButton;
     btnAuthors: TButton;
     btnLanguages: TButton;
+    btnWebPages: TButton;
     procedure FormCreate(Sender: TObject);
     procedure OlfAboutDialog1URLClick(const AURL: string);
     procedure btnCloseClick(Sender: TObject);
@@ -37,6 +38,7 @@   TfrmMain = class(TForm)
     procedure btnPublishersClick(Sender: TObject);
     procedure btnBooksClick(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure btnWebPagesClick(Sender: TObject);
   private
     FDB: TDelphiBooksDatabase;
     procedure SetDB(const Value: TDelphiBooksDatabase);
@@ -62,7 +64,8 @@ implementation
   fLanguages,
   fPublishers,
   fAuthors,
-  fBooks;
+  fBooks,
+  fWebPages;
 
 procedure TfrmMain.btnAboutClick(Sender: TObject);
 begin
@@ -122,6 +125,18 @@ procedure TfrmMain.btnPublishersClick(Sender: TObject);
   end;
 end;
 
+procedure TfrmMain.btnWebPagesClick(Sender: TObject);
+var
+  f: TfrmWebPages;
+begin
+  f := TfrmWebPages.CreateWithDB(self, DB);
+  try
+    f.ShowModal;
+  finally
+    f.Free;
+  end;
+end;
+
 procedure TfrmMain.FormCreate(Sender: TObject);
 begin
   OlfAboutDialog1.Titre := caption;