Kann man Linien wieder löschen?

[PB42]

Hallo,

in einem Programm soll sich unter anderem ein Kasten verschieben, ja nach Situation. Dabei bleibt dann aber leider der zuvor gezeichnete Kasten erhalten. Gibt es eine Möglichkeit, diesen Effekt vermeiden zu können? Und wenn ich schon dabei bin: Kann man auch die Liniendicke beeinflussen? Folgender Beispiel-Code zeigt, was ich meine und was mich stört:

Code: Alles auswählen

OpenWindow(0,0,0,606,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_minimizeGadget|#PB_Window_maximizeGadget,"") 
CreateGadgetList(WindowID(0))
ButtonGadget(1,100,100,50,20,"a = 1")

Repeat
  EventID = WaitWindowEvent()
  GadgetID = EventGadgetID()
  
  Select GadgetID
    Case 1
    a = 1
    EndSelect
  
    StartDrawing(WindowOutput())
    If a = 1
    Line(238,200,170,0)
    Line(238,249,170,0)
    Line(238,200,0,49)
    Line(407,200,0,49)
    Goto t
    EndIf
    
    Line(213,200,170,0)
    Line(213,249,170,0)
    Line(213,200,0,49)
    Line(382,200,0,49)
    t:
    StopDrawing()
    
Until EventID =#PB_eventCloseWindow

Danke! PB42

[vonTurnundTaxis]

Zeichne den Kasten in ein Imagegadget und verschiebe das!

[PB42]

Gute Idee, aber in dem Kasten sind in meinem eigentlichen Programm bereits kleine ImageGadgets drin, welche je nach Bedarf die Farbe wechseln, von daher klappt das dann nicht mit dem Kasten im ImageGadget. Dann wird mir nichts anderes übrig bleiben, als den Kasten stehen zu lassen und ja nach Bedarf die darin enthaltenen ImageGadgets zu verschieben.

PB42

[vonTurnundTaxis]

Grundsätzlich lässt sich noch sagen:
Nie direkt aufs Fenster zeichnen!

[PB42]

Das leuchtet ein.

PB42

[roherter]

Das geht mittels Winapi,habe dein Code mal geändert:

Code: Alles auswählen

hwnd.l=OpenWindow(0,0,0,606,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget,"")
farb=GetSysColor_(COLOR_WINDOW);Fenster Farbe

 Debug farb
CreateGadgetList(WindowID(0))
ButtonGadget(1,100,100,50,20,"a = 1")

Repeat
  EventID = WaitWindowEvent()
  GadgetID = EventGadgetID()
  
  Select GadgetID
    Case 1
      a = 1
  EndSelect
  
  StartDrawing(WindowOutput())
  If a = 1
     Box(200,200,250,200,RGB(Red(farb),Green(farb),Blue(farb)));hier lösche ich deine alten Linien
    Line(238,200,170,0)
    Line(238,249,170,0)
    Line(238,200,0,49)
    Line(407,200,0,49)
   
    Goto t
  EndIf
  
  Line(213,200,170,0)
  Line(213,249,170,0)
  Line(213,200,0,49)
  Line(382,200,0,49)
  t:
  StopDrawing()
 
Until EventID=#PB_EventCloseWindow
End 

[PB42]

Danke roherter, aber ich habe bisher nur die Demo-Version und damit geht das nicht. Hab's mir abgespeichert für später.

PB42

[edel]

Grundsätzlich lässt sich noch sagen:
Nie direkt aufs Fenster zeichnen!

Und warum nicht ?

[MVXA]

Gekrizeltes geht verloren, wenn das Fenster hinter einem anderem Fenster
verschwinden sollte. In einem ImageGadget hat man dieses Problem nicht.

[Kaeru Gaman]

aber man kann auch alle zeichenoperationen in eine procedure packen,
die man bei nem refresh aufruft....