| |
| |
|
 | Listet vorhandene Typen einer Schriftart et gibt cet comme String zurück - peux z.B. aussi genutzt volonté afin de vérifier, si une Schriftart installiert ist. (checkFont("arial")="") = aucun "arial" installiert.
KompilierenMarqueSéparationcls
print checkFont("Arial")
waitinput
end
proc checkFont
parameters fnt$
var l&=create("list",0)
external("gdi32","EnumFontFamiliesA",%hdc,addr(fnt$),procAddr(checkFont.EnumProc,4),l&)
fnt$=""
whileLoop 0,getCount(l&)-1
fnt$=fnt$+getString$(l&,&loop)
wend
destroyWindow(l&)
return fnt$
proc checkFont.EnumProc
parameters lpelf&,lpntm&,ft&,l&
var tmps$=string$(lpelf&,28)+"
"
case selectString(l&,-1,tmps$)+1 : return 0
addString(l&,tmps$)
return 1
endproc
endproc
|
|
| |
| |
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
| | Mach doch ne Funktion. Interne LB lünchen ist pas délicat. |
|
| |
| |
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Frank
Abbing | | qui interne Listboxliste mais est optimal pour solche Sachen approprié. pourquoi puis verzichten. qui Callback-Methode bietet dem à aucun Vorteile. |
|
| |
| |
| |
|
|
| je voulais pas croyons (hab c'est pourquoi nochmal nachgefragt), dass Du dabei wirklich aucun Vorteile vois et lieber qui interne LB "verbrätst".  Spielt mais aucun rôle, wers coutume wirds trouver. |
|
| |
| |
| |
|
|
Frank
Abbing | | à quelle Vorteile denkst du? |
|
| |
| |
| |
|
|
Frank
Abbing | Gibts aucun?  |
|
| |
| |
| |
|
|
| | Na pour toi seulement nächstes Weihnachten, cet gibtsn paquet avec notwendiger Phantasie. |
|
| |
| |
| |
|
|
Frank
Abbing | Sag doch simple: Mir tomber aucun Vorteile un.  |
|
| |
| |
| |
|
|
| Ok, ensuite sage je simple: Mir tomber aucun Vorteile un.
vérité ist es oui quand même pas, égal si Dus écouter vouloir. 
je meinte zuvor bereits: "wers coutume wirds finden", vlt. hättest Du es simple dabei belassen devoir.
Mach Du erstmal ne Funktion draus, peux doch sonst so aucun comparer. Vlt. vois Du ensuite aussi den "Unterschied". ^ ^ |
|
| |
| |
| |
|
(1.112)
Deutsch
English
Français
Español
Italia