Dear friends, how can we get TGet with rounded corners in Windows 11? Our GETs are still squared.
EMG
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TGet with rounded corners in Windows 11
Not only that, we get thicker bottom border in Windows 11
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
The thicker bottom border is normal in W11. It become blue when the GET gets the focus.
EMG
I mean this new W11 look:
EMG
EMG
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.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
This is what I get with this sample in Windows 11 (the GET corners are not rounded):
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
  LOCAL oDlg
  LOCAL cVar := SPACE( 30 )
  DEFINE DIALOG oDlg
  @ 1, 1 GET cVar
  ACTIVATE DIALOG oDlg;
       CENTER
  RETURN NILEMG
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.
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29565&p=167357&hilit=get+redondo&sid=878f05c5a6edd3f7f0418297428e9c84&sid=272419804668cfbb2234b516f5339ad1#p167357
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
// <!-- l --><a class="postlink-local" href="http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39889">viewtopic.php?f=6&t=39889</a><!-- l -->
#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
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
Dear Enrico,
> My manifest file is already correctly linked
Could you please post here your used manifest file ?
many thanks