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

Comparing ibx/trunk/ibcontrols/IBLookupComboEditBox.pas (file contents):
Revision 310 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
Revision 311 by tony, Mon Aug 24 09:32:58 2020 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