FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Does oSay support brush
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Does oSay support brush
Posted: Wed Nov 17, 2021 09:27 AM
Hello friends,
For Silvio's sample, I tried to reach the behavior with a brush.
I thought Silvio could use a brush which is transparent and has at the bottom a line.

But I get an error:
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: RESIZE

Best regards,
Otto

I tried with the following code:

Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()
    local oDlg, oIco, cTest := "Hello world!   "
    local hBrush   := CreateSolidBrush( CLR_HGRAY )

   DEFINE ICON oIco FILE "..\icons\fivewin.ico"

      DEFINE DIALOG oDlg ;
           TITLE "I am a DialogBox" ;
            SIZE 500, 500 ;
            ICON oIco


        @ 10,10 ;
         SAY oSay ;
      PROMPT "Five Win" ;
       PIXEL ;
        SIZE 100, 32


   @ 2, 3 GET cTest

   @ 4, 5 BUTTON "&Ok" SIZE 40, 12 ;
      ACTION MsgInfo( "Any action here!" ) DEFAULT

   @ 4, 16 BUTTON "&Cancel" SIZE 40, 12 ACTION oDlg:End()

      ACTIVATE DIALOG oDlg ;
          CENTERED ;
          ON INIT ( oSay:oBrush := hBrush )


return nil
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Does oSay support brush
Posted: Wed Nov 17, 2021 02:13 PM
Code (fw): Select all Collapse
DEFINE oBrush FILE/COLOR .......
//
oSay:SetBrush( oBrush )
Regards



G. N. Rao.

Hyderabad, India
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Re: Does oSay support brush
Posted: Wed Nov 17, 2021 03:29 PM

Continue the discussion