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

GTK2: implement TWSCommonDialog.QueryWSEventCapabilities for GTK2 WS.

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

39
lcl/interfaces/gtk2/gtk2wsdialogs.pp
View File

@ -66,18 +66,21 @@ type
class procedure CreatePreviewDialogControl(PreviewDialog: TPreviewFileDialog; SelWidget: PGtkWidget); virtual;
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TGtk2WSSaveDialog }
TGtk2WSSaveDialog = class(TWSSaveDialog)
published
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TGtk2WSSelectDirectoryDialog }
TGtk2WSSelectDirectoryDialog = class(TWSSelectDirectoryDialog)
published
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TGtk2WSColorDialog }
@ -87,6 +90,7 @@ type
class procedure SetCallbacks(const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); virtual;
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
{ TGtk2WSColorButton }
@ -102,6 +106,7 @@ type
class procedure SetCallbacks(const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); virtual;
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class function QueryWSEventCapabilities(const ACommonDialog: TCommonDialog): TCDWSEventCapabilities; override;
end;
// forward declarations
@ -800,6 +805,22 @@ begin
end;
end;
{ TGtk2WSSelectDirectoryDialog }
class function TGtk2WSSelectDirectoryDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSPerformsDoShow];
end;
{ TGtk2WSSaveDialog }
class function TGtk2WSSaveDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSPerformsDoShow];
end;
// ---------------------- END OF signals ---------------------------------------
{ TGtk2WSOpenDialog }
@ -1067,6 +1088,12 @@ begin
// PopulateFileAndDirectoryLists(FileSelWidget, InitialFilter);
end;
class function TGtk2WSOpenDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSPerformsDoShow];
end;
{ TGtk2WSFileDialog }
class procedure TGtk2WSFileDialog.SetCallbacks(const AGtkWidget: PGtkWidget;
@ -1294,6 +1321,12 @@ begin
SetCallbacks(Widget, WidgetInfo);
end;
class function TGtk2WSColorDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSPerformsDoShow];
end;
{ TGtk2WSFontDialog }
class procedure TGtk2WSFontDialog.SetCallbacks(const AGtkWidget: PGtkWidget;
@ -1369,4 +1402,10 @@ begin
SetCallbacks(Widget, WidgetInfo);
end;
class function TGtk2WSFontDialog.QueryWSEventCapabilities(
const ACommonDialog: TCommonDialog): TCDWSEventCapabilities;
begin
Result := [cdecWSPerformsDoShow];
end;
end.