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



[Non-text portions of this message have been removed]