| |
| |
|
 | Listet vorhandene Typen einer Schriftart und gibt diese als String zurück - kann z.B. auch genutzt werden um zu Prüfen, ob eine Schriftart installiert ist. (checkFont("arial")="") = keine "arial" installiert.
KompilierenMarkierenSeparierencls
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 nicht fein. |
|
| |
| |
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Frank
Abbing | | Die interne Listboxliste ist doch optimal für solche Sachen geeignet. Warum darauf verzichten. Die Callback-Methode bietet dem gegenüber keine Vorteile. |
|
| |
| |
| |
|
|
| Ich wollte nicht glauben (hab deshalb nochmal nachgefragt), dass Du dabei wirklich keine Vorteile siehst und lieber die interne LB "verbrätst".  Spielt aber keine Rolle, wers brauch wirds finden. |
|
| |
| |
| |
|
|
Frank
Abbing | | An welche Vorteile denkst du? |
|
| |
| |
| |
|
|
Frank
Abbing | Gibts keine?  |
|
| |
| |
| |
|
|
| | Na für Dich erst nächstes Weihnachten, Dieses gibtsn Paket mit notwendiger Phantasie. |
|
| |
| |
| |
|
|
Frank
Abbing | Sag doch einfach: Mir fallen keine Vorteile ein.  |
|
| |
| |
| |
|
|
| Ok, dann sage ich einfach: Mir fallen keine Vorteile ein.
Wahrheit ist es ja trotzdem nicht, egal ob Dus hören möchtest. 
Ich meinte zuvor bereits: "wers brauch wirds finden", vlt. hättest Du es einfach dabei belassen sollen.
Mach Du erstmal ne Funktion draus, kann doch sonst so keiner vergleichen. Vlt. siehst Du dann auch den "Unterschied". ^^ |
|
| |
| |
| |
|
(543)
Deutsch
English
Français
Español
Italia