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, uStore, GLunit, uMisc, uWorld, hwengine; |
16 uses uKeys, GLunit, uWorld, hwengine; |
17 |
17 |
18 {$INCLUDE "config.inc"} |
18 {$INCLUDE "config.inc"} |
19 |
19 |
20 implementation |
20 implementation |
21 |
21 |
138 isTerminated:= true; |
138 isTerminated:= true; |
139 if closeFrontend then alsoShutdownFrontend:= true; |
139 if closeFrontend then alsoShutdownFrontend:= true; |
140 end; |
140 end; |
141 |
141 |
142 procedure HW_setLandscape(landscape: boolean); cdecl; export; |
142 procedure HW_setLandscape(landscape: boolean); cdecl; export; |
143 var tmp:LongInt; |
|
144 begin |
143 begin |
145 if landscape then |
144 if landscape then |
146 begin |
145 begin |
147 rotationQt:= -90; |
146 cOffsetY:= 0; |
148 uStore.wScreen:= cScreenWidth; |
|
149 uStore.hScreen:= cScreenHeight; |
|
150 uWorld.wScreen:= cScreenWidth; |
|
151 uWorld.hScreen:= cScreenHeight; |
|
152 end |
147 end |
153 else |
148 else |
154 begin |
149 begin |
155 rotationQt:= 270; |
150 cOffsetY:= 120; |
156 uStore.wScreen:= cScreenHeight; |
|
157 uStore.hScreen:= cScreenWidth; |
|
158 uWorld.wScreen:= cScreenHeight; |
|
159 uWorld.hScreen:= cScreenWidth; |
|
160 end; |
151 end; |
161 end; |
152 end; |
162 {$ENDIF} |
153 {$ENDIF} |
163 |
154 |
164 end. |
155 end. |