XProfan

- Página 1 -

Thomas
Freier

Lo dürften aber genügend geeignete Libre Digifonts en el WEB disponible ser. Z.B.: [...]

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas Freier, Beitrag=56834, Zeitpunkt=21.04.2010

ByteAttack

Lo dürften aber genügend geeignete Libre Digifonts en el WEB disponible ser. Z.B.: [...]

Je nee - Is klar... Cuestión mich sólo, si uno auch TTF nutzen kann, el no installiert son. Quasi encima irgendeinen Zugriff en el TTF-Expediente direkt.

Website: [...]

Facebook: [...]

@Marc: Nein, sólo después de "windows"fonts... kopierte. ^ ^

Für media Geschmack macht ihr el viel a kompliziert.

Einfach Bitmapfonttexturmäßig (16*16 Felder en z.B. 512x512-Pixel-Bild) y sólo después de einfacher XY-Formel rauskopieren - es auch superfix oder Tengo el Ziel el Übung missverstanden. ^ ^

ByteAttack

Sí - Er voluntad sí no Gráficos con se rumschleppen ...

Website: [...]

Facebook: [...]

Entweder malt él el Digits en una hPic oder él läd esta en una hPic - él kann auch una hPic erzeugen y simplemente Bilddaten de el Speicher en él ablegen con SetBitmapBits(hPic,pixelAnzahl,pixelSpeicher) como z.B. en el Pixels.Inc. Mit GetBitmapBits käme uno auch simplemente a el Pixeldaten heran, podría uno como .tex speichern y Datengenerator einbinden en por SetBitmapBits wiederum anzuweisen. ^ ^

- Página 2 -

H.Brill

Müßte doch posible ser, en un Speicherbitmap
una Zahl como 7Segment para dibujar y anzuzeigen.
Das wäre entonces auch bastante flott. Deshalb hatte
Yo auch el PB-Ejemplo gewählt.
So en etwa lugar Yo el antes :
Kompilieren Marca Separación

Declare bild1&, bild2&, bmp1&, bmp2&, bmp3&, bmp4&,  hD%

Proc ZeichneLed

    Parameters image&, zahl%, farbe%
    StartPaint bmp1&
    hier wird auf das entsprechende Bild (Bitmap)
    die angegebene Zahl in angegebener Farbe gezeichnet
    und angezeigt
    EndPaint

EndProc

Proc Dialog

    Declare hB%, start%, info%, OK%, Name$
    hD% = @Create("Dialog",%DeskTop,"Dialogfenster",100,100,600,400)
    hB% = @Create("Button",hD%,"&ENDE",10,10,60,25)
    info% = @Create("Button", hD%, "&Info", 100, 10, 60, 25)
    start% = @Create("Button", hD%, "&Start",180, 10, 60, 25)
    bild1& = @Create("hNewPic", 20, 40, RGB(0,255,255)) Cyan Image
    bild2& = @Create("hNewPic", 20, 40, RGB(255,0,0))    Red image
    bmp1& = Create("BITMAP",hD%,bild1&,30,60)
    bmp2& = Create("BITMAP",hD%,bild1&,52,60)
    bmp3& = Create("BITMAP",hD%,bild2&,74,60)
    bmp4& = Create("BITMAP",hD%,bild2&,96,60)
    Clear OK%

    WhileNot Ok%

        WaitInput

        If @Clicked(hB%)

            Ok% = 1

        ElseIf %Key = 2

            Hier wird das X (rechts oben Schließen) ausgewertet
            OK% = 1

        ElseIf @Clicked(info%)

            Name$ = @GetText$(Edit1%)
            @MessageBox("Ich bin der Autor : " + Name$, "Info", 0)

        ElseIf @Clicked(start%)

            ZeichneLed bmp1&, 1, RGB(x,x,x)  Zahl 1 mit Farbe RGB() zeichnen

        EndIf

    EndWhile

    Dialogfenster (incl. Button, usw.) entfernen
    @DestroyWindow(hD%)

EndProc

Hier wird die Dialogbox (Procedur) aufgerufen
Dialog
DeleteObject bild1&, bild2&, bmp1&, bmp2&, bmp3&, bmp4&
 href='./../../funktionsreferenzen/XProfan/end/'>End

Kompilieren Marca Separación

Uwe
''Pascal''
Niemeier

Hi Personas!

Cuestión mich sólo, si uno auch TTF nutzen kann, el no installiert son. Quasi encima irgendeinen Zugriff en el TTF-Expediente direkt.

window 500,500
 $H Windows.ph
var Pfad$="X:DiversesStyle-7_digital-7Digital-7.ttf"
print ~AddFontResource(addr(Pfad$))----- 1=OK
usefont "Digital-7",30,15,0,0,0
drawtext 10,100,"Test 0123"
print ~RemoveFontResource(addr(Pfad$))-- <>0 = OK
waitin

BTW1: En Verwendung de AddFontResourceEx /RemoveFontResourceEx puede ser auch bestimmen, daß sólo el propio Programa Zugriff en el Font ha.

BTW2: Läßt uno RemoveFontResource weg, restos el Font a para nächsten Neustart en Windows verfügbar.

BTW3: Der Fontname muß no con el Dateinamen identisch ser!

BTW4: © / ® des Fonts en Weitergabe beachten!

HTH
Pascal

