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

fixed fpc warning

Browse Source 
git-svn-id: trunk@7916 -
This commit is contained in:
vincents 2005-10-05 09:36:10 +00:00
parent 53e55f23cf
commit 084c1127cb
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/win32/win32proc.pp
View File

@ -348,6 +348,7 @@ function WindowPosFlagsToString(Flags: UINT): string;
var var
FlagsStr: string; FlagsStr: string;
begin begin
FlagsStr := '';
if (Flags and SWP_DRAWFRAME) <> 0 then if (Flags and SWP_DRAWFRAME) <> 0 then
FlagsStr := FlagsStr + '|SWP_DRAWFRAME'; FlagsStr := FlagsStr + '|SWP_DRAWFRAME';
if (Flags and SWP_HIDEWINDOW) <> 0 then if (Flags and SWP_HIDEWINDOW) <> 0 then