pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:start reorder source folder structure

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5699 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-01-25 09:56:51 +00:00
parent ae7af2e50b
commit 735529f5ea
82 changed files with 386 additions and 720 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/rx/trunk/LazReport/rx_lazreport.lpk
View File

@ -12,6 +12,7 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<License Value="LGPL"/>
<Version Major="1" Release="1"/> <Version Major="1" Release="1"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>

14
components/rx/trunk/dcl_rx_ctrl.lpk
View File

@ -2,35 +2,33 @@
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="4">
<Name Value="dcl_rx_ctrl"/> <Name Value="dcl_rx_ctrl"/>
<Type Value="DesignTime"/>
<Author Value="Lagunov A.A."/> <Author Value="Lagunov A.A."/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <OtherUnitFiles Value="dcl_rx_ctrl"/>
<UnitOutputDirectory Value="lib/dcl_rx_ctrl/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Description Value="Design time packet for rx lib"/> <Description Value="Design time packet for rx lib"/>
<Version Major="2" Minor="6" Release="4" Build="1"/> <Version Major="2" Minor="6" Release="5" Build="2"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="register_rxctrl.pas"/> <Filename Value="dcl_rx_ctrl/register_rxctrl.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="register_rxctrl"/> <UnitName Value="register_rxctrl"/>
</Item1> </Item1>
<Item2> <Item2>
<Filename Value="rxceeditlookupfields.pas"/> <Filename Value="dcl_rx_ctrl/rxceeditlookupfields.pas"/>
<UnitName Value="rxceEditLookupFields"/> <UnitName Value="rxceEditLookupFields"/>
</Item2> </Item2>
</Files> </Files>
<Type Value="DesignTime"/>
<RequiredPkgs Count="2"> <RequiredPkgs Count="2">
<Item1> <Item1>
<PackageName Value="rxnew"/> <PackageName Value="rxnew"/>

0
components/rx/trunk/register_rxctrl.pas → components/rx/trunk/dcl_rx_ctrl/register_rxctrl.pas
View File

0
components/rx/trunk/rxceeditlookupfields.pas → components/rx/trunk/dcl_rx_ctrl/rxceeditlookupfields.pas
View File

32
components/rx/trunk/ex_rx_bin_datapacket.pas
View File

