| |
| |
|
 | Listet available Types of/ one type and gives these as String back - can z.B. too used to be To Verify, whether a type installs is. (checkFont("arial")="") = no "arial" installs.
CompileMarkSeparationcls
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 still ne function. Interne LB lünchen isn't nice. |
|
| |
| |
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Frank
Abbing | | The interne Listboxliste is still optimal for such things suitable. Why hereon dispense. The Callback-method bid the to no advantages. |
|
| |
| |
| |
|
|
| I wanted to not believe (Have therefore again nachgefragt), that You thereby really no advantages see and rather The interne LB "verbrätst".  game but no role, wers custom Better get going find. |
|
| |
| |
| |
|
|
Frank
Abbing | | on which advantages think You? |
|
| |
| |
| |
|
|
Frank
Abbing | Gibts no?  |
|
| |
| |
| |
|
|
| | well for you first nächstes christmas, this gibtsn pkg with notwendiger imagination. |
|
| |
| |
| |
|
|
Frank
Abbing | Sag still simply: me entrapments no advantages one.  |
|
| |
| |
| |
|
|
| OK, then say I simply: me entrapments no advantages one.
truth is it Yes nevertheless not, alike whether Dus listen want. 
I meant before already: "wers custom Better get going finden", vlt. would have You it simply thereby leave should.
Mach You first ne function draus, can still otherwise so none vergleichen. Perhaps. see You then too whom "Unterschied". ^^ |
|
| |
| |
| |
|
(1.111)
Deutsch
English
Français
Español
Italia