PC Toledo

... RESOURCE cResName TOP ;
ACTION Eval( aOption2[4] )
ELSE
Eval( aOption2[ 3 ], oTabLevel2[ nTab2Index ]:aDialogs[ nIndexLevel2 ] )
ENDIF
NEXT
aSize( oTabLevel2[ nTab2Index ]:aPrompts, nIndexLevel2 )
ENDIF
NEXT
aSize( oTabLevel1:aPrompts, nIndexLevel1 )

ACTIVATE DIALOG oDlg CENTER ;
ON ...

... browsBOX_DelItem( obrw, nPosi )

* Deletes an item in browse array
* --------------------------------------------

ADEL( obrw:aArray, nPosi )
ASize( obrw:aArray, Len( obrw:aArray ) - 1 )
obrw:lChanged := .T.

RETURN Nil

FUNCTION browsBOX_ITEMTOLI( obrows1, obrows2 )

* moves selected item to ...

... endcase


return Self

METHOD SayRow( nRow, aValues, aFormat ) CLASS TWorkSheet

DEFAULT aFormat := Array( Len( aValues ) )
if Len( aFormat ) < Len( aValues )
ASize( aFormat, Len( aValues ) )
endif
AEval( aValues, { |u,i| ::Say( nRow, i - 1, u, aFormat[ i ] ) } )

return Self


Regards, saludos.

... array element

IF ( obrw:aArray == Nil ) .OR. Empty( obrw:aArray )
* Nothing to delete
RETURN NIL
ENDIF
Adel( obrw:aArray, obrw:nCurrent )
ASize( obrw:aArray, Len( obrw:aArray ) - 1 )
obrw:lChanged := .T.
obrw:Refresh()

RETURN Nil

STATIC FUNCTION BrwArrayGetElem( oBrowse, cgetf ...

... i ] )
ENDDO

i := Ascan( ::aControls, { |o| hwg_Isptreq( o:handle,h ) } )
hwg_Sendmessage( h, WM_CLOSE, 0, 0 )
IF i != 0
ADel( ::aControls, i )
ASize( ::aControls, Len( ::aControls ) - 1 )
ENDIF


A idéia era apagar controles-filho antes de apagar o controle-pai, caso esse fosse o problema.

... STYLE", 1073759232}, {"OBJTYPE", 9}, {"CLASSNAME", "BUTTON"}, {"HWND", 10290164}, {"PWND", <pointer>}, {"APOS", {-0.1, -6}}, {"ASIZE", {-2.5, -6}}, {"APRESPARAMS", {}}, {"LHASINPUTFOCUS", .T.}, {"NID", 5002}, {"HWNDTT", 11470144}, {"CAPTION", "Altera"}, {"POINTERFOCUS", .F ...

... xControl PROMPT "" OF xParent ;
SIZE 18, 18 PIXEL RESOURCE "ICOTRASH" TOP ACTION Eval( {|| ... }

@ 210, 260 BUTTONBMP xControl PROMPT "" OF xParent ;
SIZE 18, 18 PIXEL RESOURCE "ICOEDIT" TOP ACTION Eval( {|| ... }

ASize( xTab:aPrompts, 2 )


Pois é...
Mais fácil do que ficar digitando fonte.

... STATIC FUNCTION gui_TabEnd( xDlg, xTab, nPageCount )

LOCAL xPage

// dialog/window hell - works for dialog
IF xDlg:ClassName() == "TDIALOG"
ASize( xTab:aPrompts, nPageCount )
ENDIF
(xDlg);(xTab);(nPageCount)

RETURN Nil


page


STATIC FUNCTION gui_TabPageBegin( xDlg, xParent, xControl ...

... Browse_click( xDlg, xBrowse, aList, nRow, nCol, nStack )

LOCAL nItem

DO WHILE nStack < Len( xDlg:Cargo )
Atail( xDlg:Cargo )[ 2 ]:Close()
aSize( xDlg:Cargo, Len( xDlg:Cargo ) - 1 )
ENDDO
nItem := xBrowse:nCurrent
IF Empty( aList[ nItem, 2 ] )
hwg_MsgInfo( aList[ nItem, 3 ] )
ELSE ...

... estilo tradicional DOS: pega altura/largura, reduz o tamanho da margem e o tamanho do texto, mas só mexi com altura, sem considerar alinhamento


aSize := ::CurrentSize()
nWidth := aSize[ 1 ] - 8
nHeight := aSize[ 2 ] - wvt_GetFontInfo()[ 6 ] - 8
SWITCH xCaption[ 2 ]
CASE WVG_IMAGE_ICONFILE ...

... LOCAL oElement

Cls()
AAdd( AppForms(), SELF )

RETURN Nil

METHOD FormEnd() CLASS frmGuiClass

::GUIDestroy()
wvgSetAppWindow():Refresh()
ASize( AppForms(), Len( AppForms() ) - 1 )

RETURN Nil


Se adiciono a atual, e removo a atual, o que tem a ver a anterior ?
Só se a variável segura a ...

... nTotal := nTotal, ::Paint()

ENDCLASS

METHOD Paint() Class MyClass

LOCAL n_hWnd, nWidth, nHeight
LOCAL hDC, BTstruct, nAlignText, nTypeText, aSize

BT_ClientAreaInvalidateAll( ::hWnd )
n_hWnd := ::hWnd
aSize := ::CurrentSize()
nWidth := aSize[ 1 ] // BT_ClientAreaWidth( n_hWnd )
nHeight ...

... nTotal )

ENDCLASS

METHOD SetValue( nIndex, nTotal ) Class MyClass

LOCAL n_hWnd, nWidth, nHeight
LOCAL hDC, BTstruct, nAlignText, nTypeText, aSize

BT_ClientAreaInvalidateAll( ::hWnd )
n_hWnd := ::hWnd
aSize := ::CurrentSize()
nWidth := aSize[ 1 ] // BT_ClientAreaWidth( n_hWnd )
nHeight ...

... Atail( aTelas )[ 5 ] := SaveScreen( mLini, mColi, mLini + nHeight - 1, mColi + nWidth - 1 )


E ao sair do sub-menu, tiro ele da lista

aSize( aTelas, Len( aTelas ) - 1 )


Deu certo, ao restaurar um pedaço da tela texto, apenas aquele pedaço perde o desenho
Parece até que são janelas....

... png


::SetColorFG( SetColor() )
::SetColorBG( SetColor() )

Mudou a cor da janela
wvg3.png


METHOD zeWvgIcon:SetIcon( cIcon )

LOCAL aSize

aSize := ::CurrentSize()
::hIcon := wvg_LoadImage( cIcon, 1, IMAGE_ICON, aSize[1], aSize[2], LR_SHARED )
wvg_SendMessage( ::hWnd, STM_SETIMAGE ...