@ -1,3 +1,35 @@
{ ex_rx_bin_datapacket unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
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. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
{ {
TBinaryRxDatapacketReader implementation TBinaryRxDatapacketReader implementation

4
components/rx/trunk/ex_rx_datapacket.pas
View File

@ -1,7 +1,7 @@
{ ex_rx_datapacket unit { ex_rx_datapacket unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

31
components/rx/trunk/ex_rx_xml_datapacket.pas
View File

@ -1,3 +1,34 @@
{ ex_rx_xml_datapacket unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
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. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
{ {
TXMLRxDatapacketReader implementation TXMLRxDatapacketReader implementation

4
components/rx/trunk/registerrx.pas
View File

@ -1,7 +1,7 @@
{ registerrx unit { registerrx unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/registerrxdb.pas
View File

@ -1,7 +1,7 @@
{ RegisterRxDB unit { RegisterRxDB unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/registerrxtools.pas
View File

@ -1,7 +1,7 @@
{ RegisterRxTools unit { RegisterRxTools unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rx.inc
View File

@ -1,7 +1,7 @@
{ global include module { global include module
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

15
components/rx/trunk/rx_sort_fbdataset.lpk
View File

@ -1,19 +1,17 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="4">
<Name Value="rx_sort_fbdataset"/> <Name Value="rx_sort_fbdataset"/>
<Type Value="RunAndDesignTime"/>
<Author Value="Lagunov Aleksey"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/> <UnitOutputDirectory Value="lib/rx_sort_fbdataset/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<License Value="LGLPL"/>
<Version Major="1" Minor="1" Release="1" Build="2"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="rxsortfbdataset.pas"/> <Filename Value="rxsortfbdataset.pas"/>
@ -25,7 +23,6 @@
<UnitName Value="exsortfb"/> <UnitName Value="exsortfb"/>
</Item2> </Item2>
</Files> </Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="3"> <RequiredPkgs Count="3">
<Item1> <Item1>
<PackageName Value="rxnew"/> <PackageName Value="rxnew"/>

4
components/rx/trunk/rx_sort_sqldb.lpk
View File

@ -6,10 +6,10 @@
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/rx_sort_sqldb/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Version Major="1"/> <Version Major="1" Minor="1" Release="1" Build="2"/>
<Files Count="1"> <Files Count="1">
<Item1> <Item1>
<Filename Value="rxsortsqldb.pas"/> <Filename Value="rxsortsqldb.pas"/>

5
components/rx/trunk/rx_sort_zeos.lpk
View File

@ -7,10 +7,11 @@
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/rx_sort_zeos/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Version Major="1"/> <License Value="LGPL"/>
<Version Major="1" Minor="1" Release="1" Build="1"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="rxsortzeos.pas"/> <Filename Value="rxsortzeos.pas"/>

4
components/rx/trunk/rxaboutdialog.pas
View File

@ -1,7 +1,7 @@
{ RxAboutDialog { RxAboutDialog
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxaboutformunit.pas
View File

@ -1,7 +1,7 @@
{ RxAboutForm { RxAboutForm
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxapputils.pas
View File

@ -1,7 +1,7 @@
{ rxapputils unit { rxapputils unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

2
components/rx/trunk/rxautopanel.pas
View File

@ -1,6 +1,6 @@
{ AutoPanel unit { AutoPanel unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it

2
components/rx/trunk/rxboxprocs.pas
View File

@ -1,6 +1,6 @@
{ boxprocs unit { boxprocs unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it

4
components/rx/trunk/rxclock.pas
View File

@ -1,7 +1,7 @@
{ rxclock unit { rxclock unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxcloseformvalidator.pas
View File

@ -1,7 +1,7 @@
{ RxCloseFormValidator unit { RxCloseFormValidator unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxhistorynavigator.pas → components/rx/trunk/rxcontrols/rxhistorynavigator.pas
View File

@ -1,7 +1,7 @@
{ RxHistoryNavigator unit { RxHistoryNavigator unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxctrls.pas
View File

@ -1,7 +1,7 @@
{ rxctrls unit { rxctrls unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxcurredit.pas
View File

@ -1,7 +1,7 @@
{ curredit unit { curredit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdaterangeeditunit.pas
View File

@ -1,7 +1,7 @@
{ rxDateRangeEditUnit unit { rxDateRangeEditUnit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

2
components/rx/trunk/rxdbcolorbox.pas
View File

@ -1,6 +1,6 @@
{ RxDBColorBox unit { RxDBColorBox unit
Copyright (C) 2005-2010 Lagunov Aleksey alexs@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it

4
components/rx/trunk/rxdbcomb.pas
View File

@ -1,7 +1,7 @@
{ rxdbcomb unit { rxdbcomb unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbctrls.pas
View File

@ -1,7 +1,7 @@
{ RxDBCtrls unit { RxDBCtrls unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbcurredit.pas
View File

@ -1,7 +1,7 @@
{ dbcurredit unit { dbcurredit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbdateedit.pas
View File

@ -1,7 +1,7 @@
{ dbdateedit unit { dbdateedit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbgrid.pas
View File

@ -1,7 +1,7 @@
{ rxdbgrid unit { rxdbgrid unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbgrid_columsunit.pas
View File

@ -1,7 +1,7 @@
{ rxdbgrid_columsunit unit { rxdbgrid_columsunit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbgrid_export_spreadsheet.lpk
View File

@ -7,11 +7,11 @@
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/rxdbgrid_export_spreadsheet/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Minor="9" Release="1" Build="5"/> <Version Major="1" Release="1" Build="6"/>
<Files Count="3"> <Files Count="3">
<Item1> <Item1>
<Filename Value="rxdbgridexportspreadsheet.pas"/> <Filename Value="rxdbgridexportspreadsheet.pas"/>

4
components/rx/trunk/rxdbgrid_findunit.pas
View File

@ -1,7 +1,7 @@
{ rxdbgrid_findunit unit { rxdbgrid_findunit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

6
components/rx/trunk/rxdbgrid_print.lpk
View File

@ -3,12 +3,14 @@
<Package Version="4"> <Package Version="4">
<Name Value="rxdbgrid_print"/> <Name Value="rxdbgrid_print"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
<Author Value="Lagunov Aleksey"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/rxdbgrid_print/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Version Major="1" Minor="1" Release="1" Build="1"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="rxdbgridprintgrid.pas"/> <Filename Value="rxdbgridprintgrid.pas"/>
@ -17,7 +19,7 @@
</Item1> </Item1>
<Item2> <Item2>
<Filename Value="rxdbgridprintgrid_setupunit.pas"/> <Filename Value="rxdbgridprintgrid_setupunit.pas"/>
<UnitName Value="rxdbgridprintgrid_setupunit"/> <UnitName Value="RxDBGridPrintGrid_SetupUnit"/>
</Item2> </Item2>
</Files> </Files>
<LazDoc Paths="docs"/> <LazDoc Paths="docs"/>

4
components/rx/trunk/rxdbgridexportpdf.pas
View File

@ -1,7 +1,7 @@
{ RxDBGridExportPdf unit { RxDBGridExportPdf unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbgridexportpdfsetupunit.pas
View File

@ -1,7 +1,7 @@
{ TPdfExportOptions unit { TPdfExportOptions unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbgridfootertools.pas
View File

@ -1,7 +1,7 @@
{ RxDBGridPrintGrid unit { RxDBGridPrintGrid unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbgridfootertools_setup.pas
View File

@ -1,7 +1,7 @@
{ RxDBGridPrintGrid unit { RxDBGridPrintGrid unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbspinedit.pas
View File

@ -1,7 +1,7 @@
{ RxDBSpinEdit unit { RxDBSpinEdit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbtimeedit.pas
View File

@ -1,7 +1,7 @@
{ RxDBTimeEdit unit { RxDBTimeEdit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdbutils.pas
View File

@ -1,7 +1,7 @@
{ dbutils unit { dbutils unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxdice.pas
View File

@ -1,7 +1,7 @@
{ rxdice unit { rxdice unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxduallist.pas
View File

@ -1,7 +1,7 @@
{ duallist unit { duallist unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxfduallst.pas
View File

@ -1,7 +1,7 @@
{ fduallst unit { fduallst unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxfilterby.pas
View File

@ -1,7 +1,7 @@
{ rxfilterby unit { rxfilterby unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxfolderlister.pas
View File

@ -1,7 +1,7 @@
{ folderlister unit { folderlister unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

450
components/rx/trunk/rxiconv.pas
View File

@ -1,450 +0,0 @@
//ENG:Deprecated module. In future removed!!! Now all functions marked as comment.
//ENG:for revert changes remove "(*" comment.
//RUS:Устаревший модуль. В будущем будет удалён. Сейчас весь функционал просто закоментирован.
//RUS:Для отмены изменений удалите "(*" коментарии
(*
A.Voitov zprokuror(cyka)narod.ru
LAZARUS-FPC-LINUX codeset conversion routines
The goal is easy-and-on-fly *.lrs conversion from codeset used by developer to
user's system codeset without gettext, without separate message files etc.
Now I only have to set my codeset below (by default it's mine - UTF-8) -
DON'T FORGET ABOUT IT -
and call LocalizeForm('TFormClassName') right after {$I TFormClassName.lrs} -
see example below.
This way form resource file will be converted to system codeset when form is
creating.
For gtk/gnome there's only one conversion routine
function Localize(source:string):ansistring;
For gtk2 resource MUST, I guess, be converted to UTF-8 anyway (if it's not yet),
so I set current_codeset to UTF-8 with FORCE_UTF8 definition. Though if
developer's codeset is UTF-8 then no form resource conversion needed.
Localize is published function so it can be used again to convert string constants,
resource strings in most cases with no care about user's and developer's codeset.
But it's not enough sometime (file names, inifiles etc. can be wrong when gtk2
works in koi8-r locale).
That's why we've got some stuff th handle it without care.
1. First one is TIconv object (I'm not sure it's best way to do maybe it would class?
if so uncomment $DEFINE OBJ_IS_CLASS below)
2. Second are uiconv_xxx functions
They can be used to easy implement any valid conversions.
EXAMPLES:
1. Auto form conversion
- set my codeset below: {$DEFINE DC_UTF8}
- add LocalizeForm('TFormClassName') after {$I TFormClassName.lrs}
<CODE>
unit1;
[...]
initialization
{$I unit1.lrs}
LocalizeForm('TForm1');
end.
</CODE>
2. TIconv object example:
object is local variable here, but it can be global (create at startup,
dead in the end) if it's always in-use.
<CODE>
function koi8r_to_utf8(S:string):string;
var iConverter:pIconv;
begin
iConverter:=NewIconv('CP1251', 'UTF-8');
Result:=iConverter.iconv(S);
iConverter.Free;
end;
</CODE>
3. uiconv_xxx example - obvious.
APPENDIX
i. KNOWN DEVELOPER'S CODESET DEFENITIONS:
$DC_KOI8 (obvious)
$DC_UTF8 (obvious) - default
$DC_WIN (CP1251) - not tested yet
ii. GTK2 NOTES
As I found there's something wrong with some strings when gtk2 is used under
koi8-r locale. OpenDialog.FileName is stored in my inifile as koi8-r string
and then can't be loaded in MRU menu.
So I've got a couple of functions here for that case: str2gtk and gtk2str.
'str' means current codeset (locale)
iii. This unit tested with dc_utf8 and user's locale koi8-r only
*)
unit rxiconv;
(*
{* Developer's codeset. Must be set on design-time. Default is UTF8}
{.$DEFINE DC_KOI8}
{$DEFINE DC_WIN}
{.$DEFINE DC_UTF8} //nothing defined so DC_UTF8 will be defined here
{$IFNDEF DC_UTF8}
{$IFNDEF DC_KOI8}
{$IFNDEF DC_WIN}
{$DEFINE DC_UTF8}
{$ENDIF DC_WIN}
{$ENDIF DC_KOI8}
{$ENDIF DC_UTF8}
{* user acces to iconv functions}
{$DEFINE USER_ICONV}
{* TIconv object}
{$DEFINE USE_OBJECT}
{* Ticonv is class(TObject)}
{$DEFINE OBJ_IS_CLASS}
{* form-localization needed only with gtk1 or with gtk2 if developer's codeset
is not utf-8. First turn it of.}
{$UNDEF USE_LOCALIZE}
{* if widgetset is GTK2 ($IFDEF LCLGtk2) and developer's codeset is not DC_UTF8
then we'd FORCE_UTF8 and turn on USE_LOCALIZE. And if widgetset is GTK1 then
we USE_LOCALIZE too.}
{$IFDEF LCLGtk2}
{$IFNDEF DC_UTF8}
{$DEFINE USE_LOCALIZE}
{$DEFINE FORCE_UTF8}
{$ENDIF DC_UTF8}
{$ELSE LCLGtk2}
{$DEFINE USE_LOCALIZE}
{$ENDIF LCLGtk2}
{$mode objfpc}
*)
interface
(*
{$IFNDEF WINDOWS}
uses
{$IFDEF USE_LOCALIZE} LResources, Classes,{$ENDIF} initc, SysUtils;
{* returns current codeset}
function GetCodeset():ansistring;
{$IFDEF USE_LOCALIZE}
{* returns true if current codeset<>developer's codeset}
function InvalidCodeset():boolean;
{$ENDIF USE_LOCALIZE}
{* basic string conversion - enough for localization.
conversion from developer's codeset 2 user's codeset}
function Localize(source:ansistring):ansistring;
{with gtk2 converts utf8 to locale codeset and back}
{$IFDEF LCLGtk2}
function str2gtk(source:ansistring):ansistring;
function gtk2str(source:ansistring):ansistring;
{$ENDIF LCLGtk2}
{* public access 2 iconv}
{$IFDEF USER_ICONV}
function uiconv(ic_usr:pointer; source:ansistring):ansistring ;
function uiconv_open(ic_from, ic_to:ansistring):pointer ;
procedure uiconv_close(ic_usr:pointer) ;
{$ENDIF USER_ICONV}
{* form conversion}
procedure LocalizeForm(form_classname:ansistring);
procedure LocalizeAllForm;
{* iconv object/class}
{$IFDEF USE_OBJECT}
type
{$IFDEF OBJ_IS_CLASS}
Ticonv=class(TObject)
{$ELSE OBJ_IS_CLASS}
pIconv=^Ticonv;
Ticonv=object
protected
{$ENDIF OBJ_IS_CLASS}
hIconv:pointer;
public
destructor Destroy;{$IFDEF OBJ_IS_CLASS}virtual;{$ENDIF OBJ_IS_CLASS}
{$IFNDEF OBJ_IS_CLASS}
procedure Free;
{$ENDIF OBJ_IS_CLASS}
constructor Create{$IFDEF OBJ_IS_CLASS}(cs_from, cs_to:ansistring){$ENDIF OBJ_IS_CLASS};
function iconv(source:ansistring):ansistring;
end;
{$IFNDEF OBJ_IS_CLASS}
function NewIconv(cs_from, cs_to:ansistring):TIconv ;
{$ENDIF OBJ_IS_CLASS}
{$ENDIF USE_OBJECT}
{$ENDIF}
*)
implementation
(*
{$IFNDEF WINDOWS}
uses dialogs;
{$linklib c}
const
libiconvname='c';
__LC_CTYPE = 0;
_NL_CTYPE_CLASS = (__LC_CTYPE shl 16);
_NL_CTYPE_CODESET_NAME = (_NL_CTYPE_CLASS)+14;
CODESET = _NL_CTYPE_CODESET_NAME;
{developer's codeset names}
{$IFDEF DC_KOI8}
DEV_CODESET='KOI8-R';
DC_NAME='KOI';
DC_NAME_EXT='R';
{$ENDIF DC_KOI8}
{$IFDEF DC_UTF8}
DEV_CODESET='UTF-8';
DC_NAME='UTF';
DC_NAME_EXT='8';
{$ENDIF DC_UTF8}
{$IFDEF DC_WIN}
DEV_CODESET='CP1251';
DC_NAME='1251';
DC_NAME_EXT='1251';
{$ENDIF DC_WIN}
type
size_t = cardinal;
pSize = ^size_t;
psize_t = pSize;
cInt = longint;
piconv_t = ^iconv_t;
iconv_t = pointer;
nl_item = cint;
var //iconv pointers
{$IFDEF LCLGtk2}
ic_str2gtk, ic_gtk2str,
{$ENDIF LCLGtk2}
ic_localize : iconv_t;
function nl_langinfo(__item:nl_item):pchar;cdecl;external libiconvname name 'nl_langinfo';
function iconv_open(__tocode:pchar; __fromcode:pchar):iconv_t;cdecl;external libiconvname name 'iconv_open';
function iconv(__cd:iconv_t; __inbuf:ppchar; __inbytesleft:psize_t; __outbuf:ppchar; __outbytesleft:psize_t):size_t;cdecl;external libiconvname name 'iconv';
function iconv_close(__cd:iconv_t):cint;cdecl;external libiconvname name 'iconv_close';
{* common procedures}
function GetCodeset():ansistring;
begin
Result:= ansistring(nl_langinfo(CODESET));
end;
function CodesetIs(CSNAME, CSEXT:ansistring):boolean ;
var CS:ansistring;
begin
CS:=UpperCase(GetCodeSet);
if ((pos(CSNAME,CS)<>0) and (pos(CSEXT,CS)<>0)) then Result:=true else Result:=false;
end;
{* main conversion procedure}
function _iconv(hiconv:iconv_t; source:ansistring):ansistring;
const
ESysEILSEQ = 84;
ESysE2BIG = 7;
var
len:SizeInt;
outlength,
outoffset,
outleft : size_t;
srcpos,
destpos: pchar;
mynil : pchar;
my0 : size_t;
begin
mynil:=nil;
my0:=0;
// extra space
len:=length(source);
outlength:=len*3+1; //setlength(result,outlength);
Result:=StringOfChar(#0, outlength);
//outlength:=len+1;
srcpos:=pChar(source);
destpos:=pchar(result);
outleft:=outlength*2;
while iconv(hiconv,@srcpos,@len,@destpos,@outleft)=size_t(-1) do
begin
case fpgetCerrno of
ESysEILSEQ:
begin
{ skip and set to '?' }
inc(srcpos);
pwidechar(destpos)^:='?';
inc(destpos,2);
dec(outleft,2);
{ reset }
iconv(hiconv,@mynil,@my0,@mynil,@my0);
end;
ESysE2BIG:
begin
outoffset:=destpos-pchar(result);
{ extend }
setlength(result,outlength+len);
inc(outleft,len*2);
inc(outlength,len);
{ string could have been moved }
destpos:=pchar(result)+outoffset;
end;
else
raise EConvertError.Create('iconv error '+IntToStr(fpgetCerrno));
end;
end;
//setlength(result,length(result)-outleft div 2); // truncate string
Result:=TrimRight(Result);// not shure it always works right
end;
{$IFDEF USE_OBJECT}
{* Ticonv *}
{$IFNDEF OBJ_IS_CLASS}
function _NewIconv(cs_from, cs_to:ansistring):pIconv ;
begin
New( Result, Create);
Result^.hIconv:=Pointer(iconv_open(pChar(cs_to), pChar(cs_from)));
end;
function NewIconv(cs_from, cs_to:ansistring):TIconv ;
begin
Result:=_NewIconv(cs_from, cs_to)^;
end;
procedure Ticonv.Free();
begin
if @Self<>nil then Self.Destroy;
end;
{$ENDIF OBJ_IS_CLASS}
constructor Ticonv.Create{$IFDEF OBJ_IS_CLASS}(cs_from, cs_to:ansistring){$ENDIF OBJ_IS_CLASS};
begin {$IFDEF OBJ_IS_CLASS}
inherited Create;
hIconv:=Pointer(iconv_open(pChar(cs_to), pChar(cs_from)));
{$ENDIF OBJ_IS_CLASS}
end;
destructor Ticonv.Destroy;
begin
iconv_close(hIconv);
Inherited;
end;
function Ticonv.iconv(source:ansistring):ansistring;
begin
Result:=_iconv(hIconv, source);
end;
{$ENDIF USE_OBJECT}
{$IFDEF USER_ICONV}
function uiconv(ic_usr:pointer; source:ansistring):ansistring ;
begin
Result:=_iconv(iconv_t(ic_usr), pchar(source));
end;
function uiconv_open(ic_from, ic_to:ansistring):pointer ;
begin
Result:= iconv_open(pchar(ic_to), pchar(ic_from));
end;
procedure uiconv_close(ic_usr:pointer) ;
begin
iconv_close(iconv_t(ic_usr));
end;
{$ENDIF USER_ICONV}
function Localize(source:ansistring):ansistring;
begin
Result:=_iconv(ic_localize, source);
end;
{$IFDEF LCLGtk2}
function str2gtk(source:ansistring):ansistring;
begin
Result:=_iconv(ic_str2gtk, source);
end;
function gtk2str(source:ansistring):ansistring;
begin
Result:=_iconv(ic_gtk2str, source);
end;
{$ENDIF LCLGtk2}
{* form localization - only if use_localize}
{$IFDEF USE_LOCALIZE}
function InvalidCodeset():boolean;
begin
Result:=False;
{$IFNDEF FORCE_UTF8} Result:= not (CodesetIs(DC_NAME, DC_NAME_EXT));{$ENDIF FORCE_UTF8}
end;
{* converts form resource from developer's codeset to env codeset.
it's empty procedure if widgetSet is gtk2 and dev's codeset is utf8.
So USE_LOCCALIZE definition used }
procedure LocalizeForm(form_classname:ansistring);
var res : TLResource;
S : ansistring;
RS, MS : TMemoryStream;
begin
{$IFNDEF FORCE_UTF8} //always convert to utf8
if not InvalidCodeset then exit;
{$ENDIF FORCE_UTF8}
{find resource}
res:=LazarusResources.Find(form_classname);
RS:=TMemoryStream.create;
MS:=TMemoryStream.create;
{read form 2 RS}
RS.Write(res.Value[1],length(res.Value));
RS.Position:=0;
{convert 2 text}
LRSObjectBinaryToText( RS, MS);
MS.Position:=0;
{copy 2 string}
SetLength(S, MS.Size);
MS.Read(S[1], MS.Size);
{convert 2 ccs or utf8 - under gtk2}
S:=Localize(S);
{copy back to ms}
S:=Trim(S) + #0#0#0#0; //doesn't work without it...
MS.Position:=0;
MS.Write(S[1],length(S));
MS.Position:=0;
RS.SetSize(0);
{convert 2 binary RS}
LRSObjectTextToBinary(MS, RS);
RS.Position:=0;
SetLength(S, RS.Size);
{write 2 resource}
RS.Read(S[1],RS.Size);
res.Value:=S;
MS.Free; RS.Free;
end;
procedure LocalizeAllForm;
var
i:integer;
begin
for i:=0 to LazarusResources.Count - 1 do
begin
if LazarusResources.Items[i].ValueType = 'FORMDATA' then
LocalizeForm(LazarusResources.Items[i].Name);
end;
end;
{$ELSE USE_LOCALIZE}
{* dummy proc for easy testing}
procedure LocalizeForm(form_classname:ansistring);begin {*} end;
procedure LocalizeAllForm;
begin
end;
{$ENDIF USE_LOCALIZE}
initialization
{$IFNDEF FORCE_UTF8}
ic_localize := iconv_open(nl_langinfo(CODESET), DEV_CODESET); //main
{$ELSE FORCE_UTF8}
ic_localize := iconv_open('UTF-8', DEV_CODESET);
{$ENDIF FORCE_UTF8}
{$IFDEF LCLGtk2}
ic_str2gtk:= iconv_open('UTF-8', nl_langinfo(CODESET));
ic_gtk2str:= iconv_open(nl_langinfo(CODESET), 'UTF-8');
{$ENDIF LCLGtk2}
finalization
iconv_close(ic_localize);
{$IFDEF LCLGtk2}
iconv_close(ic_str2gtk);
iconv_close(ic_gtk2str);
{$ENDIF LCLGtk2}
{$ENDIF}
*)
end.

4
components/rx/trunk/rxinipropstorage.pas
View File

@ -1,7 +1,7 @@
{ RegisterRxTools unit { RegisterRxTools unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxlclconst.pas
View File

@ -1,7 +1,7 @@
{ rxlclconst unit { rxlclconst unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxlogin.pas
View File

@ -1,7 +1,7 @@
{ rxlogin unit { rxlogin unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxlookup.pas
View File

@ -1,7 +1,7 @@
{ rxlookup unit { rxlookup unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxmdi.pas
View File

@ -1,7 +1,7 @@
{ RxMDI unit { RxMDI unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxmemds.pas
View File

@ -1,7 +1,7 @@
{ rxmemds unit { rxmemds unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

170
components/rx/trunk/rxnew.lpk
View File

@ -10,8 +10,8 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="rxdb"/> <OtherUnitFiles Value="rxdb;rxcontrols"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\rxcontrols\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -25,8 +25,8 @@ Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2016 translate to Lazarus by alexs in 2005 - 2016
"/> "/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Major="2" Minor="9" Release="4" Build="200"/> <Version Major="2" Minor="9" Release="5" Build="201"/>
<Files Count="68"> <Files Count="62">
<Item1> <Item1>
<Filename Value="rxautopanel.pas"/> <Filename Value="rxautopanel.pas"/>
<UnitName Value="RxAutoPanel"/> <UnitName Value="RxAutoPanel"/>
@ -143,165 +143,141 @@ translate to Lazarus by alexs in 2005 - 2016
<UnitName Value="RxDBTimeEdit"/> <UnitName Value="RxDBTimeEdit"/>
</Item28> </Item28>
<Item29> <Item29>
<Filename Value="rxdconst.pas"/>
<UnitName Value="rxdconst"/>
</Item29>
<Item30>
<Filename Value="rxdice.pas"/> <Filename Value="rxdice.pas"/>
<UnitName Value="rxdice"/> <UnitName Value="rxdice"/>
</Item30> </Item29>
<Item31> <Item30>
<Filename Value="rxfilterby.pas"/> <Filename Value="rxfilterby.pas"/>
<UnitName Value="rxfilterby"/> <UnitName Value="rxfilterby"/>
</Item31> </Item30>
<Item32> <Item31>
<Filename Value="rxiconv.pas"/>
<UnitName Value="rxiconv"/>
</Item32>
<Item33>
<Filename Value="rxlogin.pas"/> <Filename Value="rxlogin.pas"/>
<UnitName Value="rxlogin"/> <UnitName Value="rxlogin"/>
</Item33> </Item31>
<Item34> <Item32>
<Filename Value="rxlookup.pas"/> <Filename Value="rxlookup.pas"/>
<UnitName Value="rxlookup"/> <UnitName Value="rxlookup"/>
</Item34> </Item32>
<Item35> <Item33>
<Filename Value="rxmemds.pas"/> <Filename Value="rxmemds.pas"/>
<UnitName Value="rxmemds"/> <UnitName Value="rxmemds"/>
</Item35> </Item33>
<Item36> <Item34>
<Filename Value="rxpopupunit.pas"/> <Filename Value="rxpopupunit.pas"/>
<UnitName Value="rxpopupunit"/> <UnitName Value="rxpopupunit"/>
</Item36> </Item34>
<Item37> <Item35>
<Filename Value="rxsortmemds.pas"/> <Filename Value="rxsortmemds.pas"/>
<UnitName Value="rxsortmemds"/> <UnitName Value="rxsortmemds"/>
</Item37> </Item35>
<Item38> <Item36>
<Filename Value="rxspin.pas"/> <Filename Value="rxspin.pas"/>
<UnitName Value="rxspin"/> <UnitName Value="rxspin"/>
</Item38> </Item36>
<Item39> <Item37>
<Filename Value="rxswitch.pas"/> <Filename Value="rxswitch.pas"/>
<UnitName Value="rxswitch"/> <UnitName Value="rxswitch"/>
</Item39> </Item37>
<Item40> <Item38>
<Filename Value="rxsystemservices.pas"/> <Filename Value="rxsystemservices.pas"/>
<UnitName Value="RxSystemServices"/> <UnitName Value="RxSystemServices"/>
</Item40> </Item38>
<Item41> <Item39>
<Filename Value="rxtbrsetup.pas"/> <Filename Value="rxtbrsetup.pas"/>
<UnitName Value="rxtbrsetup"/> <UnitName Value="rxtbrsetup"/>
</Item41> </Item39>
<Item42> <Item40>
<Filename Value="rxtimeedit.pas"/> <Filename Value="rxtimeedit.pas"/>
<UnitName Value="RxTimeEdit"/> <UnitName Value="RxTimeEdit"/>
</Item42> </Item40>
<Item43> <Item41>
<Filename Value="rxtoolbar.pas"/> <Filename Value="rxtoolbar.pas"/>
<UnitName Value="rxtoolbar"/> <UnitName Value="rxtoolbar"/>
</Item43> </Item41>
<Item44> <Item42>
<Filename Value="rxversinfo.pas"/> <Filename Value="rxversinfo.pas"/>
<UnitName Value="RxVersInfo"/> <UnitName Value="RxVersInfo"/>
</Item44> </Item42>
<Item45> <Item43>
<Filename Value="rxviewspanel.pas"/> <Filename Value="rxviewspanel.pas"/>
<UnitName Value="RxViewsPanel"/> <UnitName Value="RxViewsPanel"/>
</Item45> </Item43>
<Item46> <Item44>
<Filename Value="rxseldsfrm.pas"/> <Filename Value="rxseldsfrm.pas"/>
<UnitName Value="rxseldsfrm"/> <UnitName Value="rxseldsfrm"/>
</Item46> </Item44>
<Item47> <Item45>
<Filename Value="rxtooledit.pas"/> <Filename Value="rxtooledit.pas"/>
<UnitName Value="rxtooledit"/> <UnitName Value="rxtooledit"/>
</Item47> </Item45>
<Item48> <Item46>
<Filename Value="rxvclutils.pas"/> <Filename Value="rxvclutils.pas"/>
<UnitName Value="rxvclutils"/> <UnitName Value="rxvclutils"/>
</Item48> </Item46>
<Item49> <Item47>
<Filename Value="rxcloseformvalidator.pas"/> <Filename Value="rxcloseformvalidator.pas"/>
<UnitName Value="RxCloseFormValidator"/> <UnitName Value="RxCloseFormValidator"/>
</Item49> </Item47>
<Item50> <Item48>
<Filename Value="rxhistorynavigator.pas"/>
<UnitName Value="RxHistoryNavigator"/>
</Item50>
<Item51>
<Filename Value="ex_rx_bin_datapacket.pas"/> <Filename Value="ex_rx_bin_datapacket.pas"/>
<UnitName Value="ex_rx_bin_datapacket"/> <UnitName Value="ex_rx_bin_datapacket"/>
</Item51> </Item48>
<Item52> <Item49>
<Filename Value="ex_rx_datapacket.pas"/> <Filename Value="ex_rx_datapacket.pas"/>
<UnitName Value="ex_rx_datapacket"/> <UnitName Value="ex_rx_datapacket"/>
</Item52> </Item49>
<Item53> <Item50>
<Filename Value="ex_rx_xml_datapacket.pas"/> <Filename Value="ex_rx_xml_datapacket.pas"/>
<UnitName Value="ex_rx_xml_datapacket"/> <UnitName Value="ex_rx_xml_datapacket"/>
</Item53> </Item50>
<Item54> <Item51>
<Filename Value="rxsortby.lfm"/>
<Type Value="LFM"/>
</Item54>
<Item55>
<Filename Value="rxsortby.pas"/> <Filename Value="rxsortby.pas"/>
<UnitName Value="rxsortby"/> <UnitName Value="rxsortby"/>
</Item55> </Item51>
<Item56> <Item52>
<Filename Value="rxmdi.pas"/> <Filename Value="rxmdi.pas"/>
<UnitName Value="RxMDI"/> <UnitName Value="RxMDI"/>
</Item56> </Item52>
<Item57> <Item53>
<Filename Value="rxinipropstorage.pas"/> <Filename Value="rxinipropstorage.pas"/>
<UnitName Value="RxIniPropStorage"/> <UnitName Value="RxIniPropStorage"/>
</Item57> </Item53>
<Item58> <Item54>
<Filename Value="rx_lcl.res"/> <Filename Value="rx_lcl.res"/>
<Type Value="Binary"/> <Type Value="Binary"/>
</Item58> </Item54>
<Item59> <Item55>
<Filename Value="rxdaterangeeditunit.pas"/> <Filename Value="rxdaterangeeditunit.pas"/>
<UnitName Value="rxDateRangeEditUnit"/> <UnitName Value="rxDateRangeEditUnit"/>
</Item59> </Item55>
<Item60> <Item56>
<Filename Value="rxdbgridfootertools.pas"/> <Filename Value="rxdbgridfootertools.pas"/>
<UnitName Value="RxDBGridFooterTools"/> <UnitName Value="RxDBGridFooterTools"/>
</Item60> </Item56>
<Item61> <Item57>
<Filename Value="rxdbgridfootertools_setup.lfm"/>
<Type Value="LFM"/>
</Item61>
<Item62>
<Filename Value="rxdbgridfootertools_setup.pas"/> <Filename Value="rxdbgridfootertools_setup.pas"/>
<UnitName Value="rxdbgridfootertools_setup"/> <UnitName Value="rxdbgridfootertools_setup"/>
</Item62> </Item57>
<Item63> <Item58>
<Filename Value="rxshortcutunit.lfm"/>
<Type Value="LFM"/>
</Item63>
<Item64>
<Filename Value="rxshortcutunit.pas"/> <Filename Value="rxshortcutunit.pas"/>
<UnitName Value="rxShortCutUnit"/> <UnitName Value="rxShortCutUnit"/>
</Item64> </Item58>
<Item65> <Item59>
<Filename Value="rxdbgridexportpdf.pas"/> <Filename Value="rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/> <UnitName Value="RxDBGridExportPdf"/>
</Item65> </Item59>
<Item66> <Item60>
<Filename Value="rxdbgridexportpdfsetupunit.lfm"/>
<Type Value="LFM"/>
</Item66>
<Item67>
<Filename Value="rxdbgridexportpdfsetupunit.pas"/> <Filename Value="rxdbgridexportpdfsetupunit.pas"/>
<UnitName Value="RxDBGridExportPdfSetupUnit"/> <UnitName Value="RxDBGridExportPdfSetupUnit"/>
</Item67> </Item60>
<Item68> <Item61>
<Filename Value="rxlclconst.pas"/> <Filename Value="rxlclconst.pas"/>
<UnitName Value="rxlclconst"/> <UnitName Value="rxlclconst"/>
</Item68> </Item61>
<Item62>
<Filename Value="rxcontrols\rxhistorynavigator.pas"/>
<UnitName Value="RxHistoryNavigator"/>
</Item62>
</Files> </Files>
<LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/> <LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/>
<i18n> <i18n>

16
components/rx/trunk/rxnew.pas
View File

@ -12,14 +12,14 @@ uses
rxduallist, rxfduallst, rxfolderlister, rxpagemngr, rxpickdate, registerrx, rxduallist, rxfduallst, rxfolderlister, rxpagemngr, rxpickdate, registerrx,
RegisterRxDB, RegisterRxTools, RxAboutDialog, rxAboutFormUnit, rxapputils, RegisterRxDB, RegisterRxTools, RxAboutDialog, rxAboutFormUnit, rxapputils,
rxclock, rxctrls, RxDBColorBox, rxdbcomb, RxDBCtrls, rxdbgrid, rxclock, rxctrls, RxDBColorBox, rxdbcomb, RxDBCtrls, rxdbgrid,
rxdbgrid_columsunit, rxdbgrid_findunit, RxDBSpinEdit, RxDBTimeEdit, rxdbgrid_columsunit, rxdbgrid_findunit, RxDBSpinEdit, RxDBTimeEdit, rxdice,
rxdconst, rxdice, rxfilterby, rxiconv, rxlogin, rxlookup, rxmemds, rxfilterby, rxlogin, rxlookup, rxmemds, rxpopupunit, rxsortmemds, rxspin,
rxpopupunit, rxsortmemds, rxspin, rxswitch, RxSystemServices, rxtbrsetup, rxswitch, RxSystemServices, rxtbrsetup, RxTimeEdit, rxtoolbar, RxVersInfo,
RxTimeEdit, rxtoolbar, RxVersInfo, RxViewsPanel, rxseldsfrm, rxtooledit, RxViewsPanel, rxseldsfrm, rxtooledit, rxvclutils, RxCloseFormValidator,
rxvclutils, RxCloseFormValidator, RxHistoryNavigator, ex_rx_bin_datapacket, ex_rx_bin_datapacket, ex_rx_datapacket, ex_rx_xml_datapacket, rxsortby,
ex_rx_datapacket, ex_rx_xml_datapacket, rxsortby, RxMDI, RxIniPropStorage, RxMDI, RxIniPropStorage, rxDateRangeEditUnit, RxDBGridFooterTools,
rxDateRangeEditUnit, RxDBGridFooterTools, rxdbgridfootertools_setup, rxdbgridfootertools_setup, rxShortCutUnit, RxDBGridExportPdf,
rxShortCutUnit, RxDBGridExportPdf, RxDBGridExportPdfSetupUnit, rxlclconst, RxDBGridExportPdfSetupUnit, rxlclconst, RxHistoryNavigator,
LazarusPackageIntf; LazarusPackageIntf;
implementation implementation

4
components/rx/trunk/rxpagemngr.pas
View File

@ -1,7 +1,7 @@
{ pagemngr unit { pagemngr unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxpickdate.pas
View File

@ -1,7 +1,7 @@
{ pickdate unit { pickdate unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxpopupunit.pas
View File

@ -1,7 +1,7 @@
{ rxpopupunit unit { rxpopupunit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxseldsfrm.pas
View File

@ -1,7 +1,7 @@
{ seldsfrm unit { seldsfrm unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxshortcutunit.pas
View File

@ -1,7 +1,7 @@
{ rxShortCutUnit unit { rxShortCutUnit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxsortby.pas
View File

@ -1,7 +1,7 @@
{ RXDBGrid unit { RXDBGrid unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

6
components/rx/trunk/rxsortmemds.pas
View File

@ -1,7 +1,7 @@
{ This module from FPC port of RX components library { rxsortmemds unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxspin.pas
View File

@ -1,7 +1,7 @@
{ rxspin unit { rxspin unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxswitch.pas
View File

@ -1,7 +1,7 @@
{ rxswitch unit { rxswitch unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxsystemservices.pas
View File

@ -1,7 +1,7 @@
{ RxSystemServices unit { RxSystemServices unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxtbrsetup.pas
View File

@ -1,7 +1,7 @@
{ rxtbrsetup unit { rxtbrsetup unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxtimeedit.pas
View File

@ -1,7 +1,7 @@
{ RxTimeEdit unit { RxTimeEdit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxtoolbar.pas
View File

@ -1,7 +1,7 @@
{ rxtoolbar unit { rxtoolbar unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxtooledit.pas
View File

@ -1,7 +1,7 @@
{ tooledit unit { tooledit unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

39
components/rx/trunk/rxtools.lpk
View File

@ -7,35 +7,46 @@
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="."/> <OtherUnitFiles Value="rxtools"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/rxtools/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value=" <Description Value="
"/> "/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Minor="1" Build="2"/> <Version Minor="2" Build="4"/>
<Files Count="5"> <Files Count="8">
<Item1> <Item1>
<Filename Value="rxconfigvalues.pas"/> <Filename Value="rxtools/rxcrc.pas"/>
<UnitName Value="rxConfigValues"/> <UnitName Value="rxCRC"/>
</Item1> </Item1>
<Item2> <Item2>
<Filename Value="rxstrutils.pas"/> <Filename Value="rxtools/rxconfigvalues.pas"/>
<UnitName Value="rxstrutils"/> <UnitName Value="rxConfigValues"/>
</Item2> </Item2>
<Item3> <Item3>
<Filename Value="rxdateutil.pas"/> <HasRegisterProc Value="True"/>
<UnitName Value="rxdateutil"/>
</Item3> </Item3>
<Item4> <Item4>
<Filename Value="rxfileutils.pas"/> <Filename Value="rxtools/rxconst.pas"/>
<UnitName Value="rxFileUtils"/> <UnitName Value="rxconst"/>
</Item4> </Item4>
<Item5> <Item5>
<Filename Value="rxconst.pas"/> <Filename Value="rxtools/rxdateutil.pas"/>
<UnitName Value="rxconst"/> <UnitName Value="rxdateutil"/>
</Item5> </Item5>
<Item6>
<Filename Value="rxtools/rxdconst.pas"/>
<UnitName Value="rxdconst"/>
</Item6>
<Item7>
<Filename Value="rxtools/rxfileutils.pas"/>
<UnitName Value="rxFileUtils"/>
</Item7>
<Item8>
<Filename Value="rxtools/rxstrutils.pas"/>
<UnitName Value="rxstrutils"/>
</Item8>
</Files> </Files>
<LazDoc Paths="docs;/usr/local/share/lazarus/components/rxnew/docs"/> <LazDoc Paths="docs;/usr/local/share/lazarus/components/rxnew/docs"/>
<RequiredPkgs Count="1"> <RequiredPkgs Count="1">

4
components/rx/trunk/rxtools.pas
View File

@ -8,8 +8,8 @@ unit rxtools;
interface interface
uses uses
rxConfigValues, rxstrutils, rxdateutil, rxFileUtils, rxconst, rxCRC, rxConfigValues, rxconst, rxdateutil, rxdconst, rxFileUtils,
LazarusPackageIntf; rxstrutils, LazarusPackageIntf;
implementation implementation

2
components/rx/trunk/rxconfigvalues.pas → components/rx/trunk/rxtools/rxconfigvalues.pas
View File

@ -1,6 +1,6 @@
{ rxConfigValues unit { rxConfigValues unit
Copyright (C) 2005-2010 Lagunov Aleksey alexs@yandex.ru Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it

4
components/rx/trunk/rxconst.pas → components/rx/trunk/rxtools/rxconst.pas
View File

@ -1,7 +1,7 @@
{ rxconst unit { rxconst unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

67
components/rx/trunk/rxtools/rxcrc.pas Normal file
View File

@ -0,0 +1,67 @@
{ rxCRC unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
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. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit rxCRC;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
function crc8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
implementation
{autor - hansotten
http://forum.lazarus.freepascal.org/index.php?topic=31532.msg202338#msg202338
}
function crc8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
var
i,j : Integer;
begin
Result:=Initial;
for i:=1 to Length(Buffer) do
begin
Result:=Result xor Ord(buffer[i]);
for j:=0 to 7 do
begin
if (Result and $80)<>0 then
Result:=(Result shl 1) xor Polynom
else
Result:=Result shl 1;
end;
end;
Result:=Result and $ff;
end;
end.

2
components/rx/trunk/rxdateutil.pas → components/rx/trunk/rxtools/rxdateutil.pas
View File

@ -1,6 +1,6 @@
{ DateUtil unit { DateUtil unit
Copyright (C) 2005-2010 Lagunov Aleksey alexs@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it

4
components/rx/trunk/rxdconst.pas → components/rx/trunk/rxtools/rxdconst.pas
View File

@ -1,7 +1,7 @@
{ string const unit fo DB-aware modules { string const unit fo DB-aware modules
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

2
components/rx/trunk/rxfileutils.pas → components/rx/trunk/rxtools/rxfileutils.pas
View File

@ -1,6 +1,6 @@
{ rxFileUtils is part of RxFPC library { rxFileUtils is part of RxFPC library
Copyright (C) 2005-2013 Lagunov Aleksey alexs@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it

2
components/rx/trunk/rxstrutils.pas → components/rx/trunk/rxtools/rxstrutils.pas
View File

@ -1,6 +1,6 @@
{ RxStrUtils unit { RxStrUtils unit
Copyright (C) 2005-2010 Lagunov Aleksey alexs@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it

4
components/rx/trunk/rxvclutils.pas
View File

@ -1,7 +1,7 @@
{ vclutils unit { vclutils unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxversinfo.pas
View File

@ -1,7 +1,7 @@
{ RxVersInfo is part of RxFPC library { RxVersInfo is part of RxFPC library
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by

4
components/rx/trunk/rxviewspanel.pas
View File

@ -1,7 +1,7 @@
{ RxViewsPanel unit { RxViewsPanel unit
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c) original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by under the terms of the GNU Library General Public License as published by