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 begin

   144 begin

   144     if landscape then

   145     if landscape then

   145     begin

   146     begin

   146         rotationQt:= -90;

   147         rotationQt:= -90;

   147         uStore.wScreen:= cScreenWidth;

   148         uStore.wScreen:= cScreenWidth;

   148         uStore.hScreen:= cScreenHeight;

   149         uStore.hScreen:= cScreenHeight;

   151     end

   152     end

   152     else

   153     else

   153     begin

   154     begin

   154         rotationQt:= 270;

   155         rotationQt:= 270;

   155         uStore.wScreen:= cScreenHeight;

   156         uStore.wScreen:= cScreenHeight;

   156         uStore.hScreen:= cScreenWidth;

   157         uStore.hScreen:= cScreenWidth;

   159     end;

   160     end;

   160 end;

   161 end;

   161 {$ENDIF}

   162 {$ENDIF}

   162 

   163 

   163 end.

   164 end.