FiveTech Software tech support forums

Code: Select all  Expand view

#include "fivewin.ch"

Function sample()
   local oDlg,oFont
   local nHt      := Int( ScreenHeight() * 0.2 )
   local nWd      := Int( ScreenWidth() * 0.2 )
   local oChk
   local oGet,cGet:= space(100)
   local oSay
   local ncolor1 := RGB(245,245,235)
   local ncolor2 := RGB(250,250,245)
   local lNormal

DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14
 DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL;
       RESIZABLE   TiTle "test" COLOR CLR_BLACK, RGB( 245,245,235)  ;
       STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
                  WS_MINIMIZEBOX, WS_THICKFRAME )


@ 10,10 CheckBox oChk Var lNormal  Prompt "check" SIZE 100,20 of oDlg ;
       on change ( If(lNormal,(MakeBox(oGet,oDlg),  oGet:enable()),;
                              (MakeBox(oGet,oDlg) , oGet:disable())),;
                               oGet:refresh() )

   @ 62, 10 SAY oSay PROMPT  "Test Get" SIZE 100,25  PIXEL OF oDlg  TRANSPARENT  FONT oFont
   @ 80, 10 GET oGet VAR cGet SIZE 100,24 PIXEL OF oDlg

ACTIVATE DIALOG oDlg CENTERED  
return nil

Function MakeBox(oControl,oDlgEdit)
   local oBox
   local aRect       := GetClientRect(oControl:hWnd )
   local hDC := oControl:GetDC()

    local  nOldMode := SetBkMode( hDC, 1 )
    local hBru := TBrush():New( "BDIAGONAL",RGB(195,195,185) )
    local  hOldBrush := SelectObject( hDC, hBru )

      FillRect( hDC,{aRect[1] , aRect[2] ,aRect[4] , aRect[3]  }, hBru )

     SelectObject( hDC, hOldBrush )
     SetBkMode( hDC, nOldMode )
     DeleteObject( hBru )
     oControl:ReleaseDC()
   RETURN NIL


 

Antonio Linares wrote:Dear Silvio,

Must the rectangle be painted above the control as per your sample ?

Where are you calling your code from ?

Antonio Linares wrote:If you want to paint on the dialog then you must use the hDC of the dialog, don't use the hDC of the control

Code: Select all  Expand view

Function MakeBox(oControl,oDlgEdit)
   local oBox
   local aRect := GetClientRect(oControl:hWnd )
   local hDC :=oDlgEdit:GetDC()

    local  nOldMode := SetBkMode( hDC, 1 )
    local hBru := TBrush():New( "BDIAGONAL",RGB(195,195,185) )
    local  hOldBrush := SelectObject( hDC, hBru )

    FillRect( hDC,{aRect[1] , aRect[2] ,aRect[4] , aRect[3]  }, hBru )

     SelectObject( hDC, hOldBrush )
     SetBkMode( hDC, nOldMode )
     DeleteObject( hBru )
     oDlgEdit:ReleaseDC()
   RETURN NIL