FiveTech Software tech support forums

José Luis, Prueba asi: WITH OBJECT ( oBrow := TXBrowse():New( oFolder:aDialogs[1] ) ) //:CreateFromResource( 101 ) ... FOR i := 4 TO 13 STEP 2 IF ! EMPTY( aCatalog[nForm, i] ) && Agrega columnas al xBrowse WITH OBJECT ( oCol := :AddCol() ) :cHeader ...

... use for time? Thanks LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( 5 ) LOCAL nItems LOCAL oMail LOCAL iMsg LOCAL cNomeMsg nItems := oFolder:Items:Count oMeter:nTotal := nItems ...

... 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 . , .T., .T., .T. } ) ) // Page 2 disabled oCheck0:SetFont( oTextFont ...

... registros, por lo que no tengo definido el objeto oCol, ya que construyo el browse de la siguiente manera : REDEFINE XBROWSE oBrw[1] ID 3001 OF oFolder:aDialogs[ 1 ] ARRAY aSintoma AUTOCOLS el resto de los browses son iguales a excepción del array, así que no sé como extraer el oCol. Para darle ...

... broken like --- Group --- ?? As well I have to find out, why a BRUSH covers the Controls ( on Top ) any Idea ( maybe must be done different ) ? oFolder:aDialogs[3]:bPainted = { | hDC | oFolder:aDialogs[3]:SetBrush( oBrush1 ) } First Screenshot from Resource http://www.pflegeplus.com/pictures/fldtrans7.jpg ...

mgsoft,

oFolder:SetOption( 2 )

saludos

... :D si se pudo, los TABS ya funcionan, nada más que luego de hacer lo que me dice el Maestro Antonio, se debe mandar a reconstruir las pestañas con oFolder:SetPrompts().     @30,30 FOLDER oFold ;    PROMPT "Datos Gen","Pestaña 2" pixel of ::oWinGen     oFold:aEnable = { ...

Dietmar,

Please try to increase oFolder:nFdHeight with larger values, i.e.:

oFolder:nFdHeight += 15

Do it after the REDEFINE FOLDER ... command. You should notice that the contained dialogs top margins change.

Dietmar,

oFolder:nFdHeight keeps the height value of the tabs but does not modify it. That value is used to place the top margin of the contained dialogs.

Is the line still erased ? Please post a screenshot, thanks

   oFolder:nFdHeight += 5

try with different values there, thanks

This one does not change the itemsize but the last 5 pixel at the bottom of the folder are not painted..
D.

Dietmar, Then it means that DrawPBack() is not erasing that line. Lets modify oFolder:nFdHeight which holds the height of the tabs to position the contained dialogs:    REDEFINE FOLDER oFolder             ;        ID 102                           ;        OF oDlg ...

... aqui el codigo: oBrw[x]:bBkColor := { | nRow, nCol, nStyleLine | ColoresCelda( nRow, nCol, nStyleLine, oFolder ) } oBrw[x]:bTextColor := { | nRow, nCol, nStyleLine | ColoresTexto( nRow, nCol, nStyleLine, oFolder ) } oBrw[x]:bFont := {|nRow,nCol,nStyleLine| ...

... armarlo cada ves que necesites y con los dialogos que deses asi podras eliminar y agregar lo que quieras en el momento ej; REDEFINE FOLDER oFolder ID 900 OF oDlgFor PROMPT "EFECTIVO", "CHEQUES A FECHA" DIALOGS "DLG_GF", "DLG_GF" Pero luego en el ON ...

... all contact folders? 2) Ho can I ontain an Array containing all field in a contact In this way I am able to nest tree for next FOR iFolder := 1 TO oFolder:count FOR iContact := 1 TO oContact:count FOR iField := 1 TO oField:count ? FolderName, ContactName, ContactPhone, ContactEmail, etc, etc, NEXT ...

... de Venezuela Cruz Alfredo Oses FWH 9.04 xHarbour Bcc55 *-- FUNCTION CONTRATOS() *-- LOCAL nLin, nFil, nAncho, nLargo, nPie LOCAL oBar, oFont, oFolder, oBrow, oTabs, oCol LOCAL oWndMain, nRegis := Space(05), cTable LOCAL nCont := 0 *-- IF oWndConj == NIL *-- cTable := "contratos" ...