FiveTech Software tech support forums

Antonio Linares wrote:João,

Please try this:

oMetro := MakeMetroPanel( oWnd:oWndClient )

Perfecto mi amado GURU. Eres simplemente mi mayor ídolo. Me gustas más que Bill Gates. jajajajajajajajaja.

https://imgur.com/FyOHeWp



Regards, saludos.

João,

Please try this:

oMetro := MakeMetroPanel( oWnd:oWndClient )

... oBrush )                      oBrush:End()                   ENDIF  FUNCTION SALIR() IF oBrush <> NIL oBrush:End() ENDIF oMetro:End()

... aImage := oWnd:ReadImage( cImage, , .t. ) oWnd:DrawImage( aImage, aRect, nil, 1 ) it doesn't work for a METRO-image-background DEFINE METROPANEL oMetro OF oWnd TITLE "Stammdaten" ; COLOR aVal[8], CLR_BLUE aRect := GETCLIENTRECT( oMetro:hWnd ) aImage := oMetro:ReadImage( cImage, , .t. ...

... SIZE 0, -60 BOLD ITALIC aPalBmp := oWnd:ReadImage( c_Pfad1 + "Marble.bmp", nil, .t. ) pBrush := GDIP_IMAGEBRUSH( aPalBmp[ 1 ] ) -- -- oMetro:Show() oMetro:bPainted := {|| oMetro:DrawImage( c_Pfad1 + "Sea.jpg", , nil, 1 ), ; oMetro:SayText( "Stammdaten", { 30, 150, ...

... aImage := oWnd:ReadImage( cImage, , .t. ) oWnd:DrawImage( aImage, aRect, nil, 1 ) it doesn't work for a METRO-image-background DEFINE METROPANEL oMetro OF oWnd TITLE "Stammdaten" ; COLOR aVal[8], CLR_BLUE aRect := GETCLIENTRECT( oMetro:hWnd ) aImage := oMetro:ReadImage( cImage, , .t. ...

... DEFINE WINDOW oMWnd TITLE cTitle FROM 0, 0 TO ScreenHeight() + 20, ScreenWidth() PIXEL ; STYLE nOr( WS_POPUP ); COLOR CLR_WHITE, CLR_GREEN oMetro := MakeMetroPanel( oMWnd ) DEFINE BRUSH oBrush FILE c_Path1 + "earth.bmp" RESIZE oMetro:SetBrush( oBrush ) oBrush:End() oMetro:bRClicked ...

... DEFINE WINDOW oMWnd TITLE cTitle FROM 0, 0 TO ScreenHeight() + 20, ScreenWidth() PIXEL ; STYLE nOr( WS_POPUP ); COLOR CLR_WHITE, CLR_GREEN oMetro := MakeMetroPanel( oMWnd ) DEFINE BRUSH oBrush FILE c_Path1 + "earth.bmp" RESIZE oMetro:SetBrush( oBrush ) oBrush:End() oMetro:bRClicked ...

... ) : http://www.pflegeplus.com/IMAGES/Metrofont1.jpg //----------------------------------- FUNCTION BUILDMETRO(oWnd, nDStyle) LOCAL oMetro, oHScroll, oBtn[30], oBrush, oVSlider LOCAL oSelf, nOld := 0, oLizenz, cText, pBrush, aPalBmp DEFINE METROPANEL oMetro OF oWnd TITLE "" ...

... are the same http://www.pflegeplus.com/IMAGES/MetroB7.jpg from original sample : function Main( cParam ) local oWnd, oBar, oMetro, oBrush local cTitle := "Start" SET DATE ITALIAN SET CENTURY ON // added DEFINE FONT oFontLarge NAME "Arial" SIZE 0, -50 ...

... ... ... 48 times the same fonts are defined on top and released at the end Why these errors ? the typical button DEFINE METROBUTTON oSBtn[105] OF oMetro ; COLOR CLR_WHITE, 255 ; CAPTION "&Ende" ; ALIGN "BOTTOMLEFT" ; GROUP 3 ; FONT oTileFont ; BITMAP c_Pfad1 + "exit.bmp" ...

Yes see the settings :

DEFINE METROPANEL oMetro OF oWnd TITLE "Stammdaten" ;
COLOR aVal[8], CLR_BLUE
oMetro:oFont := oFontLarge
oMetro:lDesignMode := .F.
oMetro:nMetroTop = 160
oMetro:nMetroMargin := 50
oMetro:nBtnSize = 120
oMetro:nMetroRows := 8

best regards
Uwe

... solution I have been looking for : painting a frame on button-focus. Maybe possible to include the logic in class < Metropnl > like : :?: oMetro:lBtnFrame := .T. // frame YES / NO oMetro:nBtnFramePen := 4 // Pensize oMetro:nBtnFrameCol := CLR_WHITE // frame-color Download http://www.pflegeplus.com/DOWNLOADS/MetroBtn1.zip ...

Antonio, I only changed / tested : DEFINE METROBUTTON oMBtn[1] OF oMetro ; PROMPT "Files" COLOR CLR_WHITE, RGB( 2, 174, 224 ) ; GROUP 1 ; IMAGE c_Path1 + "files.bmp" ; ACTION MsgInfo( oMBtn[1]:Cargo , ValType( oMBtn[1]:Cargo) ) // Files(c_Path1) ...

Uwe,

Try this:

AEval( oMetro:aControls, { | o | IF( o:ClassName() = "TMETROBTN", ( o:oCursor := oHand, o:bLostFocus := { || o:oCursor := nil } ), ) } )