unitbookdialog.lfm 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152
  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 = 400
  35. TabOrder = 2
  36. Text = 'ISBN'
  37. end
  38. object EditFilePath: TEdit
  39. Left = 329
  40. Height = 29
  41. Top = 176
  42. Width = 463
  43. OnChange = EditFilePathChange
  44. TabOrder = 3
  45. Text = 'File Path'
  46. end
  47. object ButtonSave: TBitBtn
  48. Left = 636
  49. Height = 30
  50. Top = 296
  51. Width = 75
  52. Caption = '&Save'
  53. OnClick = ButtonSaveClick
  54. Anchors = [akRight, akBottom]
  55. TabOrder = 4
  56. end
  57. object ButtonCancel: TBitBtn
  58. Left = 716
  59. Height = 30
  60. Top = 296
  61. Width = 75
  62. Caption = '&Cancel'
  63. OnClick = ButtonCancelClick
  64. Anchors = [akRight, akBottom]
  65. TabOrder = 5
  66. end
  67. object Panel1: TPanel
  68. Left = 24
  69. Height = 220
  70. Top = 33
  71. Width = 182
  72. BorderWidth = 2
  73. BorderStyle = bsSingle
  74. ClientHeight = 218
  75. ClientWidth = 180
  76. TabOrder = 6
  77. object ImageBookCover: TImage
  78. Left = 0
  79. Height = 224
  80. Top = 0
  81. Width = 182
  82. OnClick = ImageBookCoverClick
  83. Cursor = crHandPoint
  84. ShowHint = True
  85. Hint = 'Click to change cover'
  86. Stretch = True
  87. end
  88. end
  89. object ButtonChangeCover: TButton
  90. Left = 24
  91. Height = 28
  92. Top = 264
  93. Width = 182
  94. Caption = 'Change Cover...'
  95. OnClick = ImageBookCoverClick
  96. TabOrder = 8
  97. end
  98. object EditImagePath: TEdit
  99. Left = 329
  100. Height = 29
  101. Top = 224
  102. Width = 463
  103. OnChange = EditFilePathChange
  104. TabOrder = 7
  105. Text = 'Image Path'
  106. end
  107. object Label1: TLabel
  108. Left = 271
  109. Height = 17
  110. Top = 45
  111. Width = 30
  112. Caption = 'Title'
  113. ParentColor = False
  114. end
  115. object Label2: TLabel
  116. Left = 235
  117. Height = 17
  118. Top = 92
  119. Width = 66
  120. Caption = 'Author(s)'
  121. ParentColor = False
  122. end
  123. object Label3: TLabel
  124. Left = 268
  125. Height = 17
  126. Top = 140
  127. Width = 33
  128. Caption = 'ISBN'
  129. ParentColor = False
  130. end
  131. object Label4: TLabel
  132. Left = 242
  133. Height = 17
  134. Top = 188
  135. Width = 59
  136. Caption = 'File Path'
  137. ParentColor = False
  138. end
  139. object Label5: TLabel
  140. Left = 224
  141. Height = 17
  142. Top = 236
  143. Width = 77
  144. Caption = 'Image Path'
  145. ParentColor = False
  146. end
  147. object OpenDialog1: TOpenDialog
  148. Filter = 'JPEG|*.jpg;*.jpeg|PNG|*.png'
  149. left = 104
  150. top = 272
  151. end
  152. end