----- 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;
//for ii := 0 to ColCount - 1 do {I remove}
//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