XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster in Größe und Position unverschiebbar machen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor und (C): Thomas Hölzer,2000
Ein Hauptfenster in Größe und Position unverschiebbar machen
Hinweis:
Es wird ein volles Systemmenü vorausgesetzt
Es werden alle erforderlichen Items aus dem Systemmenü temporär entfernt
Der Befehl RestoreSystemMenu stellt den alten Zustand wieder her
Def GetSystemMenu(2) !USER32,GetSystemMenu
Def GetMenuItemCount(1) !USER32,GetMenuItemCount
Def DeleteMenu(3) !USER32,DeleteMenu

Proc FixHWND

    Declare hsysmenu&,i%
    Let hsysmenu&=GetSystemMenu(%hwnd,0)
    Let i%=Sub(GetMenuItemCount(hsysmenu&,0),2)

    While Gt(i%,-1)

        DeleteMenu(hsysmenu&,i%,$400)
        Dec i%

    Wend

EndProc

Proc RestoreSystemMenu

    GetSystemMenu(%hwnd,1)

EndProc

Beispiel
Cls
WindowTitle Add$(GetText$(%hwnd), - Powered by PRFellow 2001)
AppendMenuBar 10, &Fenster unbeweglich machen
AppendMenuBar 20, &Alten Zustand wiederherstellen

While 1

    WaitInput

    If MenuItem(10)

        FixHWND

    ElseIf MenuItem(20)

        RestoreSystemMenu

    EndIf

Endwhile