FiveTech Support Forums

#include "FiveWin.ch"

FUNCTION Main()
   LOCAL oWnd, oPan, oBr
   DEFINE BRUSH oBr COLOR CLR_RED
   DEFINE WINDOW oWnd TITLE "SetCoors() vs TPanel test"


   // Create a plain TPanel used as a custom canvas
   // NOTE: TPanel():New usually expects (top, left, bottom, right, owner) in older FWH;
   // we pass small initial coords and resize it right after.
   oPan := TPanel():New( 0, 0, 100, 100, oWnd )

   // Make sure the panel paints white so we can see it clearly
  *
   oPan:SetBrush( oBr )

   // Resize handler
  oWnd:bResized := { || FitPanel( oWnd, oPan ) }

   ACTIVATE WINDOW oWnd
RETURN NIL

FUNCTION FitPanel( oWnd, oPan )
   LOCAL aCli, nTop, nLeft, nBottom, nRight

   aCli    := GetClientRect( oWnd:hWnd )   // { top, left, bottom, right }
   nTop    := 0
   nLeft   := 0
   nBottom := aCli[3]
   nRight  := aCli[4]

   // ---- This call raises a runtime error with TPanel ----
   // Error BASE/1004  No exported method: nTop
   // oPan:SetCoors( nTop, nLeft, nBottom, nRight )

   // ---- This call works fine with TPanel (width/height) ----
   oPan:Move( nTop, nLeft, nRight - nLeft, nBottom - nTop )

   InvalidateRect( oPan:hWnd, 0, .T. )
   UpdateWindow( oPan:hWnd )
RETURN NIL