FiveTech Software tech support forums

... tener fondos translúcidos. - SetColor( nTextClr, nClrPane, oBrush ): nClrPane ahora puede ser de color alfa o de color sólido. * BtnBmp: Estilo FLAT: El estilo plano se introdujo principalmente para colores sólidos. Aunque también es posible utilizar el fondo degradado, otros estilos son más ...

... possible to have translucent backgrounds - SetColor( nTextClr, nClrPane, oBrush ): nClrPane can now be either alpha color or solid color * BtnBmp: FLAT Style: Flat style was introduce to mainly support solid colors. While it is possible to use Gradient background also, other styles are better suited ...

... , now it seem not make error @ 148, 350 BTNBMP aBtnBrow[3] ; RESOURCE "GRID_MNU", "", hBmp2, "" ; SIZE 15, 13 PIXEL FLAT NOROUND GDIP WHEN lMenu OF oDlg ; ACTION ::ShowPopUp( Contextual_Menu( Self,oBrw,oDbf,cIniUser,cSection,oDlg,aBtnBrow[4] ) ) Function Contextual_Menu( ...

the btnbmp class takes the color of the text to create the internal box when it has focus Yes, for painting focusrect in case of FLAT style buttons. but it shouldn't be like this....the box must be dotted and not necessarily take the color from the color of the text, honestly maybe operationally ...

the btnbmp class takes the color of the text to create the internal box when it has focus

Yes, for painting focusrect in case of FLAT style buttons.

... This border indicates to the user which button has focus currently. You can avoid painting this border, by specifying the clauses "FLAT" along with "NOBORDER". In this case no FocusRect is drawn around the button in focus as a result, the user does not know which ...

... This border indicates to the user which button has focus currently. You can avoid painting this border, by specifying the clauses "FLAT" along with "NOBORDER". In this case no FocusRect is drawn around the button in focus as a result, the user does not know which ...

Silvio

FLAT NOROUND GDIP

When these attributes are used, it doesn't work.
I have done tests without them, then it works.
There are so many ifs in the class that it would seem better to me to make a new one without all this legacy.
Best regards,
Otto

I used: C:\fwh2023\source\classes\btnbmp.prg

... local bClick:= {|| aImg[5 ] } @ nRow, nCol BTNBMP oItem PROMPT aImg[ 1 ] ; FILE aImg[2 ] ; SIZE 72,96 PIXEL OF oPanel ; NOBORDER FLAT oItem:oCursor:= oCursorBtn oItem:baction:= (bClick) not eval the action

https://i.imgur.com/quHCEc0.png https://i.imgur.com/D9gWqWd.png i use xmate or hbmk2 in harbour. :-) for the msvc version of my app i use xmate. for example, this is the .hbp project HBMK2 for fwh+mingw+harbour -hbexe -oprestamos32g -workdir=obj\ -compr -info -inc -t...

... @ 10, 5 XBROWSE oBrw OF oDlg ; COLUMNS 1,2; HEADERS "gg","" ; COLSIZES 40, 220 ; ARRAY aData ; SIZE -5,-100 PIXEL STYLE FLAT NOBORDER WITH OBJECT oBrw WITH OBJECT oBrw:aCols[1] :cEditPicture := "###gg" END :lHScroll := .f. :CreateFromCode() END

Estoy compilando un proyecto. \C_BCC\BCC77\bin\BRC32 -r -D__FLAT__ -I\C_BCC\BCC77\include\windows\sdk;\C_BCC\BCC77\include\windows\crtl \proy_harb\rc\plastwin.rc hasta aqui ok \C_BCC\BCC77\bin\ilink32 -Gn -aa -Tpe -s @b32.bc Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero Technologie...

  @ 200, 20 BTNBMP oBtn PROMPT "Prompt" SIZE 100,40 PIXEL OF oDlg FLAT   oBtn:nClrBorder := CLR_HRED Currently border color is working for FLAT style buttons only. Nages, at init run ok then If I wish change the border on line it not run ok I explain ...

Code: Select all  Expand view

  @ 200, 20 BTNBMP oBtn PROMPT "Prompt" SIZE 100,40 PIXEL OF oDlg FLAT
   oBtn:nClrBorder := CLR_HRED

Currently border color is working for FLAT style buttons only.

Estimado José, En el fichero buildh32.bat actual de FWH se usan estos flags: cl.exe -nologo -c -O2 -W4 -wd4127 /I%hdir%\include %1.c en cuando a -d__FLAT__ sirve para declarar un "define" y asi poder reconocer desde el fichero RC que estamos en 32 bits. De la misma forma usamos -d__64__ pa...