XProfan

English

Pedro
Santos

Hello Profaner

gives it one Windowstyle where the window only Vergrößerungsbox (arrow to supra) and Verkleinerungsbox (arrow down) has?

thanks

greeting

Pedro

Windows XP Home
Xprofan 10

03/12/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Pedro
Dou you mean something like ?
Compile Mark Separation

---------------------------------------------------
Def GetSystemMenu(2) !"USER32","GetSystemMenu"
Def EnableMenuItem(3) !"USER32","EnableMenuItem"
DECLARE EE%,ende%
EE%=0
Window 100,50-600,400
EnableMenuitem(GetSystemMenu(GetActiveWindow(),0),$F060,1)
ende%=CREATE("BUTTON",%HWND,"ENDE",10,10,100,25)

WhileNot EE%

    WAITINPUT
    Case GetFocus(ende%):END

03/12/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Pedro
Santos

Hello Horst

thanks something like my I but without the copyright of RGH

greeting

Pedro

Windows XP Home
Xprofan 10

03/12/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jens
Petzold

Def Getsystemmenu(2) !USER32,GetSystemMenu
Def Enablemenuitem(3) !USER32,EnableMenuItem
WINDOWSTYLE 27
WINDOWTITLE my Window
Window 100,50-600,400
Enablemenuitem(Getsystemmenu(Getactivewindow(),0),$F060,1)
Waitinput

Der Jens war's gewesen. [...]