> Geoff,
> sorry, but would i ask if it works? ;-)

I thought you might be testing me :-)

> Tedit.color := TIB_edit.color

OK, this is your problem. Instead test the dataset state directly and
use a simple case statement.


procedure QryOnChange( Sender: TIB_DataSource;
ADataset: TIB_Dataset ) of object;
begin
case ADataset.State of
dssInsert:
TEdit.Color := ADataset.IB_Session.InsertingColor;
dssEdit:
TEdit.Color := ADataset.IB_Session.EditingColor;
<etc>
end;


HTH

Geoff Worboys
Telesis Computing