TPanel

[Otto]

Should

Code: Select all  Expand view

DrawText( oPanel:hDC, cChartCaption,{ nTxtTop, nTxtLeft, nTxtBottom, nTxtRight }, nStyle  )
FillRect(oPanel:hDc, aRect1 ,oBrush)
RoundBox etc.

work with TPanel.

Thanks in advance
Otto

[James Bott]

Otto,

If they work with windows then they should work with panels. Have you tried them and they don't work, or have you not tried them yet?

James

[Otto]

Hello James,
thank you for your answer.
I tried but I don’t see anything on the panel.
Best regards,
Otto

[James Bott]

Otto,

Did you try oPanel:refresh() after drawing the text?

James

[Otto]

Hello James,
Refresh() does not help.
Best regards,
Otto

[James Bott]

Otto,

Can you create a small self-contained sample to show the problem?

Regards,
James

[nageswaragunupudi]

Mr. Otto

The code you propose to use should normally be used in the bPainted code block of TPanel. But this not work because TPanel's Paint method, which overrides the parent's paint method, does not evaluate bPainted code block.

If this has to work, a small modification in tpanel.prg is needed.
Towards the end of TPanel.prg's Paint method these lines are to be inserted.

Code: Select all  Expand view

  endif

   if ValType( ::bPainted ) == 'B'   // inserted
      Eval( ::bPainted, ::hDC, ::cPS, Self ) // inserted
   endif // inserted

   ::DispEnd( aInfo )
 

In the application we may now use

Code: Select all  Expand view

oPanel:bPainted := { |hDC, cPS, oPanel| MyPanelPaint( hDC, cPS, oPanel )

Your code now works in MyPanelPaint( hDC, cPS, oPanel ) function.

[Antonio Linares]

Rao.

Already included for next FWH build, thanks

[Otto]

Hello Mr. Rao,

thank you very much for your explanation and the source code.
Now I understand how it is working.
I inserted the evaluation of the bPaint-block into TPanel and now I can do what I want.
Thank you again and best regards,
Otto