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

QT: implement TWSCommonDialog.QueryWSEventCapabilities for QT WS.

Browse Source 
git-svn-id: trunk@52852 -
This commit is contained in:
bart 2016-08-21 12:30:27 +00:00
parent d627f1e6fe
commit f6450e8a39
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,12 +63,14 @@ type
TQtWSOpenDialog = class(TWSOpenDialog)
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TQtWSSaveDialog }
TQtWSSaveDialog = class(TWSSaveDialog)
published
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TQtWSSelectDirectoryDialog }
@ -79,6 +81,7 @@ type
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TQtWSColorDialog }
@ -87,6 +90,7 @@ type
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TQtWSColorButton }
@ -101,6 +105,7 @@ type
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
@ -113,6 +118,15 @@ const
{QDialogRejected} mrCancel,
{QDialogAccepted} mrOk
);
{ TQtWSSaveDialog }
class function TQtWSSaveDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSNoCanCloseSupport];
end;
{$endif}
{ TQtWSCommonDialog }
@ -661,6 +675,12 @@ begin
Result := TQtWSFileDialog.CreateHandle(ACommonDialog);
end;
class function TQtWSOpenDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSNoCanCloseSupport];
end;
{ TQtWSSelectDirectoryDialog }
class procedure TQtWSSelectDirectoryDialog.UpdateProperties(
@ -819,6 +839,12 @@ begin
{$endif}
end;
class function TQtWSSelectDirectoryDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSNoCanCloseSupport];
end;
{ TQtWSColorDialog }
class function TQtWSColorDialog.CreateHandle(const ACommonDialog: TCommonDialog): THandle;
@ -895,6 +921,12 @@ begin
ACommonDialog.DoClose;
end;
class function TQtWSColorDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSPerformsDoClose, cdecWSNoCanCloseSupport];
end;
{ TQtWSFontDialog }
class function TQtWSFontDialog.CreateHandle(const ACommonDialog: TCommonDialog
@ -975,4 +1007,10 @@ begin
ACommonDialog.DoClose;
end;
class function TQtWSFontDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSPerformsDoClose, cdecWSNoCanCloseSupport];
end;
end.