paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:29:19 +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; program BasicPM;
uses uses
Os2Def, PMWin; Os2Def, PMWin, PMGpi;
function ClientWindowProc (Window, Msg: cardinal; MP1, MP2: pointer): pointer; function ClientWindowProc (Window, Msg: cardinal; MP1, MP2: pointer): pointer;
cdecl; export; cdecl; export;
@ -16,7 +16,7 @@ begin
case Msg of case Msg of
wm_Paint: begin wm_Paint: begin
PS := WinBeginPaint(Window, 0, nil); PS := WinBeginPaint(Window, 0, nil);
{ GpiErase(PS);} GpiErase(PS);
WinEndPaint(PS); WinEndPaint(PS);
end; end;
else ClientWindowProc := WinDefWindowProc (Window, Msg, MP1, MP2); else ClientWindowProc := WinDefWindowProc (Window, Msg, MP1, MP2);