Re: [Hwgui-developers] Shortcuts in menus

[Alain A. <ala...@wa...>]

Le 26/08/2015 14:34, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>> Hi,
>> Shortcuts works, but they the letters aren't underscored
>>
>   Hm... They are underscored here. Maybe, you use some special font for 
> a window ?
I don't think so:

alain@Gramps-JujuLand:/opt/TuxPrograms/harbour/projects/Hwgui/Maintsys-tool$
cat Maintsys-client.prg|grep "Font("
Local oDlg, oFont := HFont():Add( "Serif",0,-13 )
Local oDlg, oTAB, oIcon, oFont := HFont():Add( "Serif",0,-13 )
Local oDlg, oIcon, oFont := HFont():Add( "Serif",0,-13 )
Local oPartners, oDlg, oFont := HFont():Add( "Serif",0,-13 )
Local oDlg, oFont := HFont():Add( "Serif",0,-13 )
Local fname:="", oPath, oModDlg, oFont := HFont():Add( "Serif",0,-13 ),
oFolders, rFolders, rg
oFont6 := oPrinter:AddFont( "sans",6 )
oFont8 := oPrinter:AddFont( "Times New Roman",8 )
oFont8b:= oPrinter:AddFont( "sans",8,.t. )
oFont8i:= oPrinter:AddFont( "Times New Roman",8,,.t. )
oPrinter:SetFont( oFont8 )
Local rtype, rdate, oDlg, oPrint, oRemove, lPrint:=.t., lRemove:=.f.,
oFont := HFont():Add( "Serif",0,-13 )

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2015-08-17 13:39) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2487)
------------------------------------------------------------------------