Why not simply return the field Value in IBG_GetText ,

function TIB_CustomComboBox.IBG_GetText: string;
begin
if Assigned( Field ) then
// Result := Items.Strings[ ItemValues.IndexOf(
Field.DisplayText ) ]
Result := Field.DisplayText
else
Result := '';
end;

--- In IBObjects@y..., kamen_lai@y... wrote:
> it' not work , since the problem is each time call translatetext
> the 'aVal' value will be in Items or itemvalues , so the function
> will return wrong value
>
>
> --- In IBObjects@y..., "Geoff Worboys" <geoff@t...> wrote:
> > > In IBC_ComboBox.IMP , line 421,
> > > Sometimes the aVal parameter pass items value or itemvalues,
> cause
> > > the display text in grid empty, so i correct the source code for
> > > proper display text .
> > >
> > > function TIB_CustomComboBox.IBG_TranslateText(AVal: string):
> string;
> > > begin
> > > // Result := Items.Strings[ ItemValues.IndexOf( AVal ) ];
> > > Result := aVal;
> > > if Items.IndexOf( aVal ) = -1 then
> > > Result := Items.Strings[ ItemValues.IndexOf( AVal ) ];
> > > end;
> > >
> > > Is this correct?
> >
> > The idea is that this function is called to translate an actual
> stored
> > value into a value appropriate for display to the user.
> >
> > Looking at the original code I believe you are correct that it is
> > inappropriate.
> >
> > After discovering similar problems with my Enh combobox I think
that
> > we may need to check the combobox style - and whether or not the
> user
> > has actually defined a separate set of ItemValues. So possibly
the
> > code should be...
> >
> > function TIB_CustomComboBox.IBG_TranslateText(AVal: string):
string;
> > var
> > tmpIndex: integer;
> > begin
> > Result := AVal;
> > // With csDropDown style any value is acceptable and so
> > // ItemValues is ignored and no translation performed.
> > if Style = csDropDownList then
> > begin
> > // let blank values pass straight through
> > if Length(AVal) > 0 then
> > begin
> > // if separate itemvalues provided ensure given
> > // value exists in that list.
> > if ItemValues.Count > 0 then
> > begin
> > // If given value not found in ItemValues then
> > // return blank, otherwise return corresponding
> > // display value from Items list.
> > tmpIndex := ItemValues.IndexOf( AVal );
> > if tmpIndex >= 0 then
> > Result := Items.Strings[ tmpIndex ]
> > else
> > Result := '';
> > end
> > else // if no separate ItemValues defined
> > begin
> > // If given value not found in Items list then
> > // return blank. Otherwise the item will be
> > // returned directly (already assigned to result)
> > tmpIndex := Items.IndexOf( AVal );
> > if tmpIndex < 0 then
> > Result := '';
> > end;
> > end;
> > end;
> > end;
> >
> >
> > Does this appear to achieve what you want? Would you be able to
> test
> > this on both csDropDown and csDropDownList boxes? (I dont use
> > TIB_ComboBox myself and have nothing setup to test with.)
> >
> > I think the code is more explicit and should allow csDropDown
style
> > boxes to work as expected (I suspect there must be problems at the
> > moment).
> >
> > AFAICT letting blank values pass straight through should be a
> correct.
> > If any ItemValues are defined it should be a complete set of
> permitted
> > values (in a csDropDownList style box) and so you should only get
a
> > display when a non-blank value is matched. Without any ItemValues
> > list the same rule applies to the Items list, the given value
must
> be
> > found.
> >
> > Thoughts?
> >
> > Geoff Worboys
> > Telesis Computing