FiveTech Software tech support forums

Hola Armando y João.

Muchas gracias por su ayuda.

Aplique: oDlg2:nOpacity := 180

Quedo super

Muchas gracias

Saludos.

Antonio

Amigos.

Buen dia.

Tengo una duda.

Es posible dejarla el Fondo de "DEFINE DIALOG oDlg2 SIZE 350,250 PIXEL TRUEPIXEL FONT oFont2 STYLE nOR(WS_POPUP) ", transparente y quitar el fondo gris?

Muchos saludos

Antonio

... Muchas gracias por tu ayuda. Ya lo solucione, al parecer era un poco compleja con recursos, asi es que cambie a coordenadas "DEFINE DIALOG oDlg2 SIZE 350,250 PIXEL TRUEPIXEL FONT oFont2 STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )". Ahora funciona perfecto. Muchas gracias por todo. ...

Hola a todos Tengo la siguiente línea de código: @ 90,15 GET oDoc VAR cDoc OF odlg2 SIZE 300,20 MULTILINE PICTURE "@!" PIXEL UPDATE; MESSAGE "Detalle de la documentación" ¿La claúsula MULTILINE no admite PICTURE "@!"? Si se la quito ...

... ------------------------------------ *-------------------------------------- FUNCTION V0100CO1(oBrw) *-------------------------------------- local oDlg2, oBtn public oxccc public xccc:=0 set cursor on DEFINE DIALOG oDlg2 RESOURCE "VTA0100S1" FONT m->oFontBrw REDEFINE GET oxccc VAR ...

... ------------------------------------ *-------------------------------------- FUNCTION V0100CO1(oBrw) *-------------------------------------- local oDlg2, oBtn public oxccc public xccc:=0 set cursor on DEFINE DIALOG oDlg2 RESOURCE "VTA0100S1" FONT m->oFontBrw REDEFINE GET oxccc VAR ...

... NAME "TAHOMA" SIZE 0,-14 BOLD @ 200,160 SAY oSay1 Var Profe->Nom_Pro SIZE GetTextWidth(0,Profe->Nom_Pro,oFont6:hFont),20 PIXEL OF oDlg2 PICTURE "@!" COLOR RGB(0,0,128), RGB(159,233,255) Antonio, así debería funcionarte:  @ 105,160 SAY oSay2 PROMPT  Profe->Nom_Pro  SIZE ...

Hola Cristobal. Muchas gracias por responder. Si entiendo bien tu respuesta, te refieres a esto: DEFINE DIALOG oDlg2 SIZE 600,570 PIXEL TRUEPIXEL FONT oFont2 STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME ) Si es asi, le saque el Style, no hay cambios, sigue sin funcionar, quizás ...

... "Salir" ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED return nil function cambia(cNombre, oNombre, cApellido, oApellido, oFld) local oDlg2, cNombre2, oNombre2, cApellido2, oApellido2 cNombre2:=cNombre cApellido2:=cApellido DEFINE DIALOG oDlg2 SIZE 400, 300 @ 1, 1 GET oNombre2 VAR ...

... from linares maybe Antonio can check it it is just a little change http://www.pflegeplus.com/IMAGES/Testget4.jpg DEFINE DIALOG oDlg2 RESOURCE "Test" PIXEL ; STYLE WS_POPUP REDEFINE GET oCGet[1] VAR cGet[1] ID 110 BITMAP c_Path1 + "Help.bmp" ; ACTION ( nBColorB ...

... I tested oCGet[2]:lAdjustBtn := .T. but no difference @ 35, 50 GET oCGet[2] VAR cGet[2] SIZE 80, 18 OF oDlg2 COLOR 0, nBColorB UPDATE ; BITMAP c_Path1 + "Help.bmp" PIXEL ; ACTION ( nBColorB := ChooseColor( nBColorB ), oCGet[2]:SetColor( , nBColorB ...

... PROMPT "Window" SIZE 28,12 FONT oFontSys PIXEL oCSay[1]:SetColor( 0, 255 ) // original @ 20, 50 GET oCGet[1] VAR cGet[1] SIZE 80, 18 OF oDlg2 COLOR 0, nWColorB UPDATE ; BITMAP c_Path1 + "Help.bmp" PIXEL ; ACTION ( nWColorB := ChooseColor( nWColorB ), oCGet[1]:SetColor( , nWColorB ...

Remtec: Asignale la clausula UPDATE a:  @ 150,390 SAY oGet5    Var Eda_Pac1       SIZE 30,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4   BORDER [color=#FF0040]UPDATE[/color] Y en Calcula_Edad mándale el dialogo Valid  Calcula_Edad(oDlg2,Fec_Nac1)  ...

... cell with go-right or with a mouse click, the gap is visible. The test is using a bClrStd-combination @ 80,20 XBROWSE oBrw SIZE 520, 485 PIXEL OF oDlg2; DATASOURCE oCust ; AUTOSORT FOOTERS FASTEDIT ; COLUMNS "Last", "First", "Age", "Married", "Values1", ...

The test @ 120,500 SCROLLMSG oMsg TEXT cText SIZE 300, 150 PIXEL OF oDlg2 ; FONT oFont COLOR CLR_HRED, CLR_YELLOW SPEED 2 oMsg:lBox := .F. ----------------- Add in scrolmsg.prg DATA lBox INIT .t. METHOD New( nRow, nCol, nWidth, nHeight, cText, oWnd, oFont, ...