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

RxFPC:RxDBGrid - fix find dialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6918 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2019-05-17 10:51:57 +00:00
parent 7e66929867
commit 5870a6f972
2 changed files with 38 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/trunk/rxdb/rxdbgrid_findunit.pas
View File

@ -120,15 +120,15 @@ var
SearchOrigin:TRxSearchDirection;
P:TBookMark;
R:boolean;
FC: TRxColumn;
begin
{ TODO -oalexs : Необходимо переделать поиск по колонке - искать всегда по строковому представлению. Иначе не ищет по дате-времени }
if (Edit1.Text<>'') and (ComboBox1.ItemIndex>=0) and (ComboBox1.ItemIndex<ComboBox1.Items.Count) and (ComboBox1.Text<>'') then
begin
try
//FieldName:=FGrid.Columns[ComboBox1.ItemIndex].FieldName;
//FieldName:=FGrid.ColumnByFieldName(ComboBox1.Text).FieldName;
FieldName:=ComboBox1.Text;
FC:=FGrid.ColumnByCaption(ComboBox1.Text);
if not Assigned(FC) then Exit;
FieldName:=FC.FieldName;
LOptions:=[];
if not CheckBox1.Checked then
LOptions:=LOptions+[loCaseInsensitive];