XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Controls: Einem Fenster/Control flache ScrollBars zuweisen
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Einem Fenster/Control flache ScrollBars zuweisen
Def InitializeFlatSB(1) !COMCTL32,InitializeFlatSB
Def FlatSB_EnableScrollBar(3) !COMCTL32,FlatSB_EnableScrollBar
Beispiel
Declare medit&
Cls
Let medit&=CreateMultiEdit(%hwnd,,10,10,200,200)
InitializeFlatSB(medit&)
FlatSB_EnableScrollBar(medit&,3,0)

While 1

    WaitInput
    FlatSB_EnableScrollBar(medit&,3,0)

Wend