FiveTech Software tech support forums

Hola Amigos. Con oFoto:Refresh(), solo se ve una parte pequeña del DIALOG, pero con esto si funcionó ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetSize(840,650) , oDlg:Move(100, 1), oFoto:SetSource(aDats[17]) ) Pero solo con oDlg:SetSize(840,650) ...

Hola Amigos.
Con oFoto:Refresh(), solo se ve una parte pequeña del DIALOG, pero con esto si funcionó

Code: Select all  Expand view

ACTIVATE DIALOG oDlg ON INIT ([b]oDlg:SetSize(840,650[/b]), oDlg:Move(100, 1), oFoto:SetSource(aDats[17]) )

... Con MEDIUMTEXT    BLOBImport( FieldPos( "FOTO" ),cFoto )  Para recuperar: oFoto:SetBmp(FOTO) Para mostrar:   REDEFINE XIMAGE oFoto ID 118 OF oDlg SOURCE oEMPL:FOTO UPDATEo  REDEFINE BITMAP oFoto ID 118 OF oDlg ...

... [ 1] = U [ 2] = C BM6’ 6 ( } l
 Ž ˆ ˆ



       Hola Yo lo hago de la siguiente manera y me funciona perfecto: oFoto := TBitMap():Define() oFoto:LoadFromString( oQFotos:FieldGet( "ENTRADA" ) ) Espero te funcione Saludos! Eduardo Borondón Muñiz

Hola

Yo lo hago de la siguiente manera y me funciona perfecto:

oFoto := TBitMap():Define()

oFoto:LoadFromString( oQFotos:FieldGet( "ENTRADA" ) )

Espero te funcione

Saludos!

Eduardo Borondón Muñiz

Rene,

Try it this way:

oFoto:SetSize( nWidth, nHeight )

Rene,

You have to use oFoto:GetWidth() and oFoto:GetHeight()

... are the sizes I have dementioned. See code: FUNCTION RK_BigPhoto(cImage)*to show a big picture*the cImage is 480x640 pxLOCAL oWndFotoLOCAL oFoto    DEFINE DIALOG oWndFoto TITLE "big picture" ;        FROM 0, 0 TO 800, 1000                @ 30, 10 IMAGE oFoto FILENAME cImage OF ...

... BuscaDigital( cQualDedo , oImagemDedo ) **************************************//*************************************** LOCAL oDlgActiveX LOCAL oFoto LOCAL cFoto := oPub:wPathBmp + "DigitalVazia.bmp" LOCAL cMyContextID := "0" PRIVATE lEmOperacao := .F. DEFINE DIALOG oDlgActiveX ...

static function AddModAlumno( oRec, lEmpty ) local oDlg, oBtn := Array(2), cTitle, cFoto, oFoto, lLic := .F. IF( lEmpty,; ( cTitle := LoadString( , 10015 ), cFoto := cDirImg+"Foto.png" ),; ( cTitle := LoadString( , 10016 ), cFoto := cDirImg+"DSCN"+oRec:Foto+".jpg" ...

... y no funciona ImagePNGFromStr() Funciona creando un temporal y cargarlo con LoadBMP() que también necesita freeimage.dll       REDEFINE IMAGE oFoto ID 118 OF oDlg NOBORDER ADJUST       cTemp:= hb_CurDrive() + ":\" + CurDir() + "\foto.png"           MEMOWRIT( cTemp, ...

... ImagePNGFromStr() Funciona creando un temporal y cargarlo con LoadBMP() que también necesita freeimage.dll       REDEFINE IMAGE oFoto ID 118 OF oDlg NOBORDER ADJUST       cTemp:= hb_CurDrive() + ":\" + CurDir() + "\foto.png"   ...

Eduardo, suponiendo que tienes un control Image "oFoto" definido en tu dialogo, puedes probar el cargar la imagen sin pasar por disco, yo lo hago pero uso tablas ADT, pero no esta demas que lo intentes oFoto:LoadFromMemory( tabla -> ...

... es que elemento uso del workshop para que me la posicione en la ventana Tbitmap , o tBtnBmp. se activa tal como sigue abajo?? 1) Redefine IMAGE ofoto id 601 OF oDlg ADJUST ofoto:LoadBmp("FOTO001.JPG") ó 2) redefine IMAGE ofoto id 601 OF Odlg ADJUST ó 3) REDEFINE IMAGE oFoto FILENAME ...

... que recordar el valor e ingresarlo por si mismo. Gracias amigo //------------------------------- FUNC MONEYCALC() LOCAL oDlg,X,oSAY,oBtn,nSAY:=0,oFOTO LOCAL oGET:=ARRAY(14) LOCAL aGET:={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0} DEFINE DIALOG oDlg RESOURCE "MONEYCALC" //REDEFINE IMAGE oFOTO ID ...