XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfenster unbeweglich machen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Ein Dialogfenster unbeweglich machen (ab Profan 5.0 - 32)
Parameter: Handle des Dialogfensters
Die Prozedur sollte nicht auf andere Fenstertypen/Controls
angewendet werden!
Def GetWindowLong(2) !USER32, GetWindowLongA
Def SetWindowLong(3) !USER32, SetWindowLongA

Proc FixDialog

    Parameters hd&
    SetWindowLong(hd&,-16,Sub(GetWindowLong(hd&,-16),$0C80000))
    SetStyle hd&,Sub(GetStyle(hd&),$0C80000)  ab Profan 6.5 auch ohne API
    ShowWindow(hd&,0)
    ShowWindow(hd&,1)  Erzwingt Aktualisierung (auch MoveWindow,SetWindowPos möglich)

EndProc

Beispiel
Declare hdlg&,endebutton%,ende%
Cls
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
Let hdlg&=CreateDialog(%hwnd,Unbeweglicher Dialog,50,114,498,408)
Let endebutton%=CreateButton(hdlg&,&Ende,200,180,60,23)
FixDialog hdlg&

WhileNot ende%

    WaitInput
    Case Getfocus(endebutton%): Let ende%=1

Wend