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 27 by tony, Tue Apr 14 13:10:23 2015 UTC vs.
Revision 31 by tony, Tue Jul 14 15:31:25 2015 UTC

# Line 114 | Line 114 | type
114      procedure DoEnter; override;
115      procedure DoExit; override;
116      procedure KeyUp(var Key: Word; Shift: TShiftState); override;
117 +    procedure Loaded; override;
118      procedure Notification(AComponent: TComponent; Operation: TOperation); override;
119      procedure SetItemIndex(const Val: integer); override;
120      function SQLSafe(aText: string): string;
# Line 346 | Line 347 | begin
347                 SelStart := iSelStart;
348                 SelLength := UTF8Length(Text);
349               end;
350 +             KeyValue := ListSource.DataSet.FieldByName(KeyField).AsVariant;
351             end;
352           end;
353      finally
# Line 379 | Line 381 | end;
381  
382   procedure TIBLookupComboEditBox.HandleEnter(Data: PtrInt);
383   begin
384 +  if AppDestroying in Application.Flags then Exit;
385     SelectAll
386   end;
387  
# Line 456 | Line 459 | end;
459  
460   procedure TIBLookupComboEditBox.DoExit;
461   begin
462 +  if FTimer.Interval <> 0 then
463 +    HandleTimer(nil);
464    FExiting := true;
465    try
466      CheckAndInsert;
# Line 486 | Line 491 | begin
491       (not (cbactEndOfLineComplete in AutoCompleteText) or (SelStart = UTF8Length(Text))) then
492      FTimer.Interval := FKeyPressInterval
493    else
494 <    FTimer.Interval := 0
494 >    FTimer.Interval := 0;
495 > end;
496 >
497 > procedure TIBLookupComboEditBox.Loaded;
498 > begin
499 >  inherited Loaded;
500 >  IBControlLinkChanged;
501   end;
502  
503   procedure TIBLookupComboEditBox.Notification(AComponent: TComponent;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines