I am not sure. I will consider this.

Thanks,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com

----- Original Message -----
From: "Luiz" <cprmlao@...>
To: <IBObjects@yahoogroups.com>
Sent: Wednesday, May 01, 2002 1:47 PM
Subject: Re: [IBO] Some problems with tib_lookupcombo and tib_searchpanel


> Jason,
>
> ----- Original Message -----
> From: "Jason Wharton" <jwharton@...>
> To: <IBObjects@yahoogroups.com>
>
>
> > I am unable to change these since they are both aspects of the VCL
> controls
> > inherited from.
> >
> > The problem with Tib_lookupcombo showing insufficient height to show
rows
> > of a dataset persists in IBO 4.2.Ha.
>
> If I use this code in IB_Grid.pas the original problem disappears. But,
the
> columns appears wth the last column width increased.
>
> Excuse my ignorance, but are you sure there is not to do to avoid the
> problem?
>
> function TIB_CustomGrid.WidthForAllCols: integer;
> var
> ii: integer;
> begin
> Result := 0;
> file://for ii := 0 to ColCount - 1 do {I remove}
> file://Inc( Result, ColWidths[ ii ]); {I remove}
> for ii := 0 to GridFieldCount - 1 do {I add}
> Inc( Result, GridFields[ii].DefaultWidth); {I add}
> if ColLines or FixedColLines then
> Inc( Result, GridLineWidth * ( ColCount + 1 )); // could change
ColCount
> with GridFieldCount??
> Inc( Result, Width - ClientWidth );
> end;
>
> Luiz