Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242849 (4285)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Font in Listboxen
David
| Datum:13.07.02 09:57 (David@Brennan.de) |
Hallo Profaner, gibt es eine Möglichkeit für Listboxen eigene Fonts zu setzen ? Vielen Dank... David P.s.: Super Forum
Rolf Koch
| Datum:13.07.02 11:15 (webmaster@rokosoft.de) |
Hi hoffe Du hast nicht gerade ne alte Profanversion.
    declare listbox1&,font%
    Font%=@CREATE("FONT","Times New Roman",13,0,0,0,0)
    cls
    Let ListBox1&=CreateListBox(%hwnd,"",10,10,472,97)
    Font% = @Create("Font","Arial",20,12,0,0,0)
    SetFont Listbox1&,Font%
    addstring(LISTBOX1&,"Test1")
    addstring(LISTBOX1&,"Test2")
    addstring(LISTBOX1&,"Test3")
    addstring(LISTBOX1&,"Test4")
    addstring(LISTBOX1&,"Test5")
    while 1
    wend
    DELETEOBJECT font%

    Rolf
Rolf Koch
| Datum:13.07.02 11:17 (webmaster@roksoft.de) |
Hmm, das erste createfont hab ich zuviel drin ;) Rolf
David
| Datum: 13.07.02 19:05 (David@Brennan.de) |
Schönen Dank für die schnelle Antwort! :-)) Funktioniert einwandfrei... Gruss David...

| Zurück zur Übersicht