X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/87fed35010bb66b6183b06b01adb356dbefeefe6..6dc5aa808483fdb8531afc990f26f1138bf2ddac:/unitwindowobject.pas?ds=inline diff --git a/unitwindowobject.pas b/unitwindowobject.pas index cc7f1e1..1c0d32d 100644 --- a/unitwindowobject.pas +++ b/unitwindowobject.pas @@ -9,7 +9,7 @@ interface uses classes, - {$ifdef win32} + {$ifdef mswindows} windows,messages,wmessages, {$else} lmessages, @@ -34,7 +34,7 @@ type function killtimer(id:taddrint):boolean; procedure postmessage(msg,wparam,lparam:taddrint); procedure messageloop; - {$ifdef win32} + {$ifdef mswindows} procedure processmessages; virtual; function processmessage:boolean; {$endif}