lazarus/lcl/interfaces/gtk2/gtk2wsdialogs.pp
2004-03-17 00:34:37 +00:00

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.