QDrawFocus

QDrawFocus Proprietés

Champs	Type	L/E	Défaut
Left	SHORT	L
	Position x du focus lorsqu'il est visible
Top	SHORT	L
	Position y du focus lorsqu'il est visible
Width	SHORT	L
	Largeur du focus lorsqu'il est visible
Height	SHORT	L
	Hauteur du focus lorsqu'il est visible
Move	BOOLEAN	L	FALSE
	Indique si le focus a été déplacé ou redimentionné
Visible	BOOLEAN	LE	FALSE
	Indique si le focus est visible
Inside	BOOLEAN	L	FALSE
	Indique si le curseur est a l'interieur du focus
NoResize	BOOLEAN	LE	FALSE
	Pas de redimentionnement si valeur TRUE

QDrawFocus Methods

Methode	Type	Description	Parametres
Remove	SUB(handle&)	Supprime le focus	1
Start	SUB(handle&,x%,y%,cursor%)	Demarre le dessin du focus	4
Draw	SUB(handle&,x%,y%,flagDraw%)	Dessine le focus	4
Stop	SUB(handle&,flagRemove%)	Arrete le dessin du focus	2

QDrawFocus Events

Evenement	Type	Declenchement	Parametres

QDrawFocus Examples
'==============================================================================================
' La méthode Start donne le point de départ du focus,le parametre cursor determine si celui-ci change d'etat
' La méthode Draw dessine le focus , le déplace ou le redimentionne si celui-ci est déja visible et si flagDraw est a true,
' si flagDraw est a false seul l'etat du curseur change.
' La méthode Stop remet le curseur a son etat d'origine aprés action sur le focus et supprime le focus si le flagRemove est a true.
'===============================================================================================
$TYPECHECK ON
$Include "Rapidq.inc"
$include "Object\QDrawFocus.inc"

declare sub StartFocus(button as short,x as short,y as short)
declare sub StopFocus(x as short,y as short)
declare sub DrawFocus(x as short,y as short)
declare sub paint

dim focus as QDrawFocus
dim flag as byte
CREATE Form AS QFORM
    Caption = "Form1"
    Width = 686
    Height = 452
    Center
    CREATE Canvas1 AS QCANVAS
        Left = 0
        Top = 0
        Width = 678
        Height = 425
        OnPaint=paint
        OnMouseDown=StartFocus
        OnMouseUp=StopFocus
        OnMouseMove=DrawFocus
    END CREATE
END CREATE

Form.ShowModal

Sub StartFocus(button as short,x as short,y as short)
  focus.start(Canvas1.handle,x,y,true)
  flag=true
End Sub

Sub DrawFocus(x as short,y as short)
    focus.draw(Canvas1.handle,x,y,flag)
End Sub

Sub StopFocus(x as short,y as short)
  focus.stop(Canvas1.handle,false)
  flag=false
End Sub

Sub paint
  focus.visible=false
  Canvas1.fillrect(0,0,1000,1000,&HFFFFFF)
end sub