Hi,
Can someone share a code snippet to view image from resource in a column based on a flag in the dbf currently being viewed?
TIA
#include "fivewin.ch"
REQUEST DBFCDX
function Main()
USE CUSTOMER NEW SHARED ALIAS CUST VIA "DBFCDX"
Sample1()
Sample2()
Sample3()
return nil
function Sample1()
local oDlg, oBrw
DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE "CUST" ;
COLUMNS "FIRST", "CITY", "MARRIED" ;
CELL LINES NOBORDER
WITH OBJECT oBrw
:married:SetCheck( { "TWO", "ONE" } )
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
return nil
function Sample2()
local oDlg, oBrw
DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE "CUST" ;
COLUMNS "FIRST", "CITY", "" ;
HEADERS nil, nil, "MARRIED" ;
CELL LINES NOBORDER
WITH OBJECT oBrw
WITH OBJECT :married
:AddBitmap( { "ONE", "TWO" } )
:bBmpData := { || If( ( oBrw:cAlias )->MARRIED, 2, 1 ) }
END
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
return nil
function Sample3()
local oDlg, oBrw
DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE "CUST" ;
COLUMNS "FIRST", "CITY", "IF(MARRIED,'TWO','ONE')" ;
HEADERS nil, nil, "MARRIED" ;
CELL LINES NOBORDER
WITH OBJECT oBrw
WITH OBJECT :married
:cDataType := "P"
:lBmpTransparent := .t.
END
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
return nil
ONE 10 "c:\fwh\bitmaps\32x32\user.bmp"
TWO BITMAP "c:\fwh\bitmaps\32x32\users.bmp"
jpcavagnaro wrote:Rao, excelente, podría decirme como hacer esto con archivo bmp en lugar del RC.
Saludos
Jorge
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: dutch, Google [Bot] and 36 guests