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

win32: open picture dialog: workaround lcl bug with autosizing which prevent controls to apply their bounds if parent = nil and parentwnd = 0

Browse Source 
git-svn-id: trunk@24021 -
This commit is contained in:
paul 2010-03-16 03:32:05 +00:00
parent 0118bd4b2a
commit 99dce14266
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/win32wsextdlgs.pp
View File

@ -120,7 +120,7 @@ begin
DialogRec := POpenFileDialogRec(OpenFileName^.lCustData);
AControl := TPreviewFileDialog(DialogRec^.Dialog).PreviewFileControl;
// attach our child to the template window
SetParent(AControl.Handle, hWnd);
AControl.ParentWindow := hWnd;
GetWindowRect(stc32Handle, ARect);
ScreenToClient(hWnd, ARect.TopLeft);