Classe METRO

Exemplo original que funciona bem mas requer os BITMAPS estejam numa directoria DEFINE METROBUTTON OF oMetro ; PROMPT "Files" COLOR CLR_WHITE, RGB( 2, 174, 224 ) ; IMAGE "..\bitmaps\metro\files.bmp" ; ACTION Files() Preciso alterar para usar Bitmap em ficheiro RES mas não funciona mesmo alterando usando o modo clássico do FWH DEFINE METROBUTTON OF oMetro ; PROMPT "Files" COLOR CLR_WHITE, RGB( 2, 174, 224 ) ; IMAGE BITMAP "files.bmp"

By jufer, November 13, 2018
5 replies

Excelente exemplo baixado do link acima: #include "fivewin.ch" #include "xbrowse.ch" #include "metropnl.ch" #include "tselex.ch" STATIC oMetro, oMetro1, oMetro2, oMetro3, lMetro[3], oTools, oSBtn[6], oFont1, oFont2, oBigfont STATIC nClrBack := CLR_GREEN, aRect[4], nPanel := 1 STATIC lMainBar := .F. , lSubBar := .F. , c_Path, c_Path1, oMainBar, oSubBar, nWColorT := 0 STATIC nWStyle := 4, nWColorF := 16443068, nWColorB := 10899511, nWGradPos := 0.2 STATIC lWDirect := .T. , cWBrush := "