Problem nach ResizeGadget( gelöst

[udg]

unter win7 x64 und PB 5.30 getestet,
hier kommen die Fehler ebenfalls.

[schleicher]

Dabei dachte ich, das der Fehler nur bei mir auftaucht. Und keine Lösung, wie man das beheben kann.
Oder hat doch jemand eine Idee.. Wie kann man vielleicht das resizen besser machen ?

[ts-soft]

Hast Du die DPI Deines PCs verstellt?

[schleicher]

Meinst du die Auflösung des Monitors ? Ich habe schon fast alle Auflösungen getestet und überall das gleiche Problem.
Ansonsten habe ich in den erweiterten Einstellungen die Symbolgröße und die Textgröße angepasst. Sollte das der Fehler sein ?

[ts-soft]

Ansonsten habe ich in den erweiterten Einstellungen die Symbolgröße und die Textgröße angepasst. Sollte das der Fehler sein ?

Wenn Du PB5.40 nutzt, könnte es daran liegen. Stell mal alles auf 100% (96 DPI) und probiere nochmal.

[schleicher]

Ich nutze PB5.31 . Habe aber trotzdem nachgeschaut. Alle Werte stehen auf 96 DPI. Keine Änderung. Will in den nächsten Tage auf Windows 10 umsteigen. Mal sehen wie es dort aussieht.

[Andreas21]

Win 10 X64 keine Probleme.
PB 5.40 LTS x64

[schleicher]

Win 10 X64 keine Probleme.

Na da bin ich ja mal gespannt. Will Win10 32bit version als erstes probieren.

[Kiffi]

Bei mir (Win7) sieht auch alles OK aus.

Vorschlag: Alle Gadgets in ein ContainerGadget verfrachten. Dann brauchst Du beim Resizen des Fensters nur noch die Y-Position des Containers zu verändern. So in etwa:

Code: Alles auswählen

EnableExplicit

Enumeration Window
  #Window_mp3
EndEnumeration

Enumeration Gadget
  #Controls
  #Play
  #Stop
  #Pause
  #Vor
  #Rueck
  #String_Titelanzeige
  #Trackbar_Volume
  #String_Time
  #String_Zeit
  #Trackbar_Titel
EndEnumeration


Enumeration Font
  #Font_ID3
EndEnumeration

Procedure windowgroesse()
  
  ResizeGadget(#Controls, #PB_Ignore, WindowHeight(#Window_mp3) - GadgetHeight(#Controls), #PB_Ignore, #PB_Ignore)
  
EndProcedure

LoadFont(#Font_ID3,"Cooper Std Black", 10, #PB_Font_Italic |  #PB_Font_HighQuality)

Global oldwidth=1000, oldheight=800

OpenWindow(#Window_mp3, 0, 0, oldwidth , oldheight, "test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget)
SetWindowColor(#Window_mp3, $321700)
WindowBounds(#Window_mp3, oldwidth, oldheight, #PB_Ignore, #PB_Ignore) 

ContainerGadget(#Controls, 0, 0, 600, 200)

  Define newY
  
  newY = 10
  
  StringGadget(#String_Titelanzeige, 10, newY, 500, 30, "")
  
  newY = 60
  
  TrackBarGadget(#Trackbar_titel, 10, newY, 275, 25, 0,1000 ,#PB_TrackBar_Ticks)
  
  TextGadget(#String_Time, 298, newY, 180, 25, "00:00:00 / 00:00:00")
  SetGadgetColor(#String_Time, #PB_Gadget_FrontColor, $6357FF)
  SetGadgetColor(#String_Time, #PB_Gadget_BackColor,0)
  
  TrackBarGadget(#Trackbar_Volume, 490, newY, 20, 100, 0 ,100, #PB_TrackBar_Vertical)
  
  newY = 120
  
  ButtonGadget(#Rueck, 110, newY, 40, 40, "rueck")
  ButtonGadget(#Play,  175, newY, 40, 40, "Play" )
  ButtonGadget(#Pause, 240, newY, 40, 40, "Pause", #PB_Button_Toggle)
  ButtonGadget(#Stop,  305, newY, 40, 40, "Stop")
  ButtonGadget(#Vor,   370, newY, 40, 40, "vor")

CloseGadgetList()

SetGadgetColor(#Controls, #PB_Gadget_BackColor, $321700)

BindEvent(#PB_Event_SizeWindow, @windowgroesse(), #Window_mp3)

windowgroesse()

Repeat
  
  Select WaitWindowEvent()
      
    Case #PB_Event_CloseWindow
      End
      
    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect
      
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
ForEver

Grüße ... Peter

[udg]

Also wenn man dein Fenster nur 1 od. 2 mal "Resized" dann fuktioniert es hier auch aber wenn ich das Ganze nun mehrmals hintereinander tue, kommen die Fehler. Sollten die anderen evtl. auch mehrmals "Resizen" und schauen ob es wirklich Fehlerfrei bleibt?

Gruß