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

RxFPC:add new component rxxmlpropstorage

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6165 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-02-02 06:43:46 +00:00
parent 749f1cd764
commit 992be28e62
8 changed files with 214 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

179
components/rx/trunk/demos/rxdbgrid/RxDBGrid/RxDBGridDemo.lpi
View File

@ -59,7 +59,7 @@
<MinVersion Major="1" Release="18" Build="56" Valid="True"/> <MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item5> </Item5>
</RequiredPackages> </RequiredPackages>
<Units Count="75"> <Units Count="77">
<Unit0> <Unit0>
<Filename Value="RxDBGridDemo.lpr"/> <Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -477,13 +477,12 @@
</Unit56> </Unit56>
<Unit57> <Unit57>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="5043"/> <TopLine Value="5415"/>
<CursorPos Y="5059"/> <CursorPos Y="5428"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="3" Y="7319" ID="1"/> <Item0 X="3" Y="7315" ID="1"/>
<Item1 X="17" Y="4357" ID="2"/> <Item1 X="17" Y="4357" ID="2"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -515,11 +514,13 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGrid_PopUpFilterUnit"/> <UnitName Value="RxDBGrid_PopUpFilterUnit"/>
<EditorIndex Value="11"/> <IsVisibleTab Value="True"/>
<TopLine Value="142"/> <EditorIndex Value="6"/>
<CursorPos X="3" Y="161"/> <TopLine Value="216"/>
<CursorPos X="3" Y="224"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit61> </Unit61>
<Unit62> <Unit62>
<Filename Value="../../../rxtools/rxfileutils.pas"/> <Filename Value="../../../rxtools/rxfileutils.pas"/>
@ -539,7 +540,7 @@
</Unit63> </Unit63>
<Unit64> <Unit64>
<Filename Value="../../../rxtools/rxdconst.pas"/> <Filename Value="../../../rxtools/rxdconst.pas"/>
<EditorIndex Value="8"/> <EditorIndex Value="4"/>
<TopLine Value="98"/> <TopLine Value="98"/>
<CursorPos X="3" Y="117"/> <CursorPos X="3" Y="117"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
@ -562,7 +563,7 @@
<Unit67> <Unit67>
<Filename Value="../../../../../lcl/lclproc.pas"/> <Filename Value="../../../../../lcl/lclproc.pas"/>
<UnitName Value="LCLProc"/> <UnitName Value="LCLProc"/>
<EditorIndex Value="9"/> <EditorIndex Value="5"/>
<TopLine Value="843"/> <TopLine Value="843"/>
<CursorPos Y="862"/> <CursorPos Y="862"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
@ -571,182 +572,194 @@
<Unit68> <Unit68>
<Filename Value="../../../../lazutils/laz_avl_tree.pp"/> <Filename Value="../../../../lazutils/laz_avl_tree.pp"/>
<UnitName Value="Laz_AVL_Tree"/> <UnitName Value="Laz_AVL_Tree"/>
<EditorIndex Value="10"/> <EditorIndex Value="-1"/>
<TopLine Value="1387"/> <TopLine Value="1387"/>
<CursorPos Y="1406"/> <CursorPos Y="1406"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit68> </Unit68>
<Unit69> <Unit69>
<Filename Value="../../../../../lcl/include/customcombobox.inc"/> <Filename Value="../../../../../lcl/include/customcombobox.inc"/>
<EditorIndex Value="7"/> <EditorIndex Value="-1"/>
<TopLine Value="200"/> <TopLine Value="200"/>
<CursorPos Y="218"/> <CursorPos Y="218"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit69> </Unit69>
<Unit70> <Unit70>
<Filename Value="../../../../../lcl/lclmessageglue.pas"/> <Filename Value="../../../../../lcl/lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/> <UnitName Value="LCLMessageGlue"/>
<EditorIndex Value="3"/> <EditorIndex Value="-1"/>
<TopLine Value="103"/> <TopLine Value="103"/>
<CursorPos Y="123"/> <CursorPos Y="123"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit70> </Unit70>
<Unit71> <Unit71>
<Filename Value="../../../../../lcl/interfaces/win32/win32callback.inc"/> <Filename Value="../../../../../lcl/interfaces/win32/win32callback.inc"/>
<EditorIndex Value="4"/> <EditorIndex Value="-1"/>
<TopLine Value="2676"/> <TopLine Value="2676"/>
<CursorPos Y="2695"/> <CursorPos Y="2695"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit71> </Unit71>
<Unit72> <Unit72>
<Filename Value="../../../../../lcl/interfaces/win32/win32wsstdctrls.pp"/> <Filename Value="../../../../../lcl/interfaces/win32/win32wsstdctrls.pp"/>
<UnitName Value="Win32WSStdCtrls"/> <UnitName Value="Win32WSStdCtrls"/>
<EditorIndex Value="5"/> <EditorIndex Value="-1"/>
<TopLine Value="412"/> <TopLine Value="412"/>
<CursorPos Y="428"/> <CursorPos Y="428"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit72> </Unit72>
<Unit73> <Unit73>
<Filename Value="../../../../../lcl/interfaces/win32/win32memostrings.inc"/> <Filename Value="../../../../../lcl/interfaces/win32/win32memostrings.inc"/>
<EditorIndex Value="6"/> <EditorIndex Value="-1"/>
<TopLine Value="167"/> <TopLine Value="167"/>
<CursorPos X="42" Y="192"/> <CursorPos X="42" Y="192"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit73> </Unit73>
<Unit74> <Unit74>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../../../lcl/include/control.inc"/>
<EditorIndex Value="2"/> <EditorIndex Value="-1"/>
<TopLine Value="4514"/> <TopLine Value="4514"/>
<CursorPos Y="4540"/> <CursorPos Y="4540"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit74> </Unit74>
<Unit75>
<Filename Value="../../../rxdbgrid_print/rxdbgridprintgrid.pas"/>
<UnitName Value="RxDBGridPrintGrid"/>
<EditorIndex Value="2"/>
<TopLine Value="365"/>
<CursorPos X="3" Y="314"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit75>
<Unit76>
<Filename Value="../../../rxdbgrid_export_spreadsheet/rxdbgridexportspreadsheet.pas"/>
<UnitName Value="RxDBGridExportSpreadSheet"/>
<EditorIndex Value="3"/>
<TopLine Value="160"/>
<CursorPos X="3" Y="142"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit76>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5519" TopLine="5508"/> <Caret Line="232" TopLine="216"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5526" TopLine="5508"/> <Caret Line="234" TopLine="216"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5059" TopLine="5041"/> <Caret Line="235" TopLine="216"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5519" TopLine="5501"/> <Caret Line="236" TopLine="216"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5059" TopLine="5043"/> <Caret Line="232" TopLine="216"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5060" TopLine="5043"/> <Caret Line="234" TopLine="216"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5519" TopLine="5501"/> <Caret Line="235" TopLine="216"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5522" Column="19" TopLine="5501"/> <Caret Line="236" TopLine="216"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5519" TopLine="5501"/> <Caret Line="232" TopLine="216"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5059" TopLine="5043"/> <Caret Line="234" TopLine="216"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5060" TopLine="5043"/> <Caret Line="235" TopLine="216"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4602" TopLine="4585"/> <Caret Line="236" TopLine="216"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4531" TopLine="4514"/> <Caret Line="232" TopLine="216"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4534" TopLine="4514"/> <Caret Line="234" TopLine="216"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4535" TopLine="4514"/> <Caret Line="235" TopLine="216"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4536" TopLine="4514"/> <Caret Line="236" TopLine="216"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4537" TopLine="4514"/> <Caret Line="232" TopLine="216"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4538" TopLine="4514"/> <Caret Line="234" TopLine="216"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../../../../../lcl/include/control.inc"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4540" TopLine="4514"/> <Caret Line="235" TopLine="216"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5519" TopLine="5501"/> <Caret Line="236" TopLine="216"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="789" Column="5" TopLine="774"/> <Caret Line="232" TopLine="216"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="701" Column="16" TopLine="677"/> <Caret Line="234" TopLine="216"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="7311" Column="16" TopLine="7308"/> <Caret Line="235" TopLine="216"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="7319" Column="3" TopLine="7308"/> <Caret Line="236" TopLine="216"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="4357" Column="17" TopLine="4341"/> <Caret Line="232" TopLine="216"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="7319" Column="3" TopLine="7301"/> <Caret Line="240" TopLine="216"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="243" TopLine="216"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5526" Column="76" TopLine="5508"/> <Caret Line="246" TopLine="216"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5024" TopLine="5008"/> <Caret Line="241" Column="22" TopLine="216"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="../../../rxdb/rxdbgrid.pas"/> <Filename Value="../../../rxdb/rxdbgrid_popupfilterunit.pas"/>
<Caret Line="5519" TopLine="5491"/> <Caret Line="248" Column="39" TopLine="216"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

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

