topic-42757

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Brush on btnbmp with color
Posted: Wed Feb 08, 2023 09:55 AM

I made

#include "FiveWin.ch"

Function test()
local oDlg,ofont
local oBrowse
local aData:= {}
local oBrush1,oBrush2
local obtn

    DEFINE BRUSH oBrush1  STYLE HORIZONTAL
    DEFINE BRUSH oBrush2  STYLE HORIZONTAL

   DEFINE FONT oFont NAME "TAHOMA" SIZE 00, -12
   DEFINE DIALOG oDlg SIZE 400,500 PIXEL FONT oFont TRUEPIXEL ;
           TITLE "test" TRANSPARENT  COLOR CLR_BLACK,CLR_WHITE



    @ 10,10 BTNBMP obtn  CENTER SIZE 96,96 PIXEL OF oDlg NOROUND 2007

    obtn:bClrGrad := { |lInvert| If( lInvert, oBrush2:hBrush, oBrush1:hBrush ) }
    obtn:disable()

ACTIVATE DIALOG oDlg CENTERED
   oFont:End()
RELEASE BRUSH oBrush1,oBrush2
RETURN NI

and it run ok as you can see only it show black lines

How I can make to add a color ? for a sample red ?

I made
DEFINE BRUSH oBrush1 STYLE HORIZONTAL COLOR CLR_RED it run ok on easy dialog
but I need on Tfolderex class and it not run ok
I tried to change the color of border for a sample
:nClrBorder := { ||nRgb(218,214,179) } but not work

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

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Brush on btnbmp with color
Posted: Wed Feb 08, 2023 03:05 PM

Intente ahora:

Code (fw): Select all Collapse

// \SAMPLES\SILFLDCR.PRG

#Include "FiveWin.ch"  //-> The Best...

FUNCTION Espera_Alvarez()

   LOCAL oDlg, oFld, oFont, aGrad, oBrush, oBrush1, oBrush2, oBtn
   LOCAL aBitmaps := { "..\bitmaps\alphabmp\facebook.bmp", ;
                       "..\bitmaps\alphabmp\windows.bmp" }

   SkinButtons()

   aGrad := { { 0.30, CLR_WHITE, CLR_HBLUE },{ 0.50, CLR_HBLUE, CLR_WHITE } }

   DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE 
   DEFINE BRUSH oBrush1 COLOR nRGB( 250, 213, 174 ) STYLE HORIZONTAL
   DEFINE BRUSH oBrush2 COLOR nRGB( 192, 192, 192 ) STYLE HORIZONTAL

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
                      
   DEFINE DIALOG oDlg TITLE "- TFolderex - Testing -" SIZE 350, 350          ;
      PIXEL TRUEPIXEL RESIZABLE BRUSH oBrush //GRADIENT aGrad

   oDlg:lHelpIcon := .F.
     
   @ 1, 0 FOLDEREX oFld PIXEL ADJUST OF oDlg ;
      PROMPT "Prenotazioni", "Pagamenti"     ;
      BITMAPS aBitmaps                       ;
      TAB HEIGHT 26 OPTION 1 ROUND 5 FONT oFont COLOR CLR_HGREEN TOP

   oFld:aEnable = { .T., .T., .F. }

   // NOROUND / NOBORDER
   @ 245, 10 BTNBMP oBtn CENTER SIZE 100, 100 PIXEL OF oDlg 2007 UPDATE ;
      FILE "..\bitmaps\alphabmp\ichat.bmp"                              ;
      PROMPT "Silvio" +CRLF+ "Wow" +CRLF+ "FiveWin" +CRLF+ "The best"   ;
      ACTION( SILVIO_MUESTRA() ) FONT oFont COLOR CLR_CYAN, CLR_BLACK

   oBtn:bClrGrad := {| lInvert | If( lInvert, oBrush2:hBrush, oBrush1:hBrush  ) }

   ACTIVATE DIALOG oDlg CENTERED

   oBrush:End()
   oBrush1:End()
   oBrush2:End()

   oFont:End()

RETURN NIL

FUNCTION SILVIO_MUESTRA()

   MsgInfo( "Silvio, muestre ahora el que no funciona bien", ;
            "Silvio, muestre ahora el que no funciona bien" )


RETURN NIL

// fin / end

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Brush on btnbmp with color
Posted: Wed Feb 08, 2023 04:40 PM

Silvio, part II:

Code (fw): Select all Collapse

// \SAMPLES\SILFLDCR.PRG = Part II

