Re: XBrowse Win7 Bar New Sample
Posted: Fri Dec 31, 2010 3:56 pm
Normal bitmaps on xbrowse win7style with background. This works well
code:
code:
- Code: Select all Expand view
- #include 'fivewin.ch'
#include 'xbrowse.ch'
function Main()
local oDlg, oBrw, oFont
USE CUSTOMER ALIAS CUST
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14
DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;
FONT oFont TITLE 'XBrowse Gradient Rows'
@ 10, 10 XBROWSE oBrw OF oDlg ;
SIZE 300, 200 PIXEL ;
COLUMNS 'First', 'Last', 'Married', 'City' ;
ALIAS 'CUST' NOBORDER CLASS TXBrWin7() ;
BACKGROUND "c:\fwh\bitmaps\five.bmp" FILL
WITH OBJECT oBrw
//
:nMarqueeStyle = 7 // MARQSTYLE_HIGHLWIN7 // for Windows 7 style
//
:Married:SetCheck()
WITH OBJECT :First
:AddBitmap( "c:\fwh\bitmaps\16x16\zoom2.bmp" )
:bBmpData := { || 1 }
END
WITH OBJECT :Last
:AddBitmap( "c:\fwh\bitmaps\16x16\open.bmp" )
:bBmpData := { || 1 }
END
END
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
oFont:End()
return nil
//----------------------------------------------------------------------------//