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

win32: remove unneeded condition

Browse Source 
git-svn-id: trunk@30047 -
This commit is contained in:
paul 2011-03-28 07:19:40 +00:00
parent 8387ee8302
commit 85e8f8b7a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -2255,7 +2255,7 @@ begin
Msg := LM_MOVE; Msg := LM_MOVE;
// MoveType := WParam; WParam is not defined! // MoveType := WParam; WParam is not defined!
MoveType := Move_SourceIsInterface; MoveType := Move_SourceIsInterface;
if (lWinControl is TCustomForm) and (GetWindowLong(Window, GWL_STYLE) and WS_CHILD = 0) then if GetWindowLong(Window, GWL_STYLE) and WS_CHILD = 0 then
begin begin
WindowPlacement.length := SizeOf(WindowPlacement); WindowPlacement.length := SizeOf(WindowPlacement);
if IsIconic(Window) and GetWindowPlacement(Window, @WindowPlacement) then if IsIconic(Window) and GetWindowPlacement(Window, @WindowPlacement) then