Schrift verschwindet

[sobi]

Hallo,

mit

Code: Alles auswählen

DrawText(#Text12)

habe ich einen Text auf mein Fenster geschrieben. Wenn das Fenster jedoch in der größe geändert wird und der Text nicht mehr genügend Platz hat, verschwindet der Text! Wie ändere ich das?
Der Beginn wurde so definiert:

Code: Alles auswählen

StartDrawing(WindowOutput())

Ist das in Ordnung?


Liebe Grüße,


Simon

[ts-soft]

bei jedem #PB_Event_SizeWindow den text neuzeichnen oder in ein ImageGadget anzeigen. findes du beispiele in der hilfe

[sobi]

bei jedem #PB_Event_SizeWindow den text neuzeichnen oder in ein ImageGadget anzeigen. findes du beispiele in der hilfe

Vielen Dank für deinen Tipp, jetzt funktioniert es so, wie es funktionieren soll!

[sobi]

Hallo,

das #PB_Event_SizeWindow habe ich so eingebaut:

Code: Alles auswählen

Repeat 
Event = WindowEvent()
If Event =#PB_Event_SizeWindow
uebersicht()
Else
Delay(10)
EndIf 
Until Event = #PB_Event_CloseWindow

Das funktioniert zwar, ber wenn ich jetzt einen anderen Menüpunkt anklicke, dann öffnet er den nicht! Wie muss das richtig geändern werden?
Liebe Grüße,


Simon

[ts-soft]

Code: Alles auswählen

Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_SizeWindow
      uebersicht()
    Case #PB_Event_Menu
      Select EventMenuID() 
        Case 1 : Debug "Menü-Eintrag 1 angeklickt!" 
        Case 2 : Debug "Menü-Eintrag 2 angeklickt!" 
        Case 3 : Debug "Menü-Eintrag 3 angeklickt!" 
      EndSelect 
    Case #PB_Event_Gadget 
      Select EventGadgetID() 
        Case 1 : Debug "Schalter 1 angeklickt!" 
        Case 2 : Debug "Schalter 2 angeklickt!" 
        Case 3 : Debug "Schalter 3 angeklickt!" 
      EndSelect 
  EndSelect
Until Event = #PB_Event_CloseWindow 

Findest Du alles auch in der Hilfe von PB
Wenn Du Deinen Text in ein ImageGadget zeichnest, wird es automatisch neugezeichnet. Findest Du auch in der Hilfe

[Lars]

Ehem. . . [c]#PB_Event_Repaint[/c]

[sobi]

Ehem. . . [c]#PB_Event_Repaint[/c]

Hallo,

Danke für den Tipp, aber wo kommt das #PB_Event_Repaint rein? - Den so richtig funktioniert es noch nicht!

Code: Alles auswählen

Repeat 
  Event = WaitWindowEvent() 
  Select Event 
    Case #PB_Event_SizeWindow    
;uebersicht()           
    Case #PB_Event_Menu 
      Select EventMenuID() 
            Case 31 
              uebersicht()         
            Case 32 
              neu()             
            Case 19 
              Quit=1 
          EndSelect 
      EndSelect      
  Until Quit=1 

Lasse ich die uebersicht() das erste mal drin, dann zeigt er mir diese sofort an und wenn ich sie ändere, dann wird sie auch neu gezeichnet. Schmeiß ich sie raus, dann zeichnet er sie nicht neu (zeigt sie aber auch nicht gleich beim aufrufen an. Ich brauche beides. (neu zeichnen und nicht gleich anzeigen) - Nur, wie komm ich dahin?

LG


Simon