equal
deleted
inserted
replaced
163 |
163 |
164 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
164 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
165 begin |
165 begin |
166 isTerminated:= true; |
166 isTerminated:= true; |
167 if closeFrontend then alsoShutdownFrontend:= true; |
167 if closeFrontend then alsoShutdownFrontend:= true; |
168 end; |
|
169 |
|
170 procedure HW_setLandscape(landscape: boolean); cdecl; export; |
|
171 begin |
|
172 if landscape then |
|
173 begin |
|
174 cOffsetY:= 0; |
|
175 end |
|
176 else |
|
177 begin |
|
178 cOffsetY:= 120; |
|
179 end; |
|
180 end; |
168 end; |
181 |
169 |
182 procedure HW_setCursor(x,y: LongInt); cdecl; export; |
170 procedure HW_setCursor(x,y: LongInt); cdecl; export; |
183 begin |
171 begin |
184 CursorPoint.X:= x; |
172 CursorPoint.X:= x; |