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

Qt: fixed build with -dQT_NATIVE_DIALOGS

Browse Source 
git-svn-id: trunk@48679 -
This commit is contained in:
zeljko 2015-04-08 12:30:44 +00:00
parent 6fac29b917
commit 6ccaef90d4
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwidgets.pas
View File

@ -18278,8 +18278,10 @@ end;
function TQtFilePreviewDialog.CreateWidget(parent: QWidgetH; f: QtWindowFlags
): QWidgetH;
begin
{$ifndef QT_NATIVE_DIALOGS}
FPreviewWidget := nil;
FTextWidget := nil;
{$endif}
Result := inherited CreateWidget(parent, f);
end;

3
lcl/interfaces/qt/qtwsdialogs.pp
View File

@ -651,8 +651,9 @@ begin
{. $note WE MUST USE NON NATIVE DIALOGS HERE, OTHERWISE NO SIGNALS #16532.}
QFileDialog_setOption(QFileDialogH(FileDialog.Widget),
QFileDialogDontUseNativeDialog, True);
{$ifndef QT_NATIVE_DIALOGS}
FileDialog.initializePreview(TPreviewFileDialog(ACommonDialog).PreviewFileControl);
{$endif}
FileDialog.AttachEvents;
Result := THandle(FileDialog);