1{
2 *****************************************************************************
3 *                              Gtk3WSExtDlgs.pp                             *
4 *                              ----------------                             *
5 *                                                                           *
6 *                                                                           *
7 *****************************************************************************
8
9 *****************************************************************************
10  This file is part of the Lazarus Component Library (LCL)
11
12  See the file COPYING.modifiedLGPL.txt, included in this distribution,
13  for details about the license.
14 *****************************************************************************
15}
16unit Gtk3WSExtDlgs;
17
18{$mode objfpc}{$H+}
19
20interface
21
22uses
23////////////////////////////////////////////////////
24// I M P O R T A N T
25////////////////////////////////////////////////////
26// To get as little as posible circles,
27// uncomment only when needed for registration
28////////////////////////////////////////////////////
29//  ExtDlgs,
30////////////////////////////////////////////////////
31  Controls, LCLType,
32  gtk3int, gtk3widgets,
33  WSExtDlgs, WSLCLClasses;
34
35type
36
37  { TGtk3WSPreviewFileControl }
38
39  TGtk3WSPreviewFileControl = class(TWSPreviewFileControl)
40  published
41    class function  CreateHandle(const AWinControl: TWinControl;
42      const AParams: TCreateParams): TLCLIntfHandle; override;
43  end;
44
45  { TGtk3WSPreviewFileDialog }
46
47  TGtk3WSPreviewFileDialog = class(TWSPreviewFileDialog)
48  published
49  end;
50
51  { TGtk3WSOpenPictureDialog }
52
53  TGtk3WSOpenPictureDialog = class(TWSOpenPictureDialog)
54  published
55  end;
56
57  { TGtk3WSSavePictureDialog }
58
59  TGtk3WSSavePictureDialog = class(TWSSavePictureDialog)
60  published
61  end;
62
63  { TGtk3WSCalculatorDialog }
64
65  TGtk3WSCalculatorDialog = class(TWSCalculatorDialog)
66  published
67  end;
68
69  { TGtk3WSCalculatorForm }
70
71  TGtk3WSCalculatorForm = class(TWSCalculatorForm)
72  published
73  end;
74
75  { TGtk3WSCalendarDialogForm }
76
77  TGtk3WSCalendarDialogForm = class(TWSCalendarDialogForm)
78  published
79  end;
80
81  { TGtk3WSCalendarDialog }
82
83  TGtk3WSCalendarDialog = class(TWSCalendarDialog)
84  published
85  end;
86
87
88implementation
89
90{ TGtk3WSPreviewFileControl }
91
92class function TGtk3WSPreviewFileControl.CreateHandle(
93  const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
94var
95  Gtk3CustomControl: TGtk3CustomControl;
96begin
97  Gtk3CustomControl := TGtk3CustomControl.Create(AWinControl, AParams);
98  Result := TLCLIntfHandle(Gtk3CustomControl);
99end;
100
101end.
102