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 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