| changeset 4452 | 258945553b18 |
| parent 4451 | 1c342980b4aa |
| child 4976 | 088d40d8aba2 |
| 4451:1c342980b4aa | 4452:258945553b18 |
|---|---|
442 lastTint:= nc; |
442 lastTint:= nc; |
443 end; |
443 end; |
444 |
444 |
445 procedure Tint(c: Longword); inline; |
445 procedure Tint(c: Longword); inline; |
446 begin |
446 begin |
447 Tint(((c shr 16) and $FF), ((c shr 8) and $FF), (c and $FF), $FF); |
447 Tint(((c shr 24) and $FF), ((c shr 16) and $FF), (c shr 8) and $FF, (c and $FF)) |
448 end; |
448 end; |
449 |
449 |
450 end. |
450 end. |