adding dialog to edit book info

src/book.pas

@@ -90,9 +90,13 @@ var  dialog:TBookEditDialog;
 begin
   if Button = TMouseButton.mbRight then
      begin
+        mIsSelected:=True;
+        mCover.Repaint;
         dialog:= TBookEditDialog.Create(nil);
         dialog.LoadBook(Self);
         dialog.ShowModal;
+        mIsSelected:=False;
+        mCover.Repaint;
      end;
 End;
 

src/main.lfm

@@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 567
+  Left = 696
   Height = 573
-  Top = 269
+  Top = 268
   Width = 817
   Caption = 'myBookShelf'
   ClientHeight = 573
@@ -720,7 +720,7 @@ object Form1: TForm1
   end
   object EditSearch: TEdit
     Left = 608
-    Height = 29
+    Height = 21
     Top = 10
     Width = 176
     AutoSelect = False

src/myBookShelf.lps

@@ -8,7 +8,7 @@
         <Filename Value="myBookShelf.lpr"/>
         <IsPartOfProject Value="True"/>
         <CursorPos Y="21"/>
-        <UsageCount Value="45"/>
+        <UsageCount Value="49"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -18,9 +18,9 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="82"/>
+        <TopLine Value="100"/>
         <CursorPos X="25" Y="70"/>
-        <UsageCount Value="45"/>
+        <UsageCount Value="49"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
@@ -29,9 +29,9 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="Book"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="62"/>
-        <CursorPos X="16" Y="83"/>
-        <UsageCount Value="45"/>
+        <TopLine Value="63"/>
+        <CursorPos X="27" Y="98"/>
+        <UsageCount Value="49"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -41,210 +41,210 @@
         <EditorIndex Value="3"/>
         <TopLine Value="102"/>
         <CursorPos X="22" Y="125"/>
-        <UsageCount Value="42"/>
+        <UsageCount Value="46"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
+        <Filename Value="unitbookdialog.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="BookEditDialog"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="UnitBookDialog"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="5"/>
+        <TopLine Value="48"/>
+        <CursorPos X="2" Y="67"/>
+        <UsageCount Value="27"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
+      </Unit4>
+      <Unit5>
         <Filename Value="/usr/lib/lazarus/1.6.4/lcl/include/canvas.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="354"/>
         <CursorPos Y="378"/>
         <UsageCount Value="10"/>
-      </Unit4>
-      <Unit5>
+      </Unit5>
+      <Unit6>
         <Filename Value="/usr/lib/lazarus/1.6.4/lcl/include/lclintf.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="254"/>
         <CursorPos Y="275"/>
         <UsageCount Value="9"/>
-      </Unit5>
-      <Unit6>
+      </Unit6>
+      <Unit7>
         <Filename Value="/usr/lib/lazarus/1.6.4/lcl/interfaces/gtk2/gtk2winapi.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="4718"/>
         <CursorPos Y="4740"/>
         <UsageCount Value="9"/>
-      </Unit6>
-      <Unit7>
+      </Unit7>
+      <Unit8>
         <Filename Value="/usr/lib/lazarus/1.6.4/lcl/interfaces/gtk2/gtk2widgetset.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="5406"/>
         <CursorPos Y="5428"/>
         <UsageCount Value="9"/>
-      </Unit7>
-      <Unit8>
+      </Unit8>
+      <Unit9>
         <Filename Value="/usr/lib/lazarus/1.6.4/lcl/dynhasharray.pp"/>
         <UnitName Value="DynHashArray"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="598"/>
         <CursorPos Y="620"/>
         <UsageCount Value="9"/>
-      </Unit8>
-      <Unit9>
+      </Unit9>
+      <Unit10>
         <Filename Value="/usr/lib/lazarus/1.6.4/lcl/include/customform.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="133"/>
         <CursorPos Y="161"/>
         <UsageCount Value="10"/>
-      </Unit9>
-      <Unit10>
+      </Unit10>
+      <Unit11>
         <Filename Value="/usr/lib/lazarus/1.6.4/lcl/include/application.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="2183"/>
         <CursorPos Y="2203"/>
         <UsageCount Value="10"/>
-      </Unit10>
-      <Unit11>
+      </Unit11>
+      <Unit12>
         <Filename Value="main.lfm"/>
         <EditorIndex Value="1"/>
-        <UsageCount Value="14"/>
+        <UsageCount Value="16"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="LFM"/>
-      </Unit11>
-      <Unit12>
+      </Unit12>
+      <Unit13>
         <Filename Value="/usr/lib/lazarus/1.6.4/components/lazutils/lazmethodlist.pas"/>
         <UnitName Value="LazMethodList"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="200"/>
         <CursorPos Y="238"/>
         <UsageCount Value="10"/>
-      </Unit12>
-      <Unit13>
-        <Filename Value="unitbookdialog.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="BookEditDialog"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UnitBookDialog"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="5"/>
-        <TopLine Value="50"/>
-        <CursorPos X="9" Y="76"/>
-        <UsageCount Value="23"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit13>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="34" Column="3"/>
+        <Caret Line="9" Column="26" TopLine="2"/>
       </Position1>
       <Position2>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="36" Column="3"/>
