| |
| |
|
 | 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
|
|
| |
| |
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
| | Mach doch ne Función. Interne LB lünchen es no fein. |
|
| |
| |
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
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". ^ ^ |
|
| |
| |
| |
|
(525)
Deutsch
English
Français
Español
Italia