diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-27 18:24:54 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-27 18:24:54 +0000 |
commit | 8eb1030c56d6a1228d3145b247f75c733576e511 (patch) | |
tree | b07af847fe22e6ea153e1c0088a257f72dd9f02f /src | |
parent | 1c50f4279f89d41dd1d85964645217860f5c0b9c (diff) | |
download | fpGUI-8eb1030c56d6a1228d3145b247f75c733576e511.tar.xz |
* Rename all corelib units to the new naming convention.
* Updated the UI Designer to use the new unit names.
Diffstat (limited to 'src')
-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.lpk | 82 | ||||
-rw-r--r-- | src/corelib/gdi/fpgui_toolkit.pas | 10 | ||||
-rw-r--r-- | src/corelib/x11/fpg_impl.pas | 36 | ||||
-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.lpk | 224 | ||||
-rw-r--r-- | src/corelib/x11/fpgui_toolkit.pas | 26 | ||||
-rw-r--r-- | src/corelib/x11/gfx_impl.pas | 18 | ||||
-rw-r--r-- | src/gui/db/fpgui_db.pas | 2 | ||||
-rw-r--r-- | src/gui/gui_animation.pas | 10 | ||||
-rw-r--r-- | src/gui/gui_basegrid.pas | 7 | ||||
-rw-r--r-- | src/gui/gui_bevel.pas | 157 | ||||
-rw-r--r-- | src/gui/gui_button.pas | 64 | ||||
-rw-r--r-- | src/gui/gui_checkbox.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_combobox.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_customgrid.pas | 4 | ||||
-rw-r--r-- | src/gui/gui_dialogs.pas | 14 | ||||
-rw-r--r-- | src/gui/gui_edit.pas | 10 | ||||
-rw-r--r-- | src/gui/gui_editcombo.pas | 12 | ||||
-rw-r--r-- | src/gui/gui_form.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_gauge.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_grid.pas | 6 | ||||
-rw-r--r-- | src/gui/gui_hint.pas | 4 | ||||
-rw-r--r-- | src/gui/gui_hyperlink.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_iniutils.pas | 4 | ||||
-rw-r--r-- | src/gui/gui_label.pas | 6 | ||||
-rw-r--r-- | src/gui/gui_listbox.pas | 10 | ||||
-rw-r--r-- | src/gui/gui_listview.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_memo.pas | 11 | ||||
-rw-r--r-- | src/gui/gui_menu.pas | 12 | ||||
-rw-r--r-- | src/gui/gui_panel.pas | 6 | ||||
-rw-r--r-- | src/gui/gui_popupcalendar.pas | 20 | ||||
-rw-r--r-- | src/gui/gui_progressbar.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_radiobutton.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_scrollbar.pas | 6 | ||||
-rw-r--r-- | src/gui/gui_splitter.pas | 6 | ||||
-rw-r--r-- | src/gui/gui_style.pas | 9 | ||||
-rw-r--r-- | src/gui/gui_tab.pas | 8 | ||||
-rw-r--r-- | src/gui/gui_trackbar.pas | 6 | ||||
-rw-r--r-- | src/gui/gui_tree.pas | 8 |
65 files changed, 722 insertions, 650 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; |