mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 11:03:42 +02:00
127 lines
3.5 KiB
ObjectPascal
127 lines
3.5 KiB
ObjectPascal
{ $Id$}
|
|
{
|
|
*****************************************************************************
|
|
* gtk2wsdialogs.pp *
|
|
* ---------------- *
|
|
* *
|
|
* *
|
|
*****************************************************************************
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.LCL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
unit gtk2wsdialogs;
|
|
|
|
{$mode objfpc}{H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
////////////////////////////////////////////////////
|
|
// I M P O R T A N T
|
|
////////////////////////////////////////////////////
|
|
// To get as litle as posible circles,
|
|
// Uncomment only when needed for registration
|
|
////////////////////////////////////////////////////
|
|
// dialogs,
|
|
////////////////////////////////////////////////////
|
|
wsdialogs, wslclclasses;
|
|
|
|
type
|
|
|
|
{ TGtk2WSCommonDialog }
|
|
|
|
TGtk2WSCommonDialog = class(TWSCommonDialog)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TGtk2WSFileDialog }
|
|
|
|
TGtk2WSFileDialog = class(TWSFileDialog)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TGtk2WSOpenDialog }
|
|
|
|
TGtk2WSOpenDialog = class(TWSOpenDialog)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TGtk2WSSaveDialog }
|
|
|
|
TGtk2WSSaveDialog = class(TWSSaveDialog)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TGtk2WSSelectDirectoryDialog }
|
|
|
|
TGtk2WSSelectDirectoryDialog = class(TWSSelectDirectoryDialog)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TGtk2WSColorDialog }
|
|
|
|
TGtk2WSColorDialog = class(TWSColorDialog)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TGtk2WSColorButton }
|
|
|
|
TGtk2WSColorButton = class(TWSColorButton)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
{ TGtk2WSFontDialog }
|
|
|
|
TGtk2WSFontDialog = class(TWSFontDialog)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
initialization
|
|
|
|
////////////////////////////////////////////////////
|
|
// I M P O R T A N T
|
|
////////////////////////////////////////////////////
|
|
// To improve speed, register only classes
|
|
// which actually implement something
|
|
////////////////////////////////////////////////////
|
|
// RegisterWSComponent(TCommonDialog, TGtk2WSCommonDialog);
|
|
// RegisterWSComponent(TFileDialog, TGtk2WSFileDialog);
|
|
// RegisterWSComponent(TOpenDialog, TGtk2WSOpenDialog);
|
|
// RegisterWSComponent(TSaveDialog, TGtk2WSSaveDialog);
|
|
// RegisterWSComponent(TSelectDirectoryDialog, TGtk2WSSelectDirectoryDialog);
|
|
// RegisterWSComponent(TColorDialog, TGtk2WSColorDialog);
|
|
// RegisterWSComponent(TColorButton, TGtk2WSColorButton);
|
|
// RegisterWSComponent(TFontDialog, TGtk2WSFontDialog);
|
|
////////////////////////////////////////////////////
|
|
end.
|