If I use define brush and then define dialog transparent brush obrush ......it make error .... why ?
because when the user chech it refresh all the dialog sometimes
try it and chech the chechbox many tries pls PRES ON SEND EMAIL CHECKBOX
THEN NOT REFRESH THE CONTROL ARE ON THE TAB OF THE FOLDEREX
look :
- Code: Select all Expand view
#Include "Fivewin.ch"
#Include "dtpicker.ch"
#include "Image.ch"
#include "ribbon.ch"
#define NOME_PROGRAMMA "TEST7 1.0"
REQUEST DBFCDX
REQUEST DBFFPT
EXTERNAL ordkeyno, ordkeycount,ordcreate,ordkeygoto
Function Main()
Local oFrmVds,oFld1,oGet1,cTexto5:=space(10)
Local oCbx1 ,nCbx1 :=2 ,oCbx2 ,nCbx2 :=2,oCbx2000 ,nCbx1000 :=2
Local cData:=date(),oDTPicker,ock1,oCbx3
Local cSocio:=space(40),oImage
Local cTexto1,cTexto2 :=space(14)
Local oButFido ,oButAiuto,oButConferma,oButAnnulla
Local aBandiereBmp:={},aBandiere:={} ,aGradi:={}, aEquiBmp:={},aEquipaggi:={}
Local oLbxCorsi
Local nValuta:=0
LOCAL oRad,nValue:=1
local aBitmaps := { "c:\work\fwh\bitmaps\alphabmp\facebook.bmp",;
"c:\work\fwh\bitmaps\alphabmp\windows.bmp",;
"c:\work\fwh\bitmaps\alphabmp\game.bmp",;
"c:\work\fwh\bitmaps\alphabmp\viddler.bmp",;
"c:\work\fwh\bitmaps\alphabmp\mail.bmp",;
"c:\work\fwh\bitmaps\alphabmp\call.bmp",;
"c:\work\fwh\bitmaps\alphabmp\settings2.bmp",;
"c:\work\fwh\bitmaps\alphabmp\exit.bmp" }
RddSetDefault( "DBFCDX" )
cCodice:="9999"
SetBalloon( .T. )
//dati Fissi ???
aTipo:={"Fondatore","Ordinario","Sostenitore","Altro"}
aStatus :={"Attivo","Sospeso"} //si
aSesso:={"Uomo","Donna"} //si
aTelefono:={"Telefono","Cellulare","Palmare","Fax"} //si
aProfessione :={"Giovane","Pensionato","Studente","Esperto","Obiettore","Servizio Civile"}
aCariche :={"Presidente","VicePresidente","Consigliere","Tesoriere","Provibiro"} //si
*aEquipaggi:={"Alpha","Beta","Gamma","Eta","Teta"}
/*
USE BANDERA SHARED
DO WHILE ! bandera->(EoF())
AAdd( aBandiereBmp,( TRIM(bandera->Cresban)))
AAdd( aBandiere,( TRIM(bandera->CNOMBAN)))
bandera->(DbSkip())
ENDDO
CLOSE BANDERA
USE TABELLE ALIAS TABELLE
INDEX ON TABELLE->CVETAB TO TABELLE
TABELLE->(DbSeek("G"))
DO WHILE TABELLE->CveTab="G" .AND. !TABELLE->(EoF())
AAdd(aGradi,TABELLE->Descri)
TABELLE->(DbSkip())
ENDDO
CLOSE TABELLE
USE TABELLE ALIAS TABELLE
INDEX ON TABELLE->CVETAB TO TABELLE
TABELLE->(DbSeek("S"))
DO WHILE TABELLE->CveTab="S" .AND. !TABELLE->(EoF())
AAdd( aEquiBmp,( TRIM(TABELLE->Bitmap)))
AAdd( aEquipaggi,TABELLE->Descri)
TABELLE->(DbSkip())
ENDDO
CLOSE TABELLE
*/
Define DIALOG oFrmVds TITLE NOME_PROGRAMMA+" - TEST - " ;
FROM 452, 774 to 990, 1585 PIXEL TRANSPARENT //BRUSH oBrush
@ 5, 3 SAY "&Matricola :" SIZE 30, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 4, 42 GET oGet1 VAR cTexto5 Picture "999999" SIZE 30, 10 PIXEL OF oFrmVds
*@ 16, 3 SAY "&Volontario:" SIZE 50, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 16, 3 SAY "&Cognome:" SIZE 50, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 26, 3 SAY "&Nome:" SIZE 50, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 15, 42 GET oGet1 VAR cSocio Picture "@!" SIZE 100, 10 PIXEL OF oFrmVds
@ 27, 42 GET oGet1 VAR cSocio Picture "@!" SIZE 100, 10 PIXEL OF oFrmVds
@ 5, 75 SAY "&Data modulo :" SIZE 65, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 4, 115 DTPICKER oDTPicker VAR cData SIZE 50, 9 PIXEL OF oFrmVds
@ 5, 170 SAY "&Data iscrizione:" SIZE 65, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 4, 220 DTPICKER oDTPicker VAR cData SIZE 50, 9 PIXEL OF oFrmVds
@ 16, 170 SAY "&Corso base:" SIZE 65, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 15, 220 DTPICKER oDTPicker VAR cData SIZE 50, 9 PIXEL OF oFrmVds
@ 50, 3 FOLDEREX oFld1 PIXEL ADJUST;
PROMPTS "&Anagrafica",;
"Dettagl&i",;
"&Studente",;
"&Notizie mediche",;
"C&orsi effettuati",;
"Al&tri",;
"&Note";
BITMAPS aBitmaps;
SIZE 270, 200 ANIMATE SPEED 50
//1.Folder Anagrafica
@ 1, 4 GROUP oGrp1 TO 34, 255 LABEL "D&omicilio" PIXEL;
OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 14, 11 SAY "&Indirizzo :" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 25, 11 SAY "Ca&p:" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 25, 25 SAY "Lo&c:" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 25, 41 SAY "Pro&v:" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 12, 58 GET oGet1 VAR cTexto5 SIZE 190, 10 PIXEL OF oFld1:aDialogs[1]
@ 23, 58 GET oGet1 VAR cTexto5 SIZE 35, 10 PIXEL OF oFld1:aDialogs[1]
@ 23, 94 GET oGet1 VAR cTexto5 SIZE 120, 10 PIXEL OF oFld1:aDialogs[1]
@ 23, 215 GET oGet1 VAR cTexto5 SIZE 14, 10 PIXEL OF oFld1:aDialogs[1]
@ 23, 238 BTNBMP oBmp1 FILENAME "RES342.BMP" PIXEL OF oFld1:aDialogs[1] NOBORDER SIZE 9,10 TOOLTIP "Visualizzazione Mappa"
oBmp1:ltransparent:=.t.
@ 35, 4 GROUP oGrp1 TO 72, 255 LABEL "&Residenza" PIXEL;
OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 50, 11 SAY "Indirizzo :" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 61, 11 SAY "Ca&p:" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 61, 25 SAY "Lo&c:" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 61, 41 SAY "Pro&v:" SIZE 25, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 48, 58 GET oGet1 VAR cTexto5 SIZE 190, 10 PIXEL OF oFld1:aDialogs[1]
@ 60, 58 GET oGet1 VAR cTexto5 SIZE 35, 10 PIXEL OF oFld1:aDialogs[1]
@ 60, 94 GET oGet1 VAR cTexto5 SIZE 120, 10 PIXEL OF oFld1:aDialogs[1]
@ 60, 215 GET oGet1 VAR cTexto5 SIZE 14, 10 PIXEL OF oFld1:aDialogs[1]
@ 60, 238 BTNBMP oBmp2 FILENAME "RES342.BMP" PIXEL OF oFld1:aDialogs[1] NOBORDER SIZE 9,10 TOOLTIP "Visualizzazione Mappa" ;
ACTION NIL
oBmp2:ltransparent:=.t.
@ 73, 4 GROUP oGrp1 TO 130, 255 LABEL "&Nascita" PIXEL;
OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 82, 08 SAY "Luogo di nascita :" SIZE 55, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 81, 64 GET oGet1 VAR cTexto5 SIZE 190, 10 PIXEL OF oFld1:aDialogs[1]
@ 95, 08 SAY "&Data di nascita:" SIZE 65, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 94, 64 DTPICKER oDTPicker VAR cData SIZE 60, 9 PIXEL OF oFld1:aDialogs[1]
@ 95, 170 SAY "&Sesso :" SIZE 45, 7 PIXEL OF oFld1:aDialogs[1] COLOR 0, 14215660
@ 94, 209 COMBOBOX oCbx2 VAR nCbx1 ITEMS aSesso SIZE 45, 40 PIXEL OF oFld1:aDialogs[1] COLOR 0, 16777215;
BITMAPS { "MINI_UOMO.bmp",;
"MINI_DONNA.bmp" }
@ 132, 275 GROUP oGrp1 TO 188, 405 LABEL "Associazione" PIXEL;
OF oFrmVds COLOR 0, 14215660
@ 141, 278 SAY "&Carica sociale :" SIZE 55, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 140, 325 COMBOBOX oCbx2000 VAR nCbx1000 ITEMS aCariche SIZE 75, 20 PIXEL OF oFrmVds COLOR 0, 16777215 WHEN ock1
@ 155, 278 SAY "&Tessera :" SIZE 25, 7 PIXEL OF oFrmVds COLOR 0, 14215660
@ 154, 340 GET oGet1 VAR cSocio Picture "@!" SIZE 50, 10 PIXEL OF oFrmVds
@ 165, 278 CHECKBOX ock1 Prompt "SEND EMAIL " SIZE 125, 10 PIXEL OF oFrmVds ;
ON CHANGE MSGINFO()
//RESIZE16 CENTERED
ACTIVATE DIALOG oFrmVds ;
ON INIT ( oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.})
Return NIL
Any Idea ?