+        <Caret Line="36" Column="11" TopLine="7"/>
       </Position2>
       <Position3>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="37" Column="3"/>
+        <Caret Line="9" Column="26" TopLine="2"/>
       </Position3>
       <Position4>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="38" Column="3"/>
+        <Caret Line="25" Column="18" TopLine="2"/>
       </Position4>
       <Position5>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="39" Column="3"/>
+        <Caret Line="47" Column="54" TopLine="10"/>
       </Position5>
       <Position6>
-        <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="40" Column="3"/>
+        <Filename Value="book.pas"/>
+        <Caret Line="84" Column="51" TopLine="58"/>
       </Position6>
       <Position7>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="44" Column="38" TopLine="5"/>
+        <Caret Line="24" Column="36"/>
       </Position7>
       <Position8>
-        <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="9" Column="26" TopLine="2"/>
+        <Filename Value="book.pas"/>
+        <Caret Line="84" Column="41" TopLine="62"/>
       </Position8>
       <Position9>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="36" Column="11" TopLine="7"/>
+        <Caret Line="50" Column="46" TopLine="12"/>
       </Position9>
       <Position10>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="9" Column="26" TopLine="2"/>
+        <Caret Line="51" Column="46" TopLine="12"/>
       </Position10>
       <Position11>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="25" Column="18" TopLine="2"/>
+        <Caret Line="50" Column="46" TopLine="12"/>
       </Position11>
       <Position12>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="47" Column="54" TopLine="10"/>
+        <Caret Line="58" Column="10" TopLine="17"/>
       </Position12>
       <Position13>
-        <Filename Value="book.pas"/>
-        <Caret Line="84" Column="51" TopLine="58"/>
+        <Filename Value="bookcollection.pas"/>
+        <Caret Line="94" Column="26" TopLine="77"/>
       </Position13>
       <Position14>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="24" Column="36"/>
+        <Caret Line="67" Column="29" TopLine="26"/>
       </Position14>
       <Position15>
         <Filename Value="book.pas"/>
-        <Caret Line="84" Column="41" TopLine="62"/>
+        <Caret Line="84" Column="22" TopLine="55"/>
       </Position15>
       <Position16>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="50" Column="46" TopLine="12"/>
+        <Caret Line="62" Column="37" TopLine="32"/>
       </Position16>
       <Position17>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="51" Column="46" TopLine="12"/>
+        <Caret Line="63" Column="37" TopLine="33"/>
       </Position17>
       <Position18>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="50" Column="46" TopLine="12"/>
+        <Caret Line="82" Column="38" TopLine="41"/>
       </Position18>
       <Position19>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="58" Column="10" TopLine="17"/>
+        <Caret Line="71" Column="9" TopLine="45"/>
       </Position19>
       <Position20>
-        <Filename Value="bookcollection.pas"/>
-        <Caret Line="94" Column="26" TopLine="77"/>
+        <Filename Value="unitbookdialog.pas"/>
+        <Caret Line="72" Column="9" TopLine="46"/>
       </Position20>
       <Position21>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="67" Column="29" TopLine="26"/>
+        <Caret Line="73" Column="9" TopLine="47"/>
       </Position21>
       <Position22>
-        <Filename Value="book.pas"/>
-        <Caret Line="84" Column="22" TopLine="55"/>
+        <Filename Value="unitbookdialog.pas"/>
+        <Caret Line="74" Column="9" TopLine="48"/>
       </Position22>
       <Position23>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="62" Column="37" TopLine="32"/>
+        <Caret Line="75" Column="9" TopLine="49"/>
       </Position23>
       <Position24>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="63" Column="37" TopLine="33"/>
+        <Caret Line="76" Column="9"/>
       </Position24>
       <Position25>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="82" Column="38" TopLine="41"/>
+        <Caret Line="54" Column="28" TopLine="35"/>
       </Position25>
       <Position26>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="71" Column="9" TopLine="45"/>
+        <Caret Line="55" Column="3" TopLine="52"/>
       </Position26>
       <Position27>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="72" Column="9" TopLine="46"/>
+        <Caret Line="54" Column="3" TopLine="51"/>
       </Position27>
       <Position28>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="73" Column="9" TopLine="47"/>
+        <Caret Line="55" Column="3" TopLine="52"/>
       </Position28>
       <Position29>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="74" Column="9" TopLine="48"/>
+        <Caret Line="61" Column="3" TopLine="42"/>
       </Position29>
       <Position30>
         <Filename Value="unitbookdialog.pas"/>
-        <Caret Line="75" Column="9" TopLine="49"/>
+        <Caret Line="65" Column="64" TopLine="43"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>

src/unitbookdialog.lfm

@@ -1,50 +1,51 @@
 object BookEditDialog: TBookEditDialog
-  Left = 560
-  Height = 368
-  Top = 301
-  Width = 682
+  Left = 545
+  Height = 347
+  Top = 356
+  Width = 806
+  ActiveControl = EditTitle
   BorderStyle = bsDialog
   Caption = 'Edit Book Info'
