Does oSay support brush

[Otto]

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

#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

 
 

[nageswaragunupudi]

Code: Select all  Expand view

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

[Otto]

Thank you Mr. Rao and best regards,
Otto


viewtopic.php?f=3&t=41060&p=245943&sid=c1d2c5961e7d6fd939f74a473467d95b#p245943