FiveTech Software tech support forums

... oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditNeteo(.f.),oBrw:SetFocus(),oBrw:Refresh(.t.)} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) Activate Dialog oDlg On Init (CentroDlg(@oDlg),Centra( ...

... 64 bits only: HMG_CallDLL( "llama64.dll", HB_DYN_CTYPE_VOID, "Llama", cModel, cPrompt, CallBack( { | cStr | AI_FORM.oAnswer.SetFocus(), AI_FORM.oAnswer.Value += cStr } ) ) and add this at the bottom: #pragma BEGINDUMP #include <hbapi.h>#include <hbapiitm.h>static ...

... // only when is seletected ACTION ( IIF(Len(oBrw:aselected) >1,aClone:=Giverows(oBrw),; aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows(oBrw) local n,atmp:={},nAt For n= 1 to Len( oBrw:aselected) nAt := oBrw:aArrayData[ oBrw:aselected[n] ] aadd( aTmp, aclone(nat)) ...

... But, look also into xbrowse.prg in C:\FWH\Source\Classes\xbrowse.prg. MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,; oBrw:SetFocus(), xbrowse(oBrw:aSelected) ) All you need is there. This is the biggest benefit of FiveWin that you have source code of the classes. And xbrowse() ...

... But, look also into xbrowse.prg in C:\FWH\Source\Classes\xbrowse.prg. MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,; oBrw:SetFocus(), xbrowse(oBrw:aSelected) ) All you need is there. This is the biggest benefit of FiveWin that you have source code of the classes. And xbrowse() ...

... oBrw:IsSelectedRow(); // only when is seletected ACTION IIF(Len(oBrw:aseleted) >1,Aclone:= Giverows (oBrw),aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows (oBrw) local n,uBook,nAt local aTmp:= {} For n = 1 to len(oBrw:aselected) uBook := Eval( oBrw:bBookMark ) nAt := Ascan( ...

... EACH nRow IN oBrw:aSelectedRows // Iterate over selected rows AAdd( aCopy, oBrw:aArrayData[nRow] ) // Add each selected row to aCopy NEXT, oBrw:SetFocus() ) ``` ### Modified Paste Functionality ```harbour // Inside PopMenu Function - Modify the "Paste" Menu Item MENUITEM "Paste" ...

... 1 ] := codsep ,; aCopy[ 8 ] := 0 ,; //recno aadd( oBrw:aArrayData, aCopy ),; oBrw:Unlock( .t. ), ; acopy:=NIL ,; oBrw:RefreshCurrent(), oBrw:SetFocus() ) ENDMENU but when I modify it the nRecord:= oBrowse:nArrayAt is the same

You have to extend here: MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,; oBrw:SetFocus() ) and here: aadd( oBrw:aArrayData,aCopy ),; // oBrw:aArrayData[ oBrw:nArrayAt ] := aCopy ,; >MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,; ...

You have to extend here:
MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus() )


and here:
aadd( oBrw:aArrayData,aCopy ),; // oBrw:aArrayData[ oBrw:nArrayAt ] := aCopy ,;

... := ors1 ) of odlgSTK REDEFINE combobox oOrden var xOrden items tOrden ID 212 on change ( xOrden := oOrden:nAt, CambioOrden( ors1 ,xorden), obusco:setfocus() ) OF odlgSTK REDEFINE XBROWSE oBrw ID 181 recset oRS1 OF oDlgSTK FIELDS ; iif ( ( oRS1:Fields( "disconti" ):Value ) = "S", ...

... GET, tente colocar no botão de saída (BOTÃO "&Cancelar") ATIVAR DIALOG oDlg CENTRADO no Init (BOTÃO "&Cancelar"; SetFocus()) Lembre-se que o PLACEHOLDER desaparece quando o controle tem FOCUS Espero que funcione para você Joao, veo dos detalles en tu código, Primero: ...

... VK_HOME, 0 )) oWndChild:nWidth := princfac:nWidth + 7 oWndChild:nHeight := princfac:nHeight + 32 ACTIVATE WINDOW oWndChild on init ( onrocli:setfocus() )

... tooltip en boton en tooltip aBotones := { {"User.bmp" ,"Agrego Registro " , "Agregar" , {|| (EditCorrijo(.t.),oBrw:SetFocus(),oBrw:refresh()) },VK_INSERT,"<Insert>",.f.},; {"Borrar.bmp" ,"Borro Registro " , "Borrar" , ...

... 6 ] function Paci_ABM( tUser ) local oDlg, oLbx, oBusco, cBusco := SPACE(20) //, cAlias:=cGetNewAlias('Sample') set deleted on AbrePaci( ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg RESOURCE "FONDO_PACIENTE" TITLE "ABM de Pacientes" REDEFINE LISTBOX oLbx FIELDS ...