XProfan

English

Erasmus.Herold

Hallöchen ...

i want one Window fix, means prevent, that it via mouse moved go can. Diesen Source use I to Erzeugung the Fensters.

Compile Mark Separation

verkaeuferfenster_darueber% = Create("Dialog",%hWnd,"Mitarbeiterverwaltung",28,120,1870,940)
SETSTYLE verkaeuferfenster_darueber%,(GETSTYLE(verkaeuferfenster_darueber%)-$80000)' new Window without Button right supra, too no X

I have Internet old ideas of 2003 found, The were not successful in XProfan3 testing. has someone a Lösungsvorschlag for me?

thanks - Erasmus

10/11/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Matthias
Arlt

It's all right too plainer, but only, if the System Menu not complete removes becomes...

Compile Mark Separation

var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)

while 1

    waitInput
    case (%key = 2) : break

wend

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

10/15/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

has someone experience with the "Festkleben" of Windows?

10/15/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

the enduring Fixieren have so did i not yet found out.
only, that it over ands over again on The Ursprungs - position jumping.
with one normalen Window is it Yes simply. simply The wm_move
Message as UserMessage define. the wm_move setting with sizes-
Änderung The old position + Size.

Compile Mark Separation

Declare Long  end, x1, y1, x2, y2
User Messages $0003, $0005' wm_Move $0005 = wm_size
Window Title "Verkäuferfenster"
Window 640, 400
end = 0
x1 = %WinLeft : y1 = %WinTop : x2 = 640 : y2 = 400

WhileNot end

    WaitInput
    Case %Key = 2 : end = 1

    If %UMessage = $0003

        SetWindowPos %Hwnd = x1, y1

    ElseIf %UMessage = $0005

        SetWindowPos %HWnd = x1, y1 - x2, y2

    EndIf

EndWhile

End

How the but with one dialog weg should, white I do not. this
receiving The Message already none.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

10/15/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Manfred
Barei

Hello Erasmus,

schaumal here, so mach I it always if I a dialog need the not moved go should.
with "ProgPfad$" your way indicate where the image stored is.
by me is the image in a DLL.

I hope You can so what begin.

Greeting

Compile Mark Separation

PROC Benutzer_anmelden

    DECLARE AnmeldenDLG&, AnmeldenENDE%,STATICBITMAP1&
    Declare user%, Pwort%, Esc%, OK%

    Proc Textausgabe

        StartPaint STATICBITMAP1&
        Text Color RGB(15,15,31),-1
        DrawText 20, 100, "Benutzer:"
        DrawText 20, 130, "Passwort:"
        EndPaint

    ENDPROC

    Window Style 16 + 64
    AnmeldenDLG& = Create("Window",%HWND,"Login",(%maxx/2 - 280/2),(%maxy/2 - 280/2),280,280)
    USEFONT "MS Sans Serif",13,0,0,0,0
    STATICBITMAP1& = CREATE("HPIC",-1,ProgPfad$ + "\BMP\LOGIN.BMP")
    Textausgabe
    Create("BITMAP",AnmeldenDLG&,STATICBITMAP1&,0000,0000)
    user% = create("Edit",AnmeldenDLG&, "",90,100,90,20)
    Pwort% = create("Edit",AnmeldenDLG&, "",90,130,90,-20)
    Esc% = Create("Button",AnmeldenDLG&,"Abbruch",050,220,70,25)
    OK% = Create("Button",AnmeldenDLG&,"Anmelden",160,220,70,25)
    SETFOCUS(user%)
    AnmeldenENDE% = 0

    WHILENOT AnmeldenENDE%

        WAITINPUT

        If Clicked(Esc%)

            AnmeldenENDE% = 1

        ENDIF

    EndWHILE

    DESTROYWINDOW(AnmeldenDLG&)

ENDPROC

WINDOWTITLE "DUMMY HAUPTFENSTER"
WINDOWSTYLE 63
WINDOW (%maxx-300),10-280,80
CLS RGB(0,0,0)
Color 10,0
PRINT "Bitte aufs Systemmenükreuz clicking "
Benutzer_anmelden'dialog Call!

login.bmp	230 kB

Hochgeladen:	10/15/18

Downloadcounter:
		Download

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

10/15/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Matthias
Arlt

It's all right too plainer, but only, if the System Menu not complete removes becomes...

Compile Mark Separation

var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)

while 1

    waitInput
    case (%key = 2) : break

wend

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

10/15/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

Wow - integrally loves Thanks on you any for many Tipps.

this Ansatz was short and simply.

Compile Mark Separation

var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)

Thank you !!!

10/16/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

could we this Window to motivate, right supra
no "X" to that Closing view.

i want a Button close, accordingly too
no "%key = 2 offer?

have over Windowstyle no Solution found,
Perhaps too wrong applied?!

Please a short Solution. Thank you.

11/13/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

Compile Mark Separation

EnableMenuitem(GetSystemMenu(hDlg&,0),$F060,1)

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

11/13/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

thanks for your response.
somehow find I do not whom right Ansatz, your suggestion incorporate.

yet create I my Window How follows.

Compile Mark Separation

var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)

Please one kurzer Tipp.

11/14/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

removes not integrally, but deaktiviert

Compile Mark Separation

var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
Def GetSystemMenu(2) !"USER32","GetSystemMenu"
Def EnableMenuItem(3) !"USER32","EnableMenuItem"
external("USER32","DeleteMenu",hMenu&,$F010,0)
EnableMenuitem(GetSystemMenu(hDlg&,0),$F060,1)

while 1

    waitInput
    case (%key = 2) : break

wend

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

11/14/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

Thank you. this is lovely.

11/15/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote