FiveTech Software tech support forums

... 79TITLE "Carga Informe de Auditoría " font oFont11 DEFINE DIALOG princfac RESOURCE "Informe" ; OF oWndChild REDEFINE FOLDER ofld1 ID 110 OF princfac ; PROMPT "&Encabezado", "&Información General", "No Conformidades Anteriores", "Resultados", ...

... 79TITLE "Carga Informe de Auditoría " font oFont11 DEFINE DIALOG princfac RESOURCE "Informe" ; OF oWndChild REDEFINE FOLDER ofld1 ID 110 OF princfac ; PROMPT "&Encabezado", "&Información General", "Resultados", "Cierre" ; // ...

... HEIGHT 120 ; BITMAPS aBitmaps ; ALIGN FLDBMP_LEFT, FLDBMP_CENTER,FLDBMP_CENTER, FLDBMP_CENTER ; FONT oTitle oFolder:nLayOut := 2 @ 3,0 FOLDEREX oFld1 OF oFolder:aDialogs[ 1 ] PIXEL ; PROMPT "Impostazione", "Visualizza", "Azienda" ; TAB HEIGHT 30 FONT oFont @ 3,10 ...

... found the problem on page 1. I deleted the folder-test and got NO logfile written. I think this sample is not tested before. :?: REDEFINE FOLDEREX oFld1 ID 500 OF [b]oFld:aDialogs[ 1 ][/b ] PROMPT "Tab 1", "Tab 2", "Tab 3", "Tab 4", "Tab 5"; DIALOGS ...

... :bClrEdits := { || { CLR_HRED, CLR_YELLOW } } ... ... END 2. using SAY @ 250, 220 SAY oBrw2:oSeek PROMPT oBrw2:cSeek SIZE 50, 12 PIXEL BORDER ; OF oFld1:aDialogs[1] COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!' oBrw2:oSeek:Setfont( oSFont ) http://www.pflegeplus.com/IMAGES/Seekbar1.jpg ...

... http://www.pflegeplus.com/IMAGES/Report11.jpg TO EXCEL @ 250, 25 BTNBMP oBtn1 OF oFld1:aDialogs[1] ; SIZE 80, 15 PIXEL 2007 ; NOBORDER ; PROMPT " &oBrw1:ToExcel() " ; FILENAME c_Path1 + "EXCEL1.bmp" ; ACTION ...

... with FULLsize folder ( page 1 - 4 ) Page 5 is used as EXIT -------------------------------------------------- from CODE CODE_1.prg GRPC1_SEC1( oFld1, nSavePage ) GRPC1_SEC2( oFld1, nSavePage ) GRPC1_SEC3( oFld1, nSavePage ) GRPC1_SEC4( oFld1, nSavePage ) from RESOURCE RES_1.prg RS1_PART1( oFld1, ...

... results adding Your function and from oBrw:ToExcel() I added two testbuttons and Your function to the 1. sample CODE_1.prg FUNCTION GRPC1_SEC1( oFld1, nSavePage ) // 1. Sample of section 1 http://www.pflegeplus.com/IMAGES/Samples16.jpg Your function http://www.pflegeplus.com/IMAGES/Samples17.jpg ...

oTree := BuildTree() @ 10, 20 XBROWSE oBrw3 SIZE -20, -152 PIXEL OF oFld1:aDialogs[4] LINES CELL ; DATASOURCE oTree; COLUMNS 1,2; HEADERS "State/City", "Last", "First" ; CELL LINES FONT oFont oBrw:aCols[ 1 ]:AddBitmap( { "Open", ...

... or transparent. The fish-resource is called from a DLL. http://www.pflegeplus.com/IMAGES/Fldtext5.jpg @ 70, 100 BTNBMP oBtn OF oFld1:aDialogs[2] ; SIZE 60, 60 PIXEL TRANSPARENT ; NOBORDER ; RESOURCE "FISH1" ; ACTION ( IIF( lVisible[ 3 ] = .T., ( lVisible[ 3 ] := .F., ...

... //---------------------------------------------- @ 115, 10 SAY oSay[2] PROMPT "Testing SAY - color" SIZE 100, 15 FONT oFont2 OF oFld1:aDialogs[ 1 ] PIXEL oSay[2]:SetColor( nTxtColor, nBackColor ) TRANSPARENT SAY works http://www.pflegeplus.com/IMAGES/Fldtext4.jpg ...

... } DEFINE DIALOG oDlg1 TITLE "Test folder from CODE" SIZE 550, 560 PIXEL OF oWnd BRUSH oBrush0 @ 10, 10 FOLDEREX SIZE 260, 190 oFld1 PIXEL ROUND 5 UPDATE ; PROMPT "Page &1", "Page &2", "Page &3", "Page &4", "&EXIT" ...

... }DEFINE DIALOG oDlg1 TITLE "Test folder from CODE" SIZE 550, 560 PIXEL OF oWnd BRUSH oBrush0@ 15, 10 FOLDEREX SIZE 260, 180 oFld1 PIXEL ROUND 5 UPDATE ;PROMPT  "Page &1", "Page &2", "Page &3", "Page &4", "&EXIT" ...

Silvio, from my sample : DEFINE CURSOR oHand HAND @ 15, 10 FOLDEREX SIZE 260, 200 oFld1 PIXEL ROUND 5 UPDATE ; PROMPT "Page &1", "Page &2", "Page &3", "Page &4", "&EXIT" OF oDlg1 ; BITMAPS aBitmaps; ...

... My FOLDER-test. Like You can see NO PROBLEM http://www.pflegeplus.com/IMAGES/Testbtn3.jpg @ 50, 50 BTNBMP oBtn[1] OF oFld1:aDialogs[3] ; SIZE 70, 70 PIXEL TRANSPARENT ; NOBORDER ; FILENAME c_path1 + "Testbtn1.Png" ; ACTION MsgAlert( "Buttontest" ...