FiveTech Software tech support forums

... , 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...

Saludos a todos. Estoy usando Borland 7.40 como compilador y el editor el Fivedit, con el que no tengo problema, pero mi objetivo futuro seria pasarme a 64 bits. y ahi creo que la mejor opcion es el compilador de Microsoft , es por lo que estoy haciendo pruebas con la version de 32 bits que tengo de...

...  local oDlg, oFld   DEFINE DIALOG oDlg SIZE 400,300 PIXEL TRUEPIXEL ;      TITLE "FOLDEREX FLAT STYLE by Leandro"   @ 10,10 FOLDEREX oFld ADJUST OF oDlg SIZE 380,280 PIXEL ;      PROMPT "Monday", "Tuesday", ...