ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/ibcontrols/IBLookupComboEditBox.pas
(Generate patch)

Comparing:
ibx/trunk/ibcontrols/IBLookupComboEditBox.pas (file contents), Revision 291 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
ibx/branches/journaling/ibcontrols/IBLookupComboEditBox.pas (file contents), Revision 362 by tony, Tue Dec 7 13:27:39 2021 UTC

# Line 370 | Line 370 | begin
370                   UTF8Insert(sPrefixText, sResultText, 1);
371                 end;
372                 Text := sResultText;
373               SelStart := iSelStart;
374               SelLength := UTF8Length(Text) - iSelStart;
373               end;
374 +             SelStart := iSelStart;
375 +             SelLength := UTF8Length(Text) - iSelStart;
376             end
377             else
378             begin
# Line 440 | Line 440 | procedure TIBLookupComboEditBox.Validate
440   var SQLDialect: integer;
441      FieldNames: TStringList;
442   begin
443 <  if (ListSource = nil) or (ListSource.DataSet = nil) then Exit;
443 >  if (ListSource = nil) or (ListSource.DataSet = nil) or
444 >    not (ListSource.DataSet is TIBCustomDataSet) or
445 >     ((ListSource.DataSet as TIBCustomDataSet).Database = nil) then Exit;
446    SQLDialect := (ListSource.DataSet as TIBCustomDataSet).Database.SQLDialect;
447    FieldNames := TStringList.Create;
448    try

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines