[Gambas-user] TrayIcon control

[Demosthenes Koptsis]

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