FiveTech Software tech support forums

... ) ::nHeight = ::nTotalHeight() for n = ::nIndex + 1 to Len( ::oWnd:aPanels ) ::oWnd:aPanels[ n ]:nTop += ::nBodyHeight ::oWnd:aPanels[ n ]:nTopMargin := 1 next next RETURN nil Could run it ? I tried and see some result I think it could run if you correct the method :)

... Geral ==>" END REPORT IF !oReport:lCreated RETU NIL ENDIF oReport:oTitle:aFont[1] := {|| 2 } //1ra linha do titulo, cor e fonte 2 oReport:nTopMargin := 600 //Espacio superior oReport:nDnMargin := 300 oReport:aColumns[2]:bTotalFont := {|| 3 } //Tamanho de fonte e color dos totais da columna ...

... local nPanel, nItem *DEFAULT nOpen := 1 for nPanel := nOpen + 1 to Len( ::aPanels ) with object ::aPanels[ nPanel ] :lCollapsed = .T. :nTopMargin = 1 :nLeftMargin = ::aPanels[ 3 ]:nLeftMargin-5 :nRightMargin = ::aPanels[ 3 ]:nRightMargin+6 :nLeft = :nLeftMargin :nRight = ::oWnd:nWidth ...

... 1 to 5 :) then we must add a new methos direclty to ribbon called METHOD SetStyle( nStyle ) or change this METHOD SetStyles( l2010, l2013, l2015, nTopMargin, nClrPaneRB, nClrBoxOut, nClrBoxIn,; nClrBoxSelOut, nClrBoxSelIn, aGrad, aGradFld, aGradHigh, aGradOver, l2016 ) DEFAULT 1 2010 2 2013 3 ...

... the situation. It adds MDI to the windows definition, it adds the button bar attaching to oRb, and it adds and explicitly assigns the values oRb:nTopMargin := 50 and oRb:nTop in SetRibbonBarTheme() #include "FiveWin.ch"#define RB_THEME_DARK         6#define COLOR_GRAYTEXT       17//----------------------------------------------------------------------------//function ...

... ] ; [ <act: ACTION, EXECUTE, ON CHANGE> <uAction> ] ; [ OPTION <nOption> ] ; [ HEIGHT <nHeight> ] ; [ TOPMARGIN <nTopMargin> ]; [ COLOR <nClrPane> ] ; [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ; [ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ...

... Josè of alanit and Antonio) I had modify the ribbon class and add l2016 with some colors I change the METHOD SetStyles( l2010, l2013, l2015, nTopMargin, nClrPaneRB, nClrBoxOut, nClrBoxIn,; nClrBoxSelOut, nClrBoxSelIn, aGrad, aGradFld, aGradHigh, aGradOver, l2016 ) CLASS TRibbonBar I send ...

... uses solid colors). There is brush defined like this in the class: ::hBmpBrushEx = GradientBmp( Self, ::nRight - ::nRightMargin - 3, ::nBottom - ::nTopMargin + 1, ::aGrad ) ::hBrushEx = CreatePatternBrush( ::hBmpBrushEx ) ::aGrad is defined in the class like this: ::aGrad := { { 1, RGB( 255, 255, ...

Another test : I set the margins : nDnMargin := 1.5 nTopMargin := 1.5 nLeftMargin := 0.9 nRightMargin := 2.0 #include <fivewin.ch>#define PAD_LEFT            0#define PAD_RIGHT           1#define PAD_CENTER          2Function Test(lPreview)LOCAL ...

... / 2.54 ( centimetres) nLogPixY := oPrinter:nLogPixelY() / 2.54 nLeftMargin := Int( nLogPixX * 0.5 ) nRightMargin := Int( nLogPixX * 0.5 ) nTopMargin := Int( nLogPixY * 0.5 ) nDnMargin := Int( nLogPixY * 0.5 ) now respect top and left margin

... 2010 style as default: * when defining the Tribbon use a size that fits the heighs of the folder and let no space in the top of them. I use 22 as nTopMargin in the New() method. ::oRebar := TRibbonBar():New(::oWndMain, aRbPrompts,,,,105,22,CLR_WHITE,RGB(165,186,204),,,,,,,,.T.,) ...

... hDC: Printing file Handle (Internal use) nRow: Current printing row nCol: Current pringing column nLeftMargin: Left margin, by default 0 nTopMargin: Top margin, by default 0 lAnsiToOem: If .T. a Ansi to Oem translation is done automatically whe printing, by default is .T. METHODS: New(cPort) ...

... this error as you can see http://www.iispascalcomiforti.it/wp-content/uploads/2017/01/page_labels.jpg I tried also with : ::oLabel:nTopMargin := 2.1 ::oLabel:nDnMargin := 2.1 ::oLabel:nLeftMargin := 0.1 ::oLabel:nRightMargin := 0.1 while the top margin is moved the bottom margin ...

... hDC: Printing file Handle (Internal use) nRow: Current printing row nCol: Current pringing column nLeftMargin: Left margin, by default 0 nTopMargin: Top margin, by default 0 lAnsiToOem: If .T. a Ansi to Oem translation is done automatically whe printing, by default is .T. METHODS: New(cPort) ...

This is the line with the error (in tribbon.prg):

Code: Select all  Expand view

::hBmpBrushEx   = GradientBmp( Self, ::nRight - ::nRightMargin - 3, ::nBottom - ::nTopMargin + 1, ::aGrad )

It looks like ::nBottom and/or ::nTopMargin have no value.

EMG