| |
| |
|
| - Página 1 - |
|
 | Listet vorhandene Typen uno Schriftart y son esta como String zurück - kann z.B. auch genutzt voluntad en a Prüfen, si una Schriftart installiert es. (checkFont("arial")="") = no "arial" installiert.
KompilierenMarcaSeparacióncls
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
|
|
| |
| |
| |
|
|
| |
| |
| - Página 1 - |
|
| |
| |
| |
| |
|
|
Frank
Abbing | | El interne Listboxliste es doch optimal para solche Sachen geeignet. ¿Por qué darauf verzichten. El Callback-Método bietet el gegenüber no Vorteile. |
|
| |
| |
| |
|
|
| Yo quería no glauben (tener deshalb otra vez nachgefragt), dass Usted esta wirklich no Vorteile siehst y más bien el interne LB "verbrätst".  Spielt pero no Papel, wers costumbre Será mejor que te va encontrar. |
|
| |
| |
| |
|
|
Frank
Abbing | | An welche Vorteile denkst du? |
|
| |
| |
| |
|
|
Frank
Abbing | Gibts no?  |
|
| |
| |
| |
|
|
| | Na para Usted sólo nächstes Weihnachten, Dieses gibtsn Paket con notwendiger Phantasie. |
|
| |
| |
| |
|
|
Frank
Abbing | Sag doch simplemente: Mir fallen no Vorteile una.  |
|
| |
| |
| |
|
|
| Ok, entonces sage Yo simplemente: Mir fallen no Vorteile una.
Wahrheit es sí trotzdem no, egal si Dus hören möchtest. 
Yo meinte zuvor ya: "wers costumbre Será mejor que te va finden", vlt. hättest Usted lo simplemente esta belassen debería.
Mach Usted primero ne Función draus, kann doch sonst así keiner vergleichen. Vlt. siehst Usted entonces auch el "Unterschied". ^ ^ |
|
| |
| |
| |
|
| |
| |
| - Página 2 - |
|
|
Frank
Abbing | Yo teste algo como en el laufenden Programa(projekt) y entscheide entonces para mich. El Entscheidung fiel no para EnumFontFamilies de. Wenns dich stört, dass alguien una de dir verpönte Método benutzt, entonces versuche ihn a überzeugen oder erwähne lo eben nada sólo.
Bin auch sicher, dass Roland ebenfalls EnumFonts(Families) para ser AddFonts benutzt. ¿Por qué debería Yo also no inmediatamente nativ benutzen? |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Jörg
Sellmeyer | | Boh ey - ihr könnt una echt en el Keks ir. ¿Por qué macht ihr no más bien a XIDE más? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.12.2009 ▲ |
|
| |
|
|
Frank
Abbing | | Lo scheitert a el Kompatibilität. |
|
| |
| |
| |
|
(1.112)
Deutsch
English
Français
Español
Italia