Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Wenn Du PB5.40 nutzt, könnte es daran liegen. Stell mal alles auf 100% (96 DPI) und probiere nochmal.schleicher hat geschrieben:Ansonsten habe ich in den erweiterten Einstellungen die Symbolgröße und die Textgröße angepasst. Sollte das der Fehler sein ?
Na da bin ich ja mal gespannt. Will Win10 32bit version als erstes probieren.Andreas21 hat geschrieben:Win 10 X64 keine Probleme.
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