File tree Expand file tree Collapse file tree 2 files changed +1
-68
lines changed Expand file tree Collapse file tree 2 files changed +1
-68
lines changed Original file line number Diff line number Diff line change @@ -1369,7 +1369,6 @@ function GetLyricBarColor(Color: integer): TRGB;
1369
1369
1370
1370
function GetPlayerColor (Color: integer): TRGB;
1371
1371
function GetPlayerLightColor (Color: integer): TRGB;
1372
- function GetPlayerLightColorV2 (Color: integer): TRGB;
1373
1372
procedure LoadPlayersColors ;
1374
1373
procedure LoadTeamsColors ;
1375
1374
@@ -3273,72 +3272,6 @@ function GetPlayerColor(Color: integer): TRGB;
3273
3272
end ;
3274
3273
3275
3274
function GetPlayerLightColor (Color: integer): TRGB;
3276
- begin
3277
- case (Color) of
3278
- 1 :// blue
3279
- begin
3280
- Result.R := 145 /255 ;
3281
- Result.G := 215 /255 ;
3282
- Result.B := 240 /255 ;
3283
- end ;
3284
- 2 : // red
3285
- begin
3286
- Result.R := 245 /255 ;
3287
- Result.G := 162 /255 ;
3288
- Result.B := 162 /255 ;
3289
- end ;
3290
- 3 : // green
3291
- begin
3292
- Result.R := 152 /255 ;
3293
- Result.G := 250 /255 ;
3294
- Result.B := 153 /255 ;
3295
- end ;
3296
- 4 : // yellow
3297
- begin
3298
- Result.R := 255 /255 ;
3299
- Result.G := 246 /255 ;
3300
- Result.B := 143 /255 ;
3301
- end ;
3302
- 5 : // orange
3303
- begin
3304
- Result.R := 255 /255 ;
3305
- Result.G := 204 /255 ;
3306
- Result.B := 156 /255 ;
3307
- end ;
3308
- 6 : // pink
3309
- begin
3310
- Result.R := 255 /255 ;
3311
- Result.G := 192 /255 ;
3312
- Result.B := 205 /255 ;
3313
- end ;
3314
- 7 : // purple
3315
- begin
3316
- Result.R := 240 /255 ;
3317
- Result.G := 170 /255 ;
3318
- Result.B := 255 /255 ;
3319
- end ;
3320
- 8 : // gold
3321
- begin
3322
- Result.R := 255 /255 ;
3323
- Result.G := 214 /255 ;
3324
- Result.B := 118 /255 ;
3325
- end ;
3326
- 9 : // gray
3327
- begin
3328
- Result.R := 220 /255 ;
3329
- Result.G := 220 /255 ;
3330
- Result.B := 220 /255 ;
3331
- end ;
3332
- else
3333
- begin
3334
- Result.R := 145 /255 ;
3335
- Result.G := 215 /255 ;
3336
- Result.B := 240 /255 ;
3337
- end ;
3338
- end ;
3339
- end ;
3340
-
3341
- function GetPlayerLightColorV2 (Color: integer): TRGB;
3342
3275
begin
3343
3276
case (Color) of
3344
3277
1 :// blue
Original file line number Diff line number Diff line change @@ -732,7 +732,7 @@ procedure TScreenName.PlayerColorButton(K: integer);
732
732
Col, DesCol: TRGB;
733
733
begin
734
734
735
- Col := GetPlayerLightColorV2 (K);
735
+ Col := GetPlayerLightColor (K);
736
736
737
737
Button[PlayerName].SelectColR:= Col.R;
738
738
Button[PlayerName].SelectColG:= Col.G;
You can’t perform that action at this time.
0 commit comments