Dark Theme

HemulGM · Apr 9, 2020 · dabc0b7 · dabc0b7
1 parent 517783a
commit dabc0b7
Show file tree

Hide file tree

Showing 9 changed files with 11,791 additions and 8,336 deletions.
diff --git a/CTS.Main.dfm b/CTS.Main.dfm
diff --git a/CTS.Main.pas b/CTS.Main.pas
diff --git a/CTS.Test.dfm b/CTS.Test.dfm
@@ -17,15 +17,15 @@ object FormTest: TFormTest
  object Panel1: TPanel
  Left = 0
  Top = 0
- Width = 145
+ Width = 209
  Height = 520
  Align = alLeft
  BevelOuter = bvNone
  Color = clWhite
  ParentBackground = False
  TabOrder = 0
  object Shape4: TShape
- Left = 144
+ Left = 208
  Top = 0
  Width = 1
  Height = 520
@@ -38,168 +38,170 @@ object FormTest: TFormTest
  end
  object Label1: TLabel
  Left = 19
- Top = 13
+ Top = 21
  Width = 55
  Height = 13
  Caption = #1062#1074#1077#1090' '#1092#1086#1085#1072
  end
  object Label2: TLabel
  Left = 9
- Top = 41
+ Top = 49
  Width = 65
  Height = 13
  Caption = #1062#1074#1077#1090' '#1087#1072#1085#1077#1083#1080
  end
  object Label3: TLabel
  Left = 10
- Top = 69
+ Top = 77
  Width = 64
  Height = 13
  Caption = #1062#1074#1077#1090' '#1090#1077#1082#1089#1090#1072
  end
- object ColorSelectBG: TsColorSelect
+ object ColorSelectBG: TButtonFlat
  Left = 80
- Top = 8
+ Top = 16
  Width = 23
  Height = 22
