equal
deleted
inserted
replaced
35 {$IFDEF WIN32}, dynlibs{$ENDIF} |
35 {$IFDEF WIN32}, dynlibs{$ENDIF} |
36 ; |
36 ; |
37 |
37 |
38 function RunEngine(argc: LongInt; argv: PPChar): Longint; cdecl; export; |
38 function RunEngine(argc: LongInt; argv: PPChar): Longint; cdecl; export; |
39 function GameTick(delta: Longword): boolean; cdecl; export; |
39 function GameTick(delta: Longword): boolean; cdecl; export; |
|
40 procedure ResizeWindow(width, height: Longword); cdecl; export; |
40 |
41 |
41 procedure preInitEverything(); |
42 procedure preInitEverything(); |
42 procedure initEverything(complete:boolean); |
43 procedure initEverything(complete:boolean); |
43 procedure freeEverything(complete:boolean); |
44 procedure freeEverything(complete:boolean); |
44 |
45 |
652 end; |
653 end; |
653 end; |
654 end; |
654 end; |
655 end; |
655 end; |
656 end; |
656 |
657 |
|
658 procedure ResizeWindow(width, height: Longword); cdecl; export; |
|
659 begin |
|
660 cNewScreenWidth:= max(2 * (width div 2), cMinScreenWidth); |
|
661 cNewScreenHeight:= max(2 * (height div 2), cMinScreenHeight); |
|
662 cScreenResizeDelay:= RealTicks + 500{$IFDEF IPHONEOS}div 2{$ENDIF}; |
|
663 end; |
|
664 |
657 end. |
665 end. |