浏览代码

* fix for 11679, hide cursor when returning from dosshell/userprog

git-svn-id: trunk@14918 -
marco 15 年之前
父节点
当前提交
9fb153f725
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      ide/fpide.pas

+ 2 - 1
ide/fpide.pas

@@ -1468,6 +1468,7 @@ begin
 
 
   if Assigned(UserScreen) then
   if Assigned(UserScreen) then
     UserScreen^.SwitchBackToIDEScreen;
     UserScreen^.SwitchBackToIDEScreen;
+  Video.SetCursorType(crHidden);
 {$ifdef Windows}
 {$ifdef Windows}
   { This message was sent when the VideoBuffer was smaller
   { This message was sent when the VideoBuffer was smaller
     than was the IdeApp thought => writes to random memory and random crashes... PM }
     than was the IdeApp thought => writes to random memory and random crashes... PM }
@@ -1476,7 +1477,7 @@ begin
 {$ifdef Unix}
 {$ifdef Unix}
   SetKnownKeys;
   SetKnownKeys;
 {$endif Unix}
 {$endif Unix}
-{$ifndef Windows}
+ {$ifndef Windows}
 {$ifndef go32v2}
 {$ifndef go32v2}
   UpdateScreen(true);
   UpdateScreen(true);
 {$endif go32v2}
 {$endif go32v2}