Fenster ändern Normal <-> Borderless

[Kaeru Gaman]

hier mein Vorschlag:

boah so EASY im Grunde...
und über SetWindowLong (nicht Ptr) und #GWL_STYLE (nicht EX)... das hatte ich mir eigentlich gedacht und auch ausprobiert.

darauf den #WS_DLGFRAME zu LÖSCHEN bin ich einfach nicht gekommen.
Borderless ist $80000000, hab mir den kopf zerbrochen, warum das #WS_POPUP ist, und als ichs hingeschickt hab ist mein window komplett verschwunden...
und mit nem anderen style hatte es redraw-probleme, darauf, das einfach mal zu moven um das redraw zu erzwingen bin ich auch nicht gekommen.

also, vielen Dank Kiffi!

------------------------------------------------------------
oh hoppla... mehr postings...

ja, das funktioniert besser.
allerdings wenn ich den Rahmen wiederherstelle, wird das Fenster wieder zentriert...
das ist aber zweitrangig....

was für ein #GWL_STYLE ist -1811939260 und was für ein #GWL_EXSTYLE ist 327680 ...?

--------------------------------------------------------------------------------------------

zweitrangig ist es deshalb, weil ich eigentlich von dem was ich Plane her bei Rahmen entfernen gleichzeitig maximieren, und beim Rahmen wiederherstellen auch Größe wiederherstellen würde....

da muss ich noch mal ausprobieren, ob der reine #GWL_STYLE Ansatz von Kiffi ausreicht.


<offtopic>

(solange Ultramon aus ist)

.... na, um diese Zeit sollten deine Digimons auch schon alle im Bett sein...
</offtopic>

[TomS]

was für ein #GWL_STYLE ist -1811939260 und was für ein #GWL_EXSTYLE ist 327680 ...?

Ich hab leider keine Ahnung. Ich hab wie gesagt gegooglet und das war die einzige Lösung, die gefunzt hat.

[RSBasic]

http://www.rsbasic.q-soft.ch/index.php? ... &Itemid=59

erzeugt zwar nur einen dünnen rahmen, aber vieleicht ist dein problem auf der selben basis zu lösen

Rahmen entfernen gibt es dort auch, nur nicht unter OpenWindow, sondern unter Prozesse, aber man kann es sowieso durch WindowID() ersetzen.

[Kaeru Gaman]

jagut, das was du da hast ist ja praktisch das was Kiffi vorgeschlagen hat.
(nur das du SetWindowLongPtr benutzt)

... ich muss mal mehr in der MSDN schmökern...

aber wenn ich so eine Baumstruktur sehe...

MSDN > MSDN Library > Win32 and COM Development > User Interface > Windows User Interface > Windowing > Window Classes > Window Classes Reference > Functions >

komm ich mir vor wie Hänsel und Gretel....

[RSBasic]

@Kaeru Gaman
Gibt es einen Nachteil, wenn man ...Ptr benutzt? (Kann ja sein, dass ich was verpasst habe )
Dachte eigentlich, es wäre sinnvoller, da es auch 64 Bit-kompatibel ist.

[ts-soft]

SetWindowLong_ ist nur für x86
SetWindowLongPtr_ ist dasselbe für x64 und fungiert unter x86 als Makro für SetWindowLong_
Also einfach alle SetWindowLong_ in alten Sourcen durch SetWindowLongPtr_, sowie alle
GetWindowLong_ durch GetWindowLongPtr_ ersetzen!

Gruß
Thomas

[Kiffi]

ist ja schön und gut mit den *Ptr_, aber meine Frage hast Du damit
noch nicht beantwortet:

Die funktionieren ja alle nicht richtig

was funktioniert denn da bei Dir nicht richtig, wenn Du meinen Code ausführst?

gibt's ne Fehlermeldung? Wird der Rahmen nicht entfernt? Oder was anderes?

[ts-soft]

ist ja schön und gut mit den *Ptr_, aber meine Frage hast Du damit
noch nicht beantwortet:

Es schaltet wohl 1 oder 2 x um, danach ist das Fenster minimiert. Desweiteren wird die
Position der Controls nicht korrigiert, sind also je nach Zustand verschoben.

Gruß
Thomas

[Kaeru Gaman]

