Re: The Case of the Canvas Toogle Focus

[Arnaud Nicolet <arnaud at tribu dot ch>]

Hi,

Why don't you simply write:

if Self.Focus=me then
ClearFocus
else
Me.SetFocus
end if

Le 27 févr. 07 à 16:06 Soir, Emile SCHWARZ a écrit:

>   // Toogle the focus ring
>   Dim theCanvas As Canvas
>
>   // Compute if the Focus is set to a Canvas
>   If Self.Focus IsA Canvas Then
>     // Cast Canvas Control who have the Focus
>     theCanvas = Canvas(Self.Focus)
>   End If
>
>   // Clears or set the Focus
>   If theCanvas = Me Then
>     // Ask the Window to clear the focus
>     ClearFocus
>   Else
>     // Ask the Canvas to set the focus
>     Me.SetFocus
>   End If

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>