| |
| |
|
| - page 1 - |
|
 | 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
|
|
| |
| |
| |
|
|
| |
| |
| - page 1 - |
|
| |
| |
| |
| |
|
|
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". ^ ^ |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
Frank
Abbing | je teste quelque chose comme im laufenden Programme(projet) et entscheide ensuite pour mich. qui Entscheidung fiel pas pour EnumFontFamilies aus. Wenns toi stört, dass quelqu'un une de dir verpönte Methode benutzt, ensuite versuche ihn trop überzeugen ou bien erwähne es plan gar pas seulement.
suis aussi sûrement, dass Roland également EnumFonts(Families) pour son AddFonts benutzt. pourquoi sollte je es alors pas tout de suite nativ benutzen? |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Jörg
Sellmeyer | | Boh ey - vous pouvez einem vraie sur den cuisinière aller. pourquoi pouvoir son pas lieber à XIDE plus? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.12.2009 ▲ |
|
| |
|
|
Frank
Abbing | | Es scheitert à qui Kompatibilität. |
|
| |
| |
| |
|
(1.108)
Deutsch
English
Français
Español
Italia