equal
deleted
inserted
replaced
82 procedure FreeWeaponTooltip; |
82 procedure FreeWeaponTooltip; |
83 procedure Tint(r, g, b, a: Byte); inline; |
83 procedure Tint(r, g, b, a: Byte); inline; |
84 procedure Tint(c: Longword); inline; |
84 procedure Tint(c: Longword); inline; |
85 |
85 |
86 implementation |
86 implementation |
87 uses uMisc, uConsole, uLocale{$IFDEF IPHONEOS}, PascalExports{$ENDIF}; |
87 uses uMisc, uConsole, uLocale; |
88 |
88 |
89 type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); |
89 type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); |
90 |
90 |
91 var HHTexture: PTexture; |
91 var HHTexture: PTexture; |
92 MaxTextureSize: LongInt; |
92 MaxTextureSize: LongInt; |