浏览代码

* PMGPI works now

Tomas Hajny 26 年之前
父节点
当前提交
05abbae54b
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/os2/tests/basicpm.pas

+ 2 - 2
rtl/os2/tests/basicpm.pas

@@ -1,7 +1,7 @@
 program BasicPM;
 
 uses
- Os2Def, PMWin;
+ Os2Def, PMWin, PMGpi;
 
 function ClientWindowProc (Window, Msg: cardinal; MP1, MP2: pointer): pointer;
                                                                  cdecl; export;
@@ -16,7 +16,7 @@ begin
  case Msg of
   wm_Paint: begin
              PS := WinBeginPaint(Window, 0, nil);
-{            GpiErase(PS);}
+             GpiErase(PS);
              WinEndPaint(PS);
             end;
   else ClientWindowProc := WinDefWindowProc (Window, Msg, MP1, MP2);