roland: Kannst du da was machen? Xprofan kümmert sich um die WindowProc soweit ich weiß, vielleicht hast du eine Möglichkeit, dass der Benutzer eine Minimalgröße angeben kann. Bisher nutze ich in etwa die folgende SubclassProc:
Code
Def GetProcAddress(2) !"KERNEL32","GetProcAddress"
Def GetModuleHandleA(1) !"KERNEL32","GetModuleHandleA"
proc POKEDW
PARAMETERS ADR&,V!
var VI&=0
Call(GetProcAddress(GetModuleHandleA("KERNEL32"),"RtlMoveMemory"),ADR&+2,ADDR(VI&),2)
VI&=INT(V!-(VI&*2^16))
Call(GetProcAddress(GetModuleHandleA("KERNEL32"),"RtlMoveMemory"),ADR&,ADDR(VI&),2)
endproc
subclassproc
If SubClassMessage(%hWnd,$24)
POKEDW &SLPARAM+24,minimalerxwert&
POKEDW &SLPARAM+28,minimalerywert&
Set("WinProc",1)
endif
endproc
Alles anzeigen
...hilft aber eben nur, wenn sich das Programm in einer waitinput-Schleife befindet.