FiveTech Software tech support forums

... nCurrent, nTotal )

ENDCLASS

METHOD SetValues( nCurrent, nTotal ) CLASS GraphTime

LOCAL nSecNow, nSecElapsed, nSecRemaining, nPercent, nNewWidth, cCaption

nCurrent := Min( nCurrent, nTotal )
nSecNow := Int( Seconds() )
IF nSecNow != ::nSecondsOld .AND. nCurrent != 0
nNewWidth := Int ...

... 1461 1773

NMSG
WINDOW.PRG 637 638 737 738 807 808 3827! 3836

NNEW
WINDOW.PRG 916 916 917 917

NNEWHEIGHT
WINDOW.PRG 642 1819 1822

NNEWWIDTH
WINDOW.PRG 727 1857 1860

NNOT() (function in ?)
WINDOW.PRG 3967 3986

NNOTIFYCODE
WINDOW.PRG 1374 1377 1381 1398 1401 1404

NOLDPROC ...

... 1, nDlgH, 1, nDlgW) // Dialog-size

In Relation to the Image-size, I used a Factor to adjust the Thumb-pos like :

If nNewHeight >= 760 .or. nNewWidth >= 760 // image-size
oScroll:SetScroll( 1, 9 , 1, 12 )
Endif

This sample shows the Thumb on Image-bottom.

Because I couldn't find any Logic ...

Dutch,

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

or:

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

bmpResized := ResizeBmp( hOldBmp, nNewWidth, nNewHeight )
Maybe a possible solution, to use

StretchBlt()

for the new Brush-functions in FWH-9.06, to get the Image-Brush adjusted to the Dialog ???


The ResizeBmp function internally uses StretchBlt(). So using resizebmp is like using stretchblt ...

... BTNBMP oBtn1 ID 100 OF oDlg3 ;
NOBORDER ;
FILENAME "./project/palm.bmp" ;
PROMPT "Button 1" ;
FONT oFont1 ;
RIGHT
oBtn1:lTransparent = .t.
oBtn1:cTooltip := "Button1"

That doesn't work !!!
---------------------------
obtn1:nHeight := nNewheight // User defined
oBtn1:nWidth := nNewWidth

Regards
Uwe

Otto,

You can use:

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

or

oControl:nHeight = nNewHeight
oControl:nWidth = nNewWidth

Silvio,

It is is a bitmap control then you can do:

oBmp:SetSize( nNewWidth, nNewHeight )

to know its dimensions:

oBmp:nWidth
oBmp:nHeight

or is it a bitmap that you are managing in memory (and not a visible control) ?

Shuming,

You can do:

oDlg:nTop = nNewTop
oDlg:nLeft = nNewLeft
oDlg:nWidth = nNewWidth
oDlg:nHeight = nNewHeight

JM,

oDlg:SetSize( nWidth, nHeight )

o por separado:

oDlg:nWidth = nNewWidth
oDlg:nHeight = nNewHeight

Gustavo,

oDlg:SetSize( nNewWidth, nNewHeight )

or simply:

oDlg:nWidth := ...
oDlg:nHeight := ...

With oDlg:SetSize() you do it in one single step.

You may use oPrinter:SetSize( nNewWidth, nNewHeight )

... son de tipo setget, por lo que puedes usarlas para cambiar esos valores:

WndTop( hWnd [, nNewTop ] ) --> nTop
WndLeft( hWnd [, nNewLeft ] ) --> nLeft
WndWidth( hWnd [, nNewWidth ] ) --> nWidth
WndHeight( hWnd [, nNewHeight ] ) --> nHeight

Antonio,

muchas gracias, es lo que necesitaba.

... funciones WndTop(), WndLeft(), WndWidth() y WndHeight() son de tipo setget, por lo que puedes usarlas para cambiar esos valores:

WndTop( hWnd [, nNewTop ] ) --> nTop
WndLeft( hWnd [, nNewLeft ] ) --> nLeft
WndWidth( hWnd [, nNewWidth ] ) --> nWidth
WndHeight( hWnd [, nNewHeight ] ) --> nHeight

... New( aRect, cName, lClient, oWnd, lMax ) CONSTRUCTOR
METHOD SetRect( aRect, oWnd )
METHOD GetRect( )

METHOD nWidth( )
METHOD _nWidth( nNewWidth )

METHOD nHeight( )
METHOD _nHeight( nNewHeight )

METHOD Changed( aRect )
METHOD Resized( aRect )
METHOD Move( nTop, nLeft, oWnd ...