#Include "FiveWin.ch"  //-> The Best...

FUNCTION Espera_Alvarez()

   LOCAL nCBorder   := 0xC38B2B //, nClrBorder := CLR_HRED //0xE6E6E6
   // Olive Color
   LOCAL nClrBorder := { { 0.2, RGB( 000, 128, 000 ), RGB( 000, 128, 000 ) }, ;
                         { 0.8, RGB( 109, 135, 100 ), RGB( 109, 135, 100 ) } }
   LOCAL oDlg, oFld, oFont, aGrad, oBrush, oBrush1, oBrush2, oBtn
   LOCAL aBitmaps := { "..\bitmaps\alphabmp\facebook.bmp", ;
                       "..\bitmaps\alphabmp\windows.bmp" }

   SkinButtons()

   aGrad := { { 0.30, CLR_WHITE, CLR_HBLUE },{ 0.50, CLR_HBLUE, CLR_WHITE } }

   DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE 
   DEFINE BRUSH oBrush1 COLOR nRGB( 250, 213, 174 ) STYLE HORIZONTAL
   DEFINE BRUSH oBrush2 COLOR nRGB( 192, 192, 192 ) STYLE HORIZONTAL

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
                      
   DEFINE DIALOG oDlg TITLE "- TFolderex - Testing -" SIZE 350, 350          ;
      PIXEL TRUEPIXEL RESIZABLE BRUSH oBrush //GRADIENT aGrad

   oDlg:lHelpIcon := .F.
     
   @ 1, 0 FOLDEREX oFld PIXEL ADJUST OF oDlg ;
      PROMPT "Prenotazioni", "Pagamenti"     ;
      BITMAPS aBitmaps                       ;
      TAB HEIGHT 26 OPTION 1 ROUND 5 FONT oFont COLOR CLR_HGREEN TOP

   oFld:aEnable = { .T., .T., .F. }

   // NOROUND / NOBORDER
   @ 245, 10 BTNBMP oBtn CENTER SIZE 100, 100 PIXEL OF oDlg 2007 UPDATE ;
      FILE "..\bitmaps\alphabmp\ichat.bmp" NOBORDER                     ;
      PROMPT "Silvio" +CRLF+ "Wow" +CRLF+ "FiveWin" +CRLF+ "The best"   ;
      ACTION( SILVIO_MUESTRA() ) FONT oFont COLOR CLR_CYAN, CLR_BLACK

   oBtn:bClrGrad := {| lInvert | If( lInvert, oBrush2:hBrush, oBrush1:hBrush  ) }

   WITH OBJECT oBtn
      :nClrBorder  := nClrBorder
      :bColorMap   := { | o | o:lBorder := o:lMOver, nCBorder }
      :lRound      := .F.
   END

   ACTIVATE DIALOG oDlg CENTERED

   oBrush:End()
   oBrush1:End()
   oBrush2:End()

   oFont:End()

RETURN NIL

FUNCTION SILVIO_MUESTRA()

   MsgInfo( "Silvio, muestre ahora el que no funciona bien", ;
            "Silvio, muestre ahora el que no funciona bien" )


RETURN NIL

// fin / end

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Brush on btnbmp with color
Posted: Thu Feb 09, 2023 09:43 AM

karinha wrote:Silvio, part II:

Code (fw): Select all Collapse

// \SAMPLES\SILFLDCR.PRG = Part II

#Include "FiveWin.ch"  //-> The Best...

