FiveTech Software tech support forums

... SIZE 0,-15 DEFINE BRUSH oBr RESOURCE "beige2" DEFINE DIALOG oDlg FROM 1, 30 TO 650, 1050 FONT oFont TITLE 'Precios' PIXEL @ 35, 3 GROUP oGrp TO 160, 507 PROMPT "De Formularios" of oDlg pixel transparent @ 43,5 XBROWSE oBrw ; COLUMNS "Cliente", "CliFor->ApeNom", ...

... it is DISABLED in new FWH-release class GROUP It would be nice to have a pensize as well. /* * UNDER TESTING * * METHOD Paint() CLASS TGroup oGrp[1]:nClrBorder := CLR_BLUE :x //#define CNL //22/10/2018 CLASS TGroup FROM TControl #ifdef CNL DATA nClrBorder // 15/10/2018 CNL #endif http://www.pflegeplus.com/IMAGES/FoldGrp1.jpg ...

Marcelo, Please change @ 0, 1 GROUP oGrp TO 300, 500 PROMPT "Test" OF oWnd pixel //@ 50, 20 BITMAP oBmp FILENAME "..\bitmaps\Tutanka1.bmp" OF oWnd SIZE 300,200 PIXEL SCROLL @ 50, 20 BITMAP oBmp FILENAME "..\bitmaps\Tutanka1.bmp" ...

... and I need it to be exactly inside the group and I can not make it appear. #include "FiveWin.ch" STATIC oWnd, oBmp FUNCTION Main() local oGrp DEFINE WINDOW oWnd FROM 0,0 TO 200,200 TITLE "Test Class TBitmap" pixel @ 0, 1 GROUP oGrp TO 300, 500 PROMPT "Test" OF oWnd ...

... 44, 64 GET oGet3 VAR cGet3 SIZE 164, 12 PIXEL OF oDlg   @ 48, 28 SAY oSay3 PROMPT "indirizzo : " SIZE 32, 8 PIXEL OF oDlg   @ 4, 4 GROUP oGrp PROMPT "Group" SIZE 240, 68 PIXEL OF oDlg  TRANSPARENT   ACTIVATE DIALOG oDlgreturn oDlg  Only there are something to correct : 1. if ...

Cristobal, Prueba a usar dos colores (texto y fondo): @ 02, 356 GROUP oGrp TO 230, 617 PROMPT " Acciones " COLOR CLR_GREEN, CLR_BLUE PIXEL OF oDlgPrin Gracias Antonio Lo que intento es cambiar el Color de la Linea perimetral del GROUP no el texto ...

Cristobal,

Prueba a usar dos colores (texto y fondo):

@ 02, 356 GROUP oGrp TO 230, 617 PROMPT " Acciones " COLOR CLR_GREEN, CLR_BLUE PIXEL OF oDlgPrin

... ::oFont should be ended inside the Destroy() method and that the program need not be modified. To set a font to a control like this, we should use oGrp:SetFont( oOurFont ) and should not directly assign oGrp:oFont := oOurFont. SetFont( oFont ) increments the count of font and the oFont:end() in ...

Antonio ,

it works if I declare In the source

REDEFINE GROUP oGrp ID 4001 OF oDlg PROMPT "This is a test"

but usually the group is not declared ,anyway so is Ok

Thanks
Maurizio

... - Accounting Software - ","Contsys - Accounting Software - ")+RDDNAME() REDEFINE GROUP oGrp ID 13 OF oDlg PROMPT iif(wfcoi=="I","Access to : '","Acceso a : '")+alltrim(oApp:cSqlBd2)+iif(wfcoi=="I","' ...

... perfeito. como resolver ? El Problema lo resolvi cambio asi. si quieres hacer un recuadro al viejo estilo clipper seria asi: @ 045, 005 GROUP OGRP TO 110, 150 LABEL " Acceso al sistema " OF oDLG pixel FONT FONT1 TRANSPARENT COLOR 0,RGB(227,232,234) con la sugerencia de alex

solo te falta ponerle lo mas importante, y que es un COMBOBOX, SAY, GET, OBOX, ETC

si quieres hacer un recuadro al viejo estilo clipper seria asi:

@ 045, 005 GROUP OGRP TO 110, 150 LABEL " Acceso al sistema " OF oDLG pixel FONT FONT1 TRANSPARENT COLOR 0,RGB(227,232,234)

... shows the Problem : http://www.pflegeplus.com/pictures/grtest1.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 ...

I tried the codes below: FUNCTION MAIN() LOCAL oDlg, oBtn, oGrp, aGet[3] LOCAL cTabCodice := SPACE(10) LOCAL cTabDesc := SPACE(10) LOCAL cTabImage := SPACE(10) LOCAL oBmp c_path := CURDRIVE() + ":\" + GETCURDIR() cImgname := c_path + "\Bitmaps\Help.bmp" ...

... and Copy() methods but I not Lnow How use them One sample please thanks @ 10,10 button obtn of oDlg obtn:bRClicked:= {|| MenuButton(nRow,nCol,oGrp,obtn) } ) ... Function MenuButton(nRow,nCol,oGrp,obtn) local oMenu MENU oMenu POPUP 2007 MENUITEM "Copy" MENUITEM "Paste" ENDMENU ...