- Glyph.Data = {
- BA030000424DBA0300000000000036000000280000000F0000000F0000000100
- 2000000000008403000000000000000000000000000000000000FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
- OnChange = ColorSelectBGChange
- ColorValue = clBlack
+ Caption = ''
+ ColorNormal = clBlack
+ ColorOver = clBlack
+ ColorPressed = clBlack
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ Flat = False
+ BorderColor = clBlack
+ FontOver.Charset = DEFAULT_CHARSET
+ FontOver.Color = clWindowText
+ FontOver.Height = -13
+ FontOver.Name = 'Tahoma'
+ FontOver.Style = []
+ FontDown.Charset = DEFAULT_CHARSET
+ FontDown.Color = clWindowText
+ FontDown.Height = -13
+ FontDown.Name = 'Tahoma'
+ FontDown.Style = []
+ OnClick = ColorSelectBGClick
+ RoundRectParam = 0
+ TabOrder = 0
+ TabStop = True
+ TextFormat = [tfCenter, tfSingleLine, tfVerticalCenter]
+ SubTextFont.Charset = DEFAULT_CHARSET
+ SubTextFont.Color = clWhite
+ SubTextFont.Height = -13
+ SubTextFont.Name = 'Tahoma'
+ SubTextFont.Style = []
  end
- object ColorSelectPanel: TsColorSelect
+ object ColorSelectPanel: TButtonFlat
  Left = 80
- Top = 36
+ Top = 44
  Width = 23
  Height = 22
- Glyph.Data = {
- BA030000424DBA0300000000000036000000280000000F0000000F0000000100
- 2000000000008403000000000000000000000000000000000000FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
- OnChange = ColorSelectPanelChange
- ColorValue = clBlack
+ Caption = ''
+ ColorNormal = clBlack
+ ColorOver = clBlack
+ ColorPressed = clBlack
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ Flat = False
+ BorderColor = clBlack
+ FontOver.Charset = DEFAULT_CHARSET
+ FontOver.Color = clWindowText
+ FontOver.Height = -13
+ FontOver.Name = 'Tahoma'
+ FontOver.Style = []
+ FontDown.Charset = DEFAULT_CHARSET
+ FontDown.Color = clWindowText
+ FontDown.Height = -13
+ FontDown.Name = 'Tahoma'
+ FontDown.Style = []
+ OnClick = ColorSelectPanelClick
+ RoundRectParam = 0
+ TabOrder = 1
+ TabStop = True
+ TextFormat = [tfCenter, tfSingleLine, tfVerticalCenter]
+ SubTextFont.Charset = DEFAULT_CHARSET
+ SubTextFont.Color = clWhite
+ SubTextFont.Height = -13
+ SubTextFont.Name = 'Tahoma'
+ SubTextFont.Style = []
  end
- object ColorSelectFont: TsColorSelect
+ object ColorSelectFont: TButtonFlat
  Left = 80
- Top = 64
+ Top = 72
  Width = 23
  Height = 22
- Glyph.Data = {
- BA030000424DBA0300000000000036000000280000000F0000000F0000000100
- 2000000000008403000000000000000000000000000000000000FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
- OnChange = ColorSelectFontChange
- ColorValue = clBlack
- end
- object RadioButtonBG: TRadioButton
- Left = 109
- Top = 10
- Width = 14
- Height = 17
- TabOrder = 0
- end
- object RadioButtonPanel: TRadioButton
- Left = 109
- Top = 38
- Width = 14
- Height = 17
- TabOrder = 1
- end
- object RadioButtonFont: TRadioButton
- Left = 109
- Top = 66
- Width = 14
- Height = 17
- Checked = True
+ Caption = ''
+ ColorNormal = clBlack
+ ColorOver = clBlack
+ ColorPressed = clBlack
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ Flat = False
+ BorderColor = clBlack
+ FontOver.Charset = DEFAULT_CHARSET
+ FontOver.Color = clWindowText
+ FontOver.Height = -13
+ FontOver.Name = 'Tahoma'
+ FontOver.Style = []
+ FontDown.Charset = DEFAULT_CHARSET
+ FontDown.Color = clWindowText
+ FontDown.Height = -13
+ FontDown.Name = 'Tahoma'
+ FontDown.Style = []
+ OnClick = ColorSelectFontClick
+ RoundRectParam = 0
  TabOrder = 2
  TabStop = True
+ TextFormat = [tfCenter, tfSingleLine, tfVerticalCenter]
+ SubTextFont.Charset = DEFAULT_CHARSET
+ SubTextFont.Color = clWhite
+ SubTextFont.Height = -13
+ SubTextFont.Name = 'Tahoma'
+ SubTextFont.Style = []
+ end
+ object GroupBox1: TGroupBox
+ Left = 109
+ Top = 0
+ Width = 85
+ Height = 103
+ Caption = #1062#1074#1077#1090' '#1080#1079' '#1086#1082#1085#1072
+ TabOrder = 3
+ object RadioButtonPanel: TRadioButton
+ Left = 9
+ Top = 46
+ Width = 14
+ Height = 17
+ TabOrder = 0
+ end
+ object RadioButtonFont: TRadioButton
+ Left = 9
+ Top = 74
+ Width = 14
+ Height = 17
+ Checked = True
+ TabOrder = 1
+ TabStop = True
+ end
+ object RadioButtonBG: TRadioButton
+ Left = 9
+ Top = 19
+ Width = 14
+ Height = 17
+ TabOrder = 2
+ end
  end
  end
  object PanelT1: TPanel
- Left = 200
+ Left = 215
  Top = 8
  Width = 209
  Height = 58
@@ -222,12 +224,11 @@ object FormTest: TFormTest
  'ulla pariatur. Excepteur sint occaecat cupidatat non proident, s' +
  'unt in culpa qui officia deserunt mollit anim id est laborum.'
  WordWrap = True
- ExplicitLeft = 51
- ExplicitTop = 6
+ ExplicitHeight = 143
  end
  end
  object PanelT2: TPanel
- Left = 200
+ Left = 215
  Top = 72
  Width = 209
  Height = 58
@@ -250,7 +251,7 @@ object FormTest: TFormTest
  end
  end
  object PanelT3: TPanel
- Left = 200
+ Left = 215
  Top = 136
  Width = 209
  Height = 58
@@ -268,8 +269,13 @@ object FormTest: TFormTest
  Caption = 'LOREM'
  Layout = tlCenter
  WordWrap = True
- ExplicitLeft = 15
- ExplicitTop = 27
+ ExplicitWidth = 34
+ ExplicitHeight = 13
  end
  end
+ object ColorDialog: TColorDialog
+ Options = [cdFullOpen, cdSolidColor, cdAnyColor]
+ Left = 432
+ Top = 232
+ end
 end