mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-01 01:12:42 +02:00
removed gnome widgetset interface
git-svn-id: trunk@10889 -
This commit is contained in:
vincents
parent
499ab69325
commit
d164f4a8aa
31
.gitattributes
vendored
31
.gitattributes
vendored
@ -2472,37 +2472,6 @@ lcl/interfaces/fpgui/fpguiwsspin.pp svneol=native#text/pascal
|
||||
lcl/interfaces/fpgui/fpguiwsstdctrls.pp svneol=native#text/pascal
|
||||
lcl/interfaces/fpgui/fpguiwstoolwin.pp svneol=native#text/pascal
|
||||
lcl/interfaces/fpgui/interfaces.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomeint.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomelclintf.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomelclintfh.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewinapi.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewinapih.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsactnlist.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsarrow.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsbuttons.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewscalendar.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewschecklst.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsclistbox.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewscomctrls.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewscontrols.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsdbctrls.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsdbgrids.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsdialogs.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsdirsel.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewseditbtn.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsextctrls.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsextdlgs.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsfilectrl.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsforms.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsgrids.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsimglist.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsmaskedit.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsmenus.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewspairsplitter.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsspin.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewsstdctrls.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/gnomewstoolwin.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gnome/interfaces.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gtk/dragicons.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gtk/gtk1extra.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gtk/gtk1extrah.inc svneol=native#text/pascal
|
||||
|
||||
2
.gitignore
vendored
2
.gitignore
vendored
@ -379,8 +379,6 @@ lcl/interfaces/carbon/*.bak
|
||||
lcl/interfaces/carbon/units
|
||||
lcl/interfaces/fpgui/*.bak
|
||||
lcl/interfaces/fpgui/units
|
||||
lcl/interfaces/gnome/*.bak
|
||||
lcl/interfaces/gnome/units
|
||||
lcl/interfaces/gtk/*.bak
|
||||
lcl/interfaces/gtk/tests/*.bak
|
||||
lcl/interfaces/gtk/tests/units
|
||||
|
||||
@ -200,15 +200,12 @@ ResourceString
|
||||
ctsIfLCLWidgetTypeEqualsGtk2 = 'If LCLWidgetType=gtk2 then';
|
||||
ctsElse = 'else';
|
||||
ctsIfTargetOSIsNotWin32 = 'If TargetOS<>win32 then';
|
||||
ctsIfLCLWidgetTypeEqualsGnome2 = 'If LCLWidgetType=gnome2 then';
|
||||
ctsDefineMacroGTK1 = 'Define macro gtk1';
|
||||
ctsDefineMacroGTK2 = 'Define macro gtk2';
|
||||
ctsDefineMacroGnome2 = 'Define macro gnome2';
|
||||
ctsDefineMacroCarbon1 = 'Define macro carbon1';
|
||||
ctsDefineMacroQT1 = 'Define macro qt1';
|
||||
ctsGtk2IntfDirectory = 'gtk2 interface directory';
|
||||
ctsDefineMacroWinCE1 = 'Define macro wince1';
|
||||
ctsGnomeIntfDirectory = 'gnome interface directory';
|
||||
ctsComponentsDirectory = 'Components Directory';
|
||||
ctsCustomComponentsDirectory = 'Custom Components Directory';
|
||||
ctsToolsDirectory = 'Tools Directory';
|
||||
|
||||
@ -102,26 +102,22 @@ const
|
||||
'i386', 'powerpc', 'm68k', 'x86_64', 'sparc', 'arm'
|
||||
);
|
||||
|
||||
Lazarus_CPU_OS_Widget_Combinations: array[1..35] of shortstring = (
|
||||
Lazarus_CPU_OS_Widget_Combinations: array[1..30] of shortstring = (
|
||||
'i386-linux-gtk',
|
||||
'i386-linux-gnome',
|
||||
'i386-linux-gtk2',
|
||||
'i386-linux-qt',
|
||||
'i386-freebsd-gtk',
|
||||
'i386-freebsd-gnome',
|
||||
'i386-freebsd-gtk2',
|
||||
'i386-freebsd-qt',
|
||||
'i386-openbsd-gtk',
|
||||
'i386-openbsd-gnome',
|
||||
'i386-openbsd-gtk2',
|
||||
'i386-openbsd-qt',
|
||||
'i386-netbsd-gtk',
|
||||
'i386-netbsd-gnome',
|
||||
'i386-netbsd-gtk2',
|
||||
'i386-netbsd-qt',
|
||||
'i386-win32-win32',
|
||||
'i386-win32-wince',
|
||||
'i386-win32-gtk',
|
||||
'i386-win32-gtk2',
|
||||
'i386-wince-wince',
|
||||
'i386-darwin-gtk',
|
||||
'i386-darwin-gtk2',
|
||||
'i386-darwin-carbon',
|
||||
@ -135,7 +131,6 @@ const
|
||||
'sparc-linux-gtk2',
|
||||
'arm-wince-wince',
|
||||
'x86_64-linux-gtk',
|
||||
'x86_64-linux-gnome',
|
||||
'x86_64-linux-gtk2',
|
||||
'x86_64-linux-qt'
|
||||
);
|
||||
@ -3776,11 +3771,11 @@ function TDefinePool.CreateLazarusSrcTemplate(
|
||||
const LazarusSrcDir, WidgetType, ExtraOptions: string;
|
||||
Owner: TObject): TDefineTemplate;
|
||||
type
|
||||
TLazWidgetSet = (wsGtk, wsGtk2, wsGnome, wsWin32, wsWinCE, wsCarbon, wsQT);
|
||||
TLazWidgetSet = (wsGtk, wsGtk2, wsWin32, wsWinCE, wsCarbon, wsQT);
|
||||
const
|
||||
ds: char = PathDelim;
|
||||
LazWidgetSets: array[TLazWidgetSet] of string = (
|
||||
'gtk','gtk2','gnome','win32','wince','carbon','qt');
|
||||
'gtk','gtk2','win32','wince','carbon','qt');
|
||||
|
||||
function D(const Filename: string): string;
|
||||
begin
|
||||
@ -4161,7 +4156,7 @@ begin
|
||||
'',CurWidgetSet,da_Directory);
|
||||
LCLUnitsCPUOSDir.AddChild(LCLUnitsCPUOSWidgetSetDir);
|
||||
ExtraSrcPath:='../../../interfaces/'+CurWidgetSet;
|
||||
if (CurWidgetSet='gnome') or (CurWidgetSet='gtk2') then
|
||||
if (CurWidgetSet='gtk2') then
|
||||
ExtraSrcPath:=ExtraSrcPath+';../../../interfaces/gtk';
|
||||
LCLUnitsCPUOSWidgetSetDir.AddChild(
|
||||
TDefineTemplate.Create('CompiledSrcPath',
|
||||
@ -4216,22 +4211,6 @@ begin
|
||||
d('../gtk;')+SrcPath,da_Define));
|
||||
SubDirTempl.AddChild(IntfDirTemplate);
|
||||
|
||||
// <LazarusSrcDir>/lcl/interfaces/gnome
|
||||
IntfDirTemplate:=TDefineTemplate.Create('gnome',
|
||||
ctsGnomeIntfDirectory,'','gnome',da_Directory);
|
||||
// add '../gtk' to the SrcPath
|
||||
IntfDirTemplate.AddChild(TDefineTemplate.Create('SrcPath',
|
||||
Format(ctsAddsDirToSourcePath,['gtk']),ExternalMacroStart+'SrcPath',
|
||||
d('../gtk;')+SrcPath,da_Define));
|
||||
// if LCLWidgetType=gnome2
|
||||
IfTemplate:=TDefineTemplate.Create('IF '''+WidgetType+'''=''gnome2''',
|
||||
ctsIfLCLWidgetTypeEqualsGnome2,'',''''+WidgetType+'''=''gnome2''',da_If);
|
||||
// then define gnome2
|
||||
IfTemplate.AddChild(TDefineTemplate.Create('Define gnome2',
|
||||
ctsDefineMacroGTK2,'gnome2','',da_Define));
|
||||
IntfDirTemplate.AddChild(IfTemplate);
|
||||
SubDirTempl.AddChild(IntfDirTemplate);
|
||||
|
||||
// <LazarusSrcDir>/lcl/interfaces/win32
|
||||
// no special
|
||||
|
||||
|
||||
@ -28,10 +28,6 @@ unit OpenGLContext;
|
||||
{$DEFINE UseGtkGLX}
|
||||
{$DEFINE OpenGLTargetDefined}
|
||||
{$ENDIF}
|
||||
{$IFDEF LCLGnome}
|
||||
{$DEFINE UseGtkGLX}
|
||||
{$DEFINE OpenGLTargetDefined}
|
||||
{$ENDIF}
|
||||
{$IFDEF LCLGTK2}
|
||||
{$DEFINE UseGtkGLX}
|
||||
{$DEFINE OpenGLTargetDefined}
|
||||
|
||||
@ -64,10 +64,6 @@ uses
|
||||
wsgtktrayicon,
|
||||
{$endif}
|
||||
|
||||
{$ifdef LCLGnome}
|
||||
wsgtktrayicon,
|
||||
{$endif}
|
||||
|
||||
{$ifdef LCLGtk2}
|
||||
wsgtk2trayicon,
|
||||
{$endif}
|
||||
|
||||
@ -52,7 +52,6 @@ type
|
||||
TLCLPlatform = (
|
||||
lpGtk,
|
||||
lpGtk2,
|
||||
lpGnome,
|
||||
lpWin32,
|
||||
lpWinCE,
|
||||
lpCarbon,
|
||||
@ -62,7 +61,7 @@ type
|
||||
|
||||
const
|
||||
LCLPlatformNames: array[TLCLPlatform] of string = (
|
||||
'gtk', 'gtk2', 'gnome', 'win32', 'wince', 'carbon', 'qt'
|
||||
'gtk', 'gtk2', 'win32', 'wince', 'carbon', 'qt'
|
||||
);
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,35 +0,0 @@
|
||||
# $Id$
|
||||
#
|
||||
# Makefile.fpc for Lazarus for Free Pascal
|
||||
#
|
||||
|
||||
[package]
|
||||
main=lcl
|
||||
|
||||
[require]
|
||||
packages=rtl fcl gtk
|
||||
|
||||
[target]
|
||||
units=interfaces
|
||||
implicitunits=gnomeint
|
||||
|
||||
[compiler]
|
||||
options=-gl -dgtk1 -dgnome1
|
||||
unitdir=../../units/$(CPU_TARGET)-$(OS_TARGET) ../gtk .
|
||||
unittargetdir=../../units/$(CPU_TARGET)-$(OS_TARGET)/gnome
|
||||
|
||||
[clean]
|
||||
files=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) \
|
||||
$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
|
||||
|
||||
[rules]
|
||||
.PHONY: cleartarget all
|
||||
|
||||
cleartarget:
|
||||
-$(DEL) $(COMPILER_UNITTARGETDIR)/interfaces$(PPUEXT) \
|
||||
$(COMPILER_UNITTARGETDIR)/interfaces$(OEXT)
|
||||
|
||||
all: cleartarget $(COMPILER_UNITTARGETDIR) interfaces$(PPUEXT)
|
||||
@ -1,301 +0,0 @@
|
||||
{
|
||||
/***************************************************************************
|
||||
GNOMEINT.pp - GNOMEInterface Object
|
||||
-------------------
|
||||
|
||||
Initial Revision : Thu Oct 3rd EST 2002
|
||||
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeInt;
|
||||
|
||||
{$mode objfpc}
|
||||
{$LONGSTRINGS ON}
|
||||
|
||||
interface
|
||||
|
||||
{$ifdef Trace}
|
||||
{$ASSERTIONS ON}
|
||||
{$endif}
|
||||
|
||||
{off $DEFINE NoGdkPixbufLib}
|
||||
{off $DEFINE NoGdkImlib}
|
||||
|
||||
uses
|
||||
InterfaceBase, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf} gtk, gdk,
|
||||
glib, SysUtils, LMessages, Classes, Controls, Forms, LCLIntf, LCLType, gtkDef,
|
||||
DynHashArray, LazLinkedList, GraphType, GraphMath, gtkInt,
|
||||
{$Ifndef NoGdkImlib}gdk_imlib,{$EndIf}
|
||||
libgnome, libart, libgnomeui;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWidgetSet }
|
||||
|
||||
TGnomeWidgetSet = class(TGtkWidgetSet)
|
||||
private
|
||||
procedure PassCmdLineOptions; override;
|
||||
Function PromptUserWidget(const DialogCaption, DialogMessage : String;
|
||||
DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex : Longint) : Pointer;
|
||||
protected
|
||||
procedure InitStockItems; override;
|
||||
procedure FreeStockItems; override;
|
||||
|
||||
function CreateComponent(Sender: TObject): THandle; override;
|
||||
public
|
||||
function WidgetSetName: string; override;
|
||||
{$I gnomewinapih.inc}
|
||||
end;
|
||||
|
||||
const
|
||||
LAZARUS_STOCK_BUTTON_ALL = 'lazarus_button_all';
|
||||
LAZARUS_STOCK_BUTTON_YESALL = 'lazarus_button_yesall';
|
||||
LAZARUS_STOCK_BUTTON_NOALL = 'lazarus_button_noall';
|
||||
LAZARUS_STOCK_BUTTON_ABORT = 'lazarus_button_abort';
|
||||
LAZARUS_STOCK_BUTTON_RETRY = 'lazarus_button_retry';
|
||||
LAZARUS_STOCK_BUTTON_IGNORE = 'lazarus_button_ignore';
|
||||
|
||||
var
|
||||
LAZBTNALL,
|
||||
LAZBTNYESALL,
|
||||
LAZBTNNOALL,
|
||||
LAZBTNABORT,
|
||||
LAZBTNRETRY,
|
||||
LAZBTNIGNORE : PGnomeStockPixmapEntryData;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as possible circles,
|
||||
// uncomment only those units with implementation
|
||||
////////////////////////////////////////////////////
|
||||
// GnomeWSActnList,
|
||||
// GnomeWSArrow,
|
||||
// GnomeWSButtons,
|
||||
// GnomeWSCalendar,
|
||||
// GnomeWSCheckLst,
|
||||
// GnomeWSCListBox,
|
||||
// GnomeWSComCtrls,
|
||||
// GnomeWSControls,
|
||||
// GnomeWSDbCtrls,
|
||||
// GnomeWSDBGrids,
|
||||
// GnomeWSDialogs,
|
||||
// GnomeWSDirSel,
|
||||
// GnomeWSEditBtn,
|
||||
// GnomeWSExtCtrls,
|
||||
// GnomeWSExtDlgs,
|
||||
// GnomeWSFileCtrl,
|
||||
// GnomeWSForms,
|
||||
// GnomeWSGrids,
|
||||
// GnomeWSImgList,
|
||||
// GnomeWSMaskEdit,
|
||||
// GnomeWSMenus,
|
||||
// GnomeWSPairSplitter,
|
||||
// GnomeWSSpin,
|
||||
// GnomeWSStdCtrls,
|
||||
// GnomeWSToolwin,
|
||||
////////////////////////////////////////////////////
|
||||
Graphics, Buttons, Menus, GTKWinApiWindow, StdCtrls, ComCtrls, CListBox,
|
||||
Calendar, Arrow, Spin, CommCtrl, ExtCtrls, Dialogs, FileCtrl,
|
||||
LResources, Math, gtkglobals, gtkproc, LCLStrConsts;
|
||||
|
||||
procedure TGnomeWidgetSet.PassCmdLineOptions;
|
||||
begin
|
||||
// call init and pass cmd line args
|
||||
gnome_init(PChar(Application.Title), 'Lazarus', argc, argv);
|
||||
end;
|
||||
|
||||
Procedure TGnomeWidgetSet.InitStockItems;
|
||||
begin
|
||||
Inherited InitStockItems;
|
||||
New(LAZBTNAll);
|
||||
With LAZBTNAll^ do begin
|
||||
thetype := GNOME_STOCK_PIXMAP_TYPE_DATA;
|
||||
Width := 20;
|
||||
Height := 18;
|
||||
theLabel := Ampersands2Underscore(PChar(rsMbALL));
|
||||
xpm_data := PPgchar(@IMGALL_Check[0]);
|
||||
end;
|
||||
gnome_stock_pixmap_register(LAZARUS_STOCK_BUTTON_ALL, GNOME_STOCK_PIXMAP_REGULAR,PGnomeStockPixmapEntry(LAZBTNALL));
|
||||
|
||||
New(LAZBTNYESAll);
|
||||
With LAZBTNYESAll^ do begin
|
||||
thetype := GNOME_STOCK_PIXMAP_TYPE_DATA;
|
||||
Width := 20;
|
||||
Height := 18;
|
||||
theLabel := RemoveAmpersands(PChar(rsMbYesToAll), Length(rsMbYesToAll));
|
||||
xpm_data := PPgchar(@IMGALL_Check[0]);
|
||||
end;
|
||||
gnome_stock_pixmap_register(LAZARUS_STOCK_BUTTON_YESALL, GNOME_STOCK_PIXMAP_REGULAR,PGnomeStockPixmapEntry(LAZBTNYESALL));
|
||||
|
||||
New(LAZBTNNOAll);
|
||||
With LAZBTNNOAll^ do begin
|
||||
thetype := GNOME_STOCK_PIXMAP_TYPE_DATA;
|
||||
Width := 20;
|
||||
Height := 18;
|
||||
theLabel := RemoveAmpersands(PChar(rsMbNOToAll), Length(rsMbNOToAll));
|
||||
xpm_data := PPgchar(@IMGALL_Check[0]);
|
||||
end;
|
||||
gnome_stock_pixmap_register(LAZARUS_STOCK_BUTTON_NOALL, GNOME_STOCK_PIXMAP_REGULAR,PGnomeStockPixmapEntry(LAZBTNNOALL));
|
||||
|
||||
New(LAZBTNABORT);
|
||||
With LAZBTNABORT^ do begin
|
||||
thetype := GNOME_STOCK_PIXMAP_TYPE_DATA;
|
||||
Width := 20;
|
||||
Height := 18;
|
||||
theLabel := RemoveAmpersands(PChar(rsMbAbort), Length(rsMbAbort));
|
||||
xpm_data := PPgchar(@IMGCancel_X[0]);
|
||||
end;
|
||||
gnome_stock_pixmap_register(LAZARUS_STOCK_BUTTON_ABORT, GNOME_STOCK_PIXMAP_REGULAR,PGnomeStockPixmapEntry(LAZBTNABORT));
|
||||
|
||||
New(LAZBTNRETRY);
|
||||
With LAZBTNRETRY^ do begin
|
||||
thetype := GNOME_STOCK_PIXMAP_TYPE_DATA;
|
||||
Width := 20;
|
||||
Height := 18;
|
||||
theLabel := RemoveAmpersands(PChar(rsMbRetry), Length(rsMbRetry));
|
||||
xpm_data := PPgchar(@IMGOK_Check[0]);
|
||||
end;
|
||||
gnome_stock_pixmap_register(LAZARUS_STOCK_BUTTON_RETRY, GNOME_STOCK_PIXMAP_REGULAR,PGnomeStockPixmapEntry(LAZBTNRETRY));
|
||||
|
||||
New(LAZBTNIGNORE);
|
||||
With LAZBTNIGNORE^ do begin
|
||||
thetype := GNOME_STOCK_PIXMAP_TYPE_DATA;
|
||||
Width := 20;
|
||||
Height := 18;
|
||||
theLabel := RemoveAmpersands(PChar(rsMbIgnore), Length(rsMbIgnore));
|
||||
xpm_data := PPgchar(@IMGOK_Check[0]);
|
||||
end;
|
||||
gnome_stock_pixmap_register(LAZARUS_STOCK_BUTTON_IGNORE, GNOME_STOCK_PIXMAP_REGULAR,PGnomeStockPixmapEntry(LAZBTNIGNORE));
|
||||
end;
|
||||
|
||||
Procedure TGnomeWidgetSet.FreeStockItems;
|
||||
begin
|
||||
Inherited FreeStockItems;
|
||||
Dispose(LAZBTNALL);
|
||||
Dispose(LAZBTNYESALL);
|
||||
Dispose(LAZBTNNOALL);
|
||||
Dispose(LAZBTNABORT);
|
||||
Dispose(LAZBTNRETRY);
|
||||
Dispose(LAZBTNIGNORE);
|
||||
end;
|
||||
|
||||
function TGnomeWidgetSet.CreateComponent(Sender : TObject): THandle;
|
||||
var
|
||||
//Caption : AnsiString;
|
||||
StrTemp : PChar; // same as "caption" but as PChar
|
||||
p : pointer; // ptr to the newly created GtkWidget
|
||||
Box : Pointer; // currently only used for TCustomBitBtn
|
||||
// and TCustomForm and TCustomListView
|
||||
ParentForm: TCustomForm;
|
||||
CompStyle : Longint;
|
||||
DoFinishComp,
|
||||
ACustomForm: TCustomForm;
|
||||
begin
|
||||
P := nil;
|
||||
DoFinishComp := True;
|
||||
|
||||
CompStyle := GetCompStyle(Sender);
|
||||
//Caption := GetCaption(Sender);
|
||||
strTemp := nil;
|
||||
|
||||
Case CompStyle of
|
||||
csForm:
|
||||
begin
|
||||
ACustomForm:=TCustomForm(Sender);
|
||||
if ACustomForm.Parent=nil then begin
|
||||
If ACustomForm.Caption <> '' then begin
|
||||
strTemp := StrAlloc(length(ACustomForm.Caption) + 1);
|
||||
StrPCopy(strTemp, ACustomForm.Caption);
|
||||
end;
|
||||
|
||||
P := GNOME_APP_NEW(Argv[0], strTemp);
|
||||
gnome_app_enable_layout_config(p, True);
|
||||
gtk_window_set_policy (GTK_WINDOW (p),
|
||||
FormResizableMap[ACustomForm.BorderStyle],
|
||||
FormResizableMap[ACustomForm.BorderStyle], 0);
|
||||
|
||||
// the clipboard needs a widget
|
||||
if ClipboardWidget=nil then
|
||||
SetClipboardWidget(p);
|
||||
end else begin
|
||||
P:=gtk_hbox_new(false,1);
|
||||
end;
|
||||
|
||||
Box := CreateFormContents(ACustomForm,P);
|
||||
|
||||
if ACustomForm.Parent=nil then begin
|
||||
gnome_app_set_contents(p, Box);
|
||||
//drag icons
|
||||
if Drag_Icon = nil then
|
||||
Drag_Icon := gdk_pixmap_colormap_create_from_xpm_d (nil,
|
||||
gtk_widget_get_colormap (p), Drag_Mask,
|
||||
nil, IMGDrag_Icon);
|
||||
end else begin
|
||||
gtk_container_add(PGtkContainer(P), Box);
|
||||
end;
|
||||
|
||||
gtk_widget_show(Box);
|
||||
|
||||
// main menu
|
||||
if (ACustomForm.Menu<>nil)
|
||||
and (ACustomForm.Menu.HandleAllocated) then begin
|
||||
gtk_box_pack_start(Box, PGtkWidget(ACustomForm.Menu.Handle),False,False,0);
|
||||
end;
|
||||
end;
|
||||
csMainMenu:
|
||||
begin
|
||||
p := gtk_menu_bar_new();
|
||||
ParentForm:=TCustomForm(TMenu(Sender).Parent);
|
||||
if (ParentForm=nil) or (not (ParentForm is TCustomForm)) then
|
||||
RaiseException('MainMenu without form');
|
||||
if ParentForm.Menu<>TMenu(Sender) then
|
||||
RaiseException('form has already a MainMenu');
|
||||
gtk_widget_show(p);
|
||||
gnome_app_set_menus(Pointer(ParentForm.Handle), P);
|
||||
end;
|
||||
else
|
||||
begin
|
||||
P:=Pointer(inherited CreateComponent(Sender));
|
||||
DoFinishComp := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
If (Sender is TCustomEdit) then
|
||||
With (Sender as TCustomEdit) do
|
||||
If Popupmenu = nil then
|
||||
If Pointer(Handle) <> nil then
|
||||
gnome_widget_add_help(Pointer(Handle), nil);
|
||||
|
||||
If DoFinishComp then
|
||||
FinishComponentCreate(Sender, P);
|
||||
|
||||
Result:=THandle(P);
|
||||
end;
|
||||
|
||||
function TGnomeWidgetSet.WidgetSetName: string;
|
||||
begin
|
||||
Result:='gnome';
|
||||
end;
|
||||
|
||||
{$I gnomewinapi.inc}
|
||||
|
||||
end.
|
||||
@ -1,34 +0,0 @@
|
||||
{%MainUnit gnomeint.pas}
|
||||
{ $Id$ }
|
||||
|
||||
{******************************************************************************
|
||||
All Gnome interface communication implementations.
|
||||
Initial Revision : Sat Jan 17 19:00:00 2004
|
||||
|
||||
|
||||
!! Keep alphabetical !!
|
||||
|
||||
Support routines go to gnomeproc.pp
|
||||
|
||||
******************************************************************************
|
||||
Implementation
|
||||
******************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
|
||||
//##apiwiz##sps## // Do not remove
|
||||
|
||||
|
||||
//##apiwiz##eps## // Do not remove, no wizard declaration after this line
|
||||
@ -1,34 +0,0 @@
|
||||
{%MainUnit gnomeint.pas}
|
||||
{ $Id$ }
|
||||
|
||||
{******************************************************************************
|
||||
All Gnome interface communication implementations.
|
||||
Initial Revision : Sat Jan 17 19:00:00 2004
|
||||
|
||||
|
||||
!! Keep alphabetical !!
|
||||
|
||||
Support routines go to gnomeproc.pp
|
||||
|
||||
******************************************************************************
|
||||
Interface
|
||||
******************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
|
||||
//##apiwiz##sps## // Do not remove
|
||||
|
||||
|
||||
//##apiwiz##eps## // Do not remove, no wizard declaration after this line
|
||||
@ -1,282 +0,0 @@
|
||||
{%MainUnit gnomeint.pas}
|
||||
{ $Id$ }
|
||||
{******************************************************************************
|
||||
All GNOME Winapi implementations.
|
||||
Initial Revision : Thu Oct 3 1:35:53 2002
|
||||
|
||||
|
||||
!! Keep alphabetical !!
|
||||
|
||||
******************************************************************************
|
||||
Implementation
|
||||
******************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
{$IFOPT C-}
|
||||
// Uncomment for local trace
|
||||
// {$C+}
|
||||
// {$DEFINE ASSERT_IS_ON}
|
||||
{$EndIf}
|
||||
|
||||
//##apiwiz##sps## // Do not remove
|
||||
|
||||
Function TGnomeWidgetSet.LoadStockPixmap(StockID: longint) : HBitmap;
|
||||
var
|
||||
Pixmap : PGDIObject;
|
||||
StockName : PChar;
|
||||
begin
|
||||
Case StockID Of
|
||||
idButtonOk : StockName := GNOME_STOCK_BUTTON_OK;
|
||||
idButtonCancel : StockName := GNOME_STOCK_BUTTON_CANCEL;
|
||||
idButtonYes : StockName := GNOME_STOCK_BUTTON_YES;
|
||||
idButtonNo : StockName := GNOME_STOCK_BUTTON_NO;
|
||||
idButtonHelp : StockName := GNOME_STOCK_BUTTON_HELP;
|
||||
idButtonAbort : StockName := GNOME_STOCK_BUTTON_CANCEL;
|
||||
idButtonClose : StockName := GNOME_STOCK_PIXMAP_QUIT;
|
||||
idButtonAll : StockName := LAZARUS_STOCK_BUTTON_ALL;
|
||||
else begin
|
||||
Result := inherited LoadStockPixmap(StockID);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
Pixmap := NewGDIObject(gdiBitmap);
|
||||
With Pixmap^ do begin
|
||||
GDIBitmapType := gbPixmap;
|
||||
gnome_stock_pixmap_gdk(STOCKName, nil, @GDIPixmapObject, @GDIBitmapMaskObject);
|
||||
end;
|
||||
Result := HBitmap(Pixmap);
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------
|
||||
Method: TGnomeWidgetSet.PromptUser
|
||||
Params:
|
||||
DialogCaption - Dialog Caption to use if is a Custom Dialog
|
||||
DialogMessage - Message/Error/Question to display
|
||||
DialogType - type of dialog (warning/error/question/inform/custom)
|
||||
Buttons - array of what Buttons to include
|
||||
|
||||
Returns: the Button clicked, or -1 if window was closed
|
||||
|
||||
this routine produces a dialog for the purpose of prompting the user to make
|
||||
a choice, aka a Dialog consisting of an icon, a message, and several buttons
|
||||
such as OK/Cancel Yes/No etc.. It can be used to display errors, warnings,
|
||||
or other information, or to ask questions.
|
||||
------------------------------------------------------------------------------}
|
||||
Function TGnomeWidgetSet.PromptUserWidget(const DialogCaption, DialogMessage : String;
|
||||
DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex : Longint) : Pointer;
|
||||
var
|
||||
BoxType : PChar;
|
||||
MainWidget : Pointer;
|
||||
MsgTitle : PChar;
|
||||
BTNArray : PPgChar;
|
||||
StockName : PgChar;
|
||||
I : Longint;
|
||||
NewMessage : PgChar;
|
||||
ScreenDC : hDC;
|
||||
begin
|
||||
If (Application.MainForm <> nil) and
|
||||
(Application.MainForm.HandleAllocated)
|
||||
then
|
||||
MainWidget := Pointer(Application.MainForm.Handle)
|
||||
else
|
||||
MainWidget := nil;
|
||||
Case DialogType of
|
||||
idDialogInfo :
|
||||
BoxType := GNOME_MESSAGE_BOX_INFO;
|
||||
idDialogWarning:
|
||||
BoxType := GNOME_MESSAGE_BOX_WARNING;
|
||||
idDialogError:
|
||||
BoxType := GNOME_MESSAGE_BOX_ERROR;
|
||||
idDialogConfirm:
|
||||
BoxType := GNOME_MESSAGE_BOX_QUESTION;
|
||||
else
|
||||
BoxType := GNOME_MESSAGE_BOX_GENERIC;
|
||||
end;
|
||||
If DialogCaption <> '' then
|
||||
MsgTitle := PChar(DialogCaption)
|
||||
else
|
||||
MsgTitle := nil;
|
||||
|
||||
BTNArray := nil;
|
||||
ReallocMem(BTNArray, SizeOf(PgChar)*(ButtonCount + 1));
|
||||
For I := 0 to ButtonCount - 1 do begin
|
||||
Case Buttons[I] Of
|
||||
idButtonOk : StockName := GNOME_STOCK_BUTTON_OK;
|
||||
idButtonCancel : StockName := GNOME_STOCK_BUTTON_CANCEL;
|
||||
idButtonYes : StockName := GNOME_STOCK_BUTTON_YES;
|
||||
idButtonNo : StockName := GNOME_STOCK_BUTTON_NO;
|
||||
idButtonHelp : StockName := GNOME_STOCK_BUTTON_HELP;
|
||||
idButtonClose : StockName := GNOME_STOCK_BUTTON_CLOSE;
|
||||
idButtonAll : StockName := LAZARUS_STOCK_BUTTON_ALL;
|
||||
idButtonYesToAll : StockName := LAZARUS_STOCK_BUTTON_YESALL;
|
||||
idButtonNoToAll : StockName := LAZARUS_STOCK_BUTTON_NOALL;
|
||||
idButtonAbort : StockName := LAZARUS_STOCK_BUTTON_ABORT;
|
||||
idButtonRetry : StockName := LAZARUS_STOCK_BUTTON_RETRY;
|
||||
idButtonIgnore : StockName := LAZARUS_STOCK_BUTTON_IGNORE;
|
||||
else
|
||||
StockName := '';
|
||||
end;
|
||||
BTNArray[I] := StockName;
|
||||
end;
|
||||
BTNArray[ButtonCount] := nil;
|
||||
ScreenDC := GetDC(0);
|
||||
SelectObject(ScreenDC, GetStockObject(SYSTEM_FONT));
|
||||
NewMessage := ForceLineBreaks(ScreenDC, PgChar(DialogMessage), Screen.Width div 3, False);
|
||||
ReleaseDC(0,ScreenDC);
|
||||
Result := gnome_message_box_newv(NewMessage, BoxType, BTNArray);
|
||||
If (DefaultIndex >= ButtonCount) or (DefaultIndex < 0)
|
||||
then
|
||||
DefaultIndex := 0;
|
||||
|
||||
gnome_dialog_set_default(Result, DefaultIndex);
|
||||
gnome_dialog_grab_focus(Result, DefaultIndex);
|
||||
|
||||
If MsgTitle <> nil then
|
||||
gtk_window_set_title(Result, PgChar(MsgTitle));
|
||||
|
||||
If MainWidget <> nil then
|
||||
gnome_dialog_set_parent(Result, MainWidget);
|
||||
|
||||
ReallocMem(BTNArray, 0);
|
||||
end;
|
||||
|
||||
Function TGnomeWidgetSet.PromptUser(const DialogCaption, DialogMessage : String;
|
||||
DialogType : longint; Buttons : PLongint; ButtonCount,
|
||||
DefaultIndex, EscapeResult : Longint) : Longint;
|
||||
var
|
||||
MsgBox : Pointer;
|
||||
MSGResult : Longint;
|
||||
begin
|
||||
MsgBox := PromptUserWidget(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex);
|
||||
MSGResult := gnome_dialog_run_and_close(MsgBox);
|
||||
Case MSGResult of
|
||||
-1 : Result := EscapeResult;
|
||||
else
|
||||
Result := Buttons[MSGResult]
|
||||
end;
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------
|
||||
Method: TGnomeWidgetSet.PromptUserAtXY
|
||||
Params:
|
||||
DialogCaption - Dialog Caption to use if is a Custom Dialog
|
||||
DialogMessage - Message/Error/Question to display
|
||||
DialogType - type of dialog (warning/error/question/inform/custom)
|
||||
Buttons - array of what Buttons to include
|
||||
X, Y - Position to display dialog at
|
||||
|
||||
Returns: the Button clicked, or -1 if window was closed
|
||||
|
||||
this routine produces a dialog, at a given position on screen, for the
|
||||
purpose of prompting the user to make a choice, aka a Dialog consisting of
|
||||
an icon, a message, and several buttons such as OK/Cancel Yes/No etc.. It
|
||||
can be used to display errors, warnings, or other information, or to ask
|
||||
questions.
|
||||
------------------------------------------------------------------------------}
|
||||
Function TGnomeWidgetSet.PromptUserAtXY(const DialogCaption, DialogMessage : String;
|
||||
DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint;
|
||||
X, Y : Longint) : Longint;
|
||||
var
|
||||
MsgBox : Pointer;
|
||||
MSGResult : Longint;
|
||||
begin
|
||||
MsgBox := PromptUserWidget(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex);
|
||||
gtk_widget_set_uposition(MsgBox, X, Y);
|
||||
MSGResult := gnome_dialog_run_and_close(MsgBox);
|
||||
Case MSGResult of
|
||||
-1 : Result := EscapeResult;
|
||||
else
|
||||
Result := Buttons[MSGResult]
|
||||
end;
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------
|
||||
Method: TGnomeWidgetSet.RequestInput
|
||||
Params:
|
||||
InputCaption - Dialog Caption
|
||||
InputPrompt - caption of input label
|
||||
MaskInput - hide input(AKA Password)
|
||||
Value - default/return value
|
||||
|
||||
Returns: If User clicked OK
|
||||
|
||||
this routines produces a input dialog consisting of an Edit field,
|
||||
an Ok button, and a Cancel Button. If MaskInput is set, the Edit's
|
||||
text is hidden like in a Password prompt. The initial Value is used
|
||||
as the default value of the edit, and if result is true, is replaced
|
||||
with the new value the user has typed in(if any).
|
||||
------------------------------------------------------------------------------}
|
||||
Type
|
||||
PRequestInputObject = ^TRequestInputObject;
|
||||
TRequestInputObject = Record
|
||||
Finished : Boolean;
|
||||
NewValue : String;
|
||||
end;
|
||||
|
||||
procedure RequestInputFinishCallback(NewString:PChar; data: PRequestInputObject);cdecl;
|
||||
var
|
||||
I, Len : Longint;
|
||||
begin
|
||||
If Data <> nil then
|
||||
with Data^ do begin
|
||||
If NewString = nil then
|
||||
NewValue := ''
|
||||
else begin
|
||||
Len := StrLen(NewString);
|
||||
SetLength(NewValue, Len);
|
||||
For I := 0 to Len - 1 do
|
||||
NewValue[I + 1] := NewString[I];
|
||||
end;
|
||||
Finished := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
Function TGnomeWidgetSet.RequestInput(const InputCaption, InputPrompt : String;
|
||||
MaskInput : Boolean; var Value : String) : Boolean;
|
||||
var
|
||||
MainWidget,
|
||||
RequestWidget : Pointer;
|
||||
RequestObject : TRequestInputObject;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
If (Application.MainForm <> nil) and
|
||||
(Application.MainForm.HandleAllocated)
|
||||
then
|
||||
MainWidget := Pointer(Application.MainForm.Handle);
|
||||
|
||||
With RequestObject do begin
|
||||
Finished := False;
|
||||
NewValue := Value;
|
||||
end;
|
||||
|
||||
RequestWidget := gnome_request_dialog(MaskInput, PChar(InputPrompt), PChar(Value), 256,
|
||||
TGnomeStringCallback(@RequestInputFinishCallback), @RequestObject, MainWidget);
|
||||
|
||||
gtk_window_set_title(RequestWidget,PChar(InputCaption));
|
||||
|
||||
If gnome_dialog_run_and_close(RequestWidget) = 0 then
|
||||
If RequestObject.Finished then begin
|
||||
Result := True;
|
||||
Value := RequestObject.NewValue;
|
||||
end;
|
||||
end;
|
||||
|
||||
//##apiwiz##eps## // Do not remove
|
||||
|
||||
{$IfDef ASSERT_IS_ON}
|
||||
{$UNDEF ASSERT_IS_ON}
|
||||
{$C-}
|
||||
{$EndIf}
|
||||
@ -1,34 +0,0 @@
|
||||
{%MainUnit gnomeint.pas}
|
||||
{ $Id$ }
|
||||
(******************************************************************************
|
||||
All GNOME Winapi related stuff goes here.
|
||||
|
||||
!! Keep this alphabetical !!
|
||||
******************************************************************************)
|
||||
{
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
|
||||
//##apiwiz##sps## // Do not remove
|
||||
|
||||
Function LoadStockPixmap(StockID: longint) : HBitmap; override;
|
||||
|
||||
Function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint;
|
||||
Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint; override;
|
||||
Function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint;
|
||||
Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint; override;
|
||||
|
||||
Function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean; override;
|
||||
|
||||
//##apiwiz##eps## // Do not remove
|
||||
@ -1,72 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSActnList.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSActnList;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// ActnList,
|
||||
////////////////////////////////////////////////////
|
||||
WSActnList, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomActionList }
|
||||
|
||||
TGnomeWSCustomActionList = class(TWSCustomActionList)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSActionList }
|
||||
|
||||
TGnomeWSActionList = class(TWSActionList)
|
||||
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(TCustomActionList, TGnomeWSCustomActionList);
|
||||
// RegisterWSComponent(TActionList, TGnomeWSActionList);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,63 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSArrow.pp *
|
||||
* --------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSArrow;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Arrow,
|
||||
////////////////////////////////////////////////////
|
||||
WSArrow, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSArrow }
|
||||
|
||||
TGnomeWSArrow = class(TWSArrow)
|
||||
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(TArrow, TGnomeWSArrow);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,81 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSButtons.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSButtons;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Buttons,
|
||||
////////////////////////////////////////////////////
|
||||
WSButtons, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSButton }
|
||||
|
||||
TGnomeWSButton = class(TWSButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSBitBtn }
|
||||
|
||||
TGnomeWSBitBtn = class(TWSBitBtn)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSSpeedButton }
|
||||
|
||||
TGnomeWSSpeedButton = class(TWSSpeedButton)
|
||||
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(TCustomButton, TGnomeWSButton);
|
||||
// RegisterWSComponent(TCustomBitBtn, TGnomeWSBitBtn);
|
||||
// RegisterWSComponent(TCustomSpeedButton, TGnomeWSSpeedButton);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,63 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSCalendar.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSCalendar;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Calendar,
|
||||
////////////////////////////////////////////////////
|
||||
WSCalendar, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomCalendar }
|
||||
|
||||
TGnomeWSCustomCalendar = class(TWSCustomCalendar)
|
||||
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(TCustomCalendar, TGnomeWSCustomCalendar);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,63 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSCheckLst.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSCheckLst;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// CheckLst,
|
||||
////////////////////////////////////////////////////
|
||||
WSCheckLst, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCheckListBox }
|
||||
|
||||
TGnomeWSCheckListBox = class(TWSCheckListBox)
|
||||
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(TCheckListBox, TGnomeWSCheckListBox);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,63 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSCListBox.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSCListBox;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// CListBox,
|
||||
////////////////////////////////////////////////////
|
||||
WSCListBox, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCListBox }
|
||||
|
||||
TGnomeWSCListBox = class(TWSCListBox)
|
||||
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(TCListBox, TGnomeWSCListBox);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,189 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSComCtrls.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSComCtrls;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// ComCtrls,
|
||||
////////////////////////////////////////////////////
|
||||
WSComCtrls, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSStatusBar }
|
||||
|
||||
TGnomeWSStatusBar = class(TWSStatusBar)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSTabSheet }
|
||||
|
||||
TGnomeWSTabSheet = class(TWSTabSheet)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSPageControl }
|
||||
|
||||
TGnomeWSPageControl = class(TWSPageControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomListView }
|
||||
|
||||
TGnomeWSCustomListView = class(TWSCustomListView)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSListView }
|
||||
|
||||
TGnomeWSListView = class(TWSListView)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSProgressBar }
|
||||
|
||||
TGnomeWSProgressBar = class(TWSProgressBar)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomUpDown }
|
||||
|
||||
TGnomeWSCustomUpDown = class(TWSCustomUpDown)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSUpDown }
|
||||
|
||||
TGnomeWSUpDown = class(TWSUpDown)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSToolButton }
|
||||
|
||||
TGnomeWSToolButton = class(TWSToolButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSToolBar }
|
||||
|
||||
TGnomeWSToolBar = class(TWSToolBar)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSToolButton }
|
||||
|
||||
TGnomeWSToolButton = class(TWSToolButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSToolBar }
|
||||
|
||||
TGnomeWSToolBar = class(TWSToolBar)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSTrackBar }
|
||||
|
||||
TGnomeWSTrackBar = class(TWSTrackBar)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomTreeView }
|
||||
|
||||
TGnomeWSCustomTreeView = class(TWSCustomTreeView)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSTreeView }
|
||||
|
||||
TGnomeWSTreeView = class(TWSTreeView)
|
||||
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(TCustomStatusBar, TGnomeWSStatusBar);
|
||||
// RegisterWSComponent(TCustomTabSheet, TGnomeWSTabSheet);
|
||||
// RegisterWSComponent(TCustomPageControl, TGnomeWSPageControl);
|
||||
// RegisterWSComponent(TCustomListView, TGnomeWSCustomListView);
|
||||
// RegisterWSComponent(TCustomListView, TGnomeWSListView);
|
||||
// RegisterWSComponent(TCustomProgressBar, TGnomeWSProgressBar);
|
||||
// RegisterWSComponent(TCustomUpDown, TGnomeWSCustomUpDown);
|
||||
// RegisterWSComponent(TCustomUpDown, TGnomeWSUpDown);
|
||||
// RegisterWSComponent(TCustomToolButton, TGnomeWSToolButton);
|
||||
// RegisterWSComponent(TCustomToolBar, TGnomeWSToolBar);
|
||||
// RegisterWSComponent(TCustomToolButton, TGnomeWSToolButton);
|
||||
// RegisterWSComponent(TCustomToolBar, TGnomeWSToolBar);
|
||||
// RegisterWSComponent(TCustomTrackBar, TGnomeWSTrackBar);
|
||||
// RegisterWSComponent(TCustomTreeView, TGnomeWSCustomTreeView);
|
||||
// RegisterWSComponent(TCustomTreeView, TGnomeWSTreeView);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,108 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSControls.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSControls;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Controls,
|
||||
////////////////////////////////////////////////////
|
||||
WSControls, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSDragImageList }
|
||||
|
||||
TGnomeWSDragImageList = class(TWSDragImageList)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSControl }
|
||||
|
||||
TGnomeWSControl = class(TWSControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSWinControl }
|
||||
|
||||
TGnomeWSWinControl = class(TWSWinControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSGraphicControl }
|
||||
|
||||
TGnomeWSGraphicControl = class(TWSGraphicControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomControl }
|
||||
|
||||
TGnomeWSCustomControl = class(TWSCustomControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSImageList }
|
||||
|
||||
TGnomeWSImageList = class(TWSImageList)
|
||||
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(TDragImageList, TGnomeWSDragImageList);
|
||||
// RegisterWSComponent(TControl, TGnomeWSControl);
|
||||
// RegisterWSComponent(TWinControl, TGnomeWSWinControl);
|
||||
// RegisterWSComponent(TGraphicControl, TGnomeWSGraphicControl);
|
||||
// RegisterWSComponent(TCustomControl, TGnomeWSCustomControl);
|
||||
// RegisterWSComponent(TImageList, TGnomeWSImageList);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,171 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSDbCtrls.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSDbCtrls;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// DbCtrls,
|
||||
////////////////////////////////////////////////////
|
||||
WSDbCtrls, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSDBEdit }
|
||||
|
||||
TGnomeWSDBEdit = class(TWSDBEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBText }
|
||||
|
||||
TGnomeWSDBText = class(TWSDBText)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBListBox }
|
||||
|
||||
TGnomeWSDBListBox = class(TWSDBListBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBRadioGroup }
|
||||
|
||||
TGnomeWSDBRadioGroup = class(TWSDBRadioGroup)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBCheckBox }
|
||||
|
||||
TGnomeWSDBCheckBox = class(TWSDBCheckBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBComboBox }
|
||||
|
||||
TGnomeWSDBComboBox = class(TWSDBComboBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBMemo }
|
||||
|
||||
TGnomeWSDBMemo = class(TWSDBMemo)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBGroupBox }
|
||||
|
||||
TGnomeWSDBGroupBox = class(TWSDBGroupBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBImage }
|
||||
|
||||
TGnomeWSDBImage = class(TWSDBImage)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBCalendar }
|
||||
|
||||
TGnomeWSDBCalendar = class(TWSDBCalendar)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBCustomNavigator }
|
||||
|
||||
TGnomeWSDBCustomNavigator = class(TWSDBCustomNavigator)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBNavButton }
|
||||
|
||||
TGnomeWSDBNavButton = class(TWSDBNavButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDBNavigator }
|
||||
|
||||
TGnomeWSDBNavigator = class(TWSDBNavigator)
|
||||
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(TDBEdit, TGnomeWSDBEdit);
|
||||
// RegisterWSComponent(TDBText, TGnomeWSDBText);
|
||||
// RegisterWSComponent(TDBListBox, TGnomeWSDBListBox);
|
||||
// RegisterWSComponent(TDBRadioGroup, TGnomeWSDBRadioGroup);
|
||||
// RegisterWSComponent(TDBCheckBox, TGnomeWSDBCheckBox);
|
||||
// RegisterWSComponent(TDBComboBox, TGnomeWSDBComboBox);
|
||||
// RegisterWSComponent(TDBMemo, TGnomeWSDBMemo);
|
||||
// RegisterWSComponent(TDBGroupBox, TGnomeWSDBGroupBox);
|
||||
// RegisterWSComponent(TDBImage, TGnomeWSDBImage);
|
||||
// RegisterWSComponent(TDBCalendar, TGnomeWSDBCalendar);
|
||||
// RegisterWSComponent(TDBCustomNavigator, TGnomeWSDBCustomNavigator);
|
||||
// RegisterWSComponent(TDBNavButton, TGnomeWSDBNavButton);
|
||||
// RegisterWSComponent(TDBNavigator, TGnomeWSDBNavigator);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,72 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSDBGrids.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSDBGrids;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// DBGrids,
|
||||
////////////////////////////////////////////////////
|
||||
WSDBGrids, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomDbGrid }
|
||||
|
||||
TGnomeWSCustomDbGrid = class(TWSCustomDbGrid)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSdbGrid }
|
||||
|
||||
TGnomeWSdbGrid = class(TWSdbGrid)
|
||||
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(TCustomDbGrid, TGnomeWSCustomDbGrid);
|
||||
// RegisterWSComponent(TdbGrid, TGnomeWSdbGrid);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,126 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSDialogs.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSDialogs;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Dialogs,
|
||||
////////////////////////////////////////////////////
|
||||
LCLType, WSDialogs, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCommonDialog }
|
||||
|
||||
TGnomeWSCommonDialog = class(TWSCommonDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSFileDialog }
|
||||
|
||||
TGnomeWSFileDialog = class(TWSFileDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSOpenDialog }
|
||||
|
||||
TGnomeWSOpenDialog = class(TWSOpenDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSSaveDialog }
|
||||
|
||||
TGnomeWSSaveDialog = class(TWSSaveDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSSelectDirectoryDialog }
|
||||
|
||||
TGnomeWSSelectDirectoryDialog = class(TWSSelectDirectoryDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSColorDialog }
|
||||
|
||||
TGnomeWSColorDialog = class(TWSColorDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSColorButton }
|
||||
|
||||
TGnomeWSColorButton = class(TWSColorButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSFontDialog }
|
||||
|
||||
TGnomeWSFontDialog = 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, TGnomeWSCommonDialog);
|
||||
// RegisterWSComponent(TFileDialog, TGnomeWSFileDialog);
|
||||
// RegisterWSComponent(TOpenDialog, TGnomeWSOpenDialog);
|
||||
// RegisterWSComponent(TSaveDialog, TGnomeWSSaveDialog);
|
||||
// RegisterWSComponent(TSelectDirectoryDialog, TGnomeWSSelectDirectoryDialog);
|
||||
// RegisterWSComponent(TColorDialog, TGnomeWSColorDialog);
|
||||
// RegisterWSComponent(TColorButton, TGnomeWSColorButton);
|
||||
// RegisterWSComponent(TFontDialog, TGnomeWSFontDialog);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,63 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSDirSel.pp *
|
||||
* ---------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSDirSel;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// DirSel,
|
||||
////////////////////////////////////////////////////
|
||||
WSDirSel, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSDirSelDlg }
|
||||
|
||||
TGnomeWSDirSelDlg = class(TWSDirSelDlg)
|
||||
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(TDirSelDlg, TGnomeWSDirSelDlg);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,108 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSEditBtn.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSEditBtn;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// EditBtn,
|
||||
////////////////////////////////////////////////////
|
||||
WSEditBtn, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomEditButton }
|
||||
|
||||
TGnomeWSCustomEditButton = class(TWSCustomEditButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSEditButton }
|
||||
|
||||
TGnomeWSEditButton = class(TWSEditButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSFileNameEdit }
|
||||
|
||||
TGnomeWSFileNameEdit = class(TWSFileNameEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDirectoryEdit }
|
||||
|
||||
TGnomeWSDirectoryEdit = class(TWSDirectoryEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDateEdit }
|
||||
|
||||
TGnomeWSDateEdit = class(TWSDateEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCalcEdit }
|
||||
|
||||
TGnomeWSCalcEdit = class(TWSCalcEdit)
|
||||
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(TCustomEditButton, TGnomeWSCustomEditButton);
|
||||
// RegisterWSComponent(TEditButton, TGnomeWSEditButton);
|
||||
// RegisterWSComponent(TFileNameEdit, TGnomeWSFileNameEdit);
|
||||
// RegisterWSComponent(TDirectoryEdit, TGnomeWSDirectoryEdit);
|
||||
// RegisterWSComponent(TDateEdit, TGnomeWSDateEdit);
|
||||
// RegisterWSComponent(TCalcEdit, TGnomeWSCalcEdit);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,234 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSExtCtrls.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSExtCtrls;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// ExtCtrls,
|
||||
////////////////////////////////////////////////////
|
||||
WSExtCtrls, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomPage }
|
||||
|
||||
TGnomeWSCustomPage = class(TWSCustomPage)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomNotebook }
|
||||
|
||||
TGnomeWSCustomNotebook = class(TWSCustomNotebook)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSPage }
|
||||
|
||||
TGnomeWSPage = class(TWSPage)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSNotebook }
|
||||
|
||||
TGnomeWSNotebook = class(TWSNotebook)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSShape }
|
||||
|
||||
TGnomeWSShape = class(TWSShape)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomSplitter }
|
||||
|
||||
TGnomeWSCustomSplitter = class(TWSCustomSplitter)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSSplitter }
|
||||
|
||||
TGnomeWSSplitter = class(TWSSplitter)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSPaintBox }
|
||||
|
||||
TGnomeWSPaintBox = class(TWSPaintBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomImage }
|
||||
|
||||
TGnomeWSCustomImage = class(TWSCustomImage)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSImage }
|
||||
|
||||
TGnomeWSImage = class(TWSImage)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSBevel }
|
||||
|
||||
TGnomeWSBevel = class(TWSBevel)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomRadioGroup }
|
||||
|
||||
TGnomeWSCustomRadioGroup = class(TWSCustomRadioGroup)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSRadioGroup }
|
||||
|
||||
TGnomeWSRadioGroup = class(TWSRadioGroup)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomCheckGroup }
|
||||
|
||||
TGnomeWSCustomCheckGroup = class(TWSCustomCheckGroup)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCheckGroup }
|
||||
|
||||
TGnomeWSCheckGroup = class(TWSCheckGroup)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSBoundLabel }
|
||||
|
||||
TGnomeWSBoundLabel = class(TWSBoundLabel)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomLabeledEdit }
|
||||
|
||||
TGnomeWSCustomLabeledEdit = class(TWSCustomLabeledEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSLabeledEdit }
|
||||
|
||||
TGnomeWSLabeledEdit = class(TWSLabeledEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomPanel }
|
||||
|
||||
TGnomeWSCustomPanel = class(TWSCustomPanel)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSPanel }
|
||||
|
||||
TGnomeWSPanel = class(TWSPanel)
|
||||
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(TCustomPage, TGnomeWSCustomPage);
|
||||
// RegisterWSComponent(TCustomNotebook, TGnomeWSCustomNotebook);
|
||||
// RegisterWSComponent(TPage, TGnomeWSPage);
|
||||
// RegisterWSComponent(TNotebook, TGnomeWSNotebook);
|
||||
// RegisterWSComponent(TShape, TGnomeWSShape);
|
||||
// RegisterWSComponent(TCustomSplitter, TGnomeWSCustomSplitter);
|
||||
// RegisterWSComponent(TSplitter, TGnomeWSSplitter);
|
||||
// RegisterWSComponent(TPaintBox, TGnomeWSPaintBox);
|
||||
// RegisterWSComponent(TCustomImage, TGnomeWSCustomImage);
|
||||
// RegisterWSComponent(TImage, TGnomeWSImage);
|
||||
// RegisterWSComponent(TBevel, TGnomeWSBevel);
|
||||
// RegisterWSComponent(TCustomRadioGroup, TGnomeWSCustomRadioGroup);
|
||||
// RegisterWSComponent(TRadioGroup, TGnomeWSRadioGroup);
|
||||
// RegisterWSComponent(TCustomCheckGroup, TGnomeWSCustomCheckGroup);
|
||||
// RegisterWSComponent(TCheckGroup, TGnomeWSCheckGroup);
|
||||
// RegisterWSComponent(TBoundLabel, TGnomeWSBoundLabel);
|
||||
// RegisterWSComponent(TCustomLabeledEdit, TGnomeWSCustomLabeledEdit);
|
||||
// RegisterWSComponent(TLabeledEdit, TGnomeWSLabeledEdit);
|
||||
// RegisterWSComponent(TCustomPanel, TGnomeWSCustomPanel);
|
||||
// RegisterWSComponent(TPanel, TGnomeWSPanel);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,126 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSExtDlgs.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSExtDlgs;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// ExtDlgs,
|
||||
////////////////////////////////////////////////////
|
||||
WSExtDlgs, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSPreviewFileControl }
|
||||
|
||||
TGnomeWSPreviewFileControl = class(TWSPreviewFileControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSPreviewFileDialog }
|
||||
|
||||
TGnomeWSPreviewFileDialog = class(TWSPreviewFileDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSOpenPictureDialog }
|
||||
|
||||
TGnomeWSOpenPictureDialog = class(TWSOpenPictureDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSSavePictureDialog }
|
||||
|
||||
TGnomeWSSavePictureDialog = class(TWSSavePictureDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCalculatorDialog }
|
||||
|
||||
TGnomeWSCalculatorDialog = class(TWSCalculatorDialog)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCalculatorForm }
|
||||
|
||||
TGnomeWSCalculatorForm = class(TWSCalculatorForm)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCalendarDialogForm }
|
||||
|
||||
TGnomeWSCalendarDialogForm = class(TWSCalendarDialogForm)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCalendarDialog }
|
||||
|
||||
TGnomeWSCalendarDialog = class(TWSCalendarDialog)
|
||||
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(TPreviewFileControl, TGnomeWSPreviewFileControl);
|
||||
// RegisterWSComponent(TPreviewFileDialog, TGnomeWSPreviewFileDialog);
|
||||
// RegisterWSComponent(TOpenPictureDialog, TGnomeWSOpenPictureDialog);
|
||||
// RegisterWSComponent(TSavePictureDialog, TGnomeWSSavePictureDialog);
|
||||
// RegisterWSComponent(TCalculatorDialog, TGnomeWSCalculatorDialog);
|
||||
// RegisterWSComponent(TCalculatorForm, TGnomeWSCalculatorForm);
|
||||
// RegisterWSComponent(TCalendarDialogForm, TGnomeWSCalendarDialogForm);
|
||||
// RegisterWSComponent(TCalendarDialog, TGnomeWSCalendarDialog);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,72 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSFileCtrl.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSFileCtrl;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// FileCtrl,
|
||||
////////////////////////////////////////////////////
|
||||
WSFileCtrl, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomFileListBox }
|
||||
|
||||
TGnomeWSCustomFileListBox = class(TWSCustomFileListBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSFileListBox }
|
||||
|
||||
TGnomeWSFileListBox = class(TWSFileListBox)
|
||||
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(TCustomFileListBox, TGnomeWSCustomFileListBox);
|
||||
// RegisterWSComponent(TFileListBox, TGnomeWSFileListBox);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,135 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSForms.pp *
|
||||
* --------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSForms;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Forms,
|
||||
////////////////////////////////////////////////////
|
||||
WSForms, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSScrollingWinControl }
|
||||
|
||||
TGnomeWSScrollingWinControl = class(TWSScrollingWinControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSScrollBox }
|
||||
|
||||
TGnomeWSScrollBox = class(TWSScrollBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomFrame }
|
||||
|
||||
TGnomeWSCustomFrame = class(TWSCustomFrame)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSFrame }
|
||||
|
||||
TGnomeWSFrame = class(TWSFrame)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomForm }
|
||||
|
||||
TGnomeWSCustomForm = class(TWSCustomForm)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSForm }
|
||||
|
||||
TGnomeWSForm = class(TWSForm)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSHintWindow }
|
||||
|
||||
TGnomeWSHintWindow = class(TWSHintWindow)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSScreen }
|
||||
|
||||
TGnomeWSScreen = class(TWSScreen)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSApplicationProperties }
|
||||
|
||||
TGnomeWSApplicationProperties = class(TWSApplicationProperties)
|
||||
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(TScrollingWinControl, TGnomeWSScrollingWinControl);
|
||||
// RegisterWSComponent(TScrollBox, TGnomeWSScrollBox);
|
||||
// RegisterWSComponent(TCustomFrame, TGnomeWSCustomFrame);
|
||||
// RegisterWSComponent(TFrame, TGnomeWSFrame);
|
||||
// RegisterWSComponent(TCustomForm, TGnomeWSCustomForm);
|
||||
// RegisterWSComponent(TForm, TGnomeWSForm);
|
||||
// RegisterWSComponent(THintWindow, TGnomeWSHintWindow);
|
||||
// RegisterWSComponent(TScreen, TGnomeWSScreen);
|
||||
// RegisterWSComponent(TApplicationProperties, TGnomeWSApplicationProperties);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,90 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSGrids.pp *
|
||||
* --------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSGrids;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Grids,
|
||||
////////////////////////////////////////////////////
|
||||
WSGrids, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSStringCellEditor }
|
||||
|
||||
TGnomeWSStringCellEditor = class(TWSStringCellEditor)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomGrid }
|
||||
|
||||
TGnomeWSCustomGrid = class(TWSCustomGrid)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSDrawGrid }
|
||||
|
||||
TGnomeWSDrawGrid = class(TWSDrawGrid)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSStringGrid }
|
||||
|
||||
TGnomeWSStringGrid = class(TWSStringGrid)
|
||||
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(TStringCellEditor, TGnomeWSStringCellEditor);
|
||||
// RegisterWSComponent(TCustomGrid, TGnomeWSCustomGrid);
|
||||
// RegisterWSComponent(TDrawGrid, TGnomeWSDrawGrid);
|
||||
// RegisterWSComponent(TStringGrid, TGnomeWSStringGrid);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,63 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSImgList.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSImgList;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// ImgList,
|
||||
////////////////////////////////////////////////////
|
||||
WSImgList, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomImageList }
|
||||
|
||||
TGnomeWSCustomImageList = class(TWSCustomImageList)
|
||||
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(TCustomImageList, TGnomeWSCustomImageList);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,72 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSMaskEdit.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSMaskEdit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// MaskEdit,
|
||||
////////////////////////////////////////////////////
|
||||
WSMaskEdit, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomMaskEdit }
|
||||
|
||||
TGnomeWSCustomMaskEdit = class(TWSCustomMaskEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSMaskEdit }
|
||||
|
||||
TGnomeWSMaskEdit = class(TWSMaskEdit)
|
||||
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(TCustomMaskEdit, TGnomeWSCustomMaskEdit);
|
||||
// RegisterWSComponent(TMaskEdit, TGnomeWSMaskEdit);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,90 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSMenus.pp *
|
||||
* --------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSMenus;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Menus,
|
||||
////////////////////////////////////////////////////
|
||||
WSMenus, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSMenuItem }
|
||||
|
||||
TGnomeWSMenuItem = class(TWSMenuItem)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSMenu }
|
||||
|
||||
TGnomeWSMenu = class(TWSMenu)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSMainMenu }
|
||||
|
||||
TGnomeWSMainMenu = class(TWSMainMenu)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSPopupMenu }
|
||||
|
||||
TGnomeWSPopupMenu = class(TWSPopupMenu)
|
||||
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(TMenuItem, TGnomeWSMenuItem);
|
||||
// RegisterWSComponent(TMenu, TGnomeWSMenu);
|
||||
// RegisterWSComponent(TMainMenu, TGnomeWSMainMenu);
|
||||
// RegisterWSComponent(TPopupMenu, TGnomeWSPopupMenu);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,81 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSPairSplitter.pp *
|
||||
* ---------------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSPairSplitter;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// PairSplitter,
|
||||
////////////////////////////////////////////////////
|
||||
WSPairSplitter, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSPairSplitterSide }
|
||||
|
||||
TGnomeWSPairSplitterSide = class(TWSPairSplitterSide)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomPairSplitter }
|
||||
|
||||
TGnomeWSCustomPairSplitter = class(TWSCustomPairSplitter)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSPairSplitter }
|
||||
|
||||
TGnomeWSPairSplitter = class(TWSPairSplitter)
|
||||
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(TPairSplitterSide, TGnomeWSPairSplitterSide);
|
||||
// RegisterWSComponent(TCustomPairSplitter, TGnomeWSCustomPairSplitter);
|
||||
// RegisterWSComponent(TPairSplitter, TGnomeWSPairSplitter);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,72 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSSpin.pp *
|
||||
* -------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSSpin;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Spin,
|
||||
////////////////////////////////////////////////////
|
||||
WSSpin, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSCustomFloatSpinEdit }
|
||||
|
||||
TGnomeWSCustomFloatSpinEdit = class(TWSCustomFloatSpinEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSFloatSpinEdit }
|
||||
|
||||
TGnomeWSFloatSpinEdit = class(TWSFloatSpinEdit)
|
||||
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(TCustomFloatSpinEdit, TGnomeWSCustomFloatSpinEdit);
|
||||
// RegisterWSComponent(TFloatSpinEdit, TGnomeWSFloatSpinEdit);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,243 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSStdCtrls.pp *
|
||||
* ------------------ *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSStdCtrls;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// StdCtrls,
|
||||
////////////////////////////////////////////////////
|
||||
WSStdCtrls, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSScrollBar }
|
||||
|
||||
TGnomeWSScrollBar = class(TWSScrollBar)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomGroupBox }
|
||||
|
||||
TGnomeWSCustomGroupBox = class(TWSCustomGroupBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSGroupBox }
|
||||
|
||||
TGnomeWSGroupBox = class(TWSGroupBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomComboBox }
|
||||
|
||||
TGnomeWSCustomComboBox = class(TWSCustomComboBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSComboBox }
|
||||
|
||||
TGnomeWSComboBox = class(TWSComboBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomListBox }
|
||||
|
||||
TGnomeWSCustomListBox = class(TWSCustomListBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSListBox }
|
||||
|
||||
TGnomeWSListBox = class(TWSListBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomEdit }
|
||||
|
||||
TGnomeWSCustomEdit = class(TWSCustomEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomMemo }
|
||||
|
||||
TGnomeWSCustomMemo = class(TWSCustomMemo)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSEdit }
|
||||
|
||||
TGnomeWSEdit = class(TWSEdit)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSMemo }
|
||||
|
||||
TGnomeWSMemo = class(TWSMemo)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomLabel }
|
||||
|
||||
TGnomeWSCustomLabel = class(TWSCustomLabel)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSLabel }
|
||||
|
||||
TGnomeWSLabel = class(TWSLabel)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSButtonControl }
|
||||
|
||||
TGnomeWSButtonControl = class(TWSButtonControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomCheckBox }
|
||||
|
||||
TGnomeWSCustomCheckBox = class(TWSCustomCheckBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCheckBox }
|
||||
|
||||
TGnomeWSCheckBox = class(TWSCheckBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCheckBox }
|
||||
|
||||
TGnomeWSCheckBox = class(TWSCheckBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSToggleBox }
|
||||
|
||||
TGnomeWSToggleBox = class(TWSToggleBox)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSRadioButton }
|
||||
|
||||
TGnomeWSRadioButton = class(TWSRadioButton)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSCustomStaticText }
|
||||
|
||||
TGnomeWSCustomStaticText = class(TWSCustomStaticText)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TGnomeWSStaticText }
|
||||
|
||||
TGnomeWSStaticText = class(TWSStaticText)
|
||||
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(TScrollBar, TGnomeWSScrollBar);
|
||||
// RegisterWSComponent(TCustomGroupBox, TGnomeWSCustomGroupBox);
|
||||
// RegisterWSComponent(TGroupBox, TGnomeWSGroupBox);
|
||||
// RegisterWSComponent(TCustomComboBox, TGnomeWSCustomComboBox);
|
||||
// RegisterWSComponent(TComboBox, TGnomeWSComboBox);
|
||||
// RegisterWSComponent(TCustomListBox, TGnomeWSCustomListBox);
|
||||
// RegisterWSComponent(TListBox, TGnomeWSListBox);
|
||||
// RegisterWSComponent(TCustomEdit, TGnomeWSCustomEdit);
|
||||
// RegisterWSComponent(TCustomMemo, TGnomeWSCustomMemo);
|
||||
// RegisterWSComponent(TEdit, TGnomeWSEdit);
|
||||
// RegisterWSComponent(TMemo, TGnomeWSMemo);
|
||||
// RegisterWSComponent(TCustomLabel, TGnomeWSCustomLabel);
|
||||
// RegisterWSComponent(TLabel, TGnomeWSLabel);
|
||||
// RegisterWSComponent(TButtonControl, TGnomeWSButtonControl);
|
||||
// RegisterWSComponent(TCustomCheckBox, TGnomeWSCustomCheckBox);
|
||||
// RegisterWSComponent(TCheckBox, TGnomeWSCheckBox);
|
||||
// RegisterWSComponent(TCheckBox, TGnomeWSCheckBox);
|
||||
// RegisterWSComponent(TToggleBox, TGnomeWSToggleBox);
|
||||
// RegisterWSComponent(TRadioButton, TGnomeWSRadioButton);
|
||||
// RegisterWSComponent(TCustomStaticText, TGnomeWSCustomStaticText);
|
||||
// RegisterWSComponent(TStaticText, TGnomeWSStaticText);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,63 +0,0 @@
|
||||
{ $Id$}
|
||||
{
|
||||
*****************************************************************************
|
||||
* GnomeWSToolwin.pp *
|
||||
* ----------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 GnomeWSToolwin;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
// Toolwin,
|
||||
////////////////////////////////////////////////////
|
||||
WSToolwin, WSLCLClasses;
|
||||
|
||||
type
|
||||
|
||||
{ TGnomeWSToolWindow }
|
||||
|
||||
TGnomeWSToolWindow = class(TWSToolWindow)
|
||||
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(TToolWindow, TGnomeWSToolWindow);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
@ -1,44 +0,0 @@
|
||||
{
|
||||
/***************************************************************************
|
||||
Interfaces.pp - determines what interface to use
|
||||
--------------------------------------------------
|
||||
|
||||
Initial Revision : Thu July 1st CST 1999
|
||||
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, 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 Interfaces;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
InterfaceBase;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
GnomeInt, Forms;
|
||||
|
||||
initialization
|
||||
WidgetSet := TGnomeWidgetSet.Create;
|
||||
|
||||
finalization
|
||||
FreeWidgetSet;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user