IMAGE FOOTER XBROWSE

[Silvio]

It is possibile insert a small bmp into footer of Xbrowse ?

[ukoenig]

Silvio,

Sample : xbalpha.prg



Best Regards
Uwe

[Silvio]

DANKE

[ukoenig]

Silvio,

another possible Solution

Code: Select all

...
...
@ 230, 35 XBROWSE oBrw2 SIZE 845, 460 PIXEL OF oDlg1 ;
AUTOCOLS ARRAY aImg CELL LINES NOBORDER
oBrw2:lHeader := .T.
oBrw2:lFooter := .T.

FOR nCol := 1 to Len( oBrw2:aCols )
    WITH OBJECT oBrw2:aCols[ nCol ]
        :nWidth := nCellSize
        IF nOption1 <= 4
            :oDataFont := oImgfont1
        ELSE
            :oDataFont := oImgfont2
        ENDIF
        :lBmpTransparent := .T.
        :nDataBmpAlign := AL_CENTER
        :cHeader := ALLTRIM(STR(nCol))
        :oHeaderFont := oImgfont2
        IF nCol > 1 // Select Column for Image-display
            :AddBmpFile( c_path + "\Bitmaps\View.bmp" )
        ELSE
            :AddBmpFile( c_path + "\Bitmaps\Eye.bmp" )
        ENDIF
        :nHeadBmpNo := 1 // Header BMP
        :nFootBmpNo := 1 // Footer BMP
        :bPaintText := { | oCol, hDC, cData, aRect, aColors, lHighLite | ;
                    DrawCell( oCol, hDC, cData, aRect, aColors, lHighLite ) }
    END
NEXT

WITH OBJECT oBrw2
    :lHscroll := .F.
    :nRowHeight := nCellSize + 20
    // Selected Row on Focus ( Text / Background )
    // ------------------------------------------------------------
    :bClrSelFocus = { || { , 14803425 } }  

    // Selected Row on LostFocus ( Text / Background )
    // -----------------------------------------------------------------
    :bClrSel = { || { 0, 14803425 } }  
    :bClrStd  := {|| { 0, 14803425 } }
    :bClrSelFocus = { || { 0, 14803425 } }  
    :SetBackGround( oBrush2 )
    :CreateFromCode()
END
...
...
 

Best Regards
uwe

[Silvio]

THANKS THIS IS VERY USEFULL

GOOD EASTER TO YOU !!!