also der maßgebliche Unterschied bei mir ist, dass der code von ts / Toms keinen 1pix-Rahmen übrig läßt, Kiffis aber schon.
ob die controls verschoben werden oder nicht ist nicht so maßgeblich, ich müßte sowieso das Borderless maximieren,
und in beiden Zuständen einen WindowedScreen ohne Randoffsets draufbekommen.

aber die unbenamsten Konstanten gefallen mir nicht.
ich muss mir die beiden mal genauer ansehen.

Also mir geht es darum, einen WindowedScreen von Fensterle auf Vollbild zu vergrößern, da muss ich beim Maximieren natürlich den Rahmen entfernen.

.... ob das den Aufwand wert ist, oder ob er einfacher wäre komplett borderless zu arbeiten und auf dem Screen selber eine Leiste anzubringen mit der man das Fenster verschieben kann (Mausposition tracken und MoveWindow), muss ich noch herausfinden.

[Kiffi]

Es schaltet wohl 1 oder 2 x um, danach ist das Fenster minimiert.

kann ich hier nicht nachvollziehen.

@All: Wie sieht's bei Euch aus? (Besonders bei den 64-Bittern)

Desweiteren wird die Position der Controls nicht korrigiert, sind also je nach Zustand verschoben.

da wird nichts verschoben. Die Position der Gadgets bleibt
in beiden Fällen in Relation zur Arbeitsfläche des Fensters gleich.

Der obere Button hat sowohl mit als auch ohne Rahmen x = 5 und y = 5.

Im übrigen ist kein Problem des Codes, sondern eine
Luxusfunktion, die ich in einem Beispiel-Code natürlich nicht
einbaue, weil ich KG für fähig halte, das alleine umzusetzen
(wenn er die 'Korrektur' überhaupt benötigt).

@KG: hier hast Du noch ein paar Konstanten zum spielen:

Code: Alles auswählen

Procedure WindowBorder(Window, Flag)
  
  If Flag
    
    ; SetWindowLong_(WindowID(Window), #GWL_EXSTYLE, GetWindowLong_(WindowID(Window), #GWL_EXSTYLE) | #WS_EX_CLIENTEDGE ) 
    ; SetWindowLong_(WindowID(Window), #GWL_EXSTYLE, GetWindowLong_(WindowID(Window), #GWL_EXSTYLE) | #WS_EX_WINDOWEDGE ) 
    SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) | #WS_DLGFRAME) 
    ; SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) | #WS_THICKFRAME) 
    SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) | #WS_OVERLAPPED ) 
    SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) | #WS_BORDER) 
    
  Else
    
    ; SetWindowLong_(WindowID(Window), #GWL_EXSTYLE, GetWindowLong_(WindowID(Window), #GWL_EXSTYLE) &~ #WS_EX_CLIENTEDGE ) 
    ; SetWindowLong_(WindowID(Window), #GWL_EXSTYLE, GetWindowLong_(WindowID(Window), #GWL_EXSTYLE) &~ #WS_EX_WINDOWEDGE ) 
    SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) &~ #WS_DLGFRAME) 
    ; SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) &~ #WS_THICKFRAME) 
    SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) &~ #WS_OVERLAPPED ) 
    SetWindowLong_(WindowID(Window), #GWL_STYLE, GetWindowLong_(WindowID(Window), #GWL_STYLE) &~ #WS_BORDER) 
    
  EndIf
  
  SetWindowPos_(WindowID(Window), 0,0,0,0,0,#SWP_NOSIZE|#SWP_NOMOVE|#SWP_NOZORDER|#SWP_FRAMECHANGED)
  
EndProcedure
        
#Window=0
#Button_Border=0
#Button_NoBorder=1
        
OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 300, 220, "")
ButtonGadget(#Button_Border, 5, 5, 290, 100, "Border")
ButtonGadget(#Button_NoBorder, 5, 110, 290, 100, "No Border")
        
Repeat
  
  WWE=WaitWindowEvent()
  
  Select WWE
      
    Case #PB_Event_Gadget
      
      Select EventGadget()
          
        Case #Button_Border
          WindowBorder(#Window, #True)
          
        Case #Button_NoBorder
          WindowBorder(#Window, #False)
          
      EndSelect
      
  EndSelect
  
Until WWE = #PB_Event_CloseWindow

Das *Ptr_ darfst Du selber dranbasteln

Grüße ... Kiffi