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 275 by tony, Mon Feb 4 13:41:10 2019 UTC vs.
Revision 278 by tony, Mon Feb 4 13:47:40 2019 UTC

# Line 54 | Line 54 | type
54      FOwner: TIBLookupComboEditBox;
55    protected
56      procedure ActiveChanged; override;
57 <    {$if lcl_fullversion < 2000003}
57 >    {$if lcl_fullversion < 2000000}
58      procedure DataEvent(Event: TDataEvent; Info: Ptrint); override;
59      {$endif}
60      procedure RecordChanged(Field: TField); override;
# Line 127 | Line 127 | type
127      procedure CloseUp; override;
128      procedure Select; override;
129      {$ifend}
130 +    {$if lcl_fullversion = 2000002}
131 +    procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
132 +    {$ifend}
133      procedure KeyUp(var Key: Word; Shift: TShiftState); override;
134      procedure Loaded; override;
135      procedure Notification(AComponent: TComponent; Operation: TOperation); override;
# Line 178 | Line 181 | begin
181    FOwner.ActiveChanged(self)
182   end;
183  
184 < {$if lcl_fullversion < 2000003}
184 > {$if lcl_fullversion < 2000000}
185   procedure TIBLookupComboDataLink.DataEvent(Event: TDataEvent; Info: Ptrint);
186   begin
187    inherited DataEvent(Event, Info);
# Line 578 | Line 581 | begin
581    FModified := false;
582   end;
583  
584 +
585 + {Workarounds due to bugs in various Lazarus 2.0 release candidates}
586   {$if lcl_fullversion >= 2000002}
587   type
588  
# Line 586 | Line 591 | type
591    THackedCustomComboBox = class(TCustomComboBox)
592    private
593      procedure CallChange;
594 +    procedure CallUTF8KeyPress(var UTF8Key: TUTF8Char);
595    end;
596  
597   { THackedCustomComboBox }
# Line 595 | Line 601 | begin
601    inherited Change;
602   end;
603  
604 + procedure THackedCustomComboBox.CallUTF8KeyPress(var UTF8Key: TUTF8Char);
605 + begin
606 +  inherited UTF8KeyPress(UTF8Key);
607 + end;
608 +
609   procedure TIBLookupComboEditBox.Change;
610   begin
611    if DataSource = nil then
# Line 628 | Line 639 | begin
639   end;
640   {$ifend}
641  
642 + {$if lcl_fullversion = 2000002}
643 + procedure TIBLookupComboEditBox.UTF8KeyPress(var UTF8Key: TUTF8Char);
644 + begin
645 +  if DataSource = nil then
646 +    THackedCustomComboBox(self).CallUTF8KeyPress(UTF8Key)
647 +  else
648 +    inherited;
649 + end;
650 + {$ifend}
651 +
652 +
653   constructor TIBLookupComboEditBox.Create(TheComponent: TComponent);
654   begin
655    inherited Create(TheComponent);

Diff Legend

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