Cool, wusste Yo garnicht, dass uno TTFs auch "on-the-fly" nutzen kann. ^ ^

Wäre en jedenfall una schönes Snippet.

H.Brill, Beitrag=56854, Zeitpunkt=22.04.2010

Müßte doch posible ser, en un Speicherbitmap
una Zahl como 7Segment para dibujar y anzuzeigen.

Jetzt verstehe Yo sólo, lo que quiere decir.

Klar va dies simplemente, Yo schaue heute abend igual veces - Yo sería wohl el Ziffern-Segmentinfos para todos Ziffern simplemente en una String (Speicher) ablegen - mache Yo entonces antes Yo lo mi. ^ ^

ByteAttack

@Pascal: Geil ! Es me doch liso 5 Bannannannnas wert...

Website: [...]

Facebook: [...]

Vlt. algo como:
Kompilieren Marca Separación

decimals 0
randomize
window 1000,750
var myDisplayHPic&=digitsHPic.create("012345",32,64)

while 1

    waitinput 500
    drawPic myDisplayHPic&,20,20;0
    digitsHPic.renew(myDisplayHPic&,str$(rnd(999999)),32,64)

wend

...deleteObject(myDisplayHPic&)
end

proc digitsHPic.create

    parameters digits$,charWidth&,charHeight&
    case digits$="" : digits$="0"
    var hPic&=create("hNewPic",len(digits$)*charWidth&,charHeight&,0)
    digitsHPic.renew(hPic&,digits$,charWidth&,charHeight&)
    return hPic&

endproc

proc digitsHPic.renew

    parameters hPic&,digits$,charWidth&,charHeight&
    var c&=len(digits$)
    casenot c& : return
    startPaint hPic&
    cls $3E3E3E
    var lnsz&=int(sqrt(charWidth&*charHeight&)*0.08)
    var innerCharWidth&=int(charWidth&*0.8)
    var innerCharHeight&=int(charHeight&*0.8)
    var innerCharYM&=int(charHeight&*0.5)
    var innerCharX&=int((charWidth&-innerCharWidth&)*0.5)
    var innerCharY&=int((charHeight&-innerCharHeight&)*0.5)
    var digs$="0000000001001010111011011011011101011010111101111101001011111111111011"
    var ch&=""

    whileLoop 0,c&-1

        ch&=(ord(mid$(digits$,&loop+1,1))-48)*7
        digitsHPic.renew.line(0,&loop*charWidth&+innerCharX&+lnsz&,innerCharY& , &loop*charWidth&+innerCharX&+innerCharWidth&-lnsz&,innerCharY& )
        digitsHPic.renew.line(1,&loop*charWidth&+innerCharX&,innerCharY&+lnsz& , &loop*charWidth&+innerCharX&,innerCharYM&-lnsz& )
        digitsHPic.renew.line(2,&loop*charWidth&+innerCharX&+innerCharWidth&,innerCharY&+lnsz& , &loop*charWidth&+innerCharX&+innerCharWidth&,innerCharYM&-lnsz& )
        digitsHPic.renew.line(3,&loop*charWidth&+innerCharX&+lnsz&,innerCharYM& , &loop*charWidth&+innerCharX&+innerCharWidth&-lnsz&,innerCharYM& )
        digitsHPic.renew.line(4,&loop*charWidth&+innerCharX&,innerCharYM&+lnsz& , &loop*charWidth&+innerCharX&,innerCharY&+innerCharHeight&-lnsz& )
        digitsHPic.renew.line(5,&loop*charWidth&+innerCharX&+innerCharWidth&,innerCharYM&+lnsz& , &loop*charWidth&+innerCharX&+innerCharWidth&,innerCharY&+innerCharHeight&-lnsz& )
        digitsHPic.renew.line(6,&loop*charWidth&+innerCharX&+lnsz&,innerCharY&+innerCharHeight& , &loop*charWidth&+innerCharX&+innerCharWidth&-lnsz&,innerCharY&+innerCharHeight& )

    wend

    usepen 0,int(lnsz&*0.25),0
    usebrush 0,0

    whileLoop 0,c&-1

        rectangle &loop*charWidth&,0 - &loop*charWidth&+charWidth&,charHeight&

    wend

    endPaint

    proc digitsHPic.renew.line

        parameters ln&,x&,y&,xx&,yy&
        usepen 0,lnsz&,if(byte(addr(digs$),ch&+ln&)-48,$22FF11,$4E4E4E)
        line x&,y& - xx&,yy&

    endproc

<

s=s4 href='./../../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC

Descargar

Kann el auch como Control bereitstellen.

disp.exe

432 kB

Hochgeladen:

22.04.2010

Ladeanzahl:

Descargar

Zwischenablage01.jpg Prevista

27 kB

Hochgeladen:

22.04.2010

Ladeanzahl:

Descargar

H.Brill

sieht ya veces bastante bien de.
Geht algo como auch en una Diálogo ?
Bräuchte algo como en uno normalen
Diálogo-Anwendung.

Soweit Yo weiß, spielen como el
UseBrush y USEP - Befehle no
con.

Klar, Usted hast sí el Wahl simplemente sólo el HPic para dibujar oder el HPic para una Mapa de bits ( create("Mapa de bits...) anzuwenden - Bitmaps puede sí problemlos en Dialogen abgelegt voluntad.