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

RxFPC:RxDBGrid - add new event BeforeSorting

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7341 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-03-24 13:25:48 +00:00
parent 7c43c78f0c
commit 48445d706a
3 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/docs/rxmemds.xml
View File

@ -3,7 +3,8 @@
<package name="rxnew"> <package name="rxnew">
<module name="rxmemds"> <module name="rxmemds">
<element name="TRxMemoryData"><short>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</short><descr>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</descr> <element name="TRxMemoryData"><short>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</short><descr>TRxMemoryData - таблица в памяти. Является наследником от TDataSet
</descr>
</element> </element>
<element name="TRxMemoryData.Create"/> <element name="TRxMemoryData.Create"/>
<element name="TRxMemoryData.Destroy"/> <element name="TRxMemoryData.Destroy"/>

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

@ -31,7 +31,7 @@
{$I rx.inc} {$I rx.inc}
unit rxdbgrid; unit RxDBGrid;
interface interface
@ -753,6 +753,7 @@ type
FIsSelectedDefaultFont:boolean; FIsSelectedDefaultFont:boolean;
FFooterOptions: TRxDBGridFooterOptions; FFooterOptions: TRxDBGridFooterOptions;
FBeforeSorting: TNotifyEvent;
FOnCalcRowHeight: TRxDBGridCalcRowHeight; FOnCalcRowHeight: TRxDBGridCalcRowHeight;
FSearchOptions: TRxDBGridSearchOptions; FSearchOptions: TRxDBGridSearchOptions;
FSelectedFont: TFont; FSelectedFont: TFont;
@ -1046,6 +1047,7 @@ type
property OnFiltred: TNotifyEvent read FOnFiltred write FOnFiltred; property OnFiltred: TNotifyEvent read FOnFiltred write FOnFiltred;
property OnSortChanged: TNotifyEvent read FOnSortChanged write FOnSortChanged; property OnSortChanged: TNotifyEvent read FOnSortChanged write FOnSortChanged;
property BeforeSorting: TNotifyEvent read FBeforeSorting write FBeforeSorting;
property OnDataHintShow: TRxDBGridDataHintShowEvent read FOnDataHintShow write FOnDataHintShow; property OnDataHintShow: TRxDBGridDataHintShowEvent read FOnDataHintShow write FOnDataHintShow;
//from DBGrid //from DBGrid
@ -5070,6 +5072,13 @@ begin
end; end;
end; end;
if Assigned(FBeforeSorting) then
begin
FSortingNow := True;
FBeforeSorting(Self);
FSortingNow := False;
end;
CollumnSortListUpdate; CollumnSortListUpdate;
if Assigned(FSortEngine) then if Assigned(FSortEngine) then
CollumnSortListApply; CollumnSortListApply;

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

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="5">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="rxnew"/> <Name Value="rxnew"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
@ -23,9 +23,9 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Delphi VCL Extensions (RX) <Description Value="Delphi VCL Extensions (RX)
Copyright (c) 1998 Master-Bank Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2018"/> translate to Lazarus by alexs in 2005 - 2020"/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Major="3" Minor="3" Release="1" Build="220"/> <Version Major="3" Minor="3" Release="2" Build="222"/>
<Files Count="70"> <Files Count="70">
<Item1> <Item1>
<Filename Value="registerrx.pas"/> <Filename Value="registerrx.pas"/>