paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 08:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: clean up of lmessages, replace mswindows by windows to fix compilation of synedit on arm-wince

Browse Source 
git-svn-id: trunk@10637 -
This commit is contained in:
vincents 2007-02-13 22:49:36 +00:00
parent 677185a3bf
commit 18435f6f69
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/lmessages.pp
View File

@ -27,12 +27,6 @@ unit LMessages;
{$mode objfpc}{$H+}
{$IF defined(VER2_0_2) and defined(win32)}
// FPC <= 2.0.2 compatibility code
// WINDOWS define was added after FPC 2.0.2
{$define WINDOWS}
{$endif}
interface
uses Classes, SysUtils, LCLType, GraphType
@ -628,7 +622,7 @@ type
Result: LRESULT;
end;
{$if defined(ver1_0) or not(defined(WINDOWS))}
{$ifndef windows}
TLMSize = record
Msg: Cardinal;
SizeType: PtrInt; // see LCLType.pp (e.g. Size_Restored)
@ -648,7 +642,7 @@ type
end;
PLMessage = ^TLMessage;
{$if defined(ver1_0) or not(defined(mswindows))}
{$ifndef windows}
TLMessage = record
Msg : Cardinal;
case Integer of
@ -701,7 +695,7 @@ type
// TLMVScroll = TWMScroll;
{.$endif}
{$if defined(ver1_0) or not(defined(WINDOWS))}
{$ifndef windows}
TLMShowWindow = record
Msg: Cardinal;
Show: LongBool;
@ -715,7 +709,7 @@ type
TLMShowWindow = TWMShowWindow;
{$endif}
{$if defined(ver1_0) or not(defined(WINDOWS))}
{$ifndef windows}
TLMKILLFOCUS = TLMSetFocus;
{$else}
TLMKillFocus = TWMKillFocus;