[Gambas-user] TrayIcon control

[Demosthenes Koptsis]

a note the line ME.Persistent = FALSE is useless if you call QUIT !

On 12/5/08, Demosthenes Koptsis <demosthenesk at ...626...> wrote:
> ok back to your code,
>
> replace this code
>
> PUBLIC SUB ButtonExit_Click()
>    ME.Persistent = FALSE
>    ME.Close
> END
>
>
> with this one
>
> PUBLIC SUB ButtonExit_Click()
>    ME.Persistent = FALSE
>    QUIT
> END
>
> try to quit instead of close form.
>
> is that you want?
>
> On 12/4/08, Toni <arosa at ...2015...> wrote:
>> 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
>>>>
>>>>
>>>
>>>
>>>
>>>
>>
>> -------------------------------------------------------------------------
>> 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
>>
>
>
> --
>
> Γεια χαρα σε όλους!!!
>
> Regards,
>
> Demosthenes Koptsis
>


-- 

Γεια χαρα σε όλους!!!

Regards,

Demosthenes Koptsis