FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour change the brush of a say
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
change the brush of a say
Posted: Fri Mar 31, 2023 03:11 PM
the Box style make a gray Box on say


Code (fw): Select all Collapse
 @ 89, 115   SAY oSayBrush[1] PROMPT  "test say"  SIZE 50,12 PIXEL OF oDlg  TRANSPARENT BOX
How I can male lBox with Makebru(oSay,lactivate) lBox is a parameter but is not a data

I tried also with
Code (fw): Select all Collapse
oSayBrush[1]:nStyle    = nOR( WS_CHILD, WS_VISIBLE,;
                             If( lactivate,   ,  SS_GRAYRECT )  )
can change the brush ? I saw there is also SS_BITMAP

Code (fw): Select all Collapse
#define SS_CENTER           0x00000001
#define SS_RIGHT            0x00000002
#define SS_ICON             0x00000003
#define SS_GRAYRECT         0x00000005
#define SS_BLACKFRAME       0x00000007
#define SS_GRAYFRAME        0x00000008
#define SS_USERITEM         0x0000000A
#define SS_LEFTNOWORDWRAP   0x0000000C
#define SS_OWNERDRAW        0x0000000D
#define SS_BITMAP           0x0000000E
#define SS_ENHMETAFILE      0x0000000F
#define SS_ETCHEDHORZ       0x00000010
#define SS_ETCHEDVERT       0x00000011
#define SS_ETCHEDFRAME      0x00000012
#define SS_TYPEMASK         0x0000001F
#define SS_NOPREFIX         0x00000080
#define SS_NOTIFY           0x00000100
#define SS_CENTERIMAGE      0x00000200
#define SS_RIGHTJUST        0x00000400
#define SS_REALSIZEIMAGE    0x00000800
#define SS_SUNKEN           0x00001000
#define SS_ENDELLIPSIS      0x00004000
#define SS_PATHELLIPSIS     0x00008000
#define SS_WORDELLIPSIS     0x0000C000
#define SS_ELLIPSISMASK     0x0000C000

can associate a bitmap ?






Code (fw): Select all Collapse
@ 88, 5     CHECKBOX aGet[9] VAR lactivate  Prompt "Bordo" SIZE 30,12 PIXEL OF oDlg     UPDATE;
      ON CHANGE (Makebru(oSayBrush[1],lactivate))

Code (fw): Select all Collapse
function Makebru(oSay,lactivate)
   
   If lactivate
         oSay:lBox:=.f.
      Else
         oSay:lBox:=.t.
      Endif
      osay:refresh()
   return nil
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion