error moving a bitmap or Image

[Silvio.Falconi]

why if I change the size of Image or bmp fwh create black background ?
see it pls :



the code

Code: Select all  Expand view

DEFINE DIALOG oDlg  SIZE 680,520 ;
        TITLE "ID Card Identification maker"

 ACTIVATE DIALOG oDlg
ON INIT paintdata(oDlg)

Function Paint_data(oWnd )
 Local cfoto := "dip.bmp"
 Local oImg

@ 13, 12 BITMAP oImg FILENAME cFoto OF oWnd    SIZE 96,115  NOBORDER     DESIGN

                         oImg:lTransparent:=.t.
return nil

[ukoenig]

Download :

http://www.pflegeplus.com/DOWNLOADS/Imgdesign.zip



best regards
Uwe

[karinha]

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg
   LOCAL cfoto := "C:\FWH1610\BITMAPS\FIVETECH.bmp"
   LOCAL oImg

   DEFINE DIALOG oDlg  SIZE 680,520 ;
          TITLE "ID Card Identification maker" ;
          COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   ACTIVATE DIALOG oDlg ON INIT Paint_data(oDlg)

RETURN NIL

Function Paint_data( oDlg )

   //Local cfoto := "dip.bmp"
   Local cfoto := "C:\FWH1610\BITMAPS\FIVETECH.bmp"
   Local oImg

   @ 13, 12 IMAGE oImg FILENAME cFoto OF oDlg SIZE 96,115  ;
            NOBORDER DESIGN

   oImg:lTransparent := .F.
   oImg:Refresh()

   oDlg:Refresh()
   oDlg:UpDate()

RETURN NIL
 



[karinha]

Regards.