You've already forked lazarus-ccr
RxFPC:start reorder source folder structure
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5699 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
@ -12,6 +12,7 @@
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<License Value="LGPL"/>
|
||||
<Version Major="1" Release="1"/>
|
||||
<Files Count="2">
|
||||
<Item1>
|
||||
|
||||
@ -2,35 +2,33 @@
|
||||
<CONFIG>
|
||||
<Package Version="4">
|
||||
<Name Value="dcl_rx_ctrl"/>
|
||||
<Type Value="DesignTime"/>
|
||||
<Author Value="Lagunov A.A."/>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="dcl_rx_ctrl"/>
|
||||
<UnitOutputDirectory Value="lib/dcl_rx_ctrl/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<UseAnsiStrings Value="False"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<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">
|
||||
<Item1>
|
||||
<Filename Value="register_rxctrl.pas"/>
|
||||
<Filename Value="dcl_rx_ctrl/register_rxctrl.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="register_rxctrl"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="rxceeditlookupfields.pas"/>
|
||||
<Filename Value="dcl_rx_ctrl/rxceeditlookupfields.pas"/>
|
||||
<UnitName Value="rxceEditLookupFields"/>
|
||||
</Item2>
|
||||
</Files>
|
||||
<Type Value="DesignTime"/>
|
||||
<RequiredPkgs Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="rxnew"/>
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ ex_rx_datapacket unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ registerrx unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RegisterRxDB unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RegisterRxTools unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ global include module
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,19 +1,17 @@
|
||||
<?xml version="1.0"?>
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<Package Version="4">
|
||||
<Name Value="rx_sort_fbdataset"/>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
<Author Value="Lagunov Aleksey"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
|
||||
<UnitOutputDirectory Value="lib/rx_sort_fbdataset/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<MsgFileName Value=""/>
|
||||
</CompilerMessages>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<License Value="LGLPL"/>
|
||||
<Version Major="1" Minor="1" Release="1" Build="2"/>
|
||||
<Files Count="2">
|
||||
<Item1>
|
||||
<Filename Value="rxsortfbdataset.pas"/>
|
||||
@ -25,7 +23,6 @@
|
||||
<UnitName Value="exsortfb"/>
|
||||
</Item2>
|
||||
</Files>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
<RequiredPkgs Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="rxnew"/>
|
||||
|
||||
@ -6,10 +6,10 @@
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
<UnitOutputDirectory Value="lib/rx_sort_sqldb/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<Version Major="1"/>
|
||||
<Version Major="1" Minor="1" Release="1" Build="2"/>
|
||||
<Files Count="1">
|
||||
<Item1>
|
||||
<Filename Value="rxsortsqldb.pas"/>
|
||||
|
||||
@ -7,10 +7,11 @@
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
<UnitOutputDirectory Value="lib/rx_sort_zeos/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<Version Major="1"/>
|
||||
<License Value="LGPL"/>
|
||||
<Version Major="1" Minor="1" Release="1" Build="1"/>
|
||||
<Files Count="2">
|
||||
<Item1>
|
||||
<Filename Value="rxsortzeos.pas"/>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxAboutDialog
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxAboutForm
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxapputils unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{ 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)
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{ 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)
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxclock unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxCloseFormValidator unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxHistoryNavigator unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxctrls unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ curredit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxDateRangeEditUnit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{ 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)
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxdbcomb unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxDBCtrls unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ dbcurredit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ dbdateedit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxdbgrid unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxdbgrid_columsunit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
<UnitOutputDirectory Value="lib/rxdbgrid_export_spreadsheet/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<License Value="LGPL"/>
|
||||
<Version Minor="9" Release="1" Build="5"/>
|
||||
<Version Major="1" Release="1" Build="6"/>
|
||||
<Files Count="3">
|
||||
<Item1>
|
||||
<Filename Value="rxdbgridexportspreadsheet.pas"/>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxdbgrid_findunit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
<Package Version="4">
|
||||
<Name Value="rxdbgrid_print"/>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
<Author Value="Lagunov Aleksey"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
<UnitOutputDirectory Value="lib/rxdbgrid_print/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<Version Major="1" Minor="1" Release="1" Build="1"/>
|
||||
<Files Count="2">
|
||||
<Item1>
|
||||
<Filename Value="rxdbgridprintgrid.pas"/>
|
||||
@ -17,7 +19,7 @@
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="rxdbgridprintgrid_setupunit.pas"/>
|
||||
<UnitName Value="rxdbgridprintgrid_setupunit"/>
|
||||
<UnitName Value="RxDBGridPrintGrid_SetupUnit"/>
|
||||
</Item2>
|
||||
</Files>
|
||||
<LazDoc Paths="docs"/>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxDBGridExportPdf unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ TPdfExportOptions unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxDBGridPrintGrid unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxDBGridPrintGrid unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxDBSpinEdit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxDBTimeEdit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ dbutils unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxdice unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ duallist unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ fduallst unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxfilterby unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ folderlister unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -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.
|
||||
@ -1,7 +1,7 @@
|
||||
{ RegisterRxTools unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxlclconst unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxlogin unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxlookup unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxMDI unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxmemds unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -10,8 +10,8 @@
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="rxdb"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="rxdb;rxcontrols"/>
|
||||
<UnitOutputDirectory Value="lib\rxcontrols\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
@ -25,8 +25,8 @@ Copyright (c) 1998 Master-Bank
|
||||
translate to Lazarus by alexs in 2005 - 2016
|
||||
"/>
|
||||
<License Value="LGPL"/>
|
||||
<Version Major="2" Minor="9" Release="4" Build="200"/>
|
||||
<Files Count="68">
|
||||
<Version Major="2" Minor="9" Release="5" Build="201"/>
|
||||
<Files Count="62">
|
||||
<Item1>
|
||||
<Filename Value="rxautopanel.pas"/>
|
||||
<UnitName Value="RxAutoPanel"/>
|
||||
@ -143,165 +143,141 @@ translate to Lazarus by alexs in 2005 - 2016
|
||||
<UnitName Value="RxDBTimeEdit"/>
|
||||
</Item28>
|
||||
<Item29>
|
||||
<Filename Value="rxdconst.pas"/>
|
||||
<UnitName Value="rxdconst"/>
|
||||
</Item29>
|
||||
<Item30>
|
||||
<Filename Value="rxdice.pas"/>
|
||||
<UnitName Value="rxdice"/>
|
||||
</Item30>
|
||||
<Item31>
|
||||
</Item29>
|
||||
<Item30>
|
||||
<Filename Value="rxfilterby.pas"/>
|
||||
<UnitName Value="rxfilterby"/>
|
||||
</Item31>
|
||||
<Item32>
|
||||
<Filename Value="rxiconv.pas"/>
|
||||
<UnitName Value="rxiconv"/>
|
||||
</Item32>
|
||||
<Item33>
|
||||
</Item30>
|
||||
<Item31>
|
||||
<Filename Value="rxlogin.pas"/>
|
||||
<UnitName Value="rxlogin"/>
|
||||
</Item33>
|
||||
<Item34>
|
||||
</Item31>
|
||||
<Item32>
|
||||
<Filename Value="rxlookup.pas"/>
|
||||
<UnitName Value="rxlookup"/>
|
||||
</Item34>
|
||||
<Item35>
|
||||
</Item32>
|
||||
<Item33>
|
||||
<Filename Value="rxmemds.pas"/>
|
||||
<UnitName Value="rxmemds"/>
|
||||
</Item35>
|
||||
<Item36>
|
||||
</Item33>
|
||||
<Item34>
|
||||
<Filename Value="rxpopupunit.pas"/>
|
||||
<UnitName Value="rxpopupunit"/>
|
||||
</Item36>
|
||||
<Item37>
|
||||
</Item34>
|
||||
<Item35>
|
||||
<Filename Value="rxsortmemds.pas"/>
|
||||
<UnitName Value="rxsortmemds"/>
|
||||
</Item37>
|
||||
<Item38>
|
||||
</Item35>
|
||||
<Item36>
|
||||
<Filename Value="rxspin.pas"/>
|
||||
<UnitName Value="rxspin"/>
|
||||
</Item38>
|
||||
<Item39>
|
||||
</Item36>
|
||||
<Item37>
|
||||
<Filename Value="rxswitch.pas"/>
|
||||
<UnitName Value="rxswitch"/>
|
||||
</Item39>
|
||||
<Item40>
|
||||
</Item37>
|
||||
<Item38>
|
||||
<Filename Value="rxsystemservices.pas"/>
|
||||
<UnitName Value="RxSystemServices"/>
|
||||
</Item40>
|
||||
<Item41>
|
||||
</Item38>
|
||||
<Item39>
|
||||
<Filename Value="rxtbrsetup.pas"/>
|
||||
<UnitName Value="rxtbrsetup"/>
|
||||
</Item41>
|
||||
<Item42>
|
||||
</Item39>
|
||||
<Item40>
|
||||
<Filename Value="rxtimeedit.pas"/>
|
||||
<UnitName Value="RxTimeEdit"/>
|
||||
</Item42>
|
||||
<Item43>
|
||||
</Item40>
|
||||
<Item41>
|
||||
<Filename Value="rxtoolbar.pas"/>
|
||||
<UnitName Value="rxtoolbar"/>
|
||||
</Item43>
|
||||
<Item44>
|
||||
</Item41>
|
||||
<Item42>
|
||||
<Filename Value="rxversinfo.pas"/>
|
||||
<UnitName Value="RxVersInfo"/>
|
||||
</Item44>
|
||||
<Item45>
|
||||
</Item42>
|
||||
<Item43>
|
||||
<Filename Value="rxviewspanel.pas"/>
|
||||
<UnitName Value="RxViewsPanel"/>
|
||||
</Item45>
|
||||
<Item46>
|
||||
</Item43>
|
||||
<Item44>
|
||||
<Filename Value="rxseldsfrm.pas"/>
|
||||
<UnitName Value="rxseldsfrm"/>
|
||||
</Item46>
|
||||
<Item47>
|
||||
</Item44>
|
||||
<Item45>
|
||||
<Filename Value="rxtooledit.pas"/>
|
||||
<UnitName Value="rxtooledit"/>
|
||||
</Item47>
|
||||
<Item48>
|
||||
</Item45>
|
||||
<Item46>
|
||||
<Filename Value="rxvclutils.pas"/>
|
||||
<UnitName Value="rxvclutils"/>
|
||||
</Item48>
|
||||
<Item49>
|
||||
</Item46>
|
||||
<Item47>
|
||||
<Filename Value="rxcloseformvalidator.pas"/>
|
||||
<UnitName Value="RxCloseFormValidator"/>
|
||||
</Item49>
|
||||
<Item50>
|
||||
<Filename Value="rxhistorynavigator.pas"/>
|
||||
<UnitName Value="RxHistoryNavigator"/>
|
||||
</Item50>
|
||||
<Item51>
|
||||
</Item47>
|
||||
<Item48>
|
||||
<Filename Value="ex_rx_bin_datapacket.pas"/>
|
||||
<UnitName Value="ex_rx_bin_datapacket"/>
|
||||
</Item51>
|
||||
<Item52>
|
||||
</Item48>
|
||||
<Item49>
|
||||
<Filename Value="ex_rx_datapacket.pas"/>
|
||||
<UnitName Value="ex_rx_datapacket"/>
|
||||
</Item52>
|
||||
<Item53>
|
||||
</Item49>
|
||||
<Item50>
|
||||
<Filename Value="ex_rx_xml_datapacket.pas"/>
|
||||
<UnitName Value="ex_rx_xml_datapacket"/>
|
||||
</Item53>
|
||||
<Item54>
|
||||
<Filename Value="rxsortby.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item54>
|
||||
<Item55>
|
||||
</Item50>
|
||||
<Item51>
|
||||
<Filename Value="rxsortby.pas"/>
|
||||
<UnitName Value="rxsortby"/>
|
||||
</Item55>
|
||||
<Item56>
|
||||
</Item51>
|
||||
<Item52>
|
||||
<Filename Value="rxmdi.pas"/>
|
||||
<UnitName Value="RxMDI"/>
|
||||
</Item56>
|
||||
<Item57>
|
||||
</Item52>
|
||||
<Item53>
|
||||
<Filename Value="rxinipropstorage.pas"/>
|
||||
<UnitName Value="RxIniPropStorage"/>
|
||||
</Item57>
|
||||
<Item58>
|
||||
</Item53>
|
||||
<Item54>
|
||||
<Filename Value="rx_lcl.res"/>
|
||||
<Type Value="Binary"/>
|
||||
</Item58>
|
||||
<Item59>
|
||||
</Item54>
|
||||
<Item55>
|
||||
<Filename Value="rxdaterangeeditunit.pas"/>
|
||||
<UnitName Value="rxDateRangeEditUnit"/>
|
||||
</Item59>
|
||||
<Item60>
|
||||
</Item55>
|
||||
<Item56>
|
||||
<Filename Value="rxdbgridfootertools.pas"/>
|
||||
<UnitName Value="RxDBGridFooterTools"/>
|
||||
</Item60>
|
||||
<Item61>
|
||||
<Filename Value="rxdbgridfootertools_setup.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item61>
|
||||
<Item62>
|
||||
</Item56>
|
||||
<Item57>
|
||||
<Filename Value="rxdbgridfootertools_setup.pas"/>
|
||||
<UnitName Value="rxdbgridfootertools_setup"/>
|
||||
</Item62>
|
||||
<Item63>
|
||||
<Filename Value="rxshortcutunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item63>
|
||||
<Item64>
|
||||
</Item57>
|
||||
<Item58>
|
||||
<Filename Value="rxshortcutunit.pas"/>
|
||||
<UnitName Value="rxShortCutUnit"/>
|
||||
</Item64>
|
||||
<Item65>
|
||||
</Item58>
|
||||
<Item59>
|
||||
<Filename Value="rxdbgridexportpdf.pas"/>
|
||||
<UnitName Value="RxDBGridExportPdf"/>
|
||||
</Item65>
|
||||
<Item66>
|
||||
<Filename Value="rxdbgridexportpdfsetupunit.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
</Item66>
|
||||
<Item67>
|
||||
</Item59>
|
||||
<Item60>
|
||||
<Filename Value="rxdbgridexportpdfsetupunit.pas"/>
|
||||
<UnitName Value="RxDBGridExportPdfSetupUnit"/>
|
||||
</Item67>
|
||||
<Item68>
|
||||
</Item60>
|
||||
<Item61>
|
||||
<Filename Value="rxlclconst.pas"/>
|
||||
<UnitName Value="rxlclconst"/>
|
||||
</Item68>
|
||||
</Item61>
|
||||
<Item62>
|
||||
<Filename Value="rxcontrols\rxhistorynavigator.pas"/>
|
||||
<UnitName Value="RxHistoryNavigator"/>
|
||||
</Item62>
|
||||
</Files>
|
||||
<LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/>
|
||||
<i18n>
|
||||
|
||||
@ -12,14 +12,14 @@ uses
|
||||
rxduallist, rxfduallst, rxfolderlister, rxpagemngr, rxpickdate, registerrx,
|
||||
RegisterRxDB, RegisterRxTools, RxAboutDialog, rxAboutFormUnit, rxapputils,
|
||||
rxclock, rxctrls, RxDBColorBox, rxdbcomb, RxDBCtrls, rxdbgrid,
|
||||
rxdbgrid_columsunit, rxdbgrid_findunit, RxDBSpinEdit, RxDBTimeEdit,
|
||||
rxdconst, rxdice, rxfilterby, rxiconv, rxlogin, rxlookup, rxmemds,
|
||||
rxpopupunit, rxsortmemds, rxspin, rxswitch, RxSystemServices, rxtbrsetup,
|
||||
RxTimeEdit, rxtoolbar, RxVersInfo, RxViewsPanel, rxseldsfrm, rxtooledit,
|
||||
rxvclutils, RxCloseFormValidator, RxHistoryNavigator, ex_rx_bin_datapacket,
|
||||
ex_rx_datapacket, ex_rx_xml_datapacket, rxsortby, RxMDI, RxIniPropStorage,
|
||||
rxDateRangeEditUnit, RxDBGridFooterTools, rxdbgridfootertools_setup,
|
||||
rxShortCutUnit, RxDBGridExportPdf, RxDBGridExportPdfSetupUnit, rxlclconst,
|
||||
rxdbgrid_columsunit, rxdbgrid_findunit, RxDBSpinEdit, RxDBTimeEdit, rxdice,
|
||||
rxfilterby, rxlogin, rxlookup, rxmemds, rxpopupunit, rxsortmemds, rxspin,
|
||||
rxswitch, RxSystemServices, rxtbrsetup, RxTimeEdit, rxtoolbar, RxVersInfo,
|
||||
RxViewsPanel, rxseldsfrm, rxtooledit, rxvclutils, RxCloseFormValidator,
|
||||
ex_rx_bin_datapacket, ex_rx_datapacket, ex_rx_xml_datapacket, rxsortby,
|
||||
RxMDI, RxIniPropStorage, rxDateRangeEditUnit, RxDBGridFooterTools,
|
||||
rxdbgridfootertools_setup, rxShortCutUnit, RxDBGridExportPdf,
|
||||
RxDBGridExportPdfSetupUnit, rxlclconst, RxHistoryNavigator,
|
||||
LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ pagemngr unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ pickdate unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxpopupunit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ seldsfrm unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxShortCutUnit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RXDBGrid unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -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
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxspin unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxswitch unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxSystemServices unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxtbrsetup unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxTimeEdit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxtoolbar unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ tooledit unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -7,35 +7,46 @@
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="."/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
<OtherUnitFiles Value="rxtools"/>
|
||||
<UnitOutputDirectory Value="lib/rxtools/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
</CompilerOptions>
|
||||
<Description Value="
|
||||
"/>
|
||||
<License Value="LGPL"/>
|
||||
<Version Minor="1" Build="2"/>
|
||||
<Files Count="5">
|
||||
<Version Minor="2" Build="4"/>
|
||||
<Files Count="8">
|
||||
<Item1>
|
||||
<Filename Value="rxconfigvalues.pas"/>
|
||||
<UnitName Value="rxConfigValues"/>
|
||||
<Filename Value="rxtools/rxcrc.pas"/>
|
||||
<UnitName Value="rxCRC"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="rxstrutils.pas"/>
|
||||
<UnitName Value="rxstrutils"/>
|
||||
<Filename Value="rxtools/rxconfigvalues.pas"/>
|
||||
<UnitName Value="rxConfigValues"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Filename Value="rxdateutil.pas"/>
|
||||
<UnitName Value="rxdateutil"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Filename Value="rxfileutils.pas"/>
|
||||
<UnitName Value="rxFileUtils"/>
|
||||
<Filename Value="rxtools/rxconst.pas"/>
|
||||
<UnitName Value="rxconst"/>
|
||||
</Item4>
|
||||
<Item5>
|
||||
<Filename Value="rxconst.pas"/>
|
||||
<UnitName Value="rxconst"/>
|
||||
<Filename Value="rxtools/rxdateutil.pas"/>
|
||||
<UnitName Value="rxdateutil"/>
|
||||
</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>
|
||||
<LazDoc Paths="docs;/usr/local/share/lazarus/components/rxnew/docs"/>
|
||||
<RequiredPkgs Count="1">
|
||||
|
||||
@ -8,8 +8,8 @@ unit rxtools;
|
||||
interface
|
||||
|
||||
uses
|
||||
rxConfigValues, rxstrutils, rxdateutil, rxFileUtils, rxconst,
|
||||
LazarusPackageIntf;
|
||||
rxCRC, rxConfigValues, rxconst, rxdateutil, rxdconst, rxFileUtils,
|
||||
rxstrutils, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{ 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)
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
@ -1,7 +1,7 @@
|
||||
{ rxconst unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
67
components/rx/trunk/rxtools/rxcrc.pas
Normal file
67
components/rx/trunk/rxtools/rxcrc.pas
Normal 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.
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{ 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)
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
@ -1,7 +1,7 @@
|
||||
{ string const unit fo DB-aware modules
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
@ -1,6 +1,6 @@
|
||||
{ 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)
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
@ -1,6 +1,6 @@
|
||||
{ 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)
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
@ -1,7 +1,7 @@
|
||||
{ vclutils unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxVersInfo is part of RxFPC library
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
{ RxViewsPanel unit
|
||||
|
||||
Copyright (C) 2005-2016 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
|
||||
original conception from rx library for Delphi (c)
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@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
|
||||
|
||||
Reference in New Issue
Block a user