change the brush of a say

change the brush of a say

Postby Silvio.Falconi » Fri Mar 31, 2023 3:11 pm

the Box style make a gray Box on say

Image

Code: Select all  Expand view
@ 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: Select all  Expand view
oSayBrush[1]:nStyle    = nOR( WS_CHILD, WS_VISIBLE,;
                             If( lactivate,   ,  SS_GRAYRECT )  )
 


can change the brush ? I saw there is also SS_BITMAP


Code: Select all  Expand view

#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: Select all  Expand view
@ 88, 5     CHECKBOX aGet[9] VAR lactivate  Prompt "Bordo" SIZE 30,12 PIXEL OF oDlg     UPDATE;
      ON CHANGE (Makebru(oSayBrush[1],lactivate))




Code: Select all  Expand view
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 November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 42 guests