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;
FFilterListEditor := TFilterListCellEditor.Create(nil);
with FFilterListEditor do
begin
Name := 'FilterListEditor';
Visible := False;
Items.Append('');
ReadOnly := True;
AutoComplete := True;
OnChange := @FFilterListEditorOnChange;
OnCloseUp := @FFilterListEditorOnCloseUp;
end;
FFilterListEditor.Name := 'FilterListEditor';
FFilterListEditor.Visible := False;
FFilterListEditor.Items.Append('');
//FFilterListEditor.ReadOnly := True;
FFilterListEditor.AutoComplete := True;
FFilterListEditor.OnChange := @FFilterListEditorOnChange;
FFilterListEditor.OnCloseUp := @FFilterListEditorOnCloseUp;
FFilterColDlgButton:=TFilterColDlgButton.Create(nil);
FFilterColDlgButton.Name := 'FilterColDlgButton';