FiveTech Software tech support forums

Una molestia más:

Al crear la lib tsbrowse, me carca error con Harbour 3.2, y con la version Harbour 3.0 no lo hace

TsBrowse(320) Warning W0001 Ambiguous reference 'SUPER'

la linea es:

METHOD BeginPaint() INLINE If( ::lRepaint, Super:BeginPaint(), 0 )

Ayuda.

cnavarro wrote:I think method Move allow change size, not?

Move( nTop, nLeft, nWidth, nHeight, lRepaint )

Thank you! It's work! Do you know how i display the buttonbar with border? oBar10:nStyle := WS_BORDER not work.

I think method Move allow change size, not?

Move( nTop, nLeft, nWidth, nHeight, lRepaint )

... @nWidth, @nHeight ) // referencia If lAutoresize .and. nOriHeight+nOriWidth != nHeight+nWidth // altera essa linha, como mostra agora ... .. . If lRepaint // referencia oWnd:Hide() // referencia EndIf // referencia If nFactorHeight > 1 .or. nFactorWitdh > 1 // talvez esta linha tambem, não ...

...   2387 LPREVIOUS              WINDOW.PRG      206   212   410   416 LREGISTERED            WINDOW.PRG      459   927   929   947   950   955  1155 LREPAINT                WINDOW.PRG      718   849   850  3004  3010  3012 LRIBBON                WINDOW.PRG     2844  2876  2890 LSHOW               ...

... inside the BUTTON-action ! Just add the line < oGet:bPainted > next to Your defined get. You don't need a function for oGet:bPainted ! lRepaint := .F. REDEFINE GET oGet1 VAR nWColorF ID 120 OF oDlg4 PICTURE "999999999" FONT oFont1 // only resized with lRepaint := .T. and oGet:Refresh() ...

Sorry here not run ok Function Calc_Scentifica(oDlg,oGet) lRepaint:=.t. oGet:bPainted := { |hDC| IIF( lRepaint , oGet:Move( , , 100, 50, .f. ), NIL ) } oGet:refresh() RETURN NIL the error pplication===========   Path and name: C:\Work\Prg\msgcalc\msgcalc.Exe ...

Silvio, tested with a big font : http://www.pflegeplus.com/pictures/getresize.jpg lRepaint := .F. REDEFINE GET oGet1 VAR nWColorF ID 120 OF oDlg4 PICTURE "999999999" FONT oBigFont REDEFINE BTNBMP oBtn1 OF oDlg4 ; ID 130 PIXEL 2007 ; NOBORDER ; PROMPT ...

... _New #endif //----------------------------------------------------------------------------// CLASS TSLines FROM TControl DATA aRect DATA lRounded, lRepaint DATA cType, cLabel DATA nClrLite, nClrDark, nTextClr, nSAlign CLASSDATA lRegistered AS LOGICAL METHOD New( nTop, nLeft, nBottom, nRight, cType, ...

Dutch,

oButton:SetSize( nWidth, nHeight [, lRepaint ] )

or:

oButton:nWidth := nNewWidth
oButton:nHeight := nNewHeight

... #ifdef __HARBOUR__ HB_FUN_SETSCROLLRANGE( PARAMS ) // ( hWnd, nFlags, nMin, nMax, lRepaint, lDisable, l32Bit ) #else CLIPPER SETSCROLLR( PARAMS ) // ANGE() #endif { SCROLLINFO si ; si.cbSize = sizeof( si ) ; si.fMask = SIF_RANGE ; ...

Uwe,

You may also use:

oControl:SetSize( nWidth, nHeight [, lRepaint ] )

Otto,

You can use:

oControl:SetSize( nWidth, nHeight [, lRepaint ] )

or

oControl:nHeight = nNewHeight
oControl:nWidth = nNewWidth

... #ifdef __HARBOUR__ HB_FUN_SETSCROLLRANGE( PARAMS ) // ( hWnd, nFlags, nMin, nMax, lRepaint, lDisable, l32Bit ) #else CLIPPER SETSCROLLR( PARAMS ) // ANGE() #endif { SCROLLINFO si ; si.cbSize = sizeof( si ) ; si.fMask = SIF_RANGE ; ...

... función Auto800() que es la que utilizo con éxito: ////////////////////////////////////////////////////////////////////// FUNCTION Auto800 ( oWnd, lRepaint, lFolder ) Local nOriWidth := 800, nOriHeight := 600, nWidth := 0, nHeight := 0, ; nContador, nRancho, nRalto DEFAULT lRepaint := .T., lFolder ...