bei #PB_Event_MinimizeWindow noch ein ListIcon Gadget leeren
Verfasst: 11.07.2015 11:57
Hallo zusammen,
ich möchte beim Auftreten eine #PB_Event_MinimizeWindow noch ein Gadget leeren damit es nicht in der Windows Vorschau (wenn man mit der Maus auf das Icon in der Taskleiste zeigt) mit dem Inhalt angezeigt wird. Der Inhalt des Gadget soll erst wieder nach einem #PB_Event_RestoreWindow befüllt werden.
Klappt leider nicht so wie ich es mache. Obwohl ich beim #PB_Event_MinimizeWindow das Gadget leere wird es in der Vorschau von Win7 noch immer mit Inhalt angezeigt.
Hier der Code.
Hat jemand einen Tipp für mich?
Danke.
NicknameFJ
ich möchte beim Auftreten eine #PB_Event_MinimizeWindow noch ein Gadget leeren damit es nicht in der Windows Vorschau (wenn man mit der Maus auf das Icon in der Taskleiste zeigt) mit dem Inhalt angezeigt wird. Der Inhalt des Gadget soll erst wieder nach einem #PB_Event_RestoreWindow befüllt werden.
Klappt leider nicht so wie ich es mache. Obwohl ich beim #PB_Event_MinimizeWindow das Gadget leere wird es in der Vorschau von Win7 noch immer mit Inhalt angezeigt.
Hier der Code.
Code: Alles auswählen
Enumeration Window
#MainWindow
EndEnumeration
Enumeration Gadgets
#LV_Message
EndEnumeration
If OpenWindow(#MainWindow,0,0,1200,500,"Message Reader",#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
ListIconGadget(#LV_Message,10,10,1180,400,"Test",200,#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#LV_Message,1,"Nachricht",350)
For i = 1 To 10
AddGadgetItem(#LV_Message,-1,"Test" + Chr(10) +"Nachricht "+ Str(i))
Next
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_MinimizeWindow
ClearGadgetItems(#LV_Message)
EndIf
If Event = #PB_Event_RestoreWindow
For i = 1 To 10
AddGadgetItem(#LV_Message,-1,"Test" + Chr(10) +"Nachricht "+ Str(i))
Next
EndIf
If Event = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
Danke.
NicknameFJ