XProfan

Français

Jörg
Sellmeyer

Salut,

je veux Controls un certain Taille sur einer vorgegebenen Strecke gleichmäßig verteilen. cela klappt aussi mais es scheint mir et avec ca unelegant trop son. Gibt es une bessere Solution comme cet ganze Rechnerei?

Kompilieren Marque Séparation

Proc RClickedMultiItem

    Paramètres b&[],wparam&
    Déclarer I%
    I% = IndexOf(b&[],wparam&)

    Si (%childMessage = 516) And (I% > -1)

        Retour wparam&

    Endif

ENDPROC

Proc ClickedMultiItem

    Paramètres b&[],getfocus%
    Déclarer I%
    I% = IndexOf(b&[],getfocus%)

    Si (I%) > -1

        Retour Clicked(getfocus%)

    EndIf

ENDPROC

Class Raster = count%,\
Raster@

Proc Raster.Raster

    Paramètres parent&,grp&[],breite%,hoehe%,top%,rasterweite%,rasterhoehe%,minRand%,minAbstand%
    Déclarer anzahl%,facteur!,la distance%,reste%,rebord%
    Cas breite% = 0:breite% = Width(parent&)
    Cas hoehe% = 0:hoehe% = Width(parent&)
    Cas rasterhoehe% = 0:rasterhoehe% = rasterweite%
    Décembre breite%,minRand%
    anzahl% = breite% \ rasterweite%
    reste% = breite% - rasterweite% * anzahl%
    la distance% = reste% \ (anzahl% + 1)

    Si la distance% < minAbstand%

        Décembre breite%,minAbstand%
        anzahl% = breite% \ rasterweite%
        reste% = breite% - rasterweite% * anzahl%
        la distance% = reste% \ (anzahl% + 1)

    EndIf

    facteur! = NachKomma(reste% / (anzahl% + 1)) * anzahl%
    rebord% = facteur! \ 2 + minRand%

    WhileLoop 0,anzahl%-1

        grp&[&Boucle] = Créer("Button",%hwnd,Str$(&Boucle + 1),rebord% + la distance% + &Boucle * (rasterweite% + la distance%),top%,rasterweite%,rasterhoehe%)

    Wend

    .count% = SizeOf(grp&[])
    Retour .count%

ENDPROC

Proc NachKomma

    Paramètres f!
    Retour f! - Int(f!)

ENDPROC

Déclarer btn&[]
Déclarer grp#
Fenêtre Style $1F
Fenêtre 400 + Tour(600),600
Cls
grp# = New(Raster,%hwnd,btn&[],0,0,120,96,96,4)
Imprimer grp#.count%,SizeOf(btn&[])
Randomiser

Tandis que 1

    WaitInput

    Si ClickedMultiItem(btn&[],%getfocus)

        Titre de la fenêtre GetText $(%getfocus)

    ElseIf GetFocus(%hwnd)

        DestroyWindow(btn&[])
        Dispose grp#
        Fenêtre 400 + Tour(600),600
        Cls
        Claire btn&[]
        grp# = New(Raster,%hwnd,btn&[],0,0,120,96,96,4,8)
        Imprimer grp#.count%,SizeOf(btn&[])

    EndIf

Wend