Geoff: Thanks a lot!
i think my hair is completely gone until i know all IBO properties & events!
Greeting Christian

----- Original Message -----
From: "Geoff Worboys" <geoff@...>
To: <IBObjects@yahoogroups.com>
Sent: Saturday, April 28, 2001 3:28 PM
Subject: Re: [IBO] SessionProps / Colorchange


> > 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
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>