equal
deleted
inserted
replaced
11 {$INCLUDE "options.inc"} |
11 {$INCLUDE "options.inc"} |
12 |
12 |
13 unit PascalExports; |
13 unit PascalExports; |
14 |
14 |
15 interface |
15 interface |
16 uses uKeys, uConsole, hwengine; |
16 uses uKeys, uConsole, uStore, GLunit, uMisc, uWorld, hwengine; |
17 |
17 |
18 {$INCLUDE "config.inc"} |
18 {$INCLUDE "config.inc"} |
19 |
19 |
20 implementation |
20 implementation |
21 |
21 |
136 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
136 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
137 begin |
137 begin |
138 isTerminated:= true; |
138 isTerminated:= true; |
139 if closeFrontend then alsoShutdownFrontend:= true; |
139 if closeFrontend then alsoShutdownFrontend:= true; |
140 end; |
140 end; |
|
141 |
|
142 procedure HW_setLandscape(landscape: boolean); cdecl; export; |
|
143 begin |
|
144 if landscape then |
|
145 begin |
|
146 rotationQt:= -90; |
|
147 uStore.wScreen:= cScreenWidth; |
|
148 uStore.hScreen:= cScreenHeight; |
|
149 //uWorld.w:= cScreenWidth; |
|
150 //uWorld.h:= cScreenHeight; |
|
151 end |
|
152 else |
|
153 begin |
|
154 rotationQt:= 270; |
|
155 uStore.wScreen:= cScreenHeight; |
|
156 uStore.hScreen:= cScreenWidth; |
|
157 //uWorld.w:= cScreenHeight; |
|
158 //uWorld.h:= cScreenWidth; |
|
159 end; |
|
160 end; |
141 {$ENDIF} |
161 {$ENDIF} |
142 |
162 |
143 end. |
163 end. |
144 |
164 |