FiveTech Software tech support forums

Saludos,
En mi caso tomo las coordenadas del video:
aCoord:=GetCoors( GetDesktopWindow() )

Luego creo el dialogo o MDI segun la capacidad del video.

... cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) ACTIVATE DIALOG oDlg on INIT (BtnBarNew( oBrw, @oDlg, aBotones),oDlg:Move( oDlg:nTop, ( WndWidth( GetDesktopWindow() ) / 2 ) - ( oDlg:nWidth / 2 ), oDlg:nWidth, oDlg:nHeight, .T. )) // ACTIVATE DIALOG oDlg on INIT (BtnBarNew( oBrw, @oDlg, aBotones),oDlg:Move( ...

Prueba asi:

oDlg:Move( 50, ( WndWidth( GetDesktopWindow() ) / 2 ) - ( oDlg:nWidth / 2 ), oDlg:nWidth, oDlg:nHeight, .T. )

y dime si el diálogo se posiciona hacia lo alto de la pantalla, gracias

Estimado José,

Prueba así:

oDlg:Move( oDlg:nTop, ( WndWidth( GetDesktopWindow() ) / 2 ) - ( oDlg:nWidth / 2 ), oDlg:nWidth, oDlg:nHeight, .T. )

Massimo,

Please check that you have this code in Class TClipboard

METHOD Open() INLINE OpenClipboard( If( ::oWnd == nil, GetDeskTopWindow(), ::oWnd:hWnd ) )

... ) ::SetFlags( nFlags ) return Self //--------------------------------------// METHOD Build() CLASS TCodeBars local hBmpOld local hDCDesk := GetDC( GetDesktopWindow() ) local hDCMem := CreateCompatibleDC( hDCDesk ) local hBrush := CreateSolidBrush( 0 ) local hBack := CreateSolidBrush( CLR_WHITE ...

...      RETURN NIL    STATIC FUNCTION AppDeskTop()       LOCAL oDeskTop := WvgWindow():New()       oDeskTop:hWnd := Win_GetDesktopWindow()      // ERROR       #if 0       oDeskTop:hWnd := HB_INLINE(){          hb_retnint( ( LONG ) GetDesktopWindow() ...

...  REQUEST HB_GT_WGU   RETURN NILSTATIC FUNCTION AppDeskTop()   LOCAL oDeskTop := WvgWindow():New()   oDeskTop:hWnd := Win_GetDesktopWindow()   #if 0   oDeskTop:hWnd := HB_INLINE(){      hb_retnint( ( LONG ) GetDesktopWindow() );  ...

oDlg:bInit:={||oDlgAjustar(oDlg)
ACTIVATE DIALOG oDlg

RETURN .T.

FUNCTION oDlgAjustar(oDlg)
LOCAL aCoors:=GetCoors( GetDesktopWindow() )
oDlg:Move(0,0,aCoors[3],aCoors[4],.T.)
RETURN .T.

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

function save_scr()
LOCAL hBmp, hDib,h,cFile := "screen.bmp"
h:=getdesktopwindow()
hBmp := WndBitmap(h)
hDib := DibFromBitmap( hBmp )
DibWrite( cFile, hDib )
GloBalFree( hDib )
DeleteObject( hBmp )
RETURN nil
*

* Now i'm tring to convert the BMP file to JPG file....any help ?


GetDesktopWindow() returns the handle for the entire screen

... is not running !", "Attention" ) ENDIF RETURN NIL // ---------- FUNCTION FINDWND( cTitle ) local hWnd := GetWindow( GetDesktopWindow(), GW_CHILD ) WHILE hWnd != 0 IF Upper( cTitle ) $ Upper( GetWindowText( hWnd ) ) RETURN hWnd ENDIF hWnd = GetWindow( hWnd, GW_HWNDNEXT ...

y si en vez usar odlg:capture() usas SetCapture( GetDesktopWindow() ) , ¿ no te captura toda la pantalla ? .
La duda me surge si captura los pixeles del desktop o los de las ventanas debujadas sobre él .

... ... of a file then I saw there is a function Made from Daniel HB_FUNC( BMPFROMICON ) { HICON hIcon = ( HICON ) hb_parnl( 1 ); HDC HDCMem = GetDC( GetDesktopWindow() ); HDC hDC = CreateCompatibleDC( HDCMem ); HBITMAP hBitmap = CreateCompatibleBitmap(HDCMem, GetSystemMetrics(SM_CXICON), GetSystemMetrics(SM_CYICON)); ...