FiveTech Software tech support forums

Enrico, in this way? oBtn:bAction = { || oClp:SetText( ALLTRIM(cNumero) ) , ; SetStateKey( VK_CONTROL, .T. ) , ; SetStateKey( ASC("C"), .T. ) , ; HB_IDLESLEEP(1) , ; SetStateKey( ASC("C"), .T. ) , ; SetStateKey( VK_CONTROL, ...

... the phone call I have to restart the PC because the keypad locks. :? #include "Fivewin.ch" #define VK_LMENU 164 #define VK_A 65 STATIC oClp FUNCTION MAIN() LOCAL oDlg LOCAL oBtn LOCAL cNumber := SPACE(20) DEFINE DIALOG oDlg DEFINE CLIPBOARD oClp OF oDlg @ 1, 1 GET cNumero @ 2, 1 BUTTON ...

... endif if ::lBlock MENUITEM "&Copy " ACTION ::Copy() else MENUITEM "&Copy" ACTION ::Copy() DISABLED endif if !Empty( oClp:GetText() ) .and. !::lReadOnly MENUITEM "&Paste " ACTION ::Paste() else MENUITEM "&Paste" ACTION ::Paste() DISABLED ...

... local lFocus := .f. local cTextForm := "" local nCrLf := 0 local nCol := oGet:nLineCol + 1 local cLinea := oGet:GetTextLine( oLine ), oClp DEFAULT nVal := 1 oGet:GetDC() if oGet:lBlock cTextForm := oGet:GetBlock() nCrLf := At( CRLF, cTextForm ) lFocus := oGet:lFocusBlock cChars:= cTextForm ...

... lIt, nX, lChange := .f., cTextFormat := "" //static cTextFind := "", CFGAYUDA, bFnt, nAH := 1, nAV := 1, nPar := 1 //static oClp, oPrn, oFonSpec, lFile2 := .f. static nIndex := 1 static nAvance := 1 static aBmp := {} static aResources := {} Static oWnd, oGet, oMenu, oFont, ...

... nil //----------------------------------------------------------------------------// static function SetChildBar( oWnd ) local oBar, oCursor, oClp, oBold, oItalic, oUnderline, oBullet, oNumber DEFINE CURSOR oCursor HAND DEFINE CLIPBOARD oClp OF oWnd FORMAT TEXT DEFINE BUTTONBAR oBar OF oWnd ...

... cFontName    local oDlg, cResource := "", cFirst, nControls := 0    local oFnt        //Otto start    local DialogName    local oClp    DEFINE CLIPBOARD oClp OF oWnd    //Otto end    if oItem == nil       return nil    endif    cText = oItem:Cargo    if Empty( cText )       return ...

Antonio, if I open the area of transfer after using oClp:Clear(), this clean, but after a while the app not save the screen, this message: Shut one or more application to free up more memory and try again. But if you leave the app, and return back ...

no I'm using FGet (with many modifications for our use)

with
oClp:SetText( cText )
oClp:GetText( )

I can see that only part of very long texts are copied.
I there a limit by Windows? (same results with xP and vista)

Thanks,
Dietmar

... //27/06/2005 #define WM_PASTE 770 // 0x302 STATIC FUNCTION InsText(cTxt) LOCAL oclp DEFINE CLIPBOARD oClp OF oMemo FORMAT TEXT oClp:SetText(cTxt) oMemo:SendMsg( WM_PASTE ) Eval( oMemo:bSetGet, cText ) oMemo:SetFocus() oClp:End() ...

... //27/06/2005 #define WM_PASTE 770 // 0x302 STATIC FUNCTION InsText(cTxt) LOCAL oclp DEFINE CLIPBOARD oClp OF oMemo FORMAT TEXT oClp:SetText(cTxt) oMemo:SendMsg( WM_PASTE ) Eval( oMemo:bSetGet, cText ) oMemo:SetFocus() oClp:End() ...

... RETURN( NIL ) //---------- EXCEL Sheet cFile = DBF-Name / lOemAnsi .T. or .F. ------// STATIC FUNCTION EXP_RUN(oDlg7,oMeter,cFile1,lOemAnsi) LOCAL oClp LOCAL nSheets := 0 LOCAL n := 0 LOCAL nRow := 0 LOCAL nHeaderRow := 1 LOCAL nDataStart := nHeaderRow + 1 LOCAL FIELD_ARRAY := {} DBSELECTAREA(1) ...

... func f_SaveState(oBrw) **************************************************** local oCol local cState local nFor, nLen local cdata local oClp nLen := Len( oBrw:aCols ) cState := "oBrw:nRowHeight := " + Ltrim( Str( oBrw:nRowHeight ) ) +CRLF cState += CRLF for nFor := 1 to nLen oCol := ...

... 100% OK Esta son las intrucciones, tal cual como tu me indicaste, que estoy usando para grabar el fichero en el Hard Disk: DEFINE CLIPBOARD oClp OF oWnd DibWrite( "screen.bmp", DibFromBitmap( oClp:GetBitmap() ) ) Pero solamente se salva un pequeño cuadrado blanco con una X roja en el medio ...

... CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 ) ::oGet:buffer = Pad( GetWindowText( ::hWnd ), Len( ::oGet:buffer ) ) DEFINE CLIPBOARD oClp OF Self FORMAT TEXT ::oGet:Pos += Len( oClp:GetText() ) oClp:End() ::oGet:Assign() Eval( ::bPostKey, Self, ::oGet:Buffer ) // FWD 16/04/2007 return ...