PC Toledo

... END PAGE of oTab

BEGIN PAGE "&Dados 3" of oTab
@ 001,30 GROUPBOX oGroup1 CAPTION "Filtros" SIZE oTab:nWidth-10,140 STYLE BS_LEFT
oGroup1:Anchor := 11

@ 10,60 GET oNOM VAR cNOM SIZE oGroup1:nWidth-20,24 PICTURE '@!' MAXLENGTH 100 ;
TOOLTIP 'Selecione o campo a esquerda e digite aqui o que ...

... 480, 565, 565 }
aYPoints := { 185, 185, 218 }
oRMChart:COLine( nChartId, 2, aXPoints, aYPoints, 3, RMC_FLAT_LINE, RMC_COLOR_GREEN, 0, 2, 0, RMC_ANCHOR_ARROW_OPEN )
oRMChart:COText( nChartId, 3, "Average: " + LTrim(Transform(nAverage,"999,999,999.99")), 480, 169 ,0, 0, 0, 0, 0, 0, 0, 0 ...

... Facturas","Productos"} SIZE 1188, 635 ; //
ON CHANGE { || IIF(oTab1:GetActivePage() == 2, (oTab2:SetTab(1), oTab2:SetFocus()), NIL) };
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;// BITMAP {"cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse ...

... de tela 2024-10-10 110125.jpg
// EDITBOX - an Edit control, designed to input some text
@ 80,20 EDITBOX oEdit1 CAPTION "" SIZE 200,26 ON SIZE ANCHOR_LEFTABS + ANCHOR_RIGHTABS ;
ON GETFOCUS { ||
With Object oEdit1
:value( "Texto para teste do EDITBOX" )
:selStart := 0
:selLength := Len ...

... de tela 2024-10-10 110125.jpg
// EDITBOX - an Edit control, designed to input some text
@ 80,20 EDITBOX oEdit1 CAPTION "" SIZE 200,26 ON SIZE ANCHOR_LEFTABS + ANCHOR_RIGHTABS ;
ON GETFOCUS { ||
With Object oEdit1
:value( "Texto para teste do EDITBOX" )
:selStart := 0
:selLength := Len ...

... ON INIT {|This| HWG_SETWINDOWTHEME( this:handle,0),oBrw:lInfocus := .T. }

ThisCli := oDlg

@ 5,5 TAB oTab ITEMS {} SIZE 1188, 635 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
ON GETFOCUS { || oDlg:oTab:oBrw:SetFocus()}

BEGIN PAGE "Consulta" OF oTab ...

... 645 ;
FONT oFontDlg ;
STYLE WS_CAPTION + DS_CENTER + WS_VISIBLE

ThisCli := oDlgClientes

@ 5,5 TAB oTab ITEMS {} SIZE 1188, 635 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
ON GETFOCUS { || oTab:oBrw:SetFocus()}

BEGIN PAGE "Consulta" OF oTab

hwg ...

... WS_SYSMENU + WS_SIZEBOX; // ON INIT {|| oTab:oBrw:SetFocus()}

ThisForm := oDlgClientes

@ 5,5 TAB oTab ITEMS {} SIZE 1188, 615 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;// ON INIT {|oCtrl| oCtrl:bChange:={|o,nPage| ABA_TAB(oDlgClientes,nPage) } }
ON ...

... isso em hwgui ?

Talvez esteja confundindo responsividade com redimensionamento de componentes ao redimensionar a tela. Estude e teste o exemplo "Anchors" no Tutorial da HwGUI .
//
#include "hwgui.ch"

#define CLR_GREEN1 0xcaebba

Function Test()
Local oDlg, oFont
#ifdef __GTK__
oFont := HFont ...

... bmp_edit.bmp"




@ 1,-1 TOOLBAR oToolbar1 SIZE hwg_Getdesktopwidth(), 105 STYLE TBSTYLE_LIST + TBSTYLE_AUTOSIZE //+ WS_DLGFRAME
oToolbar1:anchor := 11 // 9

@ 8,7 OWNERBUTTON oOwnerbutton1 OF oToolbar1 SIZE 99,90 ON CLICK {|| DB_CADCLI() } ;
TEXT 'Clientes' ;
FONT HFont():Add( 'MS Sans ...

... 0, 0 ;
BITMAP HBitmap():AddResource("fornecedores") TRANSPARENT ;
COORDINATES 0, 5, 0, 0 ;
TOOLTIP 'Registro de Proveedores'
oOwnerbutton2:Anchor := 48



arquivo .RC


1 24 "WindowsXP.Manifest"


CLIENTES BITMAP imagem\clientes.bmp
FORNECEDORES BITMAP imagem\fornecedores.bmp
PRODUTOS ...

... and Ownerbuttons";
AT 0, 0 SIZE 320, 120 BACKCOLOR 12632256 ;
FONT HFont():Add( "MS Sans Serif",0,-13 )

@ 0,0 PANEL oPanel SIZE 320,32 ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS

@ 2,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Next")} ;
SIZE 32,26 FLAT ;
BITMAP "next" FROM ...

Consegui!!!!
Com o ON UPDATE no browse

@ 2,113 BROWSE oBrowse1 ARRAY SIZE 1020,450 STYLE WS_BORDER + WS_VSCROLL ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
ON KEYDOWN {|oBrowse1,nKeyPress| ::SENHA_onKeyDown( oBrowse1, nKeyPress, oDlg, @cProgressKey ) };
ON ...

... size.
Local nTop := Iif( "windows" $ Lower(Os()), 24, 0 )
Screenshot_20231215_095606.png

@ 20, 20 TAB oTab ITEMS {} SIZE 340, 180 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS

BEGIN PAGE "First" of oTab

@ 30, nTop+16 EDITBOX "Pyotr" SIZE 200, 26
@ 30, nTop ...

... aColumns[10]:heading := "COL10"

oBrw:aColumns[10]:lEDITABLE :=.T.

@ 100,180 BUTTON 'Close' SIZE 100,28 ON CLICK {|| oDlg:Close() } ;
ON SIZE ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS

ACTIVATE DIALOG oDlg
Return Nil


Por que retorna "3" se estou alterando a coluna 10 do browse ...