Deutsch
Stammtisch & Café

Ist soetwas sinnvoll ?

 

Georg
Teles
Guten späten Abend,

mich interessiert eure Meinung, gibt es am fongenden Code etwas auszusetzen ?
Proc test

    Declare h1&, h2&
    h1& = bild("Text",32,32,RGB(0,0,255),RGB(255,0,0))
    h2& = bild("Txt2",48,48,RGB(0,255,0),RGB(0,0,255))
    Return Str$(h1&)+"_"+Str$(h2&)

EndProc

Proc bild

    Parameters text$, x&, y&, color&, bg&
    MCLS x&, y&
    StartPaint -1
    CLS bg&
    TextColor color&,-1
    DrawText 1,1,text$;-1
    EndPaint
    Return Create("hPic",0,"&MEMBMP")

EndProc

CLS
Declare test$, pic1&, pic2&
test$ = test()
pic1& = Val(SubStr$(test$,1,"_"))
pic2& = Val(SubStr$(test$,2,"_"))
DrawPic pic1&,0,0;0
DrawPic pic2&,0,32;0
WaitInput
DeleteObject pic1&
DeleteObject pic2&

Servus
 
XProfan X3
TC-Programming [...] 
XProfan 10.0 - XProfan X2 - XProfan X3 - XProfan X4
24.03.2016  
 



Jo,

4. Param DrawText hast Semikolon statt Komma,

mehr setze ich auf Anhieb nicht aus. ^^
 
24.03.2016  
 




RGH
... und dann darf der vierte Parameter natürlich nicht -1 sein, sondern hier 0, damit der Text komplett angezeigt wird. (So wie es da steht, wird der Parameter hinter dem Semikolon einfach ignoriert.)

Ansonsten: Ich wüsste nicht, was es noch auszusetzen gäbe. Das Programm funktioniert. (Auch unter der kommenden Version X3.1.)

Gruß
Roland
 
XProfan X3
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
24.03.2016  
 




Georg
Teles
Sehr gut, vielen Dank !

mit dem Semikolon & -1 mein Fehler, habe DrawText seit XProfan 10.0 nicht mehr benutzt

RGH (24.03.2016)
(Auch unter der kommenden Version X3.1.)


darauf warten Viele sehnsüchtig
 
XProfan X3
TC-Programming [...] 
XProfan 10.0 - XProfan X2 - XProfan X3 - XProfan X4
24.03.2016  
 




RGH
Wird nicht mehr lange dauern mit der X3.1. Die neuen Funktionen und Bugfixes sind schon final in XProfan X3.1 und FreeProfan 0.95 eingebaut.
Die FreeProfan-Versionen werde ich wohl heute oder morgen hochladen, zu XProfan werde ich neue Installationspakete als auch einen Patch erstellen. Es kann allerdings sein, dass ich es hier vor Ostern nicht mehr schaffe und es erst in der Woche nach Ostern fertig wird.

Hier findest Du schon mal eine Dokumentation der Neuerungen: [...] 

Gruß
Roland
 
XProfan X3
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
24.03.2016  
 




Georg
Teles
Sehr schöön

RGH (24.03.2016)
Es kann allerdings sein, dass ich es hier vor Ostern nicht mehr schaffe und es erst in der Woche nach Ostern fertig wird.


nur keine Eile, wichtig ist dass Nichts ausser Acht gelassen wurde
Servus
 
XProfan X3
TC-Programming [...] 
XProfan 10.0 - XProfan X2 - XProfan X3 - XProfan X4
24.03.2016  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

4.468 Betrachtungen

Unbenanntvor 0 min.
Georg Teles16.09.2017
Chregu Mueller22.05.2017
Torsten Rümker10.05.2016
Ernst22.04.2016
Mehr...

Themeninformationen

Dieses Thema hat 3 Teilnehmer:

Georg Teles (3x)
RGH (2x)
iF (1x)


AGB  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Impressum  |  Mart  |  Support  |  Suche

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie