ich habe mir eine (immer auf dem Desktop sichtbare) Balkenanzeige gebastelt. (x86 compiliert)
Was unter Win7 (x86 & x64) wie erwartet funktioniert, erscheint unter Win10 (x64) nur als
Programmicon in der Taskleite. Hält man mit der Maus länger darauf, erscheint das Minifenster
immerhin/nur in der korrekt laufenden Voransicht.
Es gibt hier einen Thread mit einem Stickwindow/Toolbar Problem, der half mir aber nicht.
Hat jemand einen Zaubertrick mein Stickywindow nach Programmstart auch unter Win10
direkt auf dem Desktop erscheinen zu lassen ?
Beispielprogramm:
Code: Alles auswählen
Enumeration
#Window
#ImageGadget
#Image
#Font
EndEnumeration
#DarkGreen = $004400
#DarkYellow = $004040
#DarkRed = $000044
#HiGreen = #Green
#HiYellow = $00dddd ; Weil #Yellow zu grell ist
#HiRed = #Red
; =========================================== MAIN ====================================================
Value=68
ExamineDesktops()
OpenWindow(#Window, DesktopWidth(0)-330, 2, 126, 14, "Fenster", #PB_Window_BorderLess) : StickyWindow(#Window, #True)
If LoadFont(#Font, "Arial", 8) : Else : End: EndIf
If CreateImage(#Image, 126, 14) : ImageGadget(#ImageGadget, 0, 0, 126, 14, ImageID(#Image)) : Else : End: EndIf
If StartDrawing(ImageOutput(#Image))
DrawingMode(#PB_2DDrawing_Transparent)
DrawingFont(FontID(#Font))
Box(0,0,126,14,$000000)
Box( 2,2,50,10,#HiGreen)
Box(52,2,30,10,#DarkYellow)
Box(82,2,19,10,#DarkRed)
Box(52,2,Value-50,10,#HiYellow)
DrawText(104,0,Str(Value),$CCCCCC)
StopDrawing()
EndIf
SetGadgetState(#ImageGadget, ImageID(#Image))
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
Case #PB_Event_LeftDoubleClick ; Ins Fenster (ohne Gadget) doppelklicken (Aktuell unmöglich da Fenster auf imagegadget-Größe.)
End
Case #PB_Event_Gadget
Select EventGadget()
Case #ImageGadget
Select EventType()
Case #PB_EventType_LeftClick : Debug "Klick mit der linken Maustaste"
Case #PB_EventType_RightClick : Debug "Klick mit der rechten Maustaste"
Case #PB_EventType_LeftDoubleClick : Debug "Doppelklick mit der linken Maustaste" : End
Case #PB_EventType_RightDoubleClick : Debug "Doppelklick mit der rechten Maustaste"
EndSelect
EndSelect
EndSelect
ForEver