XProfan

- page 1 -

Thomas
Freier

Es dürften mais genügend geeignete Free Digifonts im WEB vorhanden son. Z.B.: [...]

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas Freier, Beitrag=56834, Zeitpunkt=21.04.2010

ByteAttack

Es dürften mais genügend geeignete Free Digifonts im WEB vorhanden son. Z.B.: [...]

Je nee - Is bien sûr... Frage mich seulement, si on aussi TTF nutzen peux, qui pas installiert sommes. Pratiquement sur irgendeinen Zugriff sur qui TTF-Dossier direct.

Website: [...]

Facebook: [...]

@Marc: non, seulement pour "windows"fonts... kopierte. ^ ^

Pour meinen Geschmack pouvoir son cela viel trop compliqué.

simple Bitmapfonttexturmäßig (16*16 Felder dans z.B. 512x512-Pixel-Bild) et seulement pour einfacher XY-Formel rauskopieren - ist aussi superfix ou bien j'ai cela but qui Übung missverstanden. ^ ^

ByteAttack

oui - il veut oui aucun Grafiken avec sich rumschleppen ...

Website: [...]

Facebook: [...]

Entweder malt il qui Digits dans un hPic ou bien il läd cet dans un hPic - il peut aussi un hPic erzeugen et simple Bilddaten aus dem grenier y enlever avec SetBitmapBits(hPic,pixelAnzahl,pixelSpeicher) comment z.B. dans qui Pixels.Inc. avec GetBitmapBits käme on aussi simple à qui Pixeldaten heran, pourrait on comme .tex Sauver et Datengenerator einbinden um per SetBitmapBits wiederum anzuweisen. ^ ^

- page 2 -

H.Brill

Müßte doch possible son, dans un Speicherbitmap
une numéro comme 7Segment trop zeichnen et anzuzeigen.
cela wäre ensuite aussi assez flott. c'est pourquoi hatte
je aussi cela PB-Beispiel gewählt.
So dans etwa lieu je mir cela avant :
Kompilieren Marque Séparation

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/'>Fin

Kompilieren Marque Séparation

Uwe
''Pascal''
Niemeier

Hi gens!

Frage mich seulement, si on aussi TTF nutzen peux, qui pas installiert sommes. Pratiquement sur irgendeinen Zugriff sur qui TTF-Dossier direct.

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: chez Verwendung de AddFontResourceEx /RemoveFontResourceEx peux on aussi bestimmen, qui seulement cela eigene Programme Zugriff sur den Font hat.

BTW2: Läßt on RemoveFontResource weg, bleibt qui Font jusqu'à zum prochain Neustart dans Windows disponible.

BTW3: qui Fontname doit pas avec dem Dateinamen identique son!

BTW4: © / ® des Fonts chez Weitergabe tenir compte de!

HTH
Pascal

Cool, wusste je garnicht, dass on TTFs aussi "on-le-fly" nutzen peux. ^ ^

Wäre sur jedenfall un schönes Snippet.

H.Brill, Beitrag=56854, Zeitpunkt=22.04.2010

Müßte doch possible son, dans un Speicherbitmap
une numéro comme 7Segment trop zeichnen et anzuzeigen.

maintenant verstehe je seulement, quoi Du meinst.

bien sûr allez ca simple, je schaue ce soir juste la fois - je serait wohl qui Les chiffres-Segmentinfos pour alle Les chiffres simple dans une String (grenier) enlever - fais je ensuite avant comment je es mon. ^ ^

ByteAttack

@Pascal: Geil ! c'est mir doch glatt 5 Bannannannnas wert...

Website: [...]

Facebook: [...]

Vlt. quelque chose comme:
Kompilieren Marque Séparation

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

Herunterladen

peux cela aussi comme Contrôle bereitstellen.

disp.exe

432 kB

Hochgeladen:

22.04.2010

Downloadcounter:

Herunterladen

Zwischenablage01.jpg Preview

27 kB

Hochgeladen:

22.04.2010

Downloadcounter:

Herunterladen

H.Brill

sieht déjà la fois pas mal aus.
allez quelque chose comme aussi sur einem Dialog ?
Bräuchte quelque chose comme dans einer normalen
Dialog-Anwendung.

Soweit je sais, spielen là qui
UseBrush et USEP - Befehle pas
avec.

bien sûr, tu as oui qui l'élection simple seulement cela HPic trop zeichnen ou bien cela HPic pour un Bitmap ( create("Bitmap...) anzuwenden - Bitmaps peut oui problemlos sur Dialogen abgelegt volonté.