main.lfm 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100
  1. object Form1: TForm1
  2. Left = 457
  3. Height = 573
  4. Top = 245
  5. Width = 817
  6. ActiveControl = EditSearch
  7. Caption = 'myBookShelf'
  8. ClientHeight = 573
  9. ClientWidth = 817
  10. OnClose = FormClose
  11. OnCreate = FormCreate
  12. OnKeyDown = FormKeyDown
  13. LCLVersion = '1.6.4.0'
  14. object ImageToolBar: TImage
  15. Left = 0
  16. Height = 56
  17. Top = 0
  18. Width = 817
  19. Align = alTop
  20. Stretch = True
  21. end
  22. object ButtonAdd: TImage
  23. Left = 16
  24. Height = 42
  25. Top = 8
  26. Width = 42
  27. OnClick = ButtonAddClick
  28. OnMouseEnter = ButtonAddMouseEnter
  29. OnMouseLeave = ButtonAddMouseLeave
  30. Stretch = True
  31. end
  32. object PanelBackground: TScrollBox
  33. Left = 0
  34. Height = 517
  35. Top = 56
  36. Width = 817
  37. HorzScrollBar.Page = 1
  38. HorzScrollBar.Visible = False
  39. VertScrollBar.Increment = 1
  40. VertScrollBar.Page = 1
  41. VertScrollBar.Smooth = True
  42. Align = alClient
  43. TabOrder = 0
  44. OnClick = PanelBackgroundClick
  45. OnDragDrop = PanelBackgroundDragDrop
  46. OnDragOver = PanelBackgroundDragOver
  47. OnResize = PanelBackgroundResize
  48. OnPaint = PanelBackgroundPaint
  49. end
  50. object EditSearch: TEdit
  51. Left = 608
  52. Height = 21
  53. Top = 16
  54. Width = 176
  55. AutoSelect = False
  56. BorderStyle = bsNone
  57. OnChange = EditSearchChange
  58. OnEnter = EditSearchEnter
  59. OnExit = EditSearchExit
  60. OnKeyPress = EditSearchKeyPress
  61. ParentShowHint = False
  62. TabStop = False
  63. TabOrder = 1
  64. Text = 'Search...'
  65. TextHintFontColor = clBtnText
  66. end
  67. object ComboSort: TComboBox
  68. Left = 400
  69. Height = 23
  70. Top = 15
  71. Width = 192
  72. ItemHeight = 15
  73. Style = csDropDownList
  74. OnChange = ComboSortChange
  75. TabOrder = 2
  76. Items.Strings = (
  77. 'Recently Added'
  78. 'Title'
  79. 'Author'
  80. )
  81. ItemIndex = 0
  82. Text = 'Recently Added'
  83. end
  84. object ButtonSettings: TImage
  85. Left = 80
  86. Height = 42
  87. Top = 8
  88. Width = 42
  89. OnClick = ButtonSettingsClick
  90. OnMouseEnter = ButtonSettingsMouseEnter
  91. OnMouseLeave = ButtonSettingsMouseLeave
  92. end
  93. object OpenDialog1: TOpenDialog
  94. DefaultExt = '.pdf'
  95. Filter = 'PDF Books|*.pdf|DJVU Books|*.djvu|EPUB Books|*.epub'
  96. Options = [ofAllowMultiSelect, ofEnableSizing, ofViewDetail]
  97. left = 257
  98. top = 184
  99. end
  100. end