Commit 58152d3

Nick committed on
Refactor color constants
commit 58152d3b5a5b410f2c00ddbb1eed3723f9d122c2 parent d982ce7
1 changed files +9−5
Modifiedtrackergrid.pas +9−5
@@ -13,17 +13,21 @@ uses
13 const 13 const
14 clNote = TColor($7F4A00); 14 clNote = TColor($7F4A00);
15 clInstrument = TColor($7F7F00); 15 clInstrument = TColor($7F7F00);
16 clVolume = TColor($99FFB7); 16 //clVolume = TColor($99FFB7); unused
17 17
18 clFxMisc = TColor($3F3F7C); 18 clFxMisc = TColor($3F3F7C);
19 clFxPitch = TColor($006262); 19 clFxPitch = TColor($006262);
20 clFxVolume = TColor($007F26); 20 clFxVolume = TColor($007F26);
21 clFxPan = clInstrument; 21 clFxPan = TColor($7F7F00);
22 clFxSong = TColor($00007F); 22 clFxSong = TColor($00007F);
23 23
24 clBackground = TColor($D0DBE1);
24 clHighlighted = TColor($7A99A9); 25 clHighlighted = TColor($7A99A9);
25 clSelected = TColor($9EB4C0); 26 clSelected = TColor($9EB4C0);
26 27
28 clLineFour = TColor($C3D1D8);
29 clLineSixteen = TColor($B5C5CE);
30
27 NUM_COLUMNS = 4; 31 NUM_COLUMNS = 4;
28 NUM_ROWS = 64; 32 NUM_ROWS = 64;
29 UNDO_STACK_SIZE = 100; 33 UNDO_STACK_SIZE = 100;
@@ -264,14 +268,14 @@ begin
264 inherited Paint; 268 inherited Paint;
265 269
266 with Canvas do begin 270 with Canvas do begin
267 Brush.Color := RGBToColor(225, 219, 208); 271 Brush.Color := clBackground;
268 Clear; 272 Clear;
269 273
270 for I := 0 to High(TPattern) do begin 274 for I := 0 to High(TPattern) do begin
271 if (I mod 4) = 0 then 275 if (I mod 4) = 0 then
272 Brush.Color := RGBToColor(216, 209, 195); 276 Brush.Color := clLineFour;
273 if (I mod 16) = 0 then 277 if (I mod 16) = 0 then
274 Brush.Color := RGBToColor(206, 197, 181); 278 Brush.Color := clLineSixteen;
275 if I = Cursor.Y then 279 if I = Cursor.Y then
276 Brush.Color := clSelected; 280 Brush.Color := clSelected;
277 if I = FHighlightedRow then 281 if I = FHighlightedRow then