unitbookdialog.lfm 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165
  1. object BookEditDialog: TBookEditDialog
  2. Left = 545
  3. Height = 347
  4. Top = 356
  5. Width = 806
  6. ActiveControl = EditTitle
  7. BorderStyle = bsDialog
  8. Caption = 'Edit Book Info'
  9. ClientHeight = 347
  10. ClientWidth = 806
  11. FormStyle = fsStayOnTop
  12. OnCreate = FormCreate
  13. LCLVersion = '1.6.4.0'
  14. object EditTitle: TEdit
  15. Left = 329
  16. Height = 29
  17. Top = 33
  18. Width = 463
  19. TabOrder = 0
  20. Text = 'Title'
  21. end
  22. object EditAuthors: TEdit
  23. Left = 329
  24. Height = 29
  25. Top = 80
  26. Width = 463
  27. TabOrder = 1
  28. Text = 'Authors'
  29. end
  30. object EditISBN: TEdit
  31. Left = 329
  32. Height = 29
  33. Top = 128
  34. Width = 375
  35. TabOrder = 2
  36. Text = 'ISBN'
  37. end
  38. object ButtonLookup: TBitBtn
  39. Left = 710
  40. Height = 29
  41. Top = 128
  42. Width = 85
  43. Caption = '&Lookup'
  44. OnClick = ButtonLookupClick
  45. Anchors = [akTop, akRight]
  46. TabOrder = 3
  47. end
  48. object EditFilePath: TEdit
  49. Left = 329
  50. Height = 29
  51. Top = 176
  52. Width = 463
  53. OnChange = EditFilePathChange
  54. TabOrder = 4
  55. Text = 'File Path'
  56. end
  57. object ButtonSave: TBitBtn
  58. Left = 636
  59. Height = 30
  60. Top = 296
  61. Width = 75
  62. Caption = '&Save'
  63. OnClick = ButtonSaveClick
  64. Anchors = [akRight, akBottom]
  65. TabOrder = 5
  66. end
  67. object ButtonCancel: TBitBtn
  68. Left = 716
  69. Height = 30
  70. Top = 296
  71. Width = 75
  72. Caption = '&Cancel'
  73. OnClick = ButtonCancelClick
  74. Anchors = [akRight, akBottom]
  75. TabOrder = 6
  76. end
  77. object Panel1: TPanel
  78. Left = 24
  79. Height = 260
  80. Top = 33
  81. Width = 140
  82. BorderWidth = 2
  83. BorderStyle = bsSingle
  84. ClientHeight = 250
  85. ClientWidth = 130
  86. TabOrder = 7
  87. object ImageBookCover: TImage
  88. Left = 0
  89. Height = 250
  90. Top = 0
  91. Width = 130
  92. Align = alClient
  93. Center = True
  94. Proportional = True
  95. OnClick = ImageBookCoverClick
  96. Cursor = crHandPoint
  97. ShowHint = True
  98. Hint = 'Click to change cover'
  99. Stretch = False
  100. end
  101. end
  102. object ButtonChangeCover: TBitBtn
  103. Left = 24
  104. Height = 28
  105. Top = 270
  106. Width = 130
  107. Caption = 'Change Cover...'
  108. OnClick = ImageBookCoverClick
  109. TabOrder = 8
  110. end
  111. object EditImagePath: TEdit
  112. Left = 329
  113. Height = 29
  114. Top = 224
  115. Width = 463
  116. OnChange = EditFilePathChange
  117. TabOrder = 9
  118. Text = 'Image Path'
  119. end
  120. object Label1: TLabel
  121. Left = 271
  122. Height = 17
  123. Top = 45
  124. Width = 30
  125. Caption = 'Title'
  126. ParentColor = False
  127. end
  128. object Label2: TLabel
  129. Left = 235
  130. Height = 17
  131. Top = 92
  132. Width = 66
  133. Caption = 'Author(s)'
  134. ParentColor = False
  135. end
  136. object Label3: TLabel
  137. Left = 268
  138. Height = 17
  139. Top = 140
  140. Width = 33
  141. Caption = 'ISBN'
  142. ParentColor = False
  143. end
  144. object Label4: TLabel
  145. Left = 242
  146. Height = 17
  147. Top = 188
  148. Width = 59
  149. Caption = 'File Path'
  150. ParentColor = False
  151. end
  152. object Label5: TLabel
  153. Left = 224
  154. Height = 17
  155. Top = 236
  156. Width = 77
  157. Caption = 'Image Path'
  158. ParentColor = False
  159. end
  160. object OpenDialog1: TOpenDialog
  161. Filter = 'JPEG|*.jpg;*.jpeg|PNG|*.png'
  162. left = 104
  163. top = 272
  164. end
  165. end