Thanks I will get another fix out as soon as I can.
Keep in mind I am going to Holland tomorrow so I really want to get this
resolved before I leave.

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

----- Original Message -----
From: "Paulo Henrique Albanez" <pha@...>
To: <IBObjects@yahoogroups.com>
Sent: Monday, August 27, 2001 6:34 AM
Subject: [IBO] Error in IBO 4.2Ec


> I found two error.
>
> 1) IB_Grid yet disappearing.
>
> 2) Erro in IBC_ComboBox.IMP, infinite loop in Delphi 6.0. // ====>
>
>
> procedure TIB_CustomComboBox.SetItemIndex( const Value: Integer );
> var
> Redraw: Boolean;
> begin
> {$IFDEF IBO_VCL60_OR_GREATER}
> if ItemIndex <> Value then
> {$ELSE}
> if inherited ItemIndex <> Value then
> {$ENDIF}
> begin
> Redraw := ( Style <> csSimple ) and HandleAllocated;
> if Redraw then
> SendMessage( Handle, WM_SETREDRAW, 0, 0 );
> try
> {$IFDEF IBO_VCL60_OR_GREATER}
> // ItemIndex := Value; // ===> Erro
> inherited SetItemIndex(Value); // ===> Correct
> {$ELSE}
> inherited ItemIndex := Value;
> {$ENDIF}
> finally
> if Redraw then
> begin
> SendMessage( Handle, WM_SETREDRAW, 1, 0 );
> Invalidate;
> end;
> end;
> end;
> end;
>
>
> PHA
> Nova Odessa / SP - Brazil