PC Toledo

... Aqui democalmonth.prg, compilado sozinho cria o calendário do mês atual.


/*
democalmonth.prg
*/

#include "minigui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION DemoCalMonth( lWithDialog, xParent, oButton, dDate )

LOCAL nCont, xValue, dDatRef, nMes

hb_Default( @lWithDialog, .T. )

SET ...

... 3 fontes.

O básico: calendário de um mês, é usado em todos os outros, mas pode compilar sozinho.

#include "hwgui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION OneMonth( lWithDialog, oDlg, oButton, dDate )

LOCAL nCont, xValue, dDatRef, nMes

hb_Default( @lWithDialog, .T. )

SET DATE ...

Até agora só tratei dia e mês, ano tá fixo em 2025.
Teria que passar o ano então.
Novos ajustes:


#include "hwgui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION OneMonth( lWithDialog, oDlg, oButton, nMes )

LOCAL nCont, xValue, dDatRef

IF oButton == Nil
oButton := Array(31)
ENDIF
IF nMes ...

... aButtons[12,31]

Ao passar pro mes, passo aButtons[ nMes ], vai o array por referência (default)

No checkbox, o FOR/EACH isola o contador

@ ColPos(), nRowPos CHECKBOX oButton[ xValue ] ;
CAPTION Ltrim( Str( xValue ) ) ;
SIZE 50, 30


Acaba sendo tudo numa única variável, mesmo rotinas ...

... tem dias 1 a 31, mas tem mês com 28 ou 30 dias, então tinha elemento Nil.


/*
onemonth.prg
*/

#include "hwgui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION OneMonth( lWithDialog, oDlg, oButton, nMes )

LOCAL nCont, xValue, dDatRef

IF oButton == Nil
oButton := Array(31)
ENDIF
IF ...

... END PAGE OF oTab

NEXT

IF lWithDialog
ACTIVATE DIALOG oDlg CENTER
ENDIF

RETURN Nil





#include "hwgui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION OneMonth( lWithDialog, oDlg, oButton, nMes )

LOCAL nCont, xValue, dDatRef

IF oButton == Nil
oButton := Array(31)
ENDIF
IF ...

Demofunc.prg como ponto de partida


#include "hwgui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION OneMonth( lWithDialog, oDlg )

LOCAL nCont, xValue, oButton[31], dDatRef, nMes := 6

SET DATE BRITISH

hb_Default( @lWithDialog, .T. )
dDatRef := Stod("2025" + StrZero( nMes, 2 ) + "01") - 1 ...

... oBrowse:LeftVisible, oBrowse:RowPos, oBrowse:RightVisible }, { 5, 5 } ) // linha está com o cursor
oBrowse:ColorRect( { oBrowse:RowPos, oBrowse:ColPos, oBrowse:RowPos, oBrowse:ColPos }, { 2, 2 } ) // linha/coluna está com o cursor

nPoint := oBrowse:RowPos

oBrowse:refreshall() // refaz so' a ...

... oBrowse:LeftVisible, oBrowse:RowPos, oBrowse:RightVisible }, { 5, 5 } ) // linha está com o cursor
oBrowse:ColorRect( { oBrowse:RowPos, oBrowse:ColPos, oBrowse:RowPos, oBrowse:ColPos }, { 2, 2 } ) // linha/coluna está com o cursor

oBrowse:refreshall() // refaz so' a linha do browse

IF ! Empty ...

... dependendo do ponto de vista...

mesas.png


/*
test codeblock
*/

#include "minigui.ch"

// don't initialize values here
STATIC nRowPos, nColPos

FUNCTION Main()

LOCAL aList := {}, nCont, nMesa, cName, bCode

nColPos := -1
nRowPos := -1

FOR nCont = 1 TO 35
AAdd( aList, nCont + 50 ...

Olá!
Tem uns problemas de sintaxe, ora usam.
nColPos e ColPos.
No código do hbrowse.prg tem:
::ColPos e nColpos, Col...
Deveria fazer uma unificação nisso ai.
Editable := .T. e lEditable ... pode ser isso. Tem nCurrent e Current

Melhor usar dData, nValor e lLogico para todas as variáveis, ai a ...

... o, key ) }
//oBrw4:bcolorSel := oBrw2:htbColor := 0xeeeeee
//oBrw4:tcolorSel := 0xff0000

RETURN Nil

FUNCTION BrowseClick( oBrowse )

hwg_MsgInfo( ;
hb_ValToExp( oBrowse:RowPos ) + hb_Eol() + ;
hb_ValToExp( oBrowse:ColPos ) )

RETURN Nil


Alguém já tinha percebido isso e consegue explicar ?

Resumindo: ColPos não é, Colpos se refere às colunas na tela somente. o nCol dá erro.
Mas isso ainda não importa, porque está com problema de navegação.

NA TELA, olhando a tela, parado na primeira coluna, seta pro lado pula pra coluna 4 ou 5, para o que seria a primeira coluna depois de todas que ...

... the Element in the array
LOCAL nlaeng, cGetfield, cOldget, aRow

hwg_Msginfo( ;
"RowPos: " + hb_ValToExp( oBrowse:RowPos ) + hb_Eol() + ;
"ColPos: " + hb_ValToExp( oBrowse:ColPos ) )

nlaeng := oBrowse:acolumns[ oBrowse:ColPos ]:length
* Should be an element with one dimension and one ...

O exemplo inicialmente tinha 2 colunas.
Haviam anotações no fonte de só poder usar array de uma coluna.
O que vi, parecendo um erro em ColPos, na verdade é que o browse não está mudando de coluna mesmo.

Quando olhei o DLGAUTO, vi o problema de navegação COM DBF.

Foi quando aumentei a quantidade de ...