XProfan

Len% = Lg(Zahl&) + 1

Set("Décimal",15)
Imprimer 10^3.64777486' = ~4444
imprimer "4444 hat",Int(Lg(4444)) + 1,"Imagine"
WaitInput

 $H Windows.ph
 $I profalt.inc
' PRFellow - Présentation
' Zeigt, comment on un tour la fenêtre simuliert
' Autor: Thomas Bois
' Requiert Profan 6.0 (32)
Def CreateEllipticRgn(4) !"GDI32","CreateEllipticRgn"
Def DeleteObject(1) !"GDI32",«DeleteObject»
Def InvertRgn(2) !"GDI32","InvertRgn"
Def PaintRgn(2) !"GDI32","PaintRgn"
Def SetWindowRgn(3) !"User32","SetWindowRgn"
Def Capture de sortie(0) !"User32",Capture de sortie "

Proc DrawTime

    Déclarer t$
    Rectangle 120,140-190,160
    Laisser t$=Time $(0);»;Left $(Time $(1),2)
    DrawText 120,140,t$

ENDPROC

'##################################

Proc Pousser

    SetWindowPos %hwnd = (Tour(%maxx -300) + 300),(Tour(%maxy -300) + 300) - 300,300

ENDPROC

'###################################
Déclarer ende%,rgn&,x%,déplacer%
SetTrueColor 1
Fenêtre Style $78
Titre de la fenêtre "Round Fenster"
Fenêtre 0,0-300,300
Utilisateur Messages 16
Laisser rgn&=CreateEllipticRgn(0,0,300,300)
SetWindowRgn(%hwnd,rgn&,1)
Cls RGB(0,0,255)
UseFont Arial,20,0,0,0,0
UseBrush 1,RGB(0,0,255)
USEP 5,0,0
Couleur du texte RGB(255,255,255),-1
DrawText 80,80,«Les droits Bouton de la souris!"
DrawTime
SetTimer 1000
'#########################################
Var Timer& = ~SetTimer(%hwnd,1,1000,ProcAddr(Pousser,0))
'#########################################

WhileNot ende%

    WaitInput
    Cas %umessage = 16:Pause

    Si %wmtimer

        DrawTime

        Si déplacer%

            SetWindowPos %hwnd=% X,0-300,300
            Ajouter x%,10
            Cas Gt(% X,%maxx):Laisser x%=0

        EndIf

    EndIf

    Si Equ(%message,$204)

        CreateMenu
        AppendMenu 1, "& Inverser"

        IF déplacer%

            AppendMenu 2,"& Pause

        D'autre

            AppendMenu 2, "B & ewegen"

        EndIf

        AppendMenu 3,"& Color ändern"
        Séparateur
        AppendMenu 4,"& Quitter"
        TrackMenu %MouseX,%MouseY

        Si MenuItem(1)

            InvertRgn(%hdc,rgn&)

        Elseif Menuitem(2)

            Laisser déplacer%=Not(Move%)

        ElseIf MenuItem(3)

            Randomiser
            ' avec région-Funktion:
            ' UseBrush 1,RGB(Tour(256),Tour(256),Tour(256))
            ' PaintRgn(%hdc,rgn&)
            ' cela TUTS bien sûr aussi...
            Cls RGB(Tour(256),Tour(256),Tour(256))
            DrawTime

        ElseIf MenuItem(4)

            Laisser ende%=1

        Endif

    Elseif Equ(%message,$201)

        UseCursor 5
        SendMessage(%hwnd,$0112,$0F012,0);
        UseCursor 0
        Capture de sortie()

    EndIf

Wend

KillTimer
'#####################
~KillTimer(%hwnd,Timer&)
'#####################
SetWindowRgn(%hwnd,0,0)
DeleteObject(rgn&)
Fin