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

RxFPC:fix RxDBGrid.ReadOnly after removal of TCustomCombobox.ReadOnly property.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7457 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-05-14 20:44:46 +00:00
parent fac710ba0c
commit 3b455ce118
1 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7122,16 +7122,13 @@ begin
FPropertyStorageLink.OnLoad := @OnIniLoad; FPropertyStorageLink.OnLoad := @OnIniLoad;
FFilterListEditor := TFilterListCellEditor.Create(nil); FFilterListEditor := TFilterListCellEditor.Create(nil);
with FFilterListEditor do FFilterListEditor.Name := 'FilterListEditor';
begin FFilterListEditor.Visible := False;
Name := 'FilterListEditor'; FFilterListEditor.Items.Append('');
Visible := False; //FFilterListEditor.ReadOnly := True;
Items.Append(''); FFilterListEditor.AutoComplete := True;
ReadOnly := True; FFilterListEditor.OnChange := @FFilterListEditorOnChange;
AutoComplete := True; FFilterListEditor.OnCloseUp := @FFilterListEditorOnCloseUp;
OnChange := @FFilterListEditorOnChange;
OnCloseUp := @FFilterListEditorOnCloseUp;
end;
FFilterColDlgButton:=TFilterColDlgButton.Create(nil); FFilterColDlgButton:=TFilterColDlgButton.Create(nil);
FFilterColDlgButton.Name := 'FilterColDlgButton'; FFilterColDlgButton.Name := 'FilterColDlgButton';