ColorsUnit.dfm 1.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990
  1. object MultipleColorsForm: TMultipleColorsForm
  2. Left = 188
  3. Top = 102
  4. ActiveControl = ColorBox
  5. BorderIcons = [biSystemMenu]
  6. BorderStyle = bsDialog
  7. Caption = 'Select Colors'
  8. ClientHeight = 167
  9. ClientWidth = 265
  10. Color = clBtnFace
  11. Font.Charset = DEFAULT_CHARSET
  12. Font.Color = clWindowText
  13. Font.Height = -11
  14. Font.Name = 'MS Sans Serif'
  15. Font.Style = []
  16. OldCreateOrder = False
  17. Position = poScreenCenter
  18. OnShow = UpdateButtons
  19. PixelsPerInch = 96
  20. TextHeight = 13
  21. object Bevel1: TBevel
  22. Left = 8
  23. Top = 120
  24. Width = 249
  25. Height = 2
  26. Shape = bsTopLine
  27. end
  28. object ColorBox: TListBox
  29. Left = 16
  30. Top = 16
  31. Width = 153
  32. Height = 89
  33. Style = lbOwnerDrawFixed
  34. ItemHeight = 15
  35. TabOrder = 0
  36. OnDblClick = EditColor
  37. OnDrawItem = ColorBoxDrawItem
  38. OnKeyDown = ColorBoxKeyDown
  39. end
  40. object Button1: TButton
  41. Left = 176
  42. Top = 16
  43. Width = 73
  44. Height = 25
  45. Caption = '&Add...'
  46. TabOrder = 1
  47. OnClick = Button1Click
  48. end
  49. object Button2: TButton
  50. Left = 176
  51. Top = 48
  52. Width = 73
  53. Height = 25
  54. Caption = '&Remove'
  55. TabOrder = 2
  56. OnClick = Button2Click
  57. end
  58. object Button3: TButton
  59. Left = 176
  60. Top = 80
  61. Width = 73
  62. Height = 25
  63. Caption = '&Edit...'
  64. TabOrder = 3
  65. OnClick = EditColor
  66. end
  67. object Button4: TButton
  68. Left = 40
  69. Top = 132
  70. Width = 81
  71. Height = 25
  72. Caption = '&OK'
  73. Default = True
  74. ModalResult = 1
  75. TabOrder = 4
  76. end
  77. object Button5: TButton
  78. Left = 144
  79. Top = 132
  80. Width = 81
  81. Height = 25
  82. Caption = '&Cancel'
  83. ModalResult = 2
  84. TabOrder = 5
  85. end
  86. object ColorDlg: TColorDialog
  87. Options = [cdFullOpen, cdAnyColor]
  88. Left = 232
  89. end
  90. end