-  ClientHeight = 368
-  ClientWidth = 682
+  ClientHeight = 347
+  ClientWidth = 806
   FormStyle = fsStayOnTop
   OnCreate = FormCreate
   LCLVersion = '1.6.4.0'
   object EditTitle: TEdit
-    Left = 277
+    Left = 329
     Height = 29
     Top = 33
-    Width = 376
+    Width = 463
     TabOrder = 0
     Text = 'Title'
   end
   object EditAuthors: TEdit
-    Left = 277
+    Left = 329
     Height = 29
     Top = 80
-    Width = 376
+    Width = 463
     TabOrder = 1
     Text = 'Authors'
   end
   object EditISBN: TEdit
-    Left = 277
+    Left = 329
     Height = 29
-    Top = 120
-    Width = 376
+    Top = 128
+    Width = 463
     TabOrder = 2
     Text = 'ISBN'
   end
   object EditFilePath: TEdit
-    Left = 277
+    Left = 329
     Height = 29
-    Top = 160
-    Width = 376
+    Top = 176
+    Width = 463
     OnChange = EditFilePathChange
     TabOrder = 3
     Text = 'File Path'
   end
   object ButtonSave: TBitBtn
-    Left = 232
+    Left = 298
     Height = 30
     Top = 296
     Width = 75
@@ -53,7 +54,7 @@ object BookEditDialog: TBookEditDialog
     TabOrder = 4
   end
   object ButtonCancel: TBitBtn
-    Left = 368
+    Left = 434
     Height = 30
     Top = 296
     Width = 75
@@ -63,33 +64,34 @@ object BookEditDialog: TBookEditDialog
   end
   object Panel1: TPanel
     Left = 24
-    Height = 200
+    Height = 220
     Top = 33
-    Width = 150
+    Width = 182
     BorderWidth = 2
     BorderStyle = bsSingle
-    ClientHeight = 200
-    ClientWidth = 150
+    ClientHeight = 218
+    ClientWidth = 180
     TabOrder = 6
     object ImageBookCover: TImage
       Left = 0
-      Height = 200
+      Height = 224
       Top = 0
-      Width = 150
+      Width = 182
+      OnClick = ImageBookCoverClick
       Stretch = True
     end
   end
   object EditImagePath: TEdit
-    Left = 277
+    Left = 329
     Height = 29
-    Top = 204
-    Width = 376
+    Top = 224
+    Width = 463
     OnChange = EditFilePathChange
     TabOrder = 7
     Text = 'Image Path'
   end
   object Label1: TLabel
-    Left = 192
+    Left = 271
     Height = 17
     Top = 45
     Width = 30
@@ -97,7 +99,7 @@ object BookEditDialog: TBookEditDialog
     ParentColor = False
   end
   object Label2: TLabel
-    Left = 192
+    Left = 235
     Height = 17
     Top = 92
     Width = 66
@@ -105,27 +107,32 @@ object BookEditDialog: TBookEditDialog
     ParentColor = False
   end
   object Label3: TLabel
-    Left = 192
+    Left = 268
     Height = 17
-    Top = 132
+    Top = 140
     Width = 33
     Caption = 'ISBN'
     ParentColor = False
   end
   object Label4: TLabel
-    Left = 192
+    Left = 242
     Height = 17
-    Top = 172
+    Top = 188
     Width = 59
     Caption = 'File Path'
     ParentColor = False
   end
   object Label5: TLabel
-    Left = 192
+    Left = 224
     Height = 17
-    Top = 216
+    Top = 236
     Width = 77
     Caption = 'Image Path'
     ParentColor = False
   end
+  object OpenDialog1: TOpenDialog
+    Filter = 'JPEG|*.jpg;*.jpeg|PNG|*.png'
+    left = 104
+    top = 272
+  end
 end

src/unitbookdialog.pas

@@ -26,11 +26,13 @@ type
     Label3: Tlabel;
     Label4: Tlabel;
     Label5: Tlabel;
+    Opendialog1: Topendialog;
     Panel1: Tpanel;
     procedure Buttoncancelclick(Sender: Tobject);
     procedure Buttonsaveclick(Sender: Tobject);
     procedure EditFilePathChange(Sender: Tobject);
     procedure Formcreate(Sender: Tobject);
+    procedure Imagebookcoverclick(Sender: Tobject);
     procedure LoadBook(Book:TBook);
   private
     mBook:TBook;
@@ -51,9 +53,20 @@ implementation
 
 procedure Tbookeditdialog.Formcreate(Sender: Tobject);
 begin
+  ActiveControl:=ButtonSave;
 
 End;
 
+procedure Tbookeditdialog.Imagebookcoverclick(Sender: Tobject);
+begin
+  if Opendialog1.Execute then
+  begin
+       EditImagePath.Text:= Opendialog1.FileName;
+       ImageBookCover.Picture.LoadFromFile(EditImagePath.Text);
+  end;
+End;
+
+
 procedure Tbookeditdialog.EditFilePathChange(Sender: Tobject);
 begin