TGet with rounded corners in Windows 11

[Enrico Maria Giordano]

Dear friends, how can we get TGet with rounded corners in Windows 11? Our GETs are still squared.

EMG

[nageswaragunupudi]

Not only that, we get thicker bottom border in Windows 11

[Enrico Maria Giordano]

The thicker bottom border is normal in W11. It become blue when the GET gets the focus.

EMG

[Enrico Maria Giordano]

I mean this new W11 look:



EMG

[nageswaragunupudi]

This is what I get by default on all my programs. (W11)
Do you want to have this look in other versions of Windows also?
Then please consider drawing a Thick Line in the pain method.

[Enrico Maria Giordano]

This is what I get with this sample in Windows 11 (the GET corners are not rounded):

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := SPACE( 30 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET cVar

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16587

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29565&p=167357&hilit=get+redondo&sid=878f05c5a6edd3f7f0418297428e9c84&sid=272419804668cfbb2234b516f5339ad1#p167357

Regards, saludos.

[Enrico Maria Giordano]

Sorry, I don't want to paint the GETs rounded myself, I asked why we don't have the native Windows 11 look for the GETs, on Windows 11. Maybe is there something missing in the manifest file?

EMG

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=37273&p=222557&hilit=XPLOOK.RC&sid=18c517cacad23156c205b9429b150072&sid=272419804668cfbb2234b516f5339ad1#p222557

Regards, saludos.

[karinha]

Code: Select all  Expand view

// viewtopic.php?f=6&t=39889

#Include 'FiveWin.Ch'

#Define CLR_PINK       RGB( 255, 128, 128)

FUNCTION Main()

   Local oDlg, cTitle
   Local oGet1
   Local cVar1 := Space( 30 )
   Local oGet2
   Local cVar2 := Space( 30 )
   Local oGet3
   Local cVar3 := Space( 30 )

   cTitle := OemToAnsi( "FIVEWIN: GET CON BORDES RED COLOR Y PAINT" )

   DEFINE DIALOG oDlg Resource "DIALOGO2" TITLE cTitle ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg: lHelpIcon := .F.

   REDEFINE GET oGet1 VAR cVar1 ID 4004 OF oDlg

   oDlg:bPainted := {|| SetGetRounded( oGet1[4004], oDlg) }

   REDEFINE GET oGet2 VAR cVar2 ID 4001 OF oDlg

   oDlg:bPainted := {|| SetGetRounded( oGet2[4001], oDlg) }
   
   ACTIVATE DIALOG oDlg CENTER                                               ;
      ON PAINT( oGet2:Box( -1, -1, oGet2:nHeight, oGet2:nWidth, CLR_HRED ) )

RETURN NIL
//-> Funcao que arredonda o as bordas do get
function SetGetRounded( oControl, oDlg )

 local hBrush, hOldBrush

 if "TGET" $ oControl:ClassName()

    hBrush    := CreateSolidBrush( RGB( 255, 255, 255 ) )
    hOldBrush := SelectObject( oDlg:hDC, hBrush )

    RoundRect( oDlg:hDC, oControl:nLeft - 3                ,;
                         oControl:nTop  - 2                ,;
                         oControl:nLeft + oControl:nWidth  + 3,;
                         oControl:nTop  + oControl:nHeight + 2,;
                         oControl:nHeight / 2              ,;
                         oControl:nWidth                    )

    SelectObject( oDlg:hDC, hOldBrush )
    DeleteObject( hBrush )

 endif

return(.t.)
 

Regards, saludos.

[Enrico Maria Giordano]

My manifest file is already correctly linked. And no, I don't want to paint the rouded corners myself. I hoped that our GETs get the new look automatically, just like the comboboxes and the checkboxes already (although partially) got.

EMG

[Antonio Linares]

Dear Enrico,

> My manifest file is already correctly linked

Could you please post here your used manifest file ?

many thanks

[Enrico Maria Giordano]

Code: Select all  Expand view

1 24 "\fwharbour\samples\winxp\Windows10.Manifest"

EMG