浏览代码

* fixed indentation in SysSetVideoMode of the go32v2 video unit

git-svn-id: trunk@28787 -
nickysn 10 年之前
父节点
当前提交
207efda423
共有 1 个文件被更改,包括 8 次插入8 次删除
  1. 8 8
      packages/rtl-console/src/go32v2/video.pp

+ 8 - 8
packages/rtl-console/src/go32v2/video.pp

@@ -283,14 +283,14 @@ begin
       Dec(I);
       Dec(I);
   If SysSetVideoMode then
   If SysSetVideoMode then
     begin
     begin
-    If (I<SysVideoModeCount-1) then
-      DoSetVideoMode(I)
-    else
-      SetVideo8x8;
-    ScreenWidth:=SysVMD[I].Col;
-    ScreenHeight:=SysVMD[I].Row;
-    ScreenColor:=SysVMD[I].Color;
-    DoCustomMouse(false);
+      If (I<SysVideoModeCount-1) then
+        DoSetVideoMode(I)
+      else
+        SetVideo8x8;
+      ScreenWidth:=SysVMD[I].Col;
+      ScreenHeight:=SysVMD[I].Row;
+      ScreenColor:=SysVMD[I].Color;
+      DoCustomMouse(false);
     end;
     end;
 end;
 end;