I'll add this to my list of things to review and possible take action on.

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

----- Original Message -----
From: "Claudio Kloss" <ckloss@...>
To: <IBObjects@yahoogroups.com>
Sent: Tuesday, March 20, 2001 8:53 AM
Subject: RES: [IBO] OnValidateFields behavior


> Jason,
>
> I think that what the user would expect after receiving an exception
telling
> him that the value wasn't correct is stay at the control for letting him
to
> change the data.
>
> After looking into the source code (not so deeply). I guessed that adding
> "FocusControl" would do what I wanted.
>
> About the grid, I don't now if this approach will work in any case. If you
> want I could check this.
>
> And I guess there is another glitch. What the user has typed is being
lost.
> I think the user would expect to see the wrong value he typed and be
allowed
> to retype or use <Ctrl> <Z> to undo the change. Maybe we have to remove
that
> Move in the Except block.
>
>
> Claudio F. Kloss
> MicroLight Informática Ltda.
> Juiz de Fora - MG - Brazil
>
> -----Mensagem original-----
> De: Jason Wharton [mailto:jwharton@...]
> Enviada em: sexta-feira, 16 de março de 2001 22:48
> Para: IBObjects@yahoogroups.com
> Assunto: Re: [IBO] OnValidateFields behavior
>
> Doesn't the exception prevent them from leaving the control?
>
> What if they were in the grid and it happens to move the focus to another
> control?
>
> What do others think of this suggestion?
>
> Thanks,
> Jason Wharton
> CPS - Mesa AZ
> http://www.ibobjects.com
>
>
> ----- Original Message -----
> From: "Claudio Kloss" <ckloss@...>
> To: "IBObjects" <IBObjects@yahoogroups.com>
> Sent: Thursday, February 22, 2001 1:35 PM
> Subject: [IBO] OnValidateFields behavior
>
>
> > Jason,
> >
> > When an exception is raised in OnValidateField after the user has
pressed
> > <Tab>, focus is being passed to the next control and the edit control
that
> > raised the exception displays the wrong value. If I <Shift><Tab>, the
> value
> > is displayed correctly.
> >
> > What do you think of calling "FocusControl" in the except block in
> > "SysAfterModify"? This way locking the focus on the control that raised
> the
> > exception on the same way when we have required fields left null.
> >
> > I think the users would expect this behavior.
> >
> >
> > procedure TIB_Column.SysAfterModify;
> > begin
> > if not FValidating then
> > try
> > FValidating := true;
> > try
> > if Assigned( FOnValidate ) then
> > FOnValidate( Self );
> > with Statement do
> > if Assigned( FOnValidateField ) then
> > FOnValidateField( Statement, Row, Self );
> > except
> > Move( FValidateBuffer^, FNewColumnInd^, DataSize +
> > SizeOf(smallint));
> > FocusControl; // Line included
> > raise;
> > end;
> > finally
> > FValidating := false;
> > end;
> > FRow.SysAfterColumnModify( Self );
> > if SysInternalChanged then
> > DoAfterModify;
> > end;
> >
> > Claudio F. Kloss
> > MicroLight Informática Ltda.
> > Juiz de Fora - MG - Brazil