LZScene

1
object RColorEditor: TRColorEditor
2
  Left = 0
3
  Height = 95
4
  Top = 0
5
  Width = 289
6
  AutoSize = True
7
  ClientHeight = 95
8
  ClientWidth = 289
9
  OnResize = FrameResize
10
  TabOrder = 0
11
  object Label1: TLabel
12
    Left = 0
13
    Height = 20
14
    Top = 2
15
    Width = 32
16
    Caption = 'Red'
17
    Font.CharSet = ANSI_CHARSET
18
    Font.Color = clRed
19
    Font.Height = -16
20
    Font.Name = 'Arial'
21
    Font.Style = [fsBold]
22
    ParentColor = False
23
    ParentFont = False
24
  end
25
  object Label2: TLabel
26
    Left = 0
27
    Height = 20
28
    Top = 26
29
    Width = 47
30
    Caption = 'Green'
31
    Font.CharSet = ANSI_CHARSET
32
    Font.Color = clLime
33
    Font.Height = -16
34
    Font.Name = 'Arial'
35
    Font.Style = [fsBold]
36
    ParentColor = False
37
    ParentFont = False
38
  end
39
  object Label3: TLabel
40
    Left = 0
41
    Height = 20
42
    Top = 50
43
    Width = 36
44
    Caption = 'Blue'
45
    Font.CharSet = ANSI_CHARSET
46
    Font.Color = clBlue
47
    Font.Height = -16
48
    Font.Name = 'Arial'
49
    Font.Style = [fsBold]
50
    ParentColor = False
51
    ParentFont = False
52
  end
53
  object Label4: TLabel
54
    Left = 0
55
    Height = 20
56
    Top = 74
57
    Width = 45
58
    Caption = 'Alpha'
59
    Font.CharSet = ANSI_CHARSET
60
    Font.Height = -16
61
    Font.Name = 'Arial'
62
    Font.Style = [fsBold]
63
    ParentColor = False
64
    ParentFont = False
65
  end
66
  object ColorEditorPaintBox: TPaintBox
67
    Left = 0
68
    Height = 95
69
    Top = 0
70
    Width = 289
71
    Align = alClient
72
    OnMouseDown = ColorEditorPaintBoxMouseDown
73
    OnMouseMove = ColorEditorPaintBoxMouseMove
74
    OnMouseUp = ColorEditorPaintBoxMouseUp
75
    OnPaint = ColorEditorPaintBoxPaint
76
  end
77
  object PAPreview: TPanel
78
    Left = 220
79
    Height = 73
80
    Hint = 'Double-click to select with Windows color picker'
81
    Top = 6
82
    Width = 33
83
    BevelInner = bvRaised
84
    BevelOuter = bvLowered
85
    BorderWidth = 1
86
    Color = clLime
87
    ParentColor = False
88
    TabOrder = 0
89
    Visible = False
90
    OnDblClick = PAPreviewDblClick
91
  end
92
  object Panel1: TPanel
93
    Left = 0
94
    Height = 95
95
    Top = 0
96
    Width = 289
97
    Alignment = taLeftJustify
98
    BevelOuter = bvNone
99
    Caption = '                Color edit frame'
100
    TabOrder = 1
101
    Visible = False
102
  end
103
  object RedEdit: TEdit
104
    Left = 176
105
    Height = 22
106
    Top = 4
107
    Width = 33
108
    Font.CharSet = ANSI_CHARSET
109
    Font.Height = -11
110
    Font.Name = 'Arial'
111
    OnChange = RedEditChange
112
    ParentFont = False
113
    TabOrder = 2
114
    Text = '0'
115
  end
116
  object GreenEdit: TEdit
117
    Left = 176
118
    Height = 22
119
    Top = 26
120
    Width = 33
121
    Font.CharSet = ANSI_CHARSET
122
    Font.Height = -11
123
    Font.Name = 'Arial'
124
    OnChange = GreenEditChange
125
    ParentFont = False
126
    TabOrder = 3
127
    Text = '0'
128
  end
129
  object BlueEdit: TEdit
130
    Left = 176
131
    Height = 22
132
    Top = 48
133
    Width = 33
134
    Font.CharSet = ANSI_CHARSET
135
    Font.Height = -11
136
    Font.Name = 'Arial'
137
    OnChange = BlueEditChange
138
    ParentFont = False
139
    TabOrder = 4
140
    Text = '0'
141
  end
142
  object AlphaEdit: TEdit
143
    Left = 176
144
    Height = 22
145
    Top = 70
146
    Width = 33
147
    Font.CharSet = ANSI_CHARSET
148
    Font.Height = -11
149
    Font.Name = 'Arial'
150
    OnChange = AlphaEditChange
151
    ParentFont = False
152
    TabOrder = 5
153
    Text = '0'
154
  end
155
  object ColorDialog: TColorDialog
156
    Color = clBlack
157
    CustomColors.Strings = (
158
      'ColorA=000000'
159
      'ColorB=000080'
160
      'ColorC=008000'
161
      'ColorD=008080'
162
      'ColorE=800000'
163
      'ColorF=800080'
164
      'ColorG=808000'
165
      'ColorH=808080'
166
      'ColorI=C0C0C0'
167
      'ColorJ=0000FF'
168
      'ColorK=00FF00'
169
      'ColorL=00FFFF'
170
      'ColorM=FF0000'
171
      'ColorN=FF00FF'
172
      'ColorO=FFFF00'
173
      'ColorP=FFFFFF'
174
      'ColorQ=C0DCC0'
175
      'ColorR=F0CAA6'
176
      'ColorS=F0FBFF'
177
      'ColorT=A4A0A0'
178
    )
179
    left = 8
180
    top = 8
181
  end
182
end
183