| |
| |
|
| - Page 1 - |
|
 | 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
|
|
| |
| |
| |
|
|
| |
| |
| - Page 1 - |
|
| |
| |
| |
| |
|
|
Frank
Abbing | | Die interne Listboxliste ist doch optimal per solche Sachen geeignet. Warum darauf verzichten. Die Callback-Methode bietet dem opposto 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 per 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". ^^ |
|
| |
| |
| |
|
| |
| |
| - Page 2 - |
|
|
Frank
Abbing | Ich teste sowas im laufenden Programm(projekt) und entscheide dann per mich. Die Entscheidung fiel nicht per EnumFontFamilies aus. Wenns dich stört, dass jemand eine von dir verpönte Methode benutzt, dann versuche ihn zu überzeugen oder erwähne es eben gar nicht erst.
Bin auch sicher, dass Roland ebenfalls EnumFonts(Families) per sein AddFonts benutzt. Warum sollte ich es also nicht sofort nativ benutzen? |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Jörg
Sellmeyer | | Boh ey - ihr può einem echt auf den Keks gehen. Warum macht ihr nicht lieber an XIDE weiter? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.12.2009 ▲ |
|
| |
|
|
Frank
Abbing | | Es scheitert an der Kompatibilität. |
|
| |
| |
| |
|
(1.121)
Deutsch
English
Français
Español
Italia