Line | |
---|
1 | unit Colors;
|
---|
2 |
|
---|
3 | interface
|
---|
4 |
|
---|
5 | uses
|
---|
6 | Classes, SysUtils, Graphics;
|
---|
7 |
|
---|
8 | type
|
---|
9 |
|
---|
10 | { TColors }
|
---|
11 |
|
---|
12 | TColors = class
|
---|
13 | Background: TColor;
|
---|
14 | Background2: TColor;
|
---|
15 | Text: TColor;
|
---|
16 | ShapeBackground: TColor;
|
---|
17 | MenuItemText: TColor;
|
---|
18 | MenuItemDisabledText: TColor;
|
---|
19 | MenuItemBackground: TColor;
|
---|
20 | MenuItemBackgroundSelected: TColor;
|
---|
21 | procedure Init(DarkMode: Boolean);
|
---|
22 | end;
|
---|
23 |
|
---|
24 |
|
---|
25 | implementation
|
---|
26 |
|
---|
27 | { TColors }
|
---|
28 |
|
---|
29 | procedure TColors.Init(DarkMode: Boolean);
|
---|
30 | begin
|
---|
31 | if DarkMode then begin
|
---|
32 | Background := $2f3020;
|
---|
33 | Background2 := $4f5040;
|
---|
34 | Text := clWhite;
|
---|
35 | ShapeBackground := clBlack;
|
---|
36 | MenuItemText := $cccccc;
|
---|
37 | MenuItemDisabledText := $888888;
|
---|
38 | MenuItemBackground := $b75C01;
|
---|
39 | MenuItemBackgroundSelected := $070C81;
|
---|
40 | end else begin
|
---|
41 | Background := $eff0e0;
|
---|
42 | Background2 := $cfd0c0;
|
---|
43 | Text := clBlack;
|
---|
44 | ShapeBackground := clWhite;
|
---|
45 | MenuItemText := clWhite;
|
---|
46 | MenuItemDisabledText := clSilver;
|
---|
47 | MenuItemBackground := $e78C31;
|
---|
48 | MenuItemBackgroundSelected := $f7bC61;
|
---|
49 | end;
|
---|
50 | end;
|
---|
51 |
|
---|
52 | end.
|
---|
53 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.