FiveTech Software tech support forums

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

Implementa esta funcion:

function GetCoors( hWnd )

return { WndTop( hWnd ), WndLeft( hWnd ), WndBottom( hWnd ), WndWidth( hWnd ) - WndLeft( hWnd ) }

espero te sirva o lo que busques

On INIT (WndTop(oLbx:hWnd,240), WndLeft(oLbx:hWnd,120)

... en el ejemplo original del wBrowse no pude hace que funcione correctamente con recursos. Con el remiendo: On INIT (WndTop(oLbx:hWnd,240), WndLeft(oLbx:hWnd,120) seguí con la obra. Lo que me extraña es que nadie mas ha reportado este caso en el foro. O es que yo tengo una versión que no ...

William, Las 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 ...

William, Las 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 ...

Biel EA6DD wrote:Try with functions WndTop(oDlgp:hWnd) and WndLeft(oDlgp:hWnd)

Gabriel.... this not fun!

Try with functions WndTop(oDlgp:hWnd) and WndLeft(oDlgp:hWnd)

... CLR_BLACK,CLR_LIGHTGRAY ; ICON oIcon ; VSCROLL HSCROLL MDICHILD STYLE nOR( WS_CAPTION) Inserted: STYLE nOR( WS_CAPTION) WndTop( ::oWnd:hWnd, 0) //WndLeft( ::oWnd:hWnd, (::oWndMain:nwidth() - ::oWnd:nwidth())-16 ) WndLeft( ::oWnd:hWnd, 200) ::oWnd:nHeight := ::oWndMain:nHeight() -80 3) cTitle := ...

... CLR_BLACK,CLR_LIGHTGRAY ; ICON oIcon ; VSCROLL HSCROLL MDICHILD STYLE nOR( WS_CAPTION) Inserted: STYLE nOR( WS_CAPTION) WndTop( ::oWnd:hWnd, 0) //WndLeft( ::oWnd:hWnd, (::oWndMain:nwidth() - ::oWnd:nwidth())-16 ) WndLeft( ::oWnd:hWnd, 200) ::oWnd:nHeight := ::oWndMain:nHeight() -80 1. I don’t ...

... /2 meioamain := naltmain/2 //coordinates to place the mdichild ntop := meioamain-meioajan nleft := meiolmain-meioljan WndTop( ::hWnd, ntop ) WndLeft( ::hWnd, nleft ) RETURN nil Antonio

Michel,

You can also do it this way:

WndTop( oWnd:hWnd, xTop )
WndLeft( oWnd:hWnd, xLeft )
oWnd:nWidth = xWidth
oWnd:nHeight := xHeight

for controls, you can simply do:

oControl:nTop = ...
oControl:nLeft = ...

Perfecto, ya lo tengo funcionando. Muchas gracias Marcelo y Carles. Era justo lo que necesitaba.

De hecho tenia la solucion delante y no me habia dado cuenta, WndTop, y WndLeft, sin parametro de posicion devuelve posición actual.


Gracias nuevamente.

... Se han añadido algunos métodos nuevos en la clase TRichEdit, han sido heredados de la clase TMultiGet. * Corrección: Las funciones WndTop() y WndLeft() no estaban manejando correctamente valores negativos. Ahora puedes hacer oControl:nLeft -= nValue y el control se visualizará correctamente, ...

... on dialogs. * Enhancement: Class TRichEdit, some new methods added, that previously were inherited from Class TMultiGet. * Fix: WndTop() and WndLeft() were not properly managing negative values. Now you can do oControl:nLeft -= nValue and the control is properly displayed, no matter if the ...