diff options
Diffstat (limited to 'extras/tiopf/gui')
| -rw-r--r-- | extras/tiopf/gui/tiGenericEditMediators.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/extras/tiopf/gui/tiGenericEditMediators.pas b/extras/tiopf/gui/tiGenericEditMediators.pas index b5a9159f..ea483612 100644 --- a/extras/tiopf/gui/tiGenericEditMediators.pas +++ b/extras/tiopf/gui/tiGenericEditMediators.pas @@ -828,10 +828,10 @@ var begin if not DataAndPropertyValid then Exit; //==> - if EditControl.FocusItem < 0 then + if EditControl.FocusItem < 1 then Exit; //==> - lValue := TtiObject(FList.Items[EditControl.FocusItem]); + lValue := TtiObject(FList.Items[EditControl.FocusItem-1]); lPropType := typinfo.PropType(Subject, FieldName); if lPropType = tkClass then @@ -865,7 +865,7 @@ begin for i := 0 to FList.Count - 1 do if FList.Items[i] = lValue then begin - EditControl.FocusItem := i; + EditControl.FocusItem := i+1; // Control is 1-based Break; //==> end; |