XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfensterstyle hinzufügen oder entfernen
**********************************
>>> StyleConstante hinzufügen <<< **********************************

Proc AddStyle

    Parameters Handle&,Style&
    SetStyle Handle&,OR(GetStyle(Handle&),Style&)
    Return	GetStyle(Handle&)

EndProc

********************************
>>> StyleConstante entfernen <<<
********************************

Proc SubStyle

    Parameters Handle&,Style&
    Case AND(GetStyle(Handle&),Style&)=Style& : SetStyle Handle&,XOR(GetStyle(Handle&),Style&)
    Return GetStyle(Handle&)

ENDPROC