summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-09-27 18:24:54 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-09-27 18:24:54 +0000
commit8eb1030c56d6a1228d3145b247f75c733576e511 (patch)
treeb07af847fe22e6ea153e1c0088a257f72dd9f02f
parent1c50f4279f89d41dd1d85964645217860f5c0b9c (diff)
downloadfpGUI-8eb1030c56d6a1228d3145b247f75c733576e511.tar.xz
* Rename all corelib units to the new naming convention.
* Updated the UI Designer to use the new unit names.
-rw-r--r--src/corelib/fpg_base.pas (renamed from src/corelib/gfxbase.pas)10
-rw-r--r--src/corelib/fpg_cmdlineparams.pas (renamed from src/corelib/gfx_cmdlineparams.pas)3
-rw-r--r--src/corelib/fpg_command_intf.pas (renamed from src/corelib/gfx_command_intf.pas)2
-rw-r--r--src/corelib/fpg_constants.pas (renamed from src/corelib/gfx_constants.pas)35
-rw-r--r--src/corelib/fpg_extinterpolation.pas (renamed from src/corelib/gfx_extinterpolation.pas)31
-rw-r--r--src/corelib/fpg_imagelist.pas (renamed from src/corelib/gfx_imagelist.pas)10
-rw-r--r--src/corelib/fpg_imgfmt_bmp.pas (renamed from src/corelib/gfx_imgfmt_bmp.pas)26
-rw-r--r--src/corelib/fpg_main.pas (renamed from src/corelib/fpgfx.pas)41
-rw-r--r--src/corelib/fpg_msgqueue.inc (renamed from src/corelib/gfx_msgqueue.inc)4
-rw-r--r--src/corelib/fpg_pofiles.pas (renamed from src/corelib/gfx_pofiles.pas)25
-rw-r--r--src/corelib/fpg_popupwindow.pas (renamed from src/corelib/gfx_popupwindow.pas)10
-rw-r--r--src/corelib/fpg_stdimages.pas (renamed from src/corelib/gfx_stdimages.pas)22
-rw-r--r--src/corelib/fpg_stringhashlist.pas (renamed from src/corelib/gfx_stringhashlist.pas)41
-rw-r--r--src/corelib/fpg_strings.pas (renamed from src/corelib/gfx_strings.pas)9
-rw-r--r--src/corelib/fpg_stringutils.pas (renamed from src/corelib/gfx_utf8utils.pas)20
-rw-r--r--src/corelib/fpg_translations.pas (renamed from src/corelib/gfx_translations.pas)21
-rw-r--r--src/corelib/fpg_utils.pas (renamed from src/corelib/gfx_utils.pas)23
-rw-r--r--src/corelib/fpg_widget.pas (renamed from src/corelib/gfx_widget.pas)27
-rw-r--r--src/corelib/fpg_wuline.pas (renamed from src/corelib/gfx_wuline.pas)4
-rw-r--r--src/corelib/gdi/fpg_gdi.pas (renamed from src/corelib/gdi/gfx_gdi.pas)21
-rw-r--r--src/corelib/gdi/fpg_keys_gdi.inc (renamed from src/corelib/gdi/gdikeys.inc)21
-rw-r--r--src/corelib/gdi/fpg_utils_impl.inc (renamed from src/corelib/gdi/gfx_utils_impl.inc)5
-rw-r--r--src/corelib/gdi/fpgui_toolkit.lpk82
-rw-r--r--src/corelib/gdi/fpgui_toolkit.pas10
-rw-r--r--src/corelib/x11/fpg_impl.pas36
-rw-r--r--src/corelib/x11/fpg_keyconv_x11.pas (renamed from src/corelib/x11/x11_keyconv.pas)20
-rw-r--r--src/corelib/x11/fpg_netlayer_x11.pas (renamed from src/corelib/x11/_netlayer.pas)19
-rw-r--r--src/corelib/x11/fpg_utils_impl.inc (renamed from src/corelib/x11/gfx_utils_impl.inc)2
-rw-r--r--src/corelib/x11/fpg_x11.pas (renamed from src/corelib/x11/gfx_x11.pas)39
-rw-r--r--src/corelib/x11/fpg_xft_x11.pas (renamed from src/corelib/x11/x11_xft.pas)19
-rw-r--r--src/corelib/x11/fpgui_toolkit.lpk224
-rw-r--r--src/corelib/x11/fpgui_toolkit.pas26
-rw-r--r--src/corelib/x11/gfx_impl.pas18
-rw-r--r--src/gui/db/fpgui_db.pas2
-rw-r--r--src/gui/gui_animation.pas10
-rw-r--r--src/gui/gui_basegrid.pas7
-rw-r--r--src/gui/gui_bevel.pas157
-rw-r--r--src/gui/gui_button.pas64
-rw-r--r--src/gui/gui_checkbox.pas8
-rw-r--r--src/gui/gui_combobox.pas8
-rw-r--r--src/gui/gui_customgrid.pas4
-rw-r--r--src/gui/gui_dialogs.pas14
-rw-r--r--src/gui/gui_edit.pas10
-rw-r--r--src/gui/gui_editcombo.pas12
-rw-r--r--src/gui/gui_form.pas8
-rw-r--r--src/gui/gui_gauge.pas8
-rw-r--r--src/gui/gui_grid.pas6
-rw-r--r--src/gui/gui_hint.pas4
-rw-r--r--src/gui/gui_hyperlink.pas8
-rw-r--r--src/gui/gui_iniutils.pas4
-rw-r--r--src/gui/gui_label.pas6
-rw-r--r--src/gui/gui_listbox.pas10
-rw-r--r--src/gui/gui_listview.pas8
-rw-r--r--src/gui/gui_memo.pas11
-rw-r--r--src/gui/gui_menu.pas12
-rw-r--r--src/gui/gui_panel.pas6
-rw-r--r--src/gui/gui_popupcalendar.pas20
-rw-r--r--src/gui/gui_progressbar.pas8
-rw-r--r--src/gui/gui_radiobutton.pas8
-rw-r--r--src/gui/gui_scrollbar.pas6
-rw-r--r--src/gui/gui_splitter.pas6
-rw-r--r--src/gui/gui_style.pas9
-rw-r--r--src/gui/gui_tab.pas8
-rw-r--r--src/gui/gui_trackbar.pas6
-rw-r--r--src/gui/gui_tree.pas8
-rw-r--r--uidesigner/newformdesigner.pas6
-rw-r--r--uidesigner/uidesigner.lpr2
-rw-r--r--uidesigner/vfddesigner.pas9
-rw-r--r--uidesigner/vfdeditors.pas6
-rw-r--r--uidesigner/vfdfile.pas6
-rw-r--r--uidesigner/vfdformparser.pas4
-rw-r--r--uidesigner/vfdforms.pas8
-rw-r--r--uidesigner/vfdmain.pas6
-rw-r--r--uidesigner/vfdpropeditgrid.pas4
-rw-r--r--uidesigner/vfdprops.pas6
-rw-r--r--uidesigner/vfdresizer.pas4
-rw-r--r--uidesigner/vfdutils.pas2
-rw-r--r--uidesigner/vfdwidgetclass.pas6
-rw-r--r--uidesigner/vfdwidgets.pas2
79 files changed, 758 insertions, 685 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/fpg_base.pas
index 775f5cdb..d90305fd 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/fpg_base.pas
@@ -15,7 +15,7 @@
The Big Bang starts here! The starting unit for fpGUI.
}
-unit gfxbase;
+unit fpg_base;
{$mode objfpc}{$H+}
@@ -24,7 +24,7 @@ interface
uses
Classes,
SysUtils,
- gfx_impl;
+ fpg_impl;
type
TfpgCoord = integer; // we might use floating point coordinates in the future...
@@ -584,9 +584,9 @@ procedure SortRect(var left, top, right, bottom: integer);
implementation
uses
- fpgfx, // needed for fpgApplication & fpgNamedColor
- gfx_utils, // needed for fpgFileList
- gfx_constants,
+ fpg_main, // needed for fpgApplication & fpgNamedColor
+ fpg_utils, // needed for fpgFileList
+ fpg_constants,
typinfo;
diff --git a/src/corelib/gfx_cmdlineparams.pas b/src/corelib/fpg_cmdlineparams.pas
index 1e833f81..71aa5d03 100644
--- a/src/corelib/gfx_cmdlineparams.pas
+++ b/src/corelib/fpg_cmdlineparams.pas
@@ -14,11 +14,12 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
-unit gfx_cmdlineparams;
+unit fpg_cmdlineparams;
{$mode objfpc}{$H+}
interface
+
uses
Classes;
diff --git a/src/corelib/gfx_command_intf.pas b/src/corelib/fpg_command_intf.pas
index 61eb89cd..e63e6227 100644
--- a/src/corelib/gfx_command_intf.pas
+++ b/src/corelib/fpg_command_intf.pas
@@ -3,7 +3,7 @@
know what design patterns are. The Command pattern is very similar to
Delphi's TAction feature.
}
-unit gfx_command_intf;
+unit fpg_command_intf;
{$mode objfpc}{$H+}
diff --git a/src/corelib/gfx_constants.pas b/src/corelib/fpg_constants.pas
index f204cbab..1029ff13 100644
--- a/src/corelib/gfx_constants.pas
+++ b/src/corelib/fpg_constants.pas
@@ -1,21 +1,36 @@
{
- Constants used throughout fpGUI will be defined here. This includes
- language constants for localization.
-
- You only need to changes these defines if you want the default fpGUI language
- to be something other than English.
-
- Soon the lang_*.inc files will be auto generated from the actual *.po files.
- At which point only the .po files need to be maintained.
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ Constants used throughout fpGUI will be defined here. This includes
+ language constants for localization.
+
+ You only need to changes these defines if you want the default
+ fpGUI language to be something other than English.
+
+ Soon the lang_*.inc files will be auto generated from the
+ actual *.po files. At which point only the .po files need
+ to be maintained.
}
-unit gfx_constants;
+
+unit fpg_constants;
{$mode objfpc}{$H+}
interface
uses
- SysUtils, gfxbase;
+ SysUtils, fpg_base;
resourcestring
diff --git a/src/corelib/gfx_extinterpolation.pas b/src/corelib/fpg_extinterpolation.pas
index 0b3dd30b..c27b18c9 100644
--- a/src/corelib/gfx_extinterpolation.pas
+++ b/src/corelib/fpg_extinterpolation.pas
@@ -1,21 +1,34 @@
-unit gfx_extinterpolation;
-
{
-Some more interpolation filters for TfpgCanvas.StretchDraw:
-Bessel, Gaussian and Sinc are infinite impulse response (IIR),
-the others are finite impulse response (FIR). The implementation
-of Bessel and Sinc are windowed with Blackman filter.
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
-This unit was ported from fcl-image which is part of FPC. A few
-more filters have also been added.
+ 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.
+
+ Description:
+ Some more interpolation filters for TfpgCanvas.StretchDraw:
+ Bessel, Gaussian and Sinc are infinite impulse response (IIR),
+ the others are finite impulse response (FIR). The implementation
+ of Bessel and Sinc are windowed with Blackman filter.
+
+ This unit was ported from fcl-image which is part of FPC. A few
+ more filters have also been added.
}
+unit fpg_extinterpolation;
+
{$mode objfpc}{$H+}
interface
uses
- Classes, SysUtils, gfxbase;
+ Classes, SysUtils, fpg_base;
type
diff --git a/src/corelib/gfx_imagelist.pas b/src/corelib/fpg_imagelist.pas
index 123cb09a..6f2f4466 100644
--- a/src/corelib/gfx_imagelist.pas
+++ b/src/corelib/fpg_imagelist.pas
@@ -17,7 +17,7 @@
treeview etc.
}
-unit gfx_imagelist;
+unit fpg_imagelist;
{$mode objfpc}{$H+}
@@ -28,8 +28,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx;
+ fpg_base,
+ fpg_main;
type
@@ -79,8 +79,8 @@ type
implementation
uses
- gfx_imgfmt_bmp,
- gfx_utils;
+ fpg_imgfmt_bmp,
+ fpg_utils;
{ TfpgImageList }
diff --git a/src/corelib/gfx_imgfmt_bmp.pas b/src/corelib/fpg_imgfmt_bmp.pas
index 46e5f0a8..11298453 100644
--- a/src/corelib/gfx_imgfmt_bmp.pas
+++ b/src/corelib/fpg_imgfmt_bmp.pas
@@ -1,8 +1,22 @@
-{
- BMP format image parser
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ BMP format image parser
}
-unit gfx_imgfmt_bmp;
+
+unit fpg_imgfmt_bmp;
{$mode objfpc}{$H+}
@@ -11,15 +25,17 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfxbase{, fpcanvas};
+ fpg_main,
+ fpg_base;
procedure ReadImage_BMP(img: TfpgImage; bmp: Pointer; bmpsize: longword);
function LoadImage_BMP(const AFileName: String): TfpgImage;
function CreateImage_BMP(bmp: Pointer; bmpsize: longword): TfpgImage;
+
implementation
+
function CreateImage_BMP(bmp: Pointer; bmpsize: longword): TfpgImage;
begin
Result := TfpgImage.Create;
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpg_main.pas
index 332060ba..58b8f6e4 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpg_main.pas
@@ -1,4 +1,21 @@
-unit fpgfx;
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ The main unit trying everything together in corelib.
+}
+
+unit fpg_main;
{$mode objfpc}{$H+}
@@ -9,14 +26,14 @@ interface
uses
Classes,
SysUtils,
- gfxbase
+ fpg_base
// This is the only place we have such IFDEF!!! Is this ok, or must we
// implement it like we have done for the previous version of fpGFX?
{$IFDEF MSWINDOWS}
- ,gfx_gdi
+ ,fpg_gdi
{$ENDIF}
{$IFDEF UNIX}
- ,gfx_x11
+ ,fpg_x11
{$ENDIF}
;
@@ -362,13 +379,13 @@ implementation
uses
strutils,
math,
- gfx_imgfmt_bmp,
- gfx_stdimages,
- gfx_extinterpolation, // only so that it get auto compiled
- gfx_translations,
- gfx_constants,
- gfx_UTF8utils,
- gfx_widget,
+ fpg_imgfmt_bmp,
+ fpg_stdimages,
+ fpg_extinterpolation, // only so that it get auto compiled
+ fpg_translations,
+ fpg_constants,
+ fpg_stringutils,
+ fpg_widget,
gui_dialogs,
gui_hint;
@@ -394,7 +411,7 @@ begin
FontDesc := AFontDesc;
end;
-{$include gfx_msgqueue.inc}
+{$include fpg_msgqueue.inc}
// Timer support
diff --git a/src/corelib/gfx_msgqueue.inc b/src/corelib/fpg_msgqueue.inc
index 20fed3ff..aed7f62b 100644
--- a/src/corelib/gfx_msgqueue.inc
+++ b/src/corelib/fpg_msgqueue.inc
@@ -1,6 +1,6 @@
-{%mainunit fpgfx.pas}
+{%mainunit fpg_main.pas}
-// fpGFX internal message queue implementation
+// fpGUI internal message queue implementation
type
// a simlpe linked list implementation
diff --git a/src/corelib/gfx_pofiles.pas b/src/corelib/fpg_pofiles.pas
index 4a50213a..806e1dc7 100644
--- a/src/corelib/gfx_pofiles.pas
+++ b/src/corelib/fpg_pofiles.pas
@@ -1,7 +1,19 @@
{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ Methods and classes for loading translations/localizations from po files.
- Abstract:
- Methods and classes for loading translations/localizations from po files.
Example 1: Load a specific .po file:
@@ -30,7 +42,8 @@
MessageDlg('Title','Text',mtInformation,[mbOk,mbCancel,mbYes],0);
end;
}
-unit gfx_pofiles;
+
+unit fpg_pofiles;
{$mode objfpc}{$H+}{$INLINE ON}
@@ -42,7 +55,7 @@ uses
Classes,
SysUtils,
Contnrs,
- gfx_stringhashlist;
+ fpg_stringhashlist;
type
TPOFileItem = class(TObject)
@@ -90,10 +103,12 @@ procedure DebugLn(const s1, s2: string);
procedure DebugLn(const s1, s2, s3: string);
procedure DebugLn(const s1, s2, s3, s4: string);
+
implementation
uses
- gfx_UTF8utils;
+ fpg_stringutils;
+
procedure DebugLn(const s1: string);
begin
diff --git a/src/corelib/gfx_popupwindow.pas b/src/corelib/fpg_popupwindow.pas
index 8fb37b2c..ee891f68 100644
--- a/src/corelib/gfx_popupwindow.pas
+++ b/src/corelib/fpg_popupwindow.pas
@@ -16,7 +16,7 @@
ComboBox and Calendar controls.
}
-unit gfx_popupwindow;
+unit fpg_popupwindow;
{$mode objfpc}{$H+}
@@ -27,10 +27,10 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
- gfx_impl;
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ fpg_impl;
type
diff --git a/src/corelib/gfx_stdimages.pas b/src/corelib/fpg_stdimages.pas
index 8db025e7..07b5f338 100644
--- a/src/corelib/gfx_stdimages.pas
+++ b/src/corelib/fpg_stdimages.pas
@@ -1,15 +1,29 @@
{
- Standard fpGUI images that will be used in things like Message,
- FileOpen, FileSave dialogs, Buttons, etc..
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ Standard fpGUI images that will be used in things like Message,
+ FileOpen, FileSave dialogs, Buttons, etc..
}
-unit gfx_stdimages;
+
+unit fpg_stdimages;
{$mode objfpc}{$H+}
interface
uses
- fpgfx;
+ fpg_main;
procedure fpgCreateStandardImages;
diff --git a/src/corelib/gfx_stringhashlist.pas b/src/corelib/fpg_stringhashlist.pas
index 1fb9521d..15bd36fd 100644
--- a/src/corelib/gfx_stringhashlist.pas
+++ b/src/corelib/fpg_stringhashlist.pas
@@ -1,32 +1,33 @@
{
- *****************************************************************************
- * *
- * 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. *
- * *
- *****************************************************************************
-
- Thanks to Markus Waldenburg.
-
- Ported this unit to fpGUI by Graeme Geldenhuys.
- TStringHashList is supposed to be faster than FPC's TFPObjectHashTable. This
- unit is used in gfx_pofile unit.
+ fpGUI - Free Pascal GUI Library
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ This file was originally part of the Lazarus Component Library (LCL).
+ Thanks to Markus Waldenburg.
+
+ Ported this unit to fpGUI by Graeme Geldenhuys.
+ TStringHashList is supposed to be faster than FPC's TFPObjectHashTable.
+ This unit is used in fpg_pofile unit.
}
-unit gfx_stringhashlist;
+
+unit fpg_stringhashlist;
{$mode objfpc}{$H+}
interface
uses
- Classes, SysUtils, gfx_constants;
+ Classes, SysUtils, fpg_constants;
type
PStringHashItem = ^TStringHashItem;
diff --git a/src/corelib/gfx_strings.pas b/src/corelib/fpg_strings.pas
index 68f25f0a..180910d7 100644
--- a/src/corelib/gfx_strings.pas
+++ b/src/corelib/fpg_strings.pas
@@ -1,9 +1,7 @@
{
fpGUI - Free Pascal GUI Library
- Unit to handle WideString (UTF-16) strings.
-
- Copyright (C) 2007 See the file AUTHORS.txt, included in this
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
distribution, for details of the copyright.
See the file COPYING.modifiedLGPL, included in this distribution,
@@ -12,6 +10,9 @@
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.
+
+ Description:
+ Unit to handle WideString (UTF-16) strings.
}
@@ -21,7 +22,7 @@
// Graeme: I'm experimenting with something again.
-unit gfx_strings;
+unit fpg_strings;
{$mode objfpc}{$H+}
diff --git a/src/corelib/gfx_utf8utils.pas b/src/corelib/fpg_stringutils.pas
index af3fd73a..d7a0ca77 100644
--- a/src/corelib/gfx_utf8utils.pas
+++ b/src/corelib/fpg_stringutils.pas
@@ -1,8 +1,22 @@
{
- Some handly UTF8 functions copied from the Lazarus LCL. Comes from the
- LCLProc unit. Surely we can move this into FPC?
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ Some handly UTF8 functions copied from the Lazarus LCL. Comes from the
+ LCLProc unit. Surely we can move this into FPC?
}
-unit gfx_UTF8utils;
+
+unit fpg_stringutils;
{$mode objfpc}{$H+}
diff --git a/src/corelib/gfx_translations.pas b/src/corelib/fpg_translations.pas
index 251427e8..b4be413f 100644
--- a/src/corelib/gfx_translations.pas
+++ b/src/corelib/fpg_translations.pas
@@ -1,8 +1,21 @@
{
- Methods and classes for loading the translations/localizations.
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ Methods and classes for loading the translations/localizations.
}
-unit gfx_translations;
+unit fpg_translations;
{$mode objfpc}{$H+}
@@ -50,8 +63,8 @@ implementation
uses
GetText
- ,gfx_pofiles
- ,gfx_utils
+ ,fpg_pofiles
+ ,fpg_utils
;
diff --git a/src/corelib/gfx_utils.pas b/src/corelib/fpg_utils.pas
index 04d2aa31..2edd1eab 100644
--- a/src/corelib/gfx_utils.pas
+++ b/src/corelib/fpg_utils.pas
@@ -1,11 +1,28 @@
-unit gfx_utils;
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ Abstracted OS specific function to work in a cross-platfrom manner.
+}
+
+unit fpg_utils;
{$mode objfpc}{$H+}
interface
uses
- Classes, SysUtils, gfxbase;
+ Classes, SysUtils, fpg_base;
// *** Platform specific functions ***
@@ -37,7 +54,7 @@ implementation
// Platform specific encoding handling functions
-{$I gfx_utils_impl.inc}
+{$I fpg_utils_impl.inc}
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/fpg_widget.pas
index d821e6e2..e471dd9d 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/fpg_widget.pas
@@ -1,4 +1,21 @@
-unit gfx_widget;
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ The base widget, which all GUI widgets inherit from.
+}
+
+unit fpg_widget;
{$mode objfpc}{$H+}
@@ -9,15 +26,13 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfxbase;
+ fpg_main,
+ fpg_base;
type
TFocusSearchDirection = (fsdFirst, fsdLast, fsdNext, fsdPrev);
- { TfpgWidget }
-
TfpgWidget = class(TfpgWindow)
private
FAlignRect: TfpgRect;
@@ -152,7 +167,7 @@ function FindKeyboardFocus: TfpgWidget;
implementation
uses
- math, gfx_constants, gui_hint;
+ math, fpg_constants, gui_hint;
var
diff --git a/src/corelib/gfx_wuline.pas b/src/corelib/fpg_wuline.pas
index e2472a2e..1f159d08 100644
--- a/src/corelib/gfx_wuline.pas
+++ b/src/corelib/fpg_wuline.pas
@@ -19,14 +19,14 @@
Here is an implementation in C++
http://www.codeproject.com/gdi/antialias.asp
}
-unit gfx_wuline;
+unit fpg_wuline;
{$mode objfpc}{$H+}
interface
uses
- Classes, SysUtils, gfxbase, fpgfx;
+ Classes, SysUtils, fpg_base, fpg_main;
procedure WuLine(ACanvas: TfpgCanvas; Point1, Point2: TPoint; AColor: TfpgColor);
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index 5ffc09fd..c3b66751 100644
--- a/src/corelib/gdi/gfx_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -15,7 +15,7 @@
This defines the CoreLib backend interface to the Windows GDI API.
}
-unit gfx_gdi;
+unit fpg_gdi;
{$mode objfpc}{$H+}
@@ -27,8 +27,8 @@ uses
Windows,
Classes,
SysUtils,
- gfxbase,
- gfx_impl;
+ fpg_base,
+ fpg_impl;
{ Constants missing on windows unit }
const
@@ -237,12 +237,13 @@ type
implementation
uses
- fpgfx,
- gfx_widget,
- gui_form, // how can we remove this dependency?
- gfx_UTF8Utils,
- math,
- gfx_popupwindow;
+ fpg_main,
+ fpg_widget,
+ fpg_popupwindow,
+ fpg_stringutils,
+ gui_form,
+ math;
+
var
wapplication: TfpgApplication;
@@ -251,7 +252,7 @@ var
// some required keyboard functions
-{$INCLUDE gdikeys.inc}
+{$INCLUDE fpg_keys_gdi.inc}
function fpgColorToWin(col: TfpgColor): longword;
var
diff --git a/src/corelib/gdi/gdikeys.inc b/src/corelib/gdi/fpg_keys_gdi.inc
index be892483..e7d79f25 100644
--- a/src/corelib/gdi/gdikeys.inc
+++ b/src/corelib/gdi/fpg_keys_gdi.inc
@@ -1,18 +1,21 @@
{
- fpGFX - Free Pascal Graphics Library
+ fpGUI - Free Pascal GUI Library
- Win32 GDI target implementation: Keycode translation helpers
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
- See the file COPYING.modifiedLGPL, included in this distribution,
- for details about the copyright.
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
- 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.
+ 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.
- **********************************************************************}
+ Description:
+ Win32 GDI target implementation: Keycode translation helpers
+}
-{%mainunit gfx_gdi.pas}
+{%mainunit fpg_gdi.pas}
function VirtKeyToKeycode(VirtKey: Byte): Word;
const
diff --git a/src/corelib/gdi/gfx_utils_impl.inc b/src/corelib/gdi/fpg_utils_impl.inc
index 3862dc23..5d72ca88 100644
--- a/src/corelib/gdi/gfx_utils_impl.inc
+++ b/src/corelib/gdi/fpg_utils_impl.inc
@@ -1,7 +1,8 @@
-{%mainunit gfx_utils.pas}
+{%mainunit fpg_utils.pas}
uses
- Registry, Shellapi;
+ Registry,
+ Shellapi;
// GDI specific implementations of encoding functions
diff --git a/src/corelib/gdi/fpgui_toolkit.lpk b/src/corelib/gdi/fpgui_toolkit.lpk
index 4158ab1b..ab4189f9 100644
--- a/src/corelib/gdi/fpgui_toolkit.lpk
+++ b/src/corelib/gdi/fpgui_toolkit.lpk
@@ -36,76 +36,76 @@
<Type Value="Include"/>
</Item1>
<Item2>
- <Filename Value="..\fpgfx.pas"/>
- <UnitName Value="fpgfx"/>
+ <Filename Value="..\fpg_base.pas"/>
+ <UnitName Value="fpg_base"/>
</Item2>
<Item3>
- <Filename Value="..\gfxbase.pas"/>
- <UnitName Value="gfxbase"/>
+ <Filename Value="..\fpg_main.pas"/>
+ <UnitName Value="fpg_main"/>
</Item3>
<Item4>
- <Filename Value="..\gfx_cmdlineparams.pas"/>
- <UnitName Value="gfx_cmdlineparams"/>
+ <Filename Value="..\fpg_cmdlineparams.pas"/>
+ <UnitName Value="fpg_cmdlineparams"/>
</Item4>
<Item5>
- <Filename Value="..\gfx_command_intf.pas"/>
- <UnitName Value="gfx_command_intf"/>
+ <Filename Value="..\fpg_command_intf.pas"/>
+ <UnitName Value="fpg_command_intf"/>
</Item5>
<Item6>
- <Filename Value="..\gfx_constants.pas"/>
- <UnitName Value="gfx_constants"/>
+ <Filename Value="..\fpg_constants.pas"/>
+ <UnitName Value="fpg_constants"/>
</Item6>
<Item7>
- <Filename Value="..\gfx_extinterpolation.pas"/>
- <UnitName Value="gfx_extinterpolation"/>
+ <Filename Value="..\fpg_extinterpolation.pas"/>
+ <UnitName Value="fpg_extinterpolation"/>
</Item7>
<Item8>
- <Filename Value="..\gfx_imagelist.pas"/>
- <UnitName Value="gfx_imagelist"/>
+ <Filename Value="..\fpg_imagelist.pas"/>
+ <UnitName Value="fpg_imagelist"/>
</Item8>
<Item9>
- <Filename Value="..\gfx_imgfmt_bmp.pas"/>
- <UnitName Value="gfx_imgfmt_bmp"/>
+ <Filename Value="..\fpg_imgfmt_bmp.pas"/>
+ <UnitName Value="fpg_imgfmt_bmp"/>
</Item9>
<Item10>
- <Filename Value="..\gfx_msgqueue.inc"/>
+ <Filename Value="..\fpg_msgqueue.inc"/>
<Type Value="Include"/>
</Item10>
<Item11>
- <Filename Value="..\gfx_pofiles.pas"/>
- <UnitName Value="gfx_pofiles"/>
+ <Filename Value="..\fpg_pofiles.pas"/>
+ <UnitName Value="fpg_pofiles"/>
</Item11>
<Item12>
- <Filename Value="..\gfx_popupwindow.pas"/>
- <UnitName Value="gfx_popupwindow"/>
+ <Filename Value="..\fpg_popupwindow.pas"/>
+ <UnitName Value="fpg_popupwindow"/>
</Item12>
<Item13>
- <Filename Value="..\gfx_stdimages.pas"/>
- <UnitName Value="gfx_stdimages"/>
+ <Filename Value="..\fpg_stdimages.pas"/>
+ <UnitName Value="fpg_stdimages"/>
</Item13>
<Item14>
- <Filename Value="..\gfx_stringhashlist.pas"/>
- <UnitName Value="gfx_stringhashlist"/>
+ <Filename Value="..\fpg_stringhashlist.pas"/>
+ <UnitName Value="fpg_stringhashlist"/>
</Item14>
<Item15>
- <Filename Value="..\gfx_translations.pas"/>
- <UnitName Value="gfx_translations"/>
+ <Filename Value="..\fpg_translations.pas"/>
+ <UnitName Value="fpg_translations"/>
</Item15>
<Item16>
- <Filename Value="..\gfx_utf8utils.pas"/>
- <UnitName Value="gfx_UTF8utils"/>
+ <Filename Value="..\fpg_stringutils.pas"/>
+ <UnitName Value="fpg_stringutils"/>
</Item16>
<Item17>
- <Filename Value="..\gfx_utils.pas"/>
- <UnitName Value="gfx_utils"/>
+ <Filename Value="..\fpg_utils.pas"/>
+ <UnitName Value="fpg_utils"/>
</Item17>
<Item18>
- <Filename Value="..\gfx_widget.pas"/>
- <UnitName Value="gfx_widget"/>
+ <Filename Value="..\fpg_widget.pas"/>
+ <UnitName Value="fpg_widget"/>
</Item18>
<Item19>
- <Filename Value="..\gfx_wuline.pas"/>
- <UnitName Value="gfx_wuline"/>
+ <Filename Value="..\fpg_wuline.pas"/>
+ <UnitName Value="fpg_wuline"/>
</Item19>
<Item20>
<Filename Value="..\keys.inc"/>
@@ -288,19 +288,19 @@
<UnitName Value="fpgui_db"/>
</Item64>
<Item65>
- <Filename Value="gfx_utils_impl.inc"/>
+ <Filename Value="fpg_utils_impl.inc"/>
<Type Value="Include"/>
</Item65>
<Item66>
- <Filename Value="gfx_gdi.pas"/>
- <UnitName Value="gfx_gdi"/>
+ <Filename Value="fpg_gdi.pas"/>
+ <UnitName Value="fpg_gdi"/>
</Item66>
<Item67>
- <Filename Value="gfx_impl.pas"/>
- <UnitName Value="gfx_impl"/>
+ <Filename Value="fpg_impl.pas"/>
+ <UnitName Value="fpg_impl"/>
</Item67>
<Item68>
- <Filename Value="gdikeys.inc"/>
+ <Filename Value="fpg_keys_gdi.inc"/>
<Type Value="Include"/>
</Item68>
<Item69>
diff --git a/src/corelib/gdi/fpgui_toolkit.pas b/src/corelib/gdi/fpgui_toolkit.pas
index 93dd9265..bce70477 100644
--- a/src/corelib/gdi/fpgui_toolkit.pas
+++ b/src/corelib/gdi/fpgui_toolkit.pas
@@ -7,16 +7,16 @@ unit fpgui_toolkit;
interface
uses
- fpgfx, gfxbase, gfx_cmdlineparams, gfx_command_intf, gfx_constants,
- gfx_extinterpolation, gfx_imagelist, gfx_imgfmt_bmp, gfx_pofiles,
- gfx_popupwindow, gfx_stdimages, gfx_stringhashlist, gfx_translations,
- gfx_UTF8utils, gfx_utils, gfx_widget, gfx_wuline, gui_animation,
+ fpg_base, fpg_main, fpg_cmdlineparams, fpg_command_intf, fpg_constants,
+ fpg_extinterpolation, fpg_imagelist, fpg_imgfmt_bmp, fpg_pofiles,
+ fpg_popupwindow, fpg_stdimages, fpg_stringhashlist, fpg_translations,
+ fpg_stringutils, fpg_utils, fpg_widget, fpg_wuline, gui_animation,
gui_basegrid, gui_bevel, gui_button, gui_checkbox, gui_combobox,
gui_customgrid, gui_dialogs, gui_editcombo, gui_edit, gui_form, gui_gauge,
gui_grid, gui_hyperlink, gui_iniutils, gui_label, gui_listbox,
gui_listview, gui_memo, gui_menu, gui_mru, gui_panel, gui_popupcalendar,
gui_progressbar, gui_radiobutton, gui_scrollbar, gui_style, gui_tab,
- gui_trackbar, gui_tree, fpgui_db, gfx_gdi, gfx_impl, gui_splitter,
+ gui_trackbar, gui_tree, fpgui_db, fpg_gdi, fpg_impl, gui_splitter,
gui_hint;
implementation
diff --git a/src/corelib/x11/fpg_impl.pas b/src/corelib/x11/fpg_impl.pas
new file mode 100644
index 00000000..81b8012c
--- /dev/null
+++ b/src/corelib/x11/fpg_impl.pas
@@ -0,0 +1,36 @@
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ This translates platform specific classes to platform independant
+ classes.
+}
+
+unit fpg_impl;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ x;
+
+type
+ TfpgWinHandle = TXID;
+ TfpgDCHandle = TXID;
+
+
+implementation
+
+end.
+
diff --git a/src/corelib/x11/x11_keyconv.pas b/src/corelib/x11/fpg_keyconv_x11.pas
index fe25b7a4..80c53417 100644
--- a/src/corelib/x11/x11_keyconv.pas
+++ b/src/corelib/x11/fpg_keyconv_x11.pas
@@ -1,4 +1,22 @@
-unit x11_keyconv;
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ This was keycode lookup tables used when fpGUI used WideStrings.
+ This unit is not used anymore.
+}
+
+unit fpg_keyconv_x11;
{$mode objfpc}{$H+}
diff --git a/src/corelib/x11/_netlayer.pas b/src/corelib/x11/fpg_netlayer_x11.pas
index ab07c10a..b6d0dd70 100644
--- a/src/corelib/x11/_netlayer.pas
+++ b/src/corelib/x11/fpg_netlayer_x11.pas
@@ -1,4 +1,21 @@
-unit _netlayer;
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ Xlib netlayer support
+}
+
+unit fpg_netlayer_x11;
{$mode objfpc}{$H+}
diff --git a/src/corelib/x11/gfx_utils_impl.inc b/src/corelib/x11/fpg_utils_impl.inc
index 499de82d..2099addb 100644
--- a/src/corelib/x11/gfx_utils_impl.inc
+++ b/src/corelib/x11/fpg_utils_impl.inc
@@ -1,4 +1,4 @@
-{%mainunit gfx_utils.pas}
+{%mainunit fpg_utils.pas}
uses
Unix;
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/fpg_x11.pas
index a5fc8e9e..66fa7a62 100644
--- a/src/corelib/x11/gfx_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -1,4 +1,21 @@
-unit gfx_x11;
+{
+ fpGUI - Free Pascal GUI Library
+
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ 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.
+
+ Description:
+ This unit implements X11 / Xlib support for fpGUI.
+}
+
+unit fpg_x11;
{$mode objfpc}{$H+}
@@ -13,10 +30,10 @@ uses
Xlib,
XUtil,
ctypes,
- x11_xft,
- _netlayer,
- gfxbase,
- gfx_impl;
+ fpg_xft_x11,
+ fpg_netlayer_x11,
+ fpg_base,
+ fpg_impl;
const
IconBitmapWidth = 16;
@@ -282,13 +299,13 @@ uses
baseunix,
// Graeme: temporary. libc is not available for FreeBSD.
{$if defined(linux) and defined(cpu386)}libc,{$endif}
- fpgfx,
- gfx_widget,
- gui_form,
+ fpg_main,
+ fpg_widget,
+ fpg_popupwindow,
+ fpg_stringutils, // used for GetTextWidth
+ gui_form, // for modal event support
cursorfont,
- gfx_popupwindow,
- xatom, // used for XA_WM_NAME
- gfx_utf8utils; // used for GetTextWidth
+ xatom; // used for XA_WM_NAME
var
xapplication: TfpgApplication;
diff --git a/src/corelib/x11/x11_xft.pas b/src/corelib/x11/fpg_xft_x11.pas
index 805797cd..f517ecf9 100644
--- a/src/corelib/x11/x11_xft.pas
+++ b/src/corelib/x11/fpg_xft_x11.pas
@@ -1,24 +1,23 @@
{
- fpGFX - Free Pascal Graphics Library
- Copyright (C) 2006-2007 by Graeme Geldenhuys
- member of the fpGFX development team.
+ fpGUI - Free Pascal GUI Library
- Xft interface functions
+ Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
- See the file COPYING.fpGFX, included in this distribution,
- for details about the copyright.
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
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.
- **********************************************************************}
+ Description:
+ Xft interface functions
+}
-
-unit x11_xft;
+unit fpg_xft_x11;
{$mode objfpc}{$H+}
-
{$linklib Xft}
interface
diff --git a/src/corelib/x11/fpgui_toolkit.lpk b/src/corelib/x11/fpgui_toolkit.lpk
index ddbd27b9..e3a6b911 100644
--- a/src/corelib/x11/fpgui_toolkit.lpk
+++ b/src/corelib/x11/fpgui_toolkit.lpk
@@ -29,82 +29,82 @@
<License Value="Modified LGPL
"/>
<Version Minor="6" Release="2"/>
- <Files Count="72">
+ <Files Count="71">
<Item1>
<Filename Value="../stdimages.inc"/>
<Type Value="Include"/>
</Item1>
<Item2>
- <Filename Value="../fpgfx.pas"/>
- <UnitName Value="fpgfx"/>
+ <Filename Value="../fpg_base.pas"/>
+ <UnitName Value="fpg_base"/>
</Item2>
<Item3>
- <Filename Value="../gfxbase.pas"/>
- <UnitName Value="gfxbase"/>
+ <Filename Value="../fpg_main.pas"/>
+ <UnitName Value="fpg_main"/>
</Item3>
<Item4>
- <Filename Value="../gfx_cmdlineparams.pas"/>
- <UnitName Value="gfx_cmdlineparams"/>
+ <Filename Value="../fpg_cmdlineparams.pas"/>
+ <UnitName Value="fpg_cmdlineparams"/>
</Item4>
<Item5>
- <Filename Value="../gfx_command_intf.pas"/>
- <UnitName Value="gfx_command_intf"/>
+ <Filename Value="../fpg_command_intf.pas"/>
+ <UnitName Value="fpg_command_intf"/>
</Item5>
<Item6>
- <Filename Value="../gfx_constants.pas"/>
- <UnitName Value="gfx_constants"/>
+ <Filename Value="../fpg_constants.pas"/>
+ <UnitName Value="fpg_constants"/>
</Item6>
<Item7>
- <Filename Value="../gfx_extinterpolation.pas"/>
- <UnitName Value="gfx_extinterpolation"/>
+ <Filename Value="../fpg_extinterpolation.pas"/>
+ <UnitName Value="fpg_extinterpolation"/>
</Item7>
<Item8>
- <Filename Value="../gfx_imagelist.pas"/>
- <UnitName Value="gfx_imagelist"/>
+ <Filename Value="../fpg_imagelist.pas"/>
+ <UnitName Value="fpg_imagelist"/>
</Item8>
<Item9>
- <Filename Value="../gfx_imgfmt_bmp.pas"/>
- <UnitName Value="gfx_imgfmt_bmp"/>
+ <Filename Value="../fpg_imgfmt_bmp.pas"/>
+ <UnitName Value="fpg_imgfmt_bmp"/>
</Item9>
<Item10>
- <Filename Value="../gfx_msgqueue.inc"/>
+ <Filename Value="../fpg_msgqueue.inc"/>
<Type Value="Include"/>
</Item10>
<Item11>
- <Filename Value="../gfx_pofiles.pas"/>
- <UnitName Value="gfx_pofiles"/>
+ <Filename Value="../fpg_pofiles.pas"/>
+ <UnitName Value="fpg_pofiles"/>
</Item11>
<Item12>
- <Filename Value="../gfx_popupwindow.pas"/>
- <UnitName Value="gfx_popupwindow"/>
+ <Filename Value="../fpg_popupwindow.pas"/>
+ <UnitName Value="fpg_popupwindow"/>
</Item12>
<Item13>
- <Filename Value="../gfx_stdimages.pas"/>
- <UnitName Value="gfx_stdimages"/>
+ <Filename Value="../fpg_stdimages.pas"/>
+ <UnitName Value="fpg_stdimages"/>
</Item13>
<Item14>
- <Filename Value="../gfx_stringhashlist.pas"/>
- <UnitName Value="gfx_stringhashlist"/>
+ <Filename Value="../fpg_stringhashlist.pas"/>
+ <UnitName Value="fpg_stringhashlist"/>
</Item14>
<Item15>
- <Filename Value="../gfx_translations.pas"/>
- <UnitName Value="gfx_translations"/>
+ <Filename Value="../fpg_translations.pas"/>
+ <UnitName Value="fpg_translations"/>
</Item15>
<Item16>
- <Filename Value="../gfx_utf8utils.pas"/>
- <UnitName Value="gfx_UTF8utils"/>
+ <Filename Value="../fpg_stringutils.pas"/>
+ <UnitName Value="fpg_stringutils"/>
</Item16>
<Item17>
- <Filename Value="../gfx_utils.pas"/>
- <UnitName Value="gfx_utils"/>
+ <Filename Value="../fpg_utils.pas"/>
+ <UnitName Value="fpg_utils"/>
</Item17>
<Item18>
- <Filename Value="../gfx_widget.pas"/>
- <UnitName Value="gfx_widget"/>
+ <Filename Value="../fpg_widget.pas"/>
+ <UnitName Value="fpg_widget"/>
</Item18>
<Item19>
- <Filename Value="../gfx_wuline.pas"/>
- <UnitName Value="gfx_wuline"/>
+ <Filename Value="../fpg_wuline.pas"/>
+ <UnitName Value="fpg_wuline"/>
</Item19>
<Item20>
<Filename Value="../keys.inc"/>
@@ -147,28 +147,28 @@
<Type Value="Include"/>
</Item29>
<Item30>
- <Filename Value="gfx_impl.pas"/>
- <UnitName Value="gfx_impl"/>
+ <Filename Value="fpg_impl.pas"/>
+ <UnitName Value="fpg_impl"/>
</Item30>
<Item31>
- <Filename Value="gfx_utils_impl.inc"/>
+ <Filename Value="fpg_utils_impl.inc"/>
<Type Value="Include"/>
</Item31>
<Item32>
- <Filename Value="gfx_x11.pas"/>
- <UnitName Value="gfx_x11"/>
+ <Filename Value="fpg_x11.pas"/>
+ <UnitName Value="fpg_x11"/>
</Item32>
<Item33>
- <Filename Value="_netlayer.pas"/>
- <UnitName Value="_netlayer"/>
+ <Filename Value="fpg_netlayer_x11.pas"/>
+ <UnitName Value="fpg_netlayer_x11"/>
</Item33>
<Item34>
- <Filename Value="x11_keyconv.pas"/>
- <UnitName Value="x11_keyconv"/>
+ <Filename Value="fpg_keyconv_x11.pas"/>
+ <UnitName Value="fpg_keyconv_x11"/>
</Item34>
<Item35>
- <Filename Value="x11_xft.pas"/>
- <UnitName Value="x11_xft"/>
+ <Filename Value="fpg_xft_x11.pas"/>
+ <UnitName Value="fpg_xft_x11"/>
</Item35>
<Item36>
<Filename Value="../../gui/promptuserdialog.inc"/>
@@ -183,141 +183,137 @@
<UnitName Value="gui_basegrid"/>
</Item38>
<Item39>
- <Filename Value="../../gui/gui_bevel.pas"/>
- <UnitName Value="gui_bevel"/>
- </Item39>
- <Item40>
<Filename Value="../../gui/gui_button.pas"/>
<UnitName Value="gui_button"/>
- </Item40>
- <Item41>
+ </Item39>
+ <Item40>
<Filename Value="../../gui/gui_checkbox.pas"/>
<UnitName Value="gui_checkbox"/>
- </Item41>
- <Item42>
+ </Item40>
+ <Item41>
<Filename Value="../../gui/gui_combobox.pas"/>
<UnitName Value="gui_combobox"/>
- </Item42>
- <Item43>
+ </Item41>
+ <Item42>
<Filename Value="../../gui/gui_customgrid.pas"/>
<UnitName Value="gui_customgrid"/>
- </Item43>
- <Item44>
+ </Item42>
+ <Item43>
<Filename Value="../../gui/gui_dialogs.pas"/>
<UnitName Value="gui_dialogs"/>
- </Item44>
- <Item45>
+ </Item43>
+ <Item44>
<Filename Value="../../gui/gui_editcombo.pas"/>
<UnitName Value="gui_editcombo"/>
- </Item45>
- <Item46>
+ </Item44>
+ <Item45>
<Filename Value="../../gui/gui_edit.pas"/>
<UnitName Value="gui_edit"/>
- </Item46>
- <Item47>
+ </Item45>
+ <Item46>
<Filename Value="../../gui/gui_form.pas"/>
<UnitName Value="gui_form"/>
- </Item47>
- <Item48>
+ </Item46>
+ <Item47>
<Filename Value="../../gui/gui_gauge.pas"/>
<UnitName Value="gui_gauge"/>
- </Item48>
- <Item49>
+ </Item47>
+ <Item48>
<Filename Value="../../gui/gui_grid.pas"/>
<UnitName Value="gui_grid"/>
- </Item49>
- <Item50>
+ </Item48>
+ <Item49>
<Filename Value="../../gui/gui_hyperlink.pas"/>
<UnitName Value="gui_hyperlink"/>
- </Item50>
- <Item51>
+ </Item49>
+ <Item50>
<Filename Value="../../gui/gui_iniutils.pas"/>
<UnitName Value="gui_iniutils"/>
- </Item51>
- <Item52>
+ </Item50>
+ <Item51>
<Filename Value="../../gui/gui_label.pas"/>
<UnitName Value="gui_label"/>
- </Item52>
- <Item53>
+ </Item51>
+ <Item52>
<Filename Value="../../gui/gui_listbox.pas"/>
<UnitName Value="gui_listbox"/>
- </Item53>
- <Item54>
+ </Item52>
+ <Item53>
<Filename Value="../../gui/gui_listview.pas"/>
<UnitName Value="gui_listview"/>
- </Item54>
- <Item55>
+ </Item53>
+ <Item54>
<Filename Value="../../gui/gui_memo.pas"/>
<UnitName Value="gui_memo"/>
- </Item55>
- <Item56>
+ </Item54>
+ <Item55>
<Filename Value="../../gui/gui_menu.pas"/>
<UnitName Value="gui_menu"/>
- </Item56>
- <Item57>
+ </Item55>
+ <Item56>
<Filename Value="../../gui/gui_mru.pas"/>
<UnitName Value="gui_mru"/>
- </Item57>
- <Item58>
+ </Item56>
+ <Item57>
<Filename Value="../../gui/gui_panel.pas"/>
<UnitName Value="gui_panel"/>
- </Item58>
- <Item59>
+ </Item57>
+ <Item58>
<Filename Value="../../gui/gui_popupcalendar.pas"/>
<UnitName Value="gui_popupcalendar"/>
- </Item59>
- <Item60>
+ </Item58>
+ <Item59>
<Filename Value="../../gui/gui_progressbar.pas"/>
<UnitName Value="gui_progressbar"/>
- </Item60>
- <Item61>
+ </Item59>
+ <Item60>
<Filename Value="../../gui/gui_radiobutton.pas"/>
<UnitName Value="gui_radiobutton"/>
- </Item61>
- <Item62>
+ </Item60>
+ <Item61>
<Filename Value="../../gui/gui_scrollbar.pas"/>
<UnitName Value="gui_scrollbar"/>
- </Item62>
- <Item63>
+ </Item61>
+ <Item62>
<Filename Value="../../gui/gui_style.pas"/>
<UnitName Value="gui_style"/>
- </Item63>
- <Item64>
+ </Item62>
+ <Item63>
<Filename Value="../../gui/gui_tab.pas"/>
<UnitName Value="gui_tab"/>
- </Item64>
- <Item65>
+ </Item63>
+ <Item64>
<Filename Value="../../gui/gui_trackbar.pas"/>
<UnitName Value="gui_trackbar"/>
- </Item65>
- <Item66>
+ </Item64>
+ <Item65>
<Filename Value="../../gui/gui_tree.pas"/>
<UnitName Value="gui_tree"/>
+ </Item65>
+ <Item66>
+ <Filename Value="../../gui/logo.inc"/>
+ <Type Value="Include"/>
</Item66>
<Item67>
- <Filename Value="../../gui/logo.inc"/>
+ <Filename Value="../../gui/messagedialog.inc"/>
<Type Value="Include"/>
</Item67>
<Item68>
- <Filename Value="../../gui/messagedialog.inc"/>
+ <Filename Value="../../gui/newdirdialog.inc"/>
<Type Value="Include"/>
</Item68>
<Item69>
- <Filename Value="../../gui/newdirdialog.inc"/>
- <Type Value="Include"/>
- </Item69>
- <Item70>
<Filename Value="../../gui/db/fpgui_db.pas"/>
<UnitName Value="fpgui_db"/>
- </Item70>
- <Item71>
+ </Item69>
+ <Item70>
<Filename Value="../../gui/gui_splitter.pas"/>
<UnitName Value="gui_splitter"/>
- </Item71>
- <Item72>
+ </Item70>
+ <Item71>
<Filename Value="../../gui/gui_hint.pas"/>
<UnitName Value="gui_hint"/>
- </Item72>
+ </Item71>
</Files>
<LazDoc Paths="../../../docs/xml/corelib/;../../../docs/xml/corelib/x11/;../../../docs/xml/corelib/gdi/;../../../docs/xml/gui/"/>
<RequiredPkgs Count="1">
diff --git a/src/corelib/x11/fpgui_toolkit.pas b/src/corelib/x11/fpgui_toolkit.pas
index 89d04a35..504536a2 100644
--- a/src/corelib/x11/fpgui_toolkit.pas
+++ b/src/corelib/x11/fpgui_toolkit.pas
@@ -1,5 +1,5 @@
-{ This file was automatically created by Lazarus. Do not edit!
-This source is only used to compile and install the package.
+{ This file was automatically created by Lazarus. do not edit!
+ This source is only used to compile and install the package.
}
unit fpgui_toolkit;
@@ -7,17 +7,17 @@ unit fpgui_toolkit;
interface
uses
- fpgfx, gfxbase, gfx_cmdlineparams, gfx_command_intf, gfx_constants,
- gfx_extinterpolation, gfx_imagelist, gfx_imgfmt_bmp, gfx_pofiles,
- gfx_popupwindow, gfx_stdimages, gfx_stringhashlist, gfx_translations,
- gfx_UTF8utils, gfx_utils, gfx_widget, gfx_wuline, gfx_impl, gfx_x11,
- _netlayer, x11_keyconv, x11_xft, gui_animation, gui_basegrid, gui_bevel,
- gui_button, gui_checkbox, gui_combobox, gui_customgrid, gui_dialogs,
- gui_editcombo, gui_edit, gui_form, gui_gauge, gui_grid, gui_hyperlink,
- gui_iniutils, gui_label, gui_listbox, gui_listview, gui_memo, gui_menu,
- gui_mru, gui_panel, gui_popupcalendar, gui_progressbar, gui_radiobutton,
- gui_scrollbar, gui_style, gui_tab, gui_trackbar, gui_tree, fpgui_db,
- gui_splitter, gui_hint;
+ fpg_base, fpg_main, fpg_cmdlineparams, fpg_command_intf, fpg_constants,
+ fpg_extinterpolation, fpg_imagelist, fpg_imgfmt_bmp, fpg_pofiles,
+ fpg_popupwindow, fpg_stdimages, fpg_stringhashlist, fpg_translations,
+ fpg_stringutils, fpg_utils, fpg_widget, fpg_wuline, fpg_impl, fpg_x11,
+ fpg_netlayer_x11, fpg_keyconv_x11, fpg_xft_x11, gui_animation, gui_basegrid,
+ gui_button, gui_checkbox, gui_combobox, gui_customgrid, gui_dialogs,
+ gui_editcombo, gui_edit, gui_form, gui_gauge, gui_grid, gui_hyperlink,
+ gui_iniutils, gui_label, gui_listbox, gui_listview, gui_memo, gui_menu,
+ gui_mru, gui_panel, gui_popupcalendar, gui_progressbar, gui_radiobutton,
+ gui_scrollbar, gui_style, gui_tab, gui_trackbar, gui_tree, fpgui_db,
+ gui_splitter, gui_hint;
implementation
diff --git a/src/corelib/x11/gfx_impl.pas b/src/corelib/x11/gfx_impl.pas
deleted file mode 100644
index 897e0cbf..00000000
--- a/src/corelib/x11/gfx_impl.pas
+++ /dev/null
@@ -1,18 +0,0 @@
-unit gfx_impl;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
- x;
-
-type
- TfpgWinHandle = TXID;
- TfpgDCHandle = TXID;
-
-
-implementation
-
-end.
-
diff --git a/src/gui/db/fpgui_db.pas b/src/gui/db/fpgui_db.pas
index ec91e8e3..dd2381de 100644
--- a/src/gui/db/fpgui_db.pas
+++ b/src/gui/db/fpgui_db.pas
@@ -28,7 +28,7 @@ interface
uses
Classes,
db,
- gfx_widget,
+ fpg_widget,
gui_label{, gui_edit};
type
diff --git a/src/gui/gui_animation.pas b/src/gui/gui_animation.pas
index bd15ebdd..5ad6042d 100644
--- a/src/gui/gui_animation.pas
+++ b/src/gui/gui_animation.pas
@@ -25,9 +25,9 @@ interface
uses
Classes,
- gfx_widget,
- gfxbase,
- fpgfx;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
@@ -77,8 +77,8 @@ implementation
uses
SysUtils,
- gfx_imgfmt_bmp,
- gfx_utils;
+ fpg_imgfmt_bmp,
+ fpg_utils;
{ TfpgBaseImgAnim }
diff --git a/src/gui/gui_basegrid.pas b/src/gui/gui_basegrid.pas
index aa9cc0b9..9916761a 100644
--- a/src/gui/gui_basegrid.pas
+++ b/src/gui/gui_basegrid.pas
@@ -27,9 +27,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
gui_scrollbar;
type
@@ -159,6 +159,7 @@ type
procedure MouseToCell(X, Y: Integer; var ACol, ARow: Integer);
end;
+
implementation
{ TfpgBaseGrid }
diff --git a/src/gui/gui_bevel.pas b/src/gui/gui_bevel.pas
deleted file mode 100644
index f62e18af..00000000
--- a/src/gui/gui_bevel.pas
+++ /dev/null
@@ -1,157 +0,0 @@
-{
- fpGUI - Free Pascal GUI Toolkit
-
- Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
- distribution, for details of the copyright.
-
- See the file COPYING.modifiedLGPL, included in this distribution,
- for details about redistributing fpGUI.
-
- 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.
-
- Description:
- Defines a Bevel control. Also known as a Panel or Frame control.
-}
-
-
-
-{ **********************************************************
-
- DO NOT USE! THIS UNIT IS DEPRECATED.
-
- Use gui_panel.pas instead.
-
- *********************************************************}
-
-unit gui_bevel;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
- Classes,
- SysUtils,
- fpgfx,
- gfxbase,
- gfx_widget;
-
-type
-
- TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine,
- bsRightLine, bsSpacer);
-
- TBevelStyle = (bsLowered, bsRaised);
-
-
- TfpgBevel = class(TfpgWidget)
- private
- FBevelShape: TBevelShape;
- FBevelStyle: TBevelStyle;
- procedure SetBevelShape(const AValue: TBevelShape);
- procedure SetBevelStyle(const AValue: TBevelStyle);
- protected
- procedure HandlePaint; override;
- public
- constructor Create(AOwner: TComponent); override;
- published
- property BackgroundColor;
- property Shape: TBevelShape read FBevelShape write SetBevelShape default bsBox;
- property Style: TBevelStyle read FBevelStyle write SetBevelStyle default bsRaised;
- property OnClick;
- property OnDoubleClick;
- end;
-
-{
-function CreateBevel(AOwner: TComponent; ALeft, ATop, AWidth, AHeight: TfpgCoord;
- AShape: TBevelShape; AStyle: TBevelStyle): TfpgBevel;
-}
-
-implementation
-
-{
-function CreateBevel(AOwner: TComponent; ALeft, ATop, AWidth,
- AHeight: TfpgCoord; AShape: TBevelShape; AStyle: TBevelStyle): TfpgBevel;
-begin
- Result := TfpgBevel.Create(AOwner);
- Result.Left := ALeft;
- Result.Top := ATop;
- Result.Width := AWidth;
- Result.Height := AHeight;
- Result.Shape := AShape;
- Result.Style := AStyle;
-end;
-}
-
-{ TfpgBevel }
-
-procedure TfpgBevel.SetBevelShape(const AValue: TBevelShape);
-begin
- if FBevelShape = AValue then
- Exit; //==>
- FBevelShape := AValue;
- Repaint;
-end;
-
-procedure TfpgBevel.SetBevelStyle(const AValue: TBevelStyle);
-begin
- if FBevelStyle = AValue then
- Exit; //==>
- FBevelStyle := AValue;
- Repaint;
-end;
-
-procedure TfpgBevel.HandlePaint;
-begin
- inherited HandlePaint;
- Canvas.Clear(BackgroundColor);
-
-// Canvas.SetLineStyle(2, lsSolid);
-// Canvas.SetColor(clWindowBackground);
-// Canvas.DrawRectangle(1, 1, Width - 1, Height - 1);
- Canvas.SetLineStyle(1, lsSolid);
-
- if Style = bsRaised then
- Canvas.SetColor(clHilite2)
- else
- Canvas.SetColor(clShadow2);
-
- if Shape in [bsBox, bsFrame, bsTopLine] then
- Canvas.DrawLine(0, 0, Width - 1, 0);
- if Shape in [bsBox, bsFrame, bsLeftLine] then
- Canvas.DrawLine(0, 1, 0, Height - 1);
- if Shape in [bsFrame, bsRightLine] then
- Canvas.DrawLine(Width - 2, 1, Width - 2, Height - 1);
- if Shape in [bsFrame, bsBottomLine] then
- Canvas.DrawLine(1, Height - 2, Width - 1, Height - 2);
-
- if Style = bsRaised then
- Canvas.SetColor(clShadow2)
- else
- Canvas.SetColor(clHilite2);
-
- if Shape in [bsFrame, bsTopLine] then
- Canvas.DrawLine(1, 1, Width - 2, 1);
- if Shape in [bsFrame, bsLeftLine] then
- Canvas.DrawLine(1, 2, 1, Height - 2);
- if Shape in [bsBox, bsFrame, bsRightLine] then
- Canvas.DrawLine(Width - 1, 0, Width - 1, Height - 1);
- if Shape in [bsBox, bsFrame, bsBottomLine] then
- Canvas.DrawLine(0, Height - 1, Width, Height - 1);
-end;
-
-constructor TfpgBevel.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- FBevelShape := bsBox;
- FBevelStyle := bsRaised;
- FWidth := 80;
- FHeight := 80;
- FFocusable := True; // otherwise children can't get focus
- FBackgroundColor := Parent.BackgroundColor;
-end;
-
-end.
-
diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas
index 6fa2c361..01a05145 100644
--- a/src/gui/gui_button.pas
+++ b/src/gui/gui_button.pas
@@ -24,10 +24,10 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
- gfx_command_intf;
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ fpg_command_intf;
type
@@ -404,55 +404,55 @@ procedure TfpgBaseButton.HandlePaint;
end;
end
else // if ImageLayout in [ilImageTop, ilImageBottom] then
- begin
+ begin
TextX := (Width - textWidth) div 2;
// center horizontaly
if FShowImage and assigned (FImage) then
- begin
+ begin
ImageX := (Width - FImage.Width) div 2;
// vertical places if image and text
if FImageMargin = -1 then
- begin // Free space between border and image is the same as between border and text
+ begin // Free space between border and image is the same as between border and text
if FImageSpacing = -1 then // free space between image/text = border/text = border/image
- begin
+ begin
w := (Height - FImage.Height - textHeight) div 3;
if w < 3 then // minimal margin from border for rectangle/focusrect/...
w := 3;
if FImageLayout = ilImageTop then
- begin
+ begin
ImageY := w;
TextY := Height - w - textHeight;
- end
+ end
else // if FImageLayout = ilImageBottom then
- begin
+ begin
ImageY := Height - w - FImage.Height;
TextY := w;
- end;
- end
+ end;
+ end
else // fixed space between image/text
- begin
+ begin
w := (Height - FImageSpacing - FImage.Height - textHeight) div 2;
if w < 3 then // minimal margin from border for rectangle/focusrect/...
w := 3;
if FImageLayout = ilImageTop then
- begin
+ begin
ImageY := w;
TextY := w + FImage.Height + FImageSpacing;
- end
+ end
else // if FImageLayout = ilImageRight then
- begin
+ begin
ImageY := Height - w - FImage.Height;
TextY := w;
- end;
end;
- end
+ end;
+ end
else // Fixed image
- begin
+ begin
if FImageLayout = ilImageTop then
- begin
+ begin
ImageY := FImageMargin + 3;
if FImageSpacing = -1 then
- begin
+ begin
w := (Height - FImage.Height - ImageY - textHeight) div 2;
if w < 0 then
w := 0;
@@ -460,33 +460,33 @@ procedure TfpgBaseButton.HandlePaint;
else
w := FImageSpacing;
TextY := ImageY + FImage.Height + w;
- end
+ end
else // if FImageLayout = ilImageRight then
- begin
+ begin
ImageY := Height - FImageMargin - 3 - FImage.Height;
if FImageSpacing = -1 then
- begin
+ begin
w := (Height - FImageMargin - FImage.Height - textHeight) div 2;
if w < 3 then
w := 3;
TextY := w;
- end
+ end
else
- begin
+ begin
textY := ImageY - textHeight - FImageSpacing;
if textY < 3 then
textY := 3;
- end;
- end;
+ end;
end;
- end
+ end;
+ end
else
- begin // no image,
+ begin // no image,
ImageY := 0;
ImageX := 0;
TextY := (Height - textHeight) div 2;
- end;
end;
+ end;
end;
diff --git a/src/gui/gui_checkbox.pas b/src/gui/gui_checkbox.pas
index 412f77d6..17146eb3 100644
--- a/src/gui/gui_checkbox.pas
+++ b/src/gui/gui_checkbox.pas
@@ -24,14 +24,12 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfxbase,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
- { TfpgCheckBox }
-
TfpgCheckBox = class(TfpgWidget)
private
FChecked: boolean;
diff --git a/src/gui/gui_combobox.pas b/src/gui/gui_combobox.pas
index 9bdd215a..7fc2ef18 100644
--- a/src/gui/gui_combobox.pas
+++ b/src/gui/gui_combobox.pas
@@ -50,10 +50,10 @@ interface
uses
Classes,
SysUtils,
- gfx_widget,
- gfxbase,
- fpgfx,
- gfx_popupwindow;
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ fpg_popupwindow;
type
// widget options
diff --git a/src/gui/gui_customgrid.pas b/src/gui/gui_customgrid.pas
index 7b5aa52f..f3f989dc 100644
--- a/src/gui/gui_customgrid.pas
+++ b/src/gui/gui_customgrid.pas
@@ -32,8 +32,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
+ fpg_base,
+ fpg_main,
gui_basegrid;
type
diff --git a/src/gui/gui_dialogs.pas b/src/gui/gui_dialogs.pas
index 8f6a6f24..0f1035fb 100644
--- a/src/gui/gui_dialogs.pas
+++ b/src/gui/gui_dialogs.pas
@@ -33,10 +33,10 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_imgfmt_bmp,
- gfx_constants,
+ fpg_base,
+ fpg_main,
+ fpg_imgfmt_bmp,
+ fpg_constants,
gui_form,
gui_button,
gui_label,
@@ -210,9 +210,9 @@ function SelectFileDialog(aDialogType: boolean = sfdOpen;
implementation
uses
- gfx_widget,
- gfx_utils,
- gfx_utf8utils
+ fpg_widget,
+ fpg_utils,
+ fpg_stringutils
{$IFDEF MSWINDOWS}
,Windows // used by File Dialog
{$ENDIF}
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas
index 178cf1e7..1ea1bf2c 100644
--- a/src/gui/gui_edit.pas
+++ b/src/gui/gui_edit.pas
@@ -24,9 +24,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
gui_menu;
type
@@ -296,8 +296,8 @@ function CreateEditCurrency(AOwner: TComponent; x, y, w, h: TfpgCoord;
implementation
uses
- gfx_UTF8utils,
- gfx_constants,
+ fpg_stringutils,
+ fpg_constants,
gui_hint;
const
diff --git a/src/gui/gui_editcombo.pas b/src/gui/gui_editcombo.pas
index 39c7dc6a..d8f182ef 100644
--- a/src/gui/gui_editcombo.pas
+++ b/src/gui/gui_editcombo.pas
@@ -54,10 +54,10 @@ interface
uses
Classes,
SysUtils,
- gfx_widget,
- gfxbase,
- fpgfx,
- gfx_popupwindow,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ fpg_popupwindow,
gui_combobox;
type
@@ -138,10 +138,10 @@ function CreateEditCombo(AOwner: TComponent; x, y, w: TfpgCoord; AList:TStringLi
implementation
uses
+ fpg_stringutils,
+ fpg_constants,
gui_listbox,
gui_dialogs,
- gfx_UTF8utils,
- gfx_constants,
math;
var
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index fc2bdfad..230cfd44 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -25,8 +25,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- gfx_widget;
+ fpg_base,
+ fpg_widget;
type
TWindowPosition = (wpUser, wpAuto, wpScreenCenter);
@@ -123,8 +123,8 @@ function WidgetParentForm(wg: TfpgWidget): TfpgForm;
implementation
uses
- fpgfx,
- gfx_popupwindow,
+ fpg_main,
+ fpg_popupwindow,
gui_menu;
type
diff --git a/src/gui/gui_gauge.pas b/src/gui/gui_gauge.pas
index 97da4eb9..68fb864f 100644
--- a/src/gui/gui_gauge.pas
+++ b/src/gui/gui_gauge.pas
@@ -24,9 +24,9 @@ interface
uses
Classes, SysUtils, math,
- fpgfx,
- gfxbase,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
@@ -107,7 +107,7 @@ function CreateGauge (AOwner: TComponent; ALeft, ATop, AWidth,
implementation
uses
- gfx_wuline;
+ fpg_wuline;
{ This procedure draws a filled arc with a color gradient -
to be moved in CanvasBase? }
diff --git a/src/gui/gui_grid.pas b/src/gui/gui_grid.pas
index 6d343f24..41b19402 100644
--- a/src/gui/gui_grid.pas
+++ b/src/gui/gui_grid.pas
@@ -33,8 +33,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
+ fpg_base,
+ fpg_main,
gui_basegrid,
gui_customgrid;
@@ -157,7 +157,7 @@ function CreateStringGrid(AOwner: TComponent; x, y, w, h: TfpgCoord; AColumnCoun
implementation
uses
- gfx_constants;
+ fpg_constants;
function CreateStringGrid(AOwner: TComponent; x, y, w, h: TfpgCoord; AColumnCount: integer = 0): TfpgStringGrid;
begin
diff --git a/src/gui/gui_hint.pas b/src/gui/gui_hint.pas
index 70fad4b5..58e0441f 100644
--- a/src/gui/gui_hint.pas
+++ b/src/gui/gui_hint.pas
@@ -26,8 +26,8 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfxbase,
+ fpg_base,
+ fpg_main,
gui_form,
gui_label;
diff --git a/src/gui/gui_hyperlink.pas b/src/gui/gui_hyperlink.pas
index a4310fb9..48efdf9e 100644
--- a/src/gui/gui_hyperlink.pas
+++ b/src/gui/gui_hyperlink.pas
@@ -26,9 +26,9 @@ interface
uses
Classes,
Sysutils,
- gui_label,
- fpgfx,
- gfxbase;
+ fpg_base,
+ fpg_main,
+ gui_label;
type
@@ -65,7 +65,7 @@ end;
implementation
uses
- gfx_utils;
+ fpg_utils;
{ TfpgHyperlink }
diff --git a/src/gui/gui_iniutils.pas b/src/gui/gui_iniutils.pas
index dd4087f1..b961cbb4 100644
--- a/src/gui/gui_iniutils.pas
+++ b/src/gui/gui_iniutils.pas
@@ -52,8 +52,8 @@ function gINI(const AFileName: string = ''): TfpgINIFile;
implementation
uses
- fpgfx
- ,gfx_constants;
+ fpg_main,
+ fpg_constants;
var
uINI: TfpgINIFile;
diff --git a/src/gui/gui_label.pas b/src/gui/gui_label.pas
index ed7ade85..c4c2d271 100644
--- a/src/gui/gui_label.pas
+++ b/src/gui/gui_label.pas
@@ -24,9 +24,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
diff --git a/src/gui/gui_listbox.pas b/src/gui/gui_listbox.pas
index 67803847..5dd626ff 100644
--- a/src/gui/gui_listbox.pas
+++ b/src/gui/gui_listbox.pas
@@ -34,11 +34,11 @@ interface
uses
Classes,
SysUtils,
- gfx_widget,
- gui_scrollbar,
- gfxbase,
- fpgfx;
-
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ gui_scrollbar;
+
type
// My thinking was that we could use this class as the base class for anything
diff --git a/src/gui/gui_listview.pas b/src/gui/gui_listview.pas
index 45e51fcc..948038fe 100644
--- a/src/gui/gui_listview.pas
+++ b/src/gui/gui_listview.pas
@@ -24,9 +24,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
gui_scrollbar;
type
@@ -268,7 +268,7 @@ type
implementation
uses
- gfx_constants;
+ fpg_constants;
type
diff --git a/src/gui/gui_memo.pas b/src/gui/gui_memo.pas
index 7774289b..b9780779 100644
--- a/src/gui/gui_memo.pas
+++ b/src/gui/gui_memo.pas
@@ -26,9 +26,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
gui_scrollbar,
gui_menu;
@@ -127,9 +127,8 @@ function CreateMemo(AOwner: TComponent; x, y, w, h: TfpgCoord): TfpgMemo;
implementation
uses
- gfx_UTF8utils;
-
-
+ fpg_stringutils;
+
type
// custom stringlist that will notify the memo of item changes
TfpgMemoStrings = class(TStringList)
diff --git a/src/gui/gui_menu.pas b/src/gui/gui_menu.pas
index f5c8aeeb..4c415345 100644
--- a/src/gui/gui_menu.pas
+++ b/src/gui/gui_menu.pas
@@ -33,12 +33,12 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
- gfx_popupwindow,
- gfx_UTF8utils,
- gfx_command_intf;
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ fpg_popupwindow,
+ fpg_stringutils,
+ fpg_command_intf;
type
TfpgHotKeyDef = string;
diff --git a/src/gui/gui_panel.pas b/src/gui/gui_panel.pas
index da9e1875..7b988a96 100644
--- a/src/gui/gui_panel.pas
+++ b/src/gui/gui_panel.pas
@@ -25,9 +25,9 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfxbase,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
diff --git a/src/gui/gui_popupcalendar.pas b/src/gui/gui_popupcalendar.pas
index 16c7a023..a31d2cf1 100644
--- a/src/gui/gui_popupcalendar.pas
+++ b/src/gui/gui_popupcalendar.pas
@@ -45,9 +45,17 @@ unit gui_popupcalendar;
interface
uses
- SysUtils, Classes, gfxbase, fpgfx, gui_edit,
- gfx_widget, gui_button, gui_combobox, gui_grid,
- gui_dialogs, gfx_popupwindow;
+ SysUtils,
+ Classes,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ fpg_popupwindow,
+ gui_edit,
+ gui_button,
+ gui_combobox,
+ gui_grid,
+ gui_dialogs;
type
@@ -155,9 +163,9 @@ type
implementation
uses
- gui_scrollbar
- ,gfx_constants
- ;
+ gui_scrollbar,
+ fpg_constants;
+
{@VFD_NEWFORM_IMPL}
diff --git a/src/gui/gui_progressbar.pas b/src/gui/gui_progressbar.pas
index a0c0491f..14619bee 100644
--- a/src/gui/gui_progressbar.pas
+++ b/src/gui/gui_progressbar.pas
@@ -24,9 +24,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
TfpgCustomProgressBar = class(TfpgWidget)
@@ -71,8 +71,10 @@ type
property TextColor;
end;
+
implementation
+
{ TfpgCustomProgressBar }
procedure TfpgCustomProgressBar.SetMax(const AValue: longint);
diff --git a/src/gui/gui_radiobutton.pas b/src/gui/gui_radiobutton.pas
index 33b76bd2..33322a26 100644
--- a/src/gui/gui_radiobutton.pas
+++ b/src/gui/gui_radiobutton.pas
@@ -24,9 +24,9 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfxbase,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
@@ -76,8 +76,10 @@ type
function CreateRadioButton(AOwner: TComponent; x, y: TfpgCoord; AText: string): TfpgRadioButton;
+
implementation
+
function CreateRadioButton(AOwner: TComponent; x, y: TfpgCoord; AText: string): TfpgRadioButton;
begin
Result := TfpgRadioButton.Create(AOwner);
diff --git a/src/gui/gui_scrollbar.pas b/src/gui/gui_scrollbar.pas
index 5bfde1c9..9e207303 100644
--- a/src/gui/gui_scrollbar.pas
+++ b/src/gui/gui_scrollbar.pas
@@ -32,9 +32,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
TScrollNotifyEvent = procedure(Sender: TObject; position: integer) of object;
diff --git a/src/gui/gui_splitter.pas b/src/gui/gui_splitter.pas
index 0c204ab0..ac556d03 100644
--- a/src/gui/gui_splitter.pas
+++ b/src/gui/gui_splitter.pas
@@ -24,9 +24,9 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfxbase,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
const
clColorGrabBar = $839EFE; // Pale navy blue
diff --git a/src/gui/gui_style.pas b/src/gui/gui_style.pas
index 9cd32df2..7a5b1e91 100644
--- a/src/gui/gui_style.pas
+++ b/src/gui/gui_style.pas
@@ -28,9 +28,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
@@ -203,12 +203,9 @@ type
end;
-
-
implementation
-
{ TfpgCommonStyle }
procedure TfpgCommonStyle.DrawControl(element: TfpgControlElement;
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas
index b39863c6..69a93244 100644
--- a/src/gui/gui_tab.pas
+++ b/src/gui/gui_tab.pas
@@ -33,9 +33,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
gui_button;
type
@@ -138,7 +138,7 @@ type
implementation
uses
- gfx_UTF8utils;
+ fpg_stringutils;
// compare function used by FPages.Sort
diff --git a/src/gui/gui_trackbar.pas b/src/gui/gui_trackbar.pas
index 08d9b5fe..c8f1ce56 100644
--- a/src/gui/gui_trackbar.pas
+++ b/src/gui/gui_trackbar.pas
@@ -37,9 +37,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
TTrackBarChange = procedure(Sender: TObject; APosition: integer) of object;
diff --git a/src/gui/gui_tree.pas b/src/gui/gui_tree.pas
index 8571f89b..7e76e4c4 100644
--- a/src/gui/gui_tree.pas
+++ b/src/gui/gui_tree.pas
@@ -39,10 +39,10 @@ interface
uses
Classes,
SysUtils,
- gfx_widget,
- gfxbase,
- fpgfx,
- gfx_imagelist,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
+ fpg_imagelist,
gui_scrollbar,
gui_menu;
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas
index b5bd9cad..098f3fd1 100644
--- a/uidesigner/newformdesigner.pas
+++ b/uidesigner/newformdesigner.pas
@@ -24,8 +24,8 @@ interface
uses
SysUtils,
Classes,
- gfxbase,
- gfx_widget,
+ fpg_base,
+ fpg_widget,
gui_form,
gui_label,
gui_button,
@@ -167,7 +167,7 @@ var
implementation
uses
- fpgfx,
+ fpg_main,
vfdmain,
gui_iniutils,
gui_dialogs;
diff --git a/uidesigner/uidesigner.lpr b/uidesigner/uidesigner.lpr
index 9b75daaa..2ec6834a 100644
--- a/uidesigner/uidesigner.lpr
+++ b/uidesigner/uidesigner.lpr
@@ -23,7 +23,7 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
- Classes, SysUtils, fpgfx, vfdmain, vfdresizer, vfdforms,
+ Classes, SysUtils, fpg_main, vfdmain, vfdresizer, vfdforms,
vfdfile, newformdesigner, vfdwidgets, vfdformparser, vfdeditors,
vfdwidgetclass, vfdutils, vfdprops, vfddesigner, vfdpropeditgrid;
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas
index ee1c4477..bd10cfe1 100644
--- a/uidesigner/vfddesigner.pas
+++ b/uidesigner/vfddesigner.pas
@@ -25,9 +25,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget,
+ fpg_base,
+ fpg_main,
+ fpg_widget,
gui_form,
gui_dialogs,
gui_label,
@@ -141,7 +141,8 @@ type
implementation
uses
- vfdmain, TypInfo;
+ vfdmain,
+ TypInfo;
{ TWidgetDesigner }
diff --git a/uidesigner/vfdeditors.pas b/uidesigner/vfdeditors.pas
index 0c4e081f..9860f907 100644
--- a/uidesigner/vfdeditors.pas
+++ b/uidesigner/vfdeditors.pas
@@ -24,7 +24,7 @@ interface
uses
Classes,
SysUtils,
- gfx_widget,
+ fpg_widget,
gui_label,
gui_button,
gui_memo,
@@ -49,8 +49,8 @@ type
implementation
uses
- gfxbase,
- fpgfx;
+ fpg_base,
+ fpg_main;
{ TItemEditorForm }
diff --git a/uidesigner/vfdfile.pas b/uidesigner/vfdfile.pas
index 16910883..2361e215 100644
--- a/uidesigner/vfdfile.pas
+++ b/uidesigner/vfdfile.pas
@@ -25,7 +25,7 @@ interface
uses
SysUtils,
Classes,
- gfx_utils;
+ fpg_utils;
type
TVFDFileBlock = class
@@ -351,8 +351,8 @@ begin
'{$mode objfpc}{$H+}' + LineEnding + LineEnding +
'interface' + LineEnding + LineEnding +
'uses' + LineEnding +
- ' SysUtils, Classes, gfxbase, fpgfx, gui_edit, ' + LineEnding +
- ' gfx_widget, gui_form, gui_label, gui_button,' + LineEnding +
+ ' SysUtils, Classes, fpg_base, fpg_main, fpg_widget,' + LineEnding +
+ ' gui_edit, gui_form, gui_label, gui_button,' + LineEnding +
' gui_listbox, gui_memo, gui_combobox, gui_basegrid, gui_grid, ' + LineEnding +
' gui_dialogs, gui_checkbox, gui_tree, gui_trackbar, ' + LineEnding +
' gui_progressbar, gui_radiobutton, gui_tab, gui_menu,' + LineEnding +
diff --git a/uidesigner/vfdformparser.pas b/uidesigner/vfdformparser.pas
index a3d7c966..5e20fb92 100644
--- a/uidesigner/vfdformparser.pas
+++ b/uidesigner/vfdformparser.pas
@@ -24,8 +24,8 @@ interface
uses
Classes,
SysUtils,
- fpgfx,
- gfx_widget,
+ fpg_main,
+ fpg_widget,
gui_form,
vfddesigner,
vfdwidgetclass,
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas
index 61ce43c2..9b50eeea 100644
--- a/uidesigner/vfdforms.pas
+++ b/uidesigner/vfdforms.pas
@@ -24,8 +24,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- gfx_widget,
+ fpg_base,
+ fpg_widget,
gui_form,
gui_label,
gui_edit,
@@ -130,9 +130,9 @@ type
implementation
uses
- fpgfx,
+ fpg_main,
gui_iniutils,
- gfx_constants,
+ fpg_constants,
vfdprops; // used to get Object Inspector defaults
diff --git a/uidesigner/vfdmain.pas b/uidesigner/vfdmain.pas
index cfa11b31..612def1d 100644
--- a/uidesigner/vfdmain.pas
+++ b/uidesigner/vfdmain.pas
@@ -24,7 +24,7 @@ interface
uses
Classes,
SysUtils,
- gfx_widget,
+ fpg_widget,
gui_dialogs,
vfdprops,
vfdforms,
@@ -84,8 +84,8 @@ implementation
uses
vfdformparser,
gui_iniutils,
- gfx_utils,
- fpgfx;
+ fpg_utils,
+ fpg_main;
Var
DefaultPasExt : String = '.pas';
diff --git a/uidesigner/vfdpropeditgrid.pas b/uidesigner/vfdpropeditgrid.pas
index 209b1d59..1004a56f 100644
--- a/uidesigner/vfdpropeditgrid.pas
+++ b/uidesigner/vfdpropeditgrid.pas
@@ -24,8 +24,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- gfx_widget,
+ fpg_base,
+ fpg_widget,
gui_form,
gui_label,
gui_edit,
diff --git a/uidesigner/vfdprops.pas b/uidesigner/vfdprops.pas
index 0b701c8d..13000c78 100644
--- a/uidesigner/vfdprops.pas
+++ b/uidesigner/vfdprops.pas
@@ -24,8 +24,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- gfx_widget,
+ fpg_base,
+ fpg_widget,
vfdwidgetclass,
gui_edit,
gui_button,
@@ -151,7 +151,7 @@ uses
TypInfo,
vfdformparser,
vfdeditors,
- fpgfx,
+ fpg_main,
gui_dialogs;
diff --git a/uidesigner/vfdresizer.pas b/uidesigner/vfdresizer.pas
index 9944e3b6..32aec2e8 100644
--- a/uidesigner/vfdresizer.pas
+++ b/uidesigner/vfdresizer.pas
@@ -24,8 +24,8 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- gfx_widget;
+ fpg_base,
+ fpg_widget;
type
TwgResizer = class(TfpgWidget)
diff --git a/uidesigner/vfdutils.pas b/uidesigner/vfdutils.pas
index 90b99841..8a7fd4c3 100644
--- a/uidesigner/vfdutils.pas
+++ b/uidesigner/vfdutils.pas
@@ -24,7 +24,7 @@ interface
uses
Classes,
SysUtils,
- gfx_widget,
+ fpg_widget,
gui_form,
gui_label,
gui_edit,
diff --git a/uidesigner/vfdwidgetclass.pas b/uidesigner/vfdwidgetclass.pas
index 9729691f..25828d8c 100644
--- a/uidesigner/vfdwidgetclass.pas
+++ b/uidesigner/vfdwidgetclass.pas
@@ -24,9 +24,9 @@ interface
uses
Classes,
SysUtils,
- gfxbase,
- fpgfx,
- gfx_widget;
+ fpg_base,
+ fpg_main,
+ fpg_widget;
type
TWidgetClass = class of TfpgWidget;
diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
index 4f338151..489dee3c 100644
--- a/uidesigner/vfdwidgets.pas
+++ b/uidesigner/vfdwidgets.pas
@@ -41,7 +41,7 @@ var
implementation
uses
- fpgfx,
+ fpg_main,
vfddesigner,
gui_form,
gui_label,