FUNCTION Espera_Alvarez()

   LOCAL nCBorder   := 0xC38B2B //, nClrBorder := CLR_HRED //0xE6E6E6
   // Olive Color
   LOCAL nClrBorder := { { 0.2, RGB( 000, 128, 000 ), RGB( 000, 128, 000 ) }, ;
                         { 0.8, RGB( 109, 135, 100 ), RGB( 109, 135, 100 ) } }
   LOCAL oDlg, oFld, oFont, aGrad, oBrush, oBrush1, oBrush2, oBtn
   LOCAL aBitmaps := { "..\bitmaps\alphabmp\facebook.bmp", ;
                       "..\bitmaps\alphabmp\windows.bmp" }

   SkinButtons()

   aGrad := { { 0.30, CLR_WHITE, CLR_HBLUE },{ 0.50, CLR_HBLUE, CLR_WHITE } }

   DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE 
   DEFINE BRUSH oBrush1 COLOR nRGB( 250, 213, 174 ) STYLE HORIZONTAL
   DEFINE BRUSH oBrush2 COLOR nRGB( 192, 192, 192 ) STYLE HORIZONTAL

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
                      
   DEFINE DIALOG oDlg TITLE "- TFolderex - Testing -" SIZE 350, 350          ;
      PIXEL TRUEPIXEL RESIZABLE BRUSH oBrush //GRADIENT aGrad

   oDlg:lHelpIcon := .F.
     
   @ 1, 0 FOLDEREX oFld PIXEL ADJUST OF oDlg ;
      PROMPT "Prenotazioni", "Pagamenti"     ;
      BITMAPS aBitmaps                       ;
      TAB HEIGHT 26 OPTION 1 ROUND 5 FONT oFont COLOR CLR_HGREEN TOP

   oFld:aEnable = { .T., .T., .F. }

   // NOROUND / NOBORDER
   @ 245, 10 BTNBMP oBtn CENTER SIZE 100, 100 PIXEL OF oDlg 2007 UPDATE ;
      FILE "..\bitmaps\alphabmp\ichat.bmp" NOBORDER                     ;
      PROMPT "Silvio" +CRLF+ "Wow" +CRLF+ "FiveWin" +CRLF+ "The best"   ;
      ACTION( SILVIO_MUESTRA() ) FONT oFont COLOR CLR_CYAN, CLR_BLACK

   oBtn:bClrGrad := {| lInvert | If( lInvert, oBrush2:hBrush, oBrush1:hBrush  ) }

   WITH OBJECT oBtn
      :nClrBorder  := nClrBorder
      :bColorMap   := { | o | o:lBorder := o:lMOver, nCBorder }
      :lRound      := .F.
   END

   ACTIVATE DIALOG oDlg CENTERED

   oBrush:End()
   oBrush1:End()
   oBrush2:End()

   oFont:End()

RETURN NIL

FUNCTION SILVIO_MUESTRA()

   MsgInfo( "Silvio, muestre ahora el que no funciona bien", ;
            "Silvio, muestre ahora el que no funciona bien" )


RETURN NIL

// fin / end

Regards, saludos.

sorry the border not is colorized but allways black and nClrBorder want a codebock

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

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Brush on btnbmp with color
Posted: Thu Feb 09, 2023 01:50 PM

I liked this model.

https://imgur.com/KufhpL0

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Brush on btnbmp with color
Posted: Thu Feb 09, 2023 02:48 PM

Hay algo errado.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37314&hilit=bColorMap&start=30&sid=67223e9a38d3804f1ad19ff92a2151cc

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Brush on btnbmp with color
Posted: Fri Feb 10, 2023 10:34 AM

karinha wrote:Hay algo errado.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37314&hilit=bColorMap&start=30&sid=6015c3da5779407e49bc9c5077642f3f

Regards, saludos.

I may have become colorblind because I'm old man , but here I see the border color allways black

@ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007
aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
WITH OBJECT aBtnBrow[1]
:nClrBorder := nRgb(218,214,179)// border color
:bColorMap := { || { { nRgb( 245,244,234), nRgb(218,214,179) } } } // image color
END

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

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Brush on btnbmp with color
Posted: Fri Feb 10, 2023 02:38 PM

Silvio.Falconi wrote:
Hay algo errado.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37314&hilit=bColorMap&start=30&sid=638de723023508154ba6e48e483070fe

Regards, saludos.
I may have become colorblind because I'm old man , but here I see the border color allways black

@ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007
aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
WITH OBJECT aBtnBrow[1]
:nClrBorder := nRgb(218,214,179)// border color
:bColorMap := { || { { nRgb( 245,244,234), nRgb(218,214,179) } } } // image color
END

jajajaja, habla con el señor Nages.

hahahaha, talk to Mister Nages.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Brush on btnbmp with color
Posted: Fri Mar 03, 2023 11:13 AM

karinha wrote:
Hay algo errado.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37314&hilit=bColorMap&start=30&sid=35c3bc29202c293a91e12e63268c636b

Regards, saludos.
I may have become colorblind because I'm old man , but here I see the border color allways black

@ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007
aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
WITH OBJECT aBtnBrow[1]
:nClrBorder := nRgb(218,214,179)// border color
:bColorMap := { || { { nRgb( 245,244,234), nRgb(218,214,179) } } } // image color
END

jajajaja, habla con el señor Nages.

hahahaha, talk to Mister Nages.

Regards, saludos.

Resolved!!!
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36937&start=0&hilit=xbrowse+border

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

FiveTech Support Forums

Continue the discussion