FiveTech Software tech support forums

... in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TWINDOW 6 TDIALOG 7 TBRUSH 8 TFONT 9 TCURSOR 10 TCONTROL 11 TSAY 12 TRADMENU 13 TRADIO 14 TGET 15 GET 16 TCLIPGET 17 TBUTTON 18 TMETER 19 TREG32 20 TGROUP 21 TICON 22 TSKINBUTTON 23 TMENU 24 TMENUITEM 25 TMSGBAR 26 TRECT 27 TMSGITEM ...

Have you managed to solve the 3D effect?

I did not make it.
I noticed that even putting at the beginning of the program the option Set3dLook (.F.) OR .T., Does not change anything.

Giovany Vecchi wrote:

cnavarro wrote:Giovany, Your design is very good, congratulations

Thank you Navarro. We have to show that Fivewin is beyond what we think we can do.

The limit is our imagination, without any doubt

Giovany Vecchi wrote:I thought the Set3DLook(.F.) function would solve this question

Have you managed to solve the 3D effect?

Giovany, Your design is very good, congratulations Thank you Navarro. We have to show that Fivewin is beyond what we think we can do. Via Activex Integration https://i.postimg.cc/nhcZb3mB/SH-25-Nov-20-13-03.jpg Other controls https://i.postimg.cc/yd5yh6qn/SH-26-Nov-20-13...

I thought the Set3DLook(.F.) function would solve this question

Giovany, Your design is very good, congratulations

Ok, but I don't like the 3dlook style
Try using also this and tell me if it works with redefined controls

Code: Select all  Expand view

Ctl3DLook( <yourobjectcontrol>:hWnd, .F. )
 

Thanks, it worked. I better change the tRadio class so I don't have to mess with the whole system. I am creating a kind of Dark Theme, and if I could not change certain controls, it would not work.  ::oDlgCadastro:bInit := <||    AEval( ...

Sorry, try

Code: Select all  Expand view

SetWindowTheme( ::oRad760_DadosCobranca:aItems[ 3 ]:hWnd, "", "" )
 

When executing I get the message:

Code: Select all  Expand view

Error description: Error BASE/1004  Message not found: TRADMENU:HWND

As far as I know it is a problem to have active themes (also for checkboxes).
This may work although for me it has never been a good solution.

Code: Select all  Expand view

      SetWindowTheme( ::oRad760_DadosCobranca:hWnd, "", "" )
 

...   In this example, G_COLOR_SYS (2) is white and G_COLOR_SYS (1) is the background. I can't change the colors of the text or the background of tRadio. Already tried the Bj: nClrText: = also does not work. This also happens with CheckBox. Would anyone know any method to make this possible? https://i.postimg.cc/1Xm04z8X/SH-22-Nov-20-11-25.jpg

... of a object on focus http://www.pflegeplus.com/IMAGES/Focus2.jpg because of the error ( NIL ) I replaced the info with ??? On TRADIO and TDATEPICK ::cVarName exists but returns NIL All other controls are working. from : METHOD cGenPRG( lDlgUnits ) CLASS TDatePick ... ... cPrg ...

... 26 TGET 27 GET 28 TCLIPGET 29 TCHECKBOX 30 TBTNBMP 31 TSAY 32 TCOMBOBOX 33 TDBCOMBO 34 TBUTTON 35 TBUTTONBMP 36 TBITMAP 37 TIMAGE 38 TRADMENU 39 TRADIO 40 TXBROWSE 41 TXBRWCOLUMN 42 TSCROLLBAR 43 TSTRUCT Memory Analysis =============== 473 Static variables Dynamic memory consume: Actual Value: ...

... 2 ]:aControls, { |o| IF( o:ClassName == "TSAY", ( o:SetColor( nTextColor, nBackColor ), o:Refresh() ), NIL ), ; IF( o:ClassName == "TRADIO", ( o:nClrText := nTextColor, o:Refresh() ), NIL ), ; IF( o:ClassName == "TCHECKBOX", ( o:SetColor( nTextColor, nBackColor ), ...