| |
| |
|
| - Página 1 - |
|
Erasmus.Herold | Hallöchen ...
Yo möchte una Ventana fixieren, also verhindern, dass lo via Ratón movido voluntad kann. Diesen Quellcode nutze Yo a Erzeugung la ventana.
verkaeuferfenster_darueber% = Crear("Dialog",%hWnd,"Mitarbeiterverwaltung",28,120,1870,940)
SETSTYLE verkaeuferfenster_darueber%,(GETSTYLE(verkaeuferfenster_darueber%)-$80000)' neues Ventana sin Button rechts oben, auch kein X
Yo habe Internet alte Ideen de 2003 gefunden, el ließen se no erfolgreich en XProfan3 testen. Sombrero alguien Lösungsvorschlag para mich?
Gracias - Erasmus |
|
| |
| |
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Matthias
Arlt | Lo va auch einfacher, aber sólo, si el Systemmenü no komplett lejos se...
var hDlg& = Crear("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)
mientras que 1
waitInput
caso (%key = 2) : romper
wend
Saludo Matthias |
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 15.10.2018 ▲ |
|
| |
|
|
|
Erasmus.Herold | | Sombrero alguien Erfahrung con el "Festkleben" de Fenstern? |
|
| |
| |
| |
|
|
H.Brill | Das dauerhafte Fixieren Yo auch todavía no herausgefunden.
Nur, daß lo siempre otra vez a el Ursprungs - Position springt.
En una normalen Ventana es sí simplemente. Einfach el wm_move
Message como UserMessage definieren. Das wm_move setzt en Größen-
Änderung el alte Position + Größe.
Como el pero a un Diálogo ir se, weiß Yo no. Dieser
empfängt el Nachricht sí ya nada. |
|
| |
| 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. | 15.10.2018 ▲ |
|
| |
|
|
Manfred
Barei | ¡Hola Erasmus,
schaumal hier, así mach Yo siempre si yo una Diálogo brauche el no movido voluntad se.
En "ProgPfad$" deinen Pfad angeben wo el Bild gespeichert es.
En me es el Bild en uno DLL.
Yo hoffe Usted puede así qué anfangen.
Saludo
PROC Benutzer_anmelden
DECLARE AnmeldenDLG&, AnmeldenENDE%,STATICBITMAP1&
Declarar Benutzer%, Pwort%, Esc%, OK%
Proc Textausgabe
StartPaint STATICBITMAP1&
Color del texto RGB(15,15,31),-1
DrawText 20, 100, "Benutzer:"
DrawText 20, 130, "Passwort:"
EndPaint
ENDPROC
Ventana de Estilo 16 + 64
AnmeldenDLG& = Crear("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
Crear("BITMAP",AnmeldenDLG&,STATICBITMAP1&,0000,0000)
Benutzer% = create("Edit",AnmeldenDLG&, "",90,100,90,20)
Pwort% = create("Edit",AnmeldenDLG&, "",90,130,90,-20)
Esc% = Crear("Button",AnmeldenDLG&,"Abbruch",050,220,70,25)
OK% = Crear("Button",AnmeldenDLG&,"Anmelden",160,220,70,25)
SETFOCUS(Benutzer%)
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 clic "
Benutzer_anmelden'Diálogo aufrufen!
|
 |
| |
| 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 | | 15.10.2018 ▲ |
|
| |
|
|
Matthias
Arlt | Lo va auch einfacher, aber sólo, si el Systemmenü no komplett lejos se...
var hDlg& = Crear("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)
mientras que 1
waitInput
caso (%key = 2) : romper
wend
Saludo Matthias |
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 15.10.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Wow - bastante lieben Dank a euch todos para el vielen Tipps.
Dieser Ansatz war kurz y simplemente.
Dankeschön !!! |
|
| |
| |
| |
|
|
Erasmus.Herold | Könnten wir dieses Ventana motivieren, rechts oben
kein "X" para Schließen anzuzeigen.
Yo möchte encima una Button schließen, somit auch
kein "%key = 2 anbieten?
Posesiones encima Windowstyle no Solución gefunden,
tal vez auch falso angewendet?!
Bitte una kurze Solución. Dankeschön. |
|
| |
| |
| |
|
|
E.T. | |
| |
| XProfan X3Grüß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... | 13.11.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Gracias para deine Antwort.
Irgendwie finde Yo no el richtigen Ansatz, deinen Vorschlag einzubauen.
Bisher erstelle Yo mein Ventana como folgt.
var hDlg& = Crear("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)
Bitte una corto Tipp. |
|
| |
| |
| |
|
|
E.T. | Entfernt no bastante, aber deaktiviert 
var hDlg& = Crear("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)
mientras que 1
waitInput
caso (%key = 2) : romper
wend
|
|
| |
| XProfan X3Grüß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... | 14.11.2018 ▲ |
|
| |
|
|
Erasmus.Herold | |
| |
| |
| |
|
(1.650)
Deutsch
English
Français
Español
Italia