paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxFPC:fix AV sort command on dataset wo sortengine

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9413 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2024-08-08 08:15:38 +00:00
parent 2504540a41
commit 5430db3112
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3201,6 +3201,8 @@ begin
end;
procedure TRxDBGrid.DoCreateJMenu;
var
M: TMenuItem;
begin
F_PopupMenu := TPopupMenu.Create(Self);
F_PopupMenu.Name := 'OptionsMenu';
@ -3209,7 +3211,8 @@ begin
CreateToolMenuItem('E', sRxDBGridFilterSimple, @OnFilter);
CreateToolMenuItem('Q', sRxDBGridFilterClear, @OnFilterClose);
CreateToolMenuItem(#0, '-', nil);
CreateToolMenuItem('C', sRxDBGridSortByColumns, @OnSortBy);
M:=CreateToolMenuItem('C', sRxDBGridSortByColumns, @OnSortBy);
M.Enabled:=Assigned(FSortEngine);
CreateToolMenuItem('W', sRxDBGridSelectColumns, @OnChooseVisibleFields);
CreateToolMenuItem('A', sRxDBGridSelectAllRows, @OnSelectAllRows);
CreateToolMenuItem(#0, sRxDBGridCopyCellValue, @OnCopyCellValue);
@ -6488,7 +6491,7 @@ var
FSortListField:TStringList;
FColumn:TRxColumn;
begin
if DatalinkActive then
if DatalinkActive and Assigned(FSortEngine) then
begin
FSortListField:=TStringList.Create;
try