@ -41,7 +41,7 @@ uses
procedure Register; procedure Register;
implementation implementation
uses RxSystemServices, RxLogin, RxVersInfo, RxCloseFormValidator, RxIniPropStorage; uses RxSystemServices, RxLogin, RxVersInfo, RxCloseFormValidator, RxIniPropStorage, RxXMLPropStorage;
const const
sRxToolsPage = 'RX Tools'; sRxToolsPage = 'RX Tools';
@ -71,6 +71,11 @@ begin
RegisterComponents(sRxToolsPage,[TRxIniPropStorage]); RegisterComponents(sRxToolsPage,[TRxIniPropStorage]);
end; end;
procedure RegisterRxXMLPropStorage;
begin
RegisterComponents(sRxToolsPage,[TRxXMLPropStorage]);
end;
procedure Register; procedure Register;
begin begin
RegisterUnit('RxLogin', @RegisterRxLogin); RegisterUnit('RxLogin', @RegisterRxLogin);
@ -78,6 +83,7 @@ begin
RegisterUnit('RxSystemServices', @RegisterRxSystemServices); RegisterUnit('RxSystemServices', @RegisterRxSystemServices);
RegisterUnit('RxCloseFormValidator', @RegisterCloseFormValidator); RegisterUnit('RxCloseFormValidator', @RegisterCloseFormValidator);
RegisterUnit('RxIniPropStorage', @RegisterRxIniPropStorage); RegisterUnit('RxIniPropStorage', @RegisterRxIniPropStorage);
RegisterUnit('RxXMLPropStorage', @RegisterRxXMLPropStorage);
end; end;
end. end.

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

