Does oSay support brush

Does oSay support brush

Postby Otto » Wed Nov 17, 2021 9: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: Select all  Expand view  RUN



#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

 
 
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6332
Joined: Fri Oct 07, 2005 7:07 pm

Re: Does oSay support brush

Postby nageswaragunupudi » Wed Nov 17, 2021 2:13 pm

Code: Select all  Expand view  RUN

DEFINE oBrush FILE/COLOR .......
//
oSay:SetBrush( oBrush )
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10643
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Does oSay support brush

Postby Otto » Wed Nov 17, 2021 3:29 pm

********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6332
Joined: Fri Oct 07, 2005 7:07 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 108 guests