Skip to content

Commit dabc0b7

Browse files
alinvip22@gmail.comalinvip22@gmail.com
[email protected]
authored and
[email protected]
committed
Dark Theme
1 parent 517783a commit dabc0b7

9 files changed

+11791
-8336
lines changed

‎CTS.Main.dfm

+10,651-7,904
Large diffs are not rendered by default.

‎CTS.Main.pas

+291-87
Large diffs are not rendered by default.

‎CTS.Test.dfm

+144-138
Original file line numberDiff line numberDiff line change
@@ -17,15 +17,15 @@ object FormTest: TFormTest
1717
object Panel1: TPanel
1818
Left = 0
1919
Top = 0
20-
Width = 145
20+
Width = 209
2121
Height = 520
2222
Align = alLeft
2323
BevelOuter = bvNone
2424
Color = clWhite
2525
ParentBackground = False
2626
TabOrder = 0
2727
object Shape4: TShape
28-
Left = 144
28+
Left = 208
2929
Top = 0
3030
Width = 1
3131
Height = 520
@@ -38,168 +38,170 @@ object FormTest: TFormTest
3838
end
3939
object Label1: TLabel
4040
Left = 19
41-
Top = 13
41+
Top = 21
4242
Width = 55
4343
Height = 13
4444
Caption = #1062#1074#1077#1090' '#1092#1086#1085#1072
4545
end
4646
object Label2: TLabel
4747
Left = 9
48-
Top = 41
48+
Top = 49
4949
Width = 65
5050
Height = 13
5151
Caption = #1062#1074#1077#1090' '#1087#1072#1085#1077#1083#1080
5252
end
5353
object Label3: TLabel
5454
Left = 10
55-
Top = 69
55+
Top = 77
5656
Width = 64
5757
Height = 13
5858
Caption = #1062#1074#1077#1090' '#1090#1077#1082#1089#1090#1072
5959
end
60-
object ColorSelectBG: TsColorSelect
60+
object ColorSelectBG: TButtonFlat
6161
Left = 80
62-
Top = 8
62+
Top = 16
6363
Width = 23
6464
Height = 22
65-
Glyph.Data = {
66-
BA030000424DBA0300000000000036000000280000000F0000000F0000000100
67-
2000000000008403000000000000000000000000000000000000FFFFFFFFFFFF
68-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
69-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
70-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
71-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
72-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
73-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
74-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
75-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
76-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
77-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
78-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
79-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
80-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
81-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
82-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
83-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
84-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
85-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
86-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
87-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
88-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
89-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
90-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
91-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
92-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
93-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
94-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
95-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
96-
OnChange = ColorSelectBGChange
97-
ColorValue = clBlack
65+
Caption = ''
66+
ColorNormal = clBlack
67+
ColorOver = clBlack
68+
ColorPressed = clBlack
69+
Font.Charset = DEFAULT_CHARSET
70+
Font.Color = clWindowText
71+
Font.Height = -11
72+
Font.Name = 'Tahoma'
73+
Font.Style = []
74+
Flat = False
75+
BorderColor = clBlack
76+
FontOver.Charset = DEFAULT_CHARSET
77+
FontOver.Color = clWindowText
78+
FontOver.Height = -13
79+
FontOver.Name = 'Tahoma'
80+
FontOver.Style = []
81+
FontDown.Charset = DEFAULT_CHARSET
82+
FontDown.Color = clWindowText
83+
FontDown.Height = -13
84+
FontDown.Name = 'Tahoma'
85+
FontDown.Style = []
86+
OnClick = ColorSelectBGClick
87+
RoundRectParam = 0
88+
TabOrder = 0
89+
TabStop = True
90+
TextFormat = [tfCenter, tfSingleLine, tfVerticalCenter]
91+
SubTextFont.Charset = DEFAULT_CHARSET
92+
SubTextFont.Color = clWhite
93+
SubTextFont.Height = -13
94+
SubTextFont.Name = 'Tahoma'
95+
SubTextFont.Style = []
9896
end
99-
object ColorSelectPanel: TsColorSelect
97+
object ColorSelectPanel: TButtonFlat
10098
Left = 80
101-
Top = 36
99+
Top = 44
102100
Width = 23
103101
Height = 22
104-
Glyph.Data = {
105-
BA030000424DBA0300000000000036000000280000000F0000000F0000000100
106-
2000000000008403000000000000000000000000000000000000FFFFFFFFFFFF
107-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
108-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
109-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
110-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
111-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
112-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
113-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
114-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
115-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
116-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
117-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
118-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
119-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
120-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
121-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
122-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
123-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
124-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
125-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
126-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
127-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
128-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
129-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
130-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
131-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
132-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
133-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
134-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
135-
OnChange = ColorSelectPanelChange
136-
ColorValue = clBlack
102+
Caption = ''
103+
ColorNormal = clBlack
104+
ColorOver = clBlack
105+
ColorPressed = clBlack
106+
Font.Charset = DEFAULT_CHARSET
107+
Font.Color = clWindowText
108+
Font.Height = -11
109+
Font.Name = 'Tahoma'
110+
Font.Style = []
111+
Flat = False
112+
BorderColor = clBlack
113+
FontOver.Charset = DEFAULT_CHARSET
114+
FontOver.Color = clWindowText
115+
FontOver.Height = -13
116+
FontOver.Name = 'Tahoma'
117+
FontOver.Style = []
118+
FontDown.Charset = DEFAULT_CHARSET
119+
FontDown.Color = clWindowText
120+
FontDown.Height = -13
121+
FontDown.Name = 'Tahoma'
122+
FontDown.Style = []
123+
OnClick = ColorSelectPanelClick
124+
RoundRectParam = 0
125+
TabOrder = 1
126+
TabStop = True
127+
TextFormat = [tfCenter, tfSingleLine, tfVerticalCenter]
128+
SubTextFont.Charset = DEFAULT_CHARSET
129+
SubTextFont.Color = clWhite
130+
SubTextFont.Height = -13
131+
SubTextFont.Name = 'Tahoma'
132+
SubTextFont.Style = []
137133
end
138-
object ColorSelectFont: TsColorSelect
134+
object ColorSelectFont: TButtonFlat
139135
Left = 80
140-
Top = 64
136+
Top = 72
141137
Width = 23
142138
Height = 22
143-
Glyph.Data = {
144-
BA030000424DBA0300000000000036000000280000000F0000000F0000000100
145-
2000000000008403000000000000000000000000000000000000FFFFFFFFFFFF
146-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
147-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
148-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
149-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
150-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
151-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
152-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
153-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
154-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
155-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
156-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
157-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
158-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
159-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
160-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
161-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
162-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
163-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
164-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
165-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
166-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
167-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
168-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
169-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
170-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
171-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
172-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
173-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
174-
OnChange = ColorSelectFontChange
175-
ColorValue = clBlack
176-
end
177-
object RadioButtonBG: TRadioButton
178-
Left = 109
179-
Top = 10
180-
Width = 14
181-
Height = 17
182-
TabOrder = 0
183-
end
184-
object RadioButtonPanel: TRadioButton
185-
Left = 109
186-
Top = 38
187-
Width = 14
188-
Height = 17
189-
TabOrder = 1
190-
end
191-
object RadioButtonFont: TRadioButton
192-
Left = 109
193-
Top = 66
194-
Width = 14
195-
Height = 17
196-
Checked = True
139+
Caption = ''
140+
ColorNormal = clBlack
141+
ColorOver = clBlack
142+
ColorPressed = clBlack
143+
Font.Charset = DEFAULT_CHARSET
144+
Font.Color = clWindowText
145+
Font.Height = -11
146+
Font.Name = 'Tahoma'
147+
Font.Style = []
148+
Flat = False
149+
BorderColor = clBlack
150+
FontOver.Charset = DEFAULT_CHARSET
151+
FontOver.Color = clWindowText
152+
FontOver.Height = -13
153+
FontOver.Name = 'Tahoma'
154+
FontOver.Style = []
155+
FontDown.Charset = DEFAULT_CHARSET
156+
FontDown.Color = clWindowText
157+
FontDown.Height = -13
158+
FontDown.Name = 'Tahoma'
159+
FontDown.Style = []
160+
OnClick = ColorSelectFontClick
161+
RoundRectParam = 0
197162
TabOrder = 2
198163
TabStop = True
164+
TextFormat = [tfCenter, tfSingleLine, tfVerticalCenter]
165+
SubTextFont.Charset = DEFAULT_CHARSET
166+
SubTextFont.Color = clWhite
167+
SubTextFont.Height = -13
168+
SubTextFont.Name = 'Tahoma'
169+
SubTextFont.Style = []
170+
end
171+
object GroupBox1: TGroupBox
172+
Left = 109
173+
Top = 0
174+
Width = 85
175+
Height = 103
176+
Caption = #1062#1074#1077#1090' '#1080#1079' '#1086#1082#1085#1072
177+
TabOrder = 3
178+
object RadioButtonPanel: TRadioButton
179+
Left = 9
180+
Top = 46
181+
Width = 14
182+
Height = 17
183+
TabOrder = 0
184+
end
185+
object RadioButtonFont: TRadioButton
186+
Left = 9
187+
Top = 74
188+
Width = 14
189+
Height = 17
190+
Checked = True
191+
TabOrder = 1
192+
TabStop = True
193+
end
194+
object RadioButtonBG: TRadioButton
195+
Left = 9
196+
Top = 19
197+
Width = 14
198+
Height = 17
199+
TabOrder = 2
200+
end
199201
end
200202
end
201203
object PanelT1: TPanel
202-
Left = 200
204+
Left = 215
203205
Top = 8
204206
Width = 209
205207
Height = 58
@@ -222,12 +224,11 @@ object FormTest: TFormTest
222224
'ulla pariatur. Excepteur sint occaecat cupidatat non proident, s' +
223225
'unt in culpa qui officia deserunt mollit anim id est laborum.'
224226
WordWrap = True
225-
ExplicitLeft = 51
226-
ExplicitTop = 6
227+
ExplicitHeight = 143
227228
end
228229
end
229230
object PanelT2: TPanel
230-
Left = 200
231+
Left = 215
231232
Top = 72
232233
Width = 209
233234
Height = 58
@@ -250,7 +251,7 @@ object FormTest: TFormTest
250251
end
251252
end
252253
object PanelT3: TPanel
253-
Left = 200
254+
Left = 215
254255
Top = 136
255256
Width = 209
256257
Height = 58
@@ -268,8 +269,13 @@ object FormTest: TFormTest
268269
Caption = 'LOREM'
269270
Layout = tlCenter
270271
WordWrap = True
271-
ExplicitLeft = 15
272-
ExplicitTop = 27
272+
ExplicitWidth = 34
273+
ExplicitHeight = 13
273274
end
274275
end
276+
object ColorDialog: TColorDialog
277+
Options = [cdFullOpen, cdSolidColor, cdAnyColor]
278+
Left = 432
279+
Top = 232
280+
end
275281
end

0 commit comments

Comments
 (0)