FiveTech Software tech support forums

Estimado Marcelo,

La Clase TXImage proporciona el método Paste( lCheck ) que permite copiar una imagen desde el portapapeles

Además tienes el método PopupMenu( nRow, nCol, nFlags ) que te muestra un popup con la opción Paste

Espero que esto te pueda ser de ayuda

... with the folder on the laptop, but it is therefore that I put a
radiobutton on the browse to show or now show the pics at all in the browse. (lCheck)

I have to say that the Picture browse will be used when new items will be uploaded to the webshop and the pictures can be arranged in position ...

... a nice looking tool. Thanks for that.
It will be the goal to program it and keep speed/looks in the middle. Therefore I have put a selection tool (lCheck) to see pics or see tekst.

My problem is that I use the tools from Xbrowse the wrong way and I have to find them.

One of them is moving left to ...

... just 13 times ??? while I would think that just moving to a cell, the debug would not be called once.

Commenting this code out, from the point of lCheck... (Lcheck is for painting the images or not. Not when I want more speed)
The number go from
Right key 65 times to 5
Left key 13 times to 1 ...

... 46;cc/SsztvXVr/before.png

After with when =2
https://i.postimg.cc/wB1W1yKp/after.png



@ 130, 15 CHECKBOX aGet[3] VAR lCheck_HeaderExcel Prompt "Includi intestazioni" ;
OF oDlg SIZE 80, 10 PIXEL FONT oFont When nRadio=2


it is really strange that the procedure hides a ...

You must be using lCheck column to allow the user to select/deselect different rows.
Here is another way to do it without creating a logical column in the query itself. Please test it:
#include "fivewin.ch"function Main()   local oCn, oRs, oDlg, oBrw, oFont   oCn &nbsp ...

MySQL returns "false AS lCheck" AS LONG INTEGER but not as TINYINT. There is no way you can return a TinyInt or Bit value from a Query, unless the field itself is TinyInt or Bit field.

We need to instruct XBrowse to treat the numeric value as logical.
This is how:
#include "fivewin.ch"function Main ...

... cPrinter> ] ;
[ OF <oWnd> ] ;
[ <lModal: MODAL> ] ;
[ <lPrintIDs: PRINTIDS> ] ;
[ <lNoPrint: NOPRINT> ] ;
[ <lNoExpr: NOEXPR> ] ;
[ CHECK <lCheck> ] ;
[ AREAPATH <cAreaPath> ] ;
[ PRINTDIALOG <lPrDialog> ] ;
[ COPIES <nCopies> ] ;
[ PRINTOBJECT <oPrn> ] ;
[ PAPERSIZE <aSize> ] ;
[ TITLE ...

... t.
:bClrStd := {|| IF( oQryG:RecNo() % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB(203,226,254)} ) }
*oBrw:Married:SetCheck( , .t. )
* :lCheck:SetCheck( ,.t. )
* :bKeyDown := {|nKey| IIF( nkey == 13 ,; // Si Pulsa ENTER
* ( alert("seleccionado") ), ) }
:bLDblClick := {|| ( IIF( lCheck ...

... www&#46;pflegeplus&#46;com/pictures/grtest1&#46;jpg

#INCLUDE "FIVEWIN.CH"

FUNCTION MAIN()
local oDlg, oGrp, oFont, oGroup, Brush
local oCheck, lCheck := .T., oRadio, nOption := 1, oSay

DEFINE FONT oFont NAME "Arial" SIZE 0, -16

DEFINE DIALOG oDlg TITLE "TRANSPARENT Grouptest" ;
FROM 0,0 TO 350 ...

... 9.0 si edito pero al visualizar mi sbrowse no me muestra nada en mis columnas con checkbox, el codi es

/// version 6
for i:=1 to len(COLUM)
if _lCHECK(i)
ADD COLUMN TO BROWSE oBROWSE;
TITLE HEAD_CAM[i];
DATA COLU_BLO(i);
SIZE ALTO_CELDA CHECKBOX;
COLOR COLU_CLR(i);
ALIGN DT_CENTER, DT_VERT ...

... 9.0 si edito pero al visualizar mi sbrowse no me muestra nada en mis columnas con checkbox, el codi es

/// version 6
for i:=1 to len(COLUM)
if _lCHECK(i)
ADD COLUMN TO BROWSE oBROWSE;
TITLE HEAD_CAM[i];
DATA COLU_BLO(i);
SIZE ALTO_CELDA CHECKBOX;
COLOR COLU_CLR(i);
ALIGN DT_CENTER, DT_VERT ...

... to select enabled Pages )

Your Screenshot would look like :
http&#58;//www&#46;pflegeplus&#46;com/pictures/delitem1&#46;jpg

oFld:aEnable = { lCheck[1], lCheck[2], lCheck[3], lCheck[4], lCheck[5], lCheck[6], ;
lCheck[7], lCheck[8], lCheck[9], lCheck[10], lCheck[11], lCheck[12] }

FOR I = 1 TO ...

... but it is still possible to set the Tab-Focus.

http&#58;//www&#46;pflegeplus&#46;com/pictures/fdisable1&#46;jpg

REDEFINE CHECKBOX oCheck0 VAR lCheck ID 150 COLOR 128, 10853885 OF oDlg70 ;
ON CHANGE ( IIF( lCheck, oFolder:aEnable := { .T., .T., .T., .T., .T. },;
oFolder:aEnable := { .T., .F ...

... 1.30 //1.34 // Correccion Says
//static nXtR := 0.89 , nXtC := 1 // Correccion botones
//static nXkR := 1.483 , nXkC := 1 //0.9 // Correccion lCheck
//static nXpR := 0.862, nXpC := 1.34 // Correccion Says
//static nXtR := 0.67 , nXtC := 1.1 // Correccion botones
//static nXtR := 0.66 , nXtC := 1 ...