iconselection.lfm 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899
  1. object IconSelectionForm: TIconSelectionForm
  2. Left = 270
  3. Height = 517
  4. Top = 135
  5. Width = 577
  6. Caption = 'Select icon'
  7. ClientHeight = 517
  8. ClientWidth = 577
  9. OnCreate = FormCreate
  10. OnShow = FormShow
  11. LCLVersion = '2.0.0.4'
  12. object ResultButtonPanel: TButtonPanel
  13. Left = 6
  14. Height = 38
  15. Top = 473
  16. Width = 565
  17. OKButton.Name = 'OKButton'
  18. OKButton.DefaultCaption = True
  19. OKButton.OnClick = OKButtonClick
  20. HelpButton.Name = 'HelpButton'
  21. HelpButton.DefaultCaption = True
  22. CloseButton.Name = 'CloseButton'
  23. CloseButton.DefaultCaption = True
  24. CancelButton.Name = 'CancelButton'
  25. CancelButton.DefaultCaption = True
  26. CancelButton.OnClick = CancelButtonClick
  27. Color = clForm
  28. TabOrder = 2
  29. OnKeyDown = ResultButtonPanelKeyDown
  30. ShowButtons = [pbOK, pbCancel]
  31. end
  32. object ManualSettingPanel: TPanel
  33. Left = 0
  34. Height = 36
  35. Top = 431
  36. Width = 577
  37. Align = alBottom
  38. AutoSize = True
  39. BevelOuter = bvNone
  40. ClientHeight = 36
  41. ClientWidth = 577
  42. Color = clForm
  43. ParentColor = False
  44. TabOrder = 1
  45. object IconIdLabel: TLabel
  46. AnchorSideTop.Control = IconIdSpinEdit
  47. AnchorSideTop.Side = asrCenter
  48. Left = 4
  49. Height = 18
  50. Top = 9
  51. Width = 150
  52. BorderSpacing.Left = 4
  53. Caption = 'ID of the selected icon: '
  54. ParentColor = False
  55. end
  56. object IconIdSpinEdit: TSpinEdit
  57. AnchorSideLeft.Control = IconIdLabel
  58. AnchorSideLeft.Side = asrBottom
  59. Left = 156
  60. Height = 28
  61. Top = 4
  62. Width = 120
  63. BorderSpacing.Left = 2
  64. BorderSpacing.Top = 4
  65. BorderSpacing.Bottom = 4
  66. MaxValue = 9999
  67. OnChange = IconIdSpinEditChange
  68. TabOrder = 0
  69. end
  70. end
  71. object IconsetScrollBox: TScrollBox
  72. Left = 0
  73. Height = 431
  74. Top = 0
  75. Width = 577
  76. HorzScrollBar.Page = 105
  77. HorzScrollBar.Tracking = True
  78. VertScrollBar.Page = 105
  79. VertScrollBar.Tracking = True
  80. Align = alClient
  81. ClientHeight = 427
  82. ClientWidth = 573
  83. Color = clForm
  84. ParentBiDiMode = False
  85. ParentColor = False
  86. TabOrder = 0
  87. TabStop = True
  88. object IconsetPaintBox: TPaintBox
  89. Left = 0
  90. Height = 105
  91. Top = 0
  92. Width = 105
  93. OnDblClick = IconsetPaintBoxDblClick
  94. OnMouseUp = IconsetPaintBoxMouseUp
  95. OnPaint = IconsetPaintBoxPaint
  96. end
  97. end
  98. end