first the controls are not on the same places and the sizes are different from fwh15_01
also the ttitle class is not how I see on fwh15_01
I think we have a big problem why I must re-write many procedures ?
this the source test
- Code: Select all Expand view
- #include "Fivewin.ch"
#include "constant.ch"
#include "ttitle.ch"
#define LIGHTCYAN nRGB( 203, 225, 252 )
function Email()
Local oBtn[4]
Local oDlgMail
Local nBottom := 29.2
Local nRight := 58
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
Local cDlgTitle := "Configurazione Invio emal"
Local aItemMail := {"- Programma di posta predefinito - ","Invio diretto al server di posta in uscita ( SMTP )"}
Local aGet[10]
Local cTipo := "- Programma di posta predefinito - "
Local oTitle1, oImageTitle,oFont,oFontBold
Local cImageTitle:= "Mail.bmp"
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -12
DEFINE FONT oFontBold NAME 'Tahoma' SIZE 0, -18 BOLD
DEFINE DIALOG oDlgMail ;
SIZE nWidth, nHeight PIXEL TRUEPIXEL ;
TITLE cDlgTitle TRANSPARENT
oDlgMail:lHelpIcon := .F.
oDlgMail:nStyle := nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, 4 )
@ 0,0 TITLE oTitle1 OF oDlgMail size 500, 40 SHADOW NOSHADOW GRADIENT { { 1,CLR_WHITE, LIGHTCYAN } }
@ 10, 12 TITLETEXT OF oTitle1 TEXT "Impostazione Invio e-mail" FONT oFontBold COLOR CLR_BLACK
@ 38, 42 TITLETEXT OF oTitle1 TEXT " Seleziona modalità di invio" FONT oFont COLOR CLR_BLACK
@ 10, oTitle1:nWidth-120 TITLEIMG oImagetitle OF oTitle1 BITMAP cImageTitle TRANSPARENT
@ 50 , 10 SAY " Invio le mail tramite :" of oDlgMail size 80,10 PIXEL FONT oFont COLOR CLR_BLACK
@ 60,10 COMBOBOX aGet[1] var cTipo ITEMS aItemMail size 214,45 PIXEL of oDlgMail;
ON CHANGE (Allarga(aGet,oDlgMail,obtn))
@ 190, 10 Button obtn[1] Prompt "&Conferma" of oDlgMail size 50,12 PIXEL FONT oFont DEFAULT ACTION ( oDlgMail:end( IDOK ) )
@ 190, 65 Button obtn[2] Prompt "&e-mail di prova" of oDlgMail size 50,12 PIXEL FONT oFont ACTION NIL
@ 190, 120 Button obtn[3] Prompt "&Annulla" of oDlgMail size 50,12 PIXEL FONT oFont CANCEL ACTION ( oDlgMail:end( IDCANCEL ) )
@ 190, 175 Button obtn[4] Prompt "Ai&uto" of oDlgMail size 50,12 PIXEL FONT oFont ACTION Helpindex()
ACTIVATE DIALOG oDlgMail ;
ON INIT Allarga(aGet,oDlgMail,obtn)
//----------------------------------------------------------------------------------------------------------//
static Function Allarga(oControl, oDlgMail,obtn)
Local oDlgMail_Height
Local nValue
local nTipo:= oControl[1]:nAt
local ntopDlgMail:=oDlgMail:ntop
local nLeftDlgMail:= oDlgMail:nleft
local nTopMail,nLeftMail
Do case
case nTipo= 2
nValue:= 29.2
oDlgMail_Height := nValue * DLG_CHARPIX_H
for n=1 to 4
obtn[n]:nTop = 380
next
case nTipo= 1
nValue:= 14.1
oDlgMail_Height := nValue * DLG_CHARPIX_H
for n=1 to 4
obtn[n]:nTop = 150
next
endcase
sysrefresh()
nTopMail := ( GetSysmetrics( 1 ) - oDlgMail_Height ) / 2
nLeftMail := ( GetSysmetrics( 0 ) - oDlgMail:nWidth ) / 2
oDlgMail:Move( nTopMail, nLeftMail, oDlgMail:nWidth, oDlgMail_Height, .f. )
return nil