@ -1,6 +1,6 @@
{ RegisterRxTools unit { RxIniPropStorage unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team Copyright (C) 2005-2018 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

98
components/rx/trunk/rxcontrols/rxxmlpropstorage.pas Normal file
View File

@ -0,0 +1,98 @@
{ RxXMLPropStorage unit
Copyright (C) 2005-2018 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
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 RxXMLPropStorage;
{$I rx.inc}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, XMLPropStorage;
const
defCFGFileExt = '.xcfg';
type
{ TRxXMLPropStorage }
TRxXMLPropStorage = class(TXMLPropStorage)
private
FSeparateFiles: boolean;
protected
function GetXMLFileName: string; override;
public
published
property SeparateFiles:boolean read FSeparateFiles write FSeparateFiles;
end;
implementation
uses LazFileUtils, LazUTF8, rxapputils;
function GetDefaultCfgName: string;
var
S:string;
begin
Result := ExtractFileName(ChangeFileExt(Application.ExeName, defCFGFileExt));
S:=RxGetAppConfigDir(false);
S:=SysToUTF8(S);
ForceDirectoriesUTF8(S);
Result:=S+Result;
end;
{ TRxXMLPropStorage }
function TRxXMLPropStorage.GetXMLFileName: string;
var
S: String;
begin
if ExtractFileDir(FileName) <> '' then
Result:=FileName
else
begin
S:=GetDefaultIniName;
if FileName <> '' then
Result:=AppendPathDelim(ExtractFileDir(S)) + FileName
else
begin
if FSeparateFiles then
Result:=AppendPathDelim(ExtractFileDir(S)) + RootSection + defCFGFileExt
else
Result:=S;
end;
end;
Result:=UTF8ToSys(Result);
end;
end.

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

@ -5424,11 +5424,7 @@ begin
aRect.Top := (aRect.Top + aRect.Bottom - H) div 2; aRect.Top := (aRect.Top + aRect.Bottom - H) div 2;
aRect.Bottom := aRect.Top + H; aRect.Bottom := aRect.Top + H;
end; end;
{$IFDEF lcl_version < '1.9.0.0'}
RxColumn.ImageList.StretchDraw(Canvas, AImageIndex, aRect);
{$ELSE}
RxColumn.ImageList.Draw(Canvas, aRect.Left, aRect.Top, AImageIndex); RxColumn.ImageList.Draw(Canvas, aRect.Left, aRect.Top, AImageIndex);
{$ENDIF}
end; end;
procedure TRxDBGrid.SetEditText(ACol, ARow: longint; const Value: string); procedure TRxDBGrid.SetEditText(ACol, ARow: longint; const Value: string);

6
components/rx/trunk/rxdb/rxdbgrid_popupfilterunit.pas
View File

@ -217,9 +217,11 @@ procedure TRxDBGrid_PopUpFilterForm.CheckBox1Change(Sender: TObject);
var var
i: Integer; i: Integer;
begin begin
CheckListBox1.OnClickCheck:=nil;
for i:=0 to CheckListBox1.Items.Count - 1 do for i:=0 to CheckListBox1.Items.Count - 1 do
CheckListBox1.Checked[i]:=CheckBox1.Checked; CheckListBox1.Checked[i]:=CheckBox1.Checked;
CheckListBox1ClickCheck(nil); CheckListBox1.OnClickCheck:=@CheckListBox1ClickCheck;
// CheckListBox1ClickCheck(nil);
end; end;
procedure TRxDBGrid_PopUpFilterForm.CheckListBox1ClickCheck(Sender: TObject); procedure TRxDBGrid_PopUpFilterForm.CheckListBox1ClickCheck(Sender: TObject);
@ -237,6 +239,7 @@ begin
AU:=false; AU:=false;
end; end;
CheckBox1.OnChange:=nil;
if AC then if AC then
CheckBox1.Checked:=true CheckBox1.Checked:=true
else else
@ -244,6 +247,7 @@ begin
CheckBox1.Checked:=false CheckBox1.Checked:=false
else else
CheckBox1.State:=cbGrayed; CheckBox1.State:=cbGrayed;
CheckBox1.OnChange:=@CheckBox1Change;
end; end;
procedure TRxDBGrid_PopUpFilterForm.FormClose(Sender: TObject; procedure TRxDBGrid_PopUpFilterForm.FormClose(Sender: TObject;

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

@ -26,7 +26,7 @@ Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2018"/> translate to Lazarus by alexs in 2005 - 2018"/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Major="3" Minor="2" Release="1" Build="210"/> <Version Major="3" Minor="2" Release="1" Build="210"/>
<Files Count="72"> <Files Count="73">
<Item1> <Item1>
<Filename Value="registerrx.pas"/> <Filename Value="registerrx.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
@ -318,6 +318,10 @@ translate to Lazarus by alexs in 2005 - 2018"/>
<Filename Value="rxcontrols\rxrangesel.pas"/> <Filename Value="rxcontrols\rxrangesel.pas"/>
<UnitName Value="RxRangeSel"/> <UnitName Value="RxRangeSel"/>
</Item72> </Item72>
<Item73>
<Filename Value="rxcontrols\rxxmlpropstorage.pas"/>
<UnitName Value="RxXMLPropStorage"/>
</Item73>
</Files> </Files>
<LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/> <LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/>
<i18n> <i18n>

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

@ -21,7 +21,7 @@ uses
RxIniPropStorage, rxlclconst, rxlogin, RxMDI, rxpagemngr, rxpickdate, RxIniPropStorage, rxlclconst, rxlogin, RxMDI, rxpagemngr, rxpickdate,
rxShortCutUnit, rxspin, rxswitch, RxSystemServices, rxtbrsetup, RxTimeEdit, rxShortCutUnit, rxspin, rxswitch, RxSystemServices, rxtbrsetup, RxTimeEdit,
rxtoolbar, rxtooledit, RxDBGrid_PopUpFilterUnit, rxdbverticalgrid, rxtoolbar, rxtooledit, RxDBGrid_PopUpFilterUnit, rxdbverticalgrid,
rxlclutils, RxRangeSel, LazarusPackageIntf; rxlclutils, RxRangeSel, RxXMLPropStorage, LazarusPackageIntf;
implementation implementation