| |
| |
|
Georg
Teles | Guten späten soir,
mich intéressé eure attitude, gibt es am fongenden Code quelque chose auszusetzen  ?
Proc test
Déclarer 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))
Retour Str$(h1&)+"_"+Str$(h2&)
ENDPROC
Proc bild
Paramètres text$, x&, y&, color&, bg&
MCLS x&, y&
Début de peinture -1
CLS bg&
Couleur du texte color&,-1
DrawText 1,1,text$;-1
EndPaint
Retour Créer(«PCSI»,0,"& MEMBMP")
ENDPROC
CLS
Déclarer 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&
salut |
|
| |
| |
| |
|
|
 | Jo,
4. Param DrawText la hâte Semikolon statt Komma,
plus mets je sur Anhieb pas aus. ^ ^ |
|
| |
| |
| |
|
|
RGH | ... et ensuite darf qui vierte paramètre naturellement pas -1 son, mais ici 0, avec cela qui Text komplett angezeigt wird. (So comme là steht, wird qui paramètre derrière dem Semikolon simple ignoriert.)
Ansonsten: je wüsste pas, quoi es encore auszusetzen gäbe. cela Programme funktioniert. (aussi sous qui kommenden Version X3.1.)
Salut
Roland |
|
| |
| XProfan X3Intel 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 | |
| |
| |
| |
|
|
RGH | Wird pas plus longtemps dauern avec qui X3.1. qui neuen Funktionen et Bugfixes sommes déjà final dans XProfan X3.1 et FreeProfan 0.95 incorporé.
qui FreeProfan-Versionen werde je wohl aujourd'hui ou bien demain hochladen, trop XProfan werde je neue Installationspakete comme aussi une Patch erstellen. Es peux allerdings son, dass je es ici avant Pâques pas plus schaffe et es seulement dans qui semaine pour Pâques fertig wird.
ici findest Du déjà la fois une Documentation qui Neuerungen: [...] 
Salut
Roland |
|
| |
| XProfan X3Intel 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 | |
| |
| |
| |
|
(910)
Deutsch
English
Français
Español
Italia