Fenster in Systray

[winduff]

Hallo

WEnn mein Programm minimiert wird, will ich dass es ein Ico in der Systray gezeigt wird, und das Programm selber versteckt.

Habe es anhand eines Beispiels so gelöst:

Code: Alles auswählen

If IsIconic_(WindowID(#mainwin)) = #True And Minimized = #False
    Minimized = #True
    HideWindow(#mainwin,#True)
    AddSysTrayIcon(#SysIcon,WindowID(#mainwin),Icon)
    SysTrayIconToolTip(#SysIcon,"Anti-Ripper")
  ElseIf IsIconic_(WindowID(#mainwin)) = #False And Minimized = #True
    Minimized = #False
    RemoveSysTrayIcon(#SysIcon)
  EndIf

Das Programm versteckt sich, aber es erscheint kein Ico in der Systray... bräuchte demnach bitte hilfe

Danke
Chris

[ts-soft]

Bitte testbaren Code posten! Also einen Code, den ich in meine IDE kopieren
kann und wo dann der Fehler Auftritt. Für Icons usw. brauchen nicht
unbedingt mitgeliefert werden, aber der Dateityp ist wichtig.

Ist das so schwer?

PS: Wenn ich den fehlenden Code drumrum bastel, wird es wahrscheinlich
funktionieren, das bringt also nichts

[winduff]

ne net soooo schwer

Code: Alles auswählen

Enumeration
  #fenster
  #SysIcon
EndEnumeration

Procedure Open_mainwin()
  If OpenWindow(#fenster, 407, 243, 445, 255, "Systray test" ,#PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_MinimizeGadget |#PB_Window_ScreenCentered )
  ButtonGadget(0,5,5,50,50,"test",0)
    EndIf
  
  EndProcedure
  
  Open_mainwin()
  
  Icon.l = ExtractIcon_(WindowID(#mainwin),"Anti-Ripper",0)
  
  Repeat

    Event = WaitWindowEvent() 
    
If IsIconic_(WindowID(#fenster)) = #True And Minimized = #False
  Minimized = #True
  HideWindow(#fenster,#True)
  AddSysTrayIcon(#SysIcon,WindowID(#fenster),Icon)
  SysTrayIconToolTip(#SysIcon,"Anti-Ripper")
ElseIf IsIconic_(WindowID(#fenster)) = #False And Minimized = #True
  Minimized = #False
  RemoveSysTrayIcon(#SysIcon)
EndIf 

Until Event = #PB_Event_CloseWindow 
End

Hoffe das war mal gut ^^

[ts-soft]

1. CreateGadgetList() fehlt
2. Das mit ExtracIcon mußte erklären, dieses Fenster ist im Source nicht vorhanden, mit : Icon.l = LoadIcon_(#Null, #IDI_ASTERISK) gehts
3. Deine Ereignisschleife ist noch murks

[winduff]

ja öhm, war schnell neu gemacht und den code für die systray reinkopiert...

Sorry

Habe jetzt Icon.l = LoadIcon_(#Null,#IDI-ASTERISK)

Creategadgetlist() war schon drin (nur in dem beispiel hier nicht) genauso wie ereignisschleife...

geht jedoch immer noch nicht

ICh hoffe ich belästige euch nicht mit blöden fragen, bin nunmal ein anfänger...

Lg
Chris

[ts-soft]

Such mal in der Hilfe nach If, informiere Dich, wie und wozu man es einsetzen kann, z.B. überprüfen ob Icon.l nicht 0 ist?

Wegen der Eventloop sollteste nochmal im CodeArchiv und der Hilfe nachsehen.

[winduff]

mhm Icon.l ist = 16116 (ungefähr)

Habe keine ahnung was das heisst

Ähm ja werde mich mal an hand eines Beispiels weiterversuchen

//edit: Fehler behoben, Image0 war nicht angegeben *ichidiot*

- close -

Danke nochmals an alle!

lg
chris