topic-17603

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

FW ribbon - Office 2010
Posted: Sat Dec 12, 2009 10:48 PM

I think Office 2010 looks much better than 2007. It is not that much overloaded.
Best regards,
Otto

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FW ribbon - Office 2010
Posted: Sun Dec 13, 2009 03:15 AM

Otto,

Very nice example :-)

Would you mind to post its source code ? thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: FW ribbon - Office 2010
Posted: Sun Dec 13, 2009 10:14 AM

Hello Antonio,

I use

Code (fw): Select all Collapse

oGr1:AddSeparator(1)
oGr2:AddSeparator(1)
oGr3:AddSeparator(1)
oGr4:AddSeparator(1)

and changed in class trbgroup.prg
in method paint:
Could you please help me to get an extra separator at the right side as a final border.
Thanks in advance
and best regards,
Otto

Code (fw): Select all Collapse

  for n = 1 to len( ::aSeparator )           
         hOldPen = SelectObject( ::hDC, hLightPen )
         MoveTo( ::hDC, ::aSeparator[ n ], ::nHeight * 0.01 )
         LineTo( ::hDC, ::aSeparator[ n ] , ::nHeight  )
         SelectObject( ::hDC, hDarkPen )
         MoveTo( ::hDC, ::aSeparator[ n ] + 1, ::nHeight * 0.01 )
         LineTo( ::hDC, ::aSeparator[ n ] + 1, ::nHeight  )
         SelectObject( ::hDC, hOldPen )
              next

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FW ribbon - Office 2010
Posted: Sun Dec 13, 2009 12:16 PM

Otto,

Please send me a complete PRG to test it so I can modify it for you, thanks :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion