equal
deleted
inserted
replaced
89 lastTint: Longword; |
89 lastTint: Longword; |
90 |
90 |
91 {$IFNDEF IPHONEOS} |
91 {$IFNDEF IPHONEOS} |
92 procedure Tint(r, g, b, a: Byte); inline; |
92 procedure Tint(r, g, b, a: Byte); inline; |
93 begin |
93 begin |
94 Tint((a shl 24) or (b shl 16) or (g shl 8) or r); |
94 Tint((a shl 24) or (r shl 16) or (g shl 8) or b); |
95 end; |
95 end; |
96 |
96 |
97 procedure Tint(c: Longword); inline; |
97 procedure Tint(c: Longword); inline; |
98 begin |
98 begin |
99 if c = lastTint then |
99 if c = lastTint then |
114 |
114 |
115 procedure Tint(c: Longword); inline; |
115 procedure Tint(c: Longword); inline; |
116 begin |
116 begin |
117 if c = lastTint then |
117 if c = lastTint then |
118 exit; |
118 exit; |
119 Tint(c and $FF, (c shr 8) and $FF, (c shr 16) and $FF, (c shr 24) and $FF); |
119 Tint((c shr 16) and $FF, (c shr 8) and $FF, c and $FF, (c shr 24) and $FF); |
120 lastTint:= c; |
120 lastTint:= c; |
121 end; |
121 end; |
122 {$ENDIF} |
122 {$ENDIF} |
123 |
123 |
124 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
124 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |