paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PMGPI works now

Browse Source
This commit is contained in:
Tomas Hajny 1999-09-15 09:15:02 +00:00
parent 7289ef0622
commit 05abbae54b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/os2/tests/basicpm.pas
View File

@ -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);