Subject | Re: TIB_LocateEdit bug ? |
---|---|
Author | ymarcius |
Post date | 2002-01-29T01:47:11Z |
> I can see this happening when DataField is not assigned (and soTIB_DataSource );
> attaches to the OrderingField). I believe the fix for this would be
> something like...
>
> procedure TIB_LocateEdit.EditingChanged( Sender: TIB_DataLink;
> IB_DataSource:
> beginHi Geoff!
> if (DataLink.State in [dssInsert,dssEdit,dssSearch]) then begin
> if DisableEditing then
> inherited ReadOnly := true
> else inherited EditingChanged( Sender, IB_DataSource );
> end
> else
> if (DataLink.State in [dssBrowse]) then begin
> inherited ReadOnly := false
> end;
>
> I've not tested but I think that should work.
Thank you for the answer.
I tried your patch but unfortunately it's not solving the problem. :(
Maybe the ReadOnly property is set to true somewhere else ?
Marcello