ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/ibcontrols/IBLookupComboEditBox.pas

Comparing ibx/trunk/ibcontrols/IBLookupComboEditBox.pas (file contents):
Revision 275 by tony, Mon Feb 4 13:41:10 2019 UTC vs.
Revision 277 by tony, Mon Feb 4 13:45:30 2019 UTC

#	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 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