| 119 |
|
procedure CheckAndInsert; |
| 120 |
|
procedure DoEnter; override; |
| 121 |
|
procedure DoExit; override; |
| 122 |
< |
{$if lcl_fullversion >= 2000003} |
| 122 |
> |
{$if lcl_fullversion >= 2000002} |
| 123 |
|
{Deferred update changes in Lazarus 2.0 stop the combo box working when |
| 124 |
|
the datasource is nil. We thus have to reverse out the changes :(} |
| 125 |
|
function DoEdit: boolean; override; |
| 578 |
|
FModified := false; |
| 579 |
|
end; |
| 580 |
|
|
| 581 |
< |
{$if lcl_fullversion >= 2000003} |
| 581 |
> |
{$if lcl_fullversion >= 2000002} |
| 582 |
|
type |
| 583 |
|
|
| 584 |
|
{ THackedCustomComboBox } |
| 597 |
|
|
| 598 |
|
procedure TIBLookupComboEditBox.Change; |
| 599 |
|
begin |
| 600 |
< |
if IsUnbound then |
| 600 |
> |
if DataSource = nil then |
| 601 |
|
THackedCustomComboBox(self).CallChange |
| 602 |
|
else |
| 603 |
|
inherited Change; |
| 613 |
|
procedure TIBLookupComboEditBox.Select; |
| 614 |
|
begin |
| 615 |
|
inherited Select; |
| 616 |
< |
if IsUnbound then |
| 616 |
> |
if DataSource = nil then |
| 617 |
|
inherited DoEdit; |
| 618 |
|
end; |
| 619 |
|
|
| 621 |
|
begin |
| 622 |
|
{DoEdit will swallow characters if no editable Field. Hence, to enabled |
| 623 |
|
writing we must avoid calling the inherited method.} |
| 624 |
< |
if IsUnbound then |
| 624 |
> |
if DataSource = nil then |
| 625 |
|
Result := true |
| 626 |
|
else |
| 627 |
|
Result := inherited DoEdit; |
