hedgewars/uStore.pas
changeset 4375 ae5507ddb989
parent 4374 bcefeeabaa33
child 4377 43945842da0c
equal deleted inserted replaced
4374:bcefeeabaa33 4375:ae5507ddb989
    64 procedure FreeWeaponTooltip;
    64 procedure FreeWeaponTooltip;
    65 procedure Tint(r, g, b, a: Byte); inline;
    65 procedure Tint(r, g, b, a: Byte); inline;
    66 procedure Tint(c: Longword); inline;
    66 procedure Tint(c: Longword); inline;
    67 
    67 
    68 implementation
    68 implementation
    69 uses uMisc, uConsole, uLocale, uMobile, uVariables, uUtils;
    69 uses uMisc, uConsole, uLocale, uMobile, uVariables, uUtils, uTextures;
    70 
    70 
    71 type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple);
    71 type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple);
    72 
    72 
    73 var HHTexture: PTexture;
    73 var HHTexture: PTexture;
    74     MaxTextureSize: LongInt;
    74     MaxTextureSize: LongInt;