Abilita voci menu

[Frank]

Ciao a tutti
qualcuno mi aiuta?
Disabilito la voce nel menu che lancia AZIENDA() come riabilito la voce nel
menu all'uscita da Azienda()
METHOD Menu1Item5_2Click( oSender, oMenu ) CLASS MenuBase
::Menu1Item5_2:lEnabled := .F.
Azienda():NEW(Self):Show()
RETURN Nil
Spero di essere stato chiaro
Grazie in anticipo
Franco

[jfgimenez]

Frank
> Ciao a tutti
> qualcuno mi aiuta?
>
> Disabilito la voce nel menu che lancia AZIENDA() come riabilito la voce
> nel menu all'uscita da Azienda()
>
> METHOD Menu1Item5_2Click( oSender, oMenu ) CLASS MenuBase
> ::Menu1Item5_2:lEnabled := .F.
> Azienda():NEW(Self):Show()
> RETURN Nil
Desde el formulario Azienda, asigna el evento OnClose:
[From the Azienda form, set the event OnClose:]
METHOD FormClose( oSender, lClose ) CLASS Azienda
::oParent:Menu1Item5_2:lEnabled := .F.
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Frank]

GRAZIE MOLTO FUNZIONA !!
"JOSE THE BEST"
mi sai dire anche come si disegnano linee, rettangoli, ecc. su un form
Grazie in anticipo..Frank
"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha scritto nel messaggio
news:4bd879fc$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Frank
>
>> Ciao a tutti
>> qualcuno mi aiuta?
>>
>> Disabilito la voce nel menu che lancia AZIENDA() come riabilito la voce
>> nel menu all'uscita da Azienda()
>>
>> METHOD Menu1Item5_2Click( oSender, oMenu ) CLASS MenuBase
>> ::Menu1Item5_2:lEnabled := .F.
>> Azienda():NEW(Self):Show()
>> RETURN Nil
>
> Desde el formulario Azienda, asigna el evento OnClose:
> [From the Azienda form, set the event OnClose:]
>
> METHOD FormClose( oSender, lClose ) CLASS Azienda
>
> ::oParent:Menu1Item5_2:lEnabled := .F.
>
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info

[emeasoft]

> mi sai dire anche come si disegnano linee, rettangoli, ecc. su un form
Allegato piccolo esempio.
Saludos!
Mário Angelini
www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft
--

Attached files teste6.zip (1.8 KB)Â

[jrcpoli-quitar]

Saludos:
Otra forma de hacerlo es utilizando el objeto TCanvas.
METHOD FormPainted( oSender, hDC, cPaintStruct ) CLASS TPrincipal
LOCAL oCanvas
LOCAL oPen
WITH OBJECT oCanvas := TCanvas():New()
:hDC:= hDC
:Create()
END
oPen := TPen():New( PS_SOLID, 3, CLR_RED )
oCanvas:oPen := oPen
oCanvas:MoveTo(150, 150 )
oCanvas:LineTo( 300, 50 )
oPen:Destroy()
oCanvas:Destroy()
RETURN Nil
Ver TCanvas en la Ayuda.
José Ramón Castro.
El 29/04/2010 10:48, Frank escribió:
> GRAZIE MOLTO FUNZIONA !!
>
> "JOSE THE BEST"
>
> mi sai dire anche come si disegnano linee, rettangoli, ecc. su un form
>
> Grazie in anticipo..Frank
>
>
>
>
> "Jose F. Gimenez"<jfgimenez@wanadoo.es> ha scritto nel messaggio
> news:4bd879fc$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Frank
>>
>>> Ciao a tutti
>>> qualcuno mi aiuta?
>>>
>>> Disabilito la voce nel menu che lancia AZIENDA() come riabilito la voce
>>> nel menu all'uscita da Azienda()
>>>
>>> METHOD Menu1Item5_2Click( oSender, oMenu ) CLASS MenuBase
>>> ::Menu1Item5_2:lEnabled := .F.
>>> Azienda():NEW(Self):Show()
>>> RETURN Nil
>>
>> Desde el formulario Azienda, asigna el evento OnClose:
>> [From the Azienda form, set the event OnClose:]
>>
>> METHOD FormClose( oSender, lClose ) CLASS Azienda
>>
>> ::oParent:Menu1Item5_2:lEnabled := .F.
>>
>> RETURN Nil
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>> http://www.xailer.com
>> http://www.xailer.info
>
>