imageselection.lfm 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123
  1. object ImageSelectionForm: TImageSelectionForm
  2. Left = 322
  3. Height = 373
  4. Top = 163
  5. Width = 492
  6. Caption = 'Image selection'
  7. ClientHeight = 373
  8. ClientWidth = 492
  9. OnClose = FormClose
  10. LCLVersion = '2.0.2.0'
  11. object FilesListBox: TListBox
  12. Left = 0
  13. Height = 327
  14. Top = 0
  15. Width = 160
  16. Align = alLeft
  17. ItemHeight = 0
  18. OnSelectionChange = FilesListBoxSelectionChange
  19. TabOrder = 0
  20. end
  21. object FilesSplitter: TSplitter
  22. Left = 160
  23. Height = 327
  24. Top = 0
  25. Width = 5
  26. end
  27. object SelectedPanel: TPanel
  28. Left = 165
  29. Height = 327
  30. Top = 0
  31. Width = 327
  32. Align = alClient
  33. BevelOuter = bvNone
  34. ClientHeight = 327
  35. ClientWidth = 327
  36. TabOrder = 2
  37. object PreviewScrollBox: TScrollBox
  38. Left = 0
  39. Height = 263
  40. Top = 0
  41. Width = 327
  42. HorzScrollBar.Page = 1
  43. HorzScrollBar.Visible = False
  44. VertScrollBar.Page = 176
  45. Align = alClient
  46. ClientHeight = 259
  47. ClientWidth = 323
  48. ParentBiDiMode = False
  49. TabOrder = 0
  50. OnResize = PreviewScrollBoxResize
  51. object PreviewPaintBox: TPaintBox
  52. Left = 0
  53. Height = 176
  54. Top = 0
  55. Width = 184
  56. OnDblClick = PreviewPaintBoxDblClick
  57. OnMouseUp = PreviewPaintBoxMouseUp
  58. OnPaint = PreviewPaintBoxPaint
  59. end
  60. end
  61. object HueGroupBox: TGroupBox
  62. Left = 0
  63. Height = 64
  64. Top = 263
  65. Width = 327
  66. Align = alBottom
  67. AutoSize = True
  68. Caption = 'Hue'
  69. ClientHeight = 44
  70. ClientWidth = 323
  71. TabOrder = 1
  72. object HueTrackBar: TTrackBar
  73. Left = 96
  74. Height = 36
  75. Top = 4
  76. Width = 217
  77. Max = 360
  78. OnChange = HueTrackBarChange
  79. Position = 0
  80. Anchors = [akTop, akLeft, akRight]
  81. BorderSpacing.Top = 4
  82. BorderSpacing.Right = 4
  83. BorderSpacing.Bottom = 4
  84. TabOrder = 0
  85. end
  86. object HueSpinEdit: TSpinEdit
  87. AnchorSideRight.Control = HueTrackBar
  88. Left = 8
  89. Height = 23
  90. Top = 12
  91. Width = 80
  92. Anchors = [akTop, akLeft, akRight]
  93. BorderSpacing.Left = 4
  94. BorderSpacing.Top = 4
  95. BorderSpacing.Right = 8
  96. BorderSpacing.Bottom = 4
  97. MaxValue = 360
  98. OnChange = HueSpinEditChange
  99. TabOrder = 1
  100. end
  101. end
  102. end
  103. object DecisionButtonPanel: TButtonPanel
  104. Left = 6
  105. Height = 34
  106. Top = 333
  107. Width = 480
  108. OKButton.Name = 'OKButton'
  109. OKButton.DefaultCaption = True
  110. OKButton.OnClick = OKButtonClick
  111. HelpButton.Name = 'HelpButton'
  112. HelpButton.DefaultCaption = True
  113. CloseButton.Name = 'CloseButton'
  114. CloseButton.DefaultCaption = True
  115. CancelButton.Name = 'CancelButton'
  116. CancelButton.DefaultCaption = True
  117. CancelButton.OnClick = CancelButtonClick
  118. Color = clForm
  119. TabOrder = 3
  120. ShowButtons = [pbOK, pbCancel]
  121. end
  122. end