FiveTech Software tech support forums

... not on init another function but this mode ACTIVATE DIALOG oDlg ; ON INIT ( DlgCenter(oDlg,oApp():oWndMain),; oPages:Move( 0, 0, oDlg:nWidth, oDlg:nHeight-80 ) ) the problem is now another on oDlg0 I use a Get control MEMO and it is disabled , only with the ...

Silvio , try moving the title to dialog INIT: ... ... ... oPages:AddPage( oDlg0 ) ACTIVATE DIALOG oDlg ; ON INIT PAINTTITLE(oDlg) RETURN NIL //-------------- STATIC FUNCTION PAINTTITLE(oDlg) LOCAL oTitle0 @ 0,0 TITLE oTitle0 OF oDlg size 1200, 20 NOBORDER ...

... nHeight TRANSPARENT ; TITLE "test TTITLE CLASS" oDlg:oFont := oApp():oFont oDlg:nStyle := nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, 4 ) oPages := TPages():New(00,0, oDlg:nHeight-50,oDlg:nWidth, oDlg) DEFINE DIALOG oDlg0 OF oPages STYLE WS_CHILD @ 0,0 TITLE oTitle0 OF oDlg0 size 1200, ...

resolved!!
ACTIVATE DIALOG oDlgLicenza CENTERED;
ON INIT (oPages:Move( 0, 0, oDlgLicenza:nWidth, oDlgLicenza:nHeight-80 ))

Silvio,

just delete -20 ( the title belongs to the page )

ACTIVATE DIALOG oDlgLicenza ;
ON INIT oPages:Move( 0, 0, oDlgLicenza:nWidth-20, oDlgLicenza:nHeight-80 )



best regards
Uwe

Add these red Lines in Sample < Testpag3.prg > : DEFINE DIALOG oDlg1 STYLE WS_CHILD OF oPages @ 0.5, 1 BUTTON "+" OF oDlg1 SIZE 10, 10 @ 3, 2 SAY "Normal" OF oDlg1 oPages:AddPage( oDlg1 ) http://www.pflegeplus.com/pictures/page1.jpg ...

... TFolder y TPages! La nueva extensión en el fichero include FOLDER.CH para helpids para los diálogos en "carpetas" y "páginas": REDEFINE oFolder or oPages . . HELPTOPICS 1,...n --> se permiten números ó cadenas Si para un diálogo no se requiere helpid, por favor déjelo vacio. En este caso se ...

... for the news in TFolder and TPages! The new extension in the FOLDER.CH for helpids for the dialogs in folders or pages in is: REDEFINE oFolder or oPages . . HELPTOPICS 1,...n --> allowed are context-numbers or strings also mixed If for a dialog no helpid is required, please let this empty. ...

... diálogo como TRANSPARENT no pone el brush de fondo en las páginas de TPage, además de que daña los radios. Intenté con: for i:= 1 TO Len(oPages:aDialogs) oPages:aDialogs[i]:lTransparent := .T. oPages:aDialogs[i]:oBrush := oBrush ...

... DEFAULT aDialogs := {} // In method Redefine And at dialog creation: n := 0 DEFINE DIALOG oDlg; RESOURCE "FICHA"; TITLE "Title" REDEFINE PAGES oPages; ID 999; OF oDlg If ChkRights() // Check security access n++ aAdd(aItems, "Datos personales" ) // manually add the dialog aAdd(oPages:aDialogs, ...

... say que cubra todo en cada dialog de la Pages. Lo definí como NO Transparente y, al resto de los controles los definí como transparentes. Luego : oPages:aDialogs[1]:SetBrush( oBrush1) oPages:aDialogs[1]:lTransparent := .t. y lo mismo para cada una de los dialogs de la Pages. Como el fondo del ...

Rolando,

Cada página del control TPages es un diálogo, por lo que podrías asignarle el brush a cada uno de ellos:

AEval( oPages:aDialogs, { | oDlg | oDlg:SetBrush( oBrush ), oDlg:Refresh() } )

Silvio,

Just modify the code this way and it paints fine in XP too:

MENUITEM "Normal" ACTION ( oPages:SetOption( 1 ), oDlg:SetSize( 255, 245, .T. ) )
MENUITEM "Scientific" ACTION ( oPages:SetOption( 2 ), oDlg:SetSize( 485, 245, .T. ) )

Dear Antonio perhaps I resolve it sorry I used setsize function function BuildMenu( oPages ,oDlg) local oMenu MENU oMenu 2007 MENUITEM "Type" MENU MENUITEM "Normal" ACTION (oPages:SetOption( 1 ) , oDlg:setsize( 255, 245),oDlg:refresh()) MENUITEM "Scientific" ACTION ...