equal
deleted
inserted
replaced
565 SetSkyColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255); |
565 SetSkyColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255); |
566 SDSkyColor.r:= SkyColor.r; |
566 SDSkyColor.r:= SkyColor.r; |
567 SDSkyColor.g:= SkyColor.g; |
567 SDSkyColor.g:= SkyColor.g; |
568 SDSkyColor.b:= SkyColor.b; |
568 SDSkyColor.b:= SkyColor.b; |
569 end |
569 end |
|
570 else if key = 'sd-tint' then |
|
571 begin |
|
572 i:= Pos(',', s); |
|
573 SDTint.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
|
574 Delete(s, 1, i); |
|
575 i:= Pos(',', s); |
|
576 SDTint.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
|
577 Delete(s, 1, i); |
|
578 SDTint.b:= StrToInt(Trim(s)); |
|
579 if GrayScale |
|
580 then |
|
581 begin |
|
582 t:= round(SDTint.r * RGB_LUMINANCE_RED + SDTint.g * RGB_LUMINANCE_GREEN + SDTint.b * RGB_LUMINANCE_BLUE); |
|
583 if t > 255 then |
|
584 t:= 255; |
|
585 SDTint.r:= t; |
|
586 SDTint.g:= t; |
|
587 SDTint.b:= t |
|
588 end; |
|
589 end |
570 else if key = 'border' then |
590 else if key = 'border' then |
571 begin |
591 begin |
572 i:= Pos(',', s); |
592 i:= Pos(',', s); |
573 c2.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
593 c2.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
574 Delete(s, 1, i); |
594 Delete(s, 1, i); |