[Gambas-user] TrayIcon control

[Toni]

Hi Demosthenes,
I have changed my code in FMain Close event to ".Hide()" and to 
".Show()" in TrayIcon1 DblClick event (instead of setting FMain visible 
property to FALSE/TRUE), with no difference. It still has the same two 
problems...

Regards,
Toni
 

En/na Demosthenes Koptsis ha escrit:
> i propose to hide or show the FMain form instead close it.
>
> so this code may help you
>
> PUBLIC SUB TrayIcon1_DblClick()
>
> 'when double click tray icon show or hide FMain
>   IF FMain.Visible = TRUE THEN
>     FMain.Visible = FALSE
>   ELSE
>     FMain.Visible = TRUE
>   END IF
>
> END
>
> PUBLIC SUB btnHide_Click()
>
>   ME.Hide()
>
> END
>
> PUBLIC SUB btnExit_Click()
>
>   ME.Close()
>
> END
>
>
> On Wed, Dec 3, 2008 at 10:55 PM, Toni <arosa at ...2015...> wrote:
>   
>> Hi,
>> I have created a new project "gb.gui" with two forms, "Fmain" (startup
>> class) and "Form1".
>>
>> "Fmain" has a Button "ButtonExit" and one IconTray "TrayIcon1".
>> What I am trying to accomplish is that the application can be only
>> "exited" clicking on the button. When the form "Fmain" is Closed, it
>> "places" it self into an Icontray.
>> When "doubleclicking" on the "Icontray" it will show "Fmain" again.
>> "Icontray1" has a "contextual menu" to show another form (Form1).
>>
>> Now, the steps to reproduce problems I mentioned in my prevoius mail:
>> 1. Launch application, close Fmain. It "places" itself in the IconTray.
>> 2. Then  select Icontray1 menu "Opt1" (it will "showmodal()" Form1)
>> 3. Then "DoubleClick"  on Icontray1 again, it will show "Fmain".
>> *First problem: Although the "showmodal()" has been called, Icontray1
>> has still processed events and show "FMain"
>> 4. "Click" on FMain ButtonExit
>> *Second problem, clicking on "ButtonExit" will crash with signal #11.
>>
>>
>>
>> The Code in "Fmain"  is the following:
>>
>> PUBLIC Mnu AS menu
>> PUBLIC Opt1 AS Menu
>> PUBLIC Opt2 AS Menu
>>
>> PUBLIC SUB _new()
>>  Mnu = NEW Menu(ME)
>>  Mnu.Name = "Mnu"
>>  Opt1 = NEW Menu(Mnu) AS "MenuTray"
>>  Opt1.Name = "Opt1"
>>  Opt1.Caption = "Opt1"
>>  Opt1.Visible = TRUE
>>  Opt2 = NEW Menu(Mnu) AS "MenuTray"
>>  Opt2.Name = "Opt2"
>>  Opt2.Caption = "Opt2"
>>  Opt2.Visible = TRUE
>>  ME.Persistent = TRUE
>>  TrayIcon1.Visible = FALSE
>> END
>>
>> PUBLIC SUB Form_Close()
>>  ME.Visible = FALSE
>>  ME.SkipTaskbar = TRUE
>>  TrayIcon1.Visible = TRUE
>> END
>>
>> PUBLIC SUB MenuTray_Click()
>> DIM Frm AS NEW Form1
>>  IF LAST.name = "Opt1" THEN
>>    Frm.Showmodal()
>>  ELSE
>>    ButtonExit_Click()
>>  ENDIF
>> END
>>
>> PUBLIC SUB TrayIcon1_Menu()
>>  Mnu.popup
>> END
>>
>>
>> PUBLIC SUB TrayIcon1_DblClick()
>>  ME.Visible = TRUE
>>  ME.SkipTaskbar = FALSE
>>  TrayIcon1.Visible = FALSE
>> END
>>
>> PUBLIC SUB ButtonExit_Click()
>>    ME.Persistent = FALSE
>>    ME.Close
>> END
>>
>>
>>
>>
>>
>> Thanks!
>>
>> P.S. I have, yet, another problem related to Icontrays. I would like to
>> use it as the "control" sended to "Ballon", so the "ballon" displays
>> information pointing at it... but it doesn't compile arguing that it
>> (ballon) expected a Control not an Icontray :(
>>
>> -------------------------------------------------------------------------
>> This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
>> Build the coolest Linux based applications with Moblin SDK & win great prizes
>> Grand prize is a trip for two to an Open Source event anywhere in the world
>> http://moblin-contest.org/redirect.php?banner_id=100&url=/
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>>     
>
>
>
>