38 function  RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;

    38 function  RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;

    39 procedure RenderWeaponTooltip(atype: TAmmoType);

    39 procedure RenderWeaponTooltip(atype: TAmmoType);

    40 procedure ShowWeaponTooltip(x, y: LongInt);

    40 procedure ShowWeaponTooltip(x, y: LongInt);

    41 procedure FreeWeaponTooltip;

    41 procedure FreeWeaponTooltip;

    42 procedure MakeCrossHairs;

    42 procedure MakeCrossHairs;

    43 procedure InitOffscreenOpenGL;

    44 procedure InitOffscreenOpenGL;

    44 

    46 

    45 procedure WarpMouse(x, y: Word); inline;

    47 procedure WarpMouse(x, y: Word); inline;

    46 procedure SwapBuffers; inline;

    48 procedure SwapBuffers; inline;

    47 

    49 

    48 implementation

    50 implementation

  1020 // free the existing texture (if there is any)

  1022 // free the existing texture (if there is any)

  1021 FreeTexture(WeaponTooltipTex);

  1023 FreeTexture(WeaponTooltipTex);

  1022 WeaponTooltipTex:= nil

  1024 WeaponTooltipTex:= nil

  1023 end;

  1025 end;

  1024 

  1026 

  1025 procedure InitOffscreenOpenGL;

  1028 procedure InitOffscreenOpenGL;

  1026 var ArgCount: LongInt;

  1029 var ArgCount: LongInt;

  1027     PrgName: pchar;

  1030     PrgName: pchar;

  1028 begin

  1031 begin

  1029     ArgCount:= 1;

  1032     ArgCount:= 1;

  1032     glutInitWindowSize(cScreenWidth, cScreenHeight);

  1035     glutInitWindowSize(cScreenWidth, cScreenHeight);

  1033     glutCreateWindow('You don''t see this'); // we don't need a window, but if this function is not called then OpenGL will not be initialized

  1036     glutCreateWindow('You don''t see this'); // we don't need a window, but if this function is not called then OpenGL will not be initialized

  1034     glutHideWindow();

  1037     glutHideWindow();

  1035     SetupOpenGL();

  1038     SetupOpenGL();

  1036 end;

  1039 end;

  1037 

  1041 

  1038 procedure chFullScr(var s: shortstring);

  1042 procedure chFullScr(var s: shortstring);

  1039 var flags: Longword = 0;

  1043 var flags: Longword = 0;

  1040     reinit: boolean = false;

  1044     reinit: boolean = false;

  1041     {$IFNDEF DARWIN}ico: PSDL_Surface;{$ENDIF}

  1045     {$IFNDEF DARWIN}ico: PSDL_Surface;{$ENDIF}