FiveTech Software tech support forums

... = GetLabelDim( oPanel2:hWnd, cMessage , oFont:hFont ) oPanel:setsize(aDim[ 1 ] + 60, aDim[ 2 ] + 50) oPanel:SetColor( "N/W*" ) oPanel:bPainted = { | hDC | DrawTextTransparent( hDC, cMessage , { 10, 10, aDim[ 1 ] + 100, aDim[ 2 ] + 100 }, 1 ) } ENDIF the Panel is modified and also the ...

I tried also with oPanel1:bPainted := { |hDc| Mostra_testo_boxed(cMessageMemo,oPanel1) } Function Mostra_testo_Boxed(cMessageMemo,oPanel1)   local oItem1,oItem2   local old_Height:= oPanel1:nBodyHeight   local nLineswidth:= 250  ...

Thank you, Antonio! I'll try to figure it out. It was the code block :bPainted that caused delays when
pulling the window out from behind the screen. I needed an understanding of when to execute this block of code and when not to

Dear Yuri, when a window, dialog or control is painted, FWH evals oWnd:bPainted if defined from METHOD Paint() CLASS TWindow      if ValType( ::bPainted ) == "B"         uVal = Eval( ::bPainted, ::hDC, ::cPS, Self )      endif ::cPS ...

... WINDOW oWnd MDI DEFINE BUTTONBAR oBar OF oWnd SIZE 45,45 2007 DEFINE BUTTON OF oBar PROMPT "TEST" CENTER ACTION Test() oWnd:oWndClient:bPainted := {||oWnd:oWndClient:DrawImage( "c:\fwh\bitmaps\logo.bmp", "BR" )} ACTIVATE WINDOW oWnd return nil Function Test() local ...

... ,; ,; (aacciones[i][4]),; ,; (aacciones[i][3]),; ,; ,; ,; .F. ) next AEVAL(oBar:aControls,{|o,n|o:SetColor(CLR_BLACK,CLR_BLUE)}) oBar:bPainted := {|| oBar:SayText( "Prueba", nil, "R" ) } //* los 2 primeros array marcan los colores del boton al pasar por el, los ...

... SayText( cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder ) Applies to all derived classes like dialogs and controls To be used in o:bPainted. function FW_SayText( hDC or oWnd, cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder ) Can be used with Printer DC also FW_SayText( ...

... ) DiagCross SetBrush( "DIAGCROSS", nRGB( 0, 100, 255 ) ) then to remake the border use the Uwe's solution DEFINE DIALOG oDlg..... oDlg:bPainted := < |hDC| oBtn:setsize(20,17.6) // this because the obtn is more big with png DRAWBORDER( hDC, oBtn:nLeft-2, oBtn:ntop-2,; oBtn:nWidth+2, ...

... I saw a Uwe post https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36937&start=0&hilit=xbrowse+border and I resolved with oDlg:bPainted := < |hDC| DRAWBORDER( hDC, oBrw:nLeft-2, oBrw:ntop-2,; oBrw:nWidth+2, oBrw:nHeight+62 , 0, 1, Rgb(195,195,185), .t. ) RETURN NIL > why ...

Antonio,

I tried but it fails. The actual bar object is oBarInv

oBar does not exist so the error says there is no exported variable bPainted ...

Tim

Dear Tim,

Instead of:

oDiw:oBarInv:bPainted = { || oDiw:oBarInv:Say( 5, 200, cIAMsg, , , , .T., .T. ) }

use:

oDiw:oBar:bPainted = { || oDiw:oBar:Say( 5, 200, cIAMsg, , , , .T., .T. ) }

bPainted is executed when the control (the buttonbar in this case) needs to be repainted.

Enrico Maria Giordano wrote:What's wrong with mine? At least it is simpler. Both codes use bPainted codeblock so they are equivalent.

It is working indeed... But I wonder why bPainted is needed ? What does it do ?

What's wrong with mine? At least it is simpler. Both codes use bPainted codeblock so they are equivalent.

Antonio, I tried also with ::bPainted := { |hDC|FillRectEx( ::hDC, aPoints, aGrad) } or ::bPainted := { |hDC|FloodFill( ::hDC, aPoints [1][1], aPoints [5][1], nil, nColor ) } or local hBru := CreateSolidBrush( nColor ) local hOld := SelectObject( ...