Como criar uma Window (Janela) com uma Dialog (Janela de Dialogo) sendo que a Dialog deve deslizar com o comando Scroll, já fiz várias tentativas mas não obtive sucesso o máximo que consegui foi que as janelas ficaram estáticas. No exemplo abaixo foi criada uma janela e outra função vai até outra janela (Dialog)
Neste teste abaixo foi produzida uma janela e uma janela de diálogo com scroll, mais deu erro. Veja a função abaixo e o erro.
Grato Oziel Lopes
Exemplo, baseado do FW192. (Testscrl.prg-FW192)
Código: Selecionar todos
FUNCTION Anamnese()
Static oWnd
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Testing ScrollBars" ;
MENU BuildMenu()
SET MESSAGE OF oWnd TO ;
OemToAnsi( "FiveWin 1.5 - (C) A.Linares, F.Pulp¢n 1993" )
ACTIVATE WINDOW oWnd
return
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Add &ScrollBar" ACTION AddSbr()
ENDMENU
return oMenu
function AddSbr()
static lAdded
if lAdded == nil
lAdded = .t.
@ 2, 5 SCROLLBAR OF oWnd ;
ON UP nMsgBox( "Hey!, Go Up" ) ;
ON DOWN nMsgBox( "Going down man" )
@ 2, 15 SCROLLBAR OF oWnd ;
ON UP oWnd:Say( 2, 30, Time() ) ;
ON DOWN oWnd:Say( 4, 30, "Hello!" )
endif
return
Application
===========
Path and name: C:\GRH20\GRH.EXE (16 bits)
Size: 793,408 bytes
Max files handles permited: ( SetHandleCount() ) 50
Time from start: 0 hours 0 mins 12 secs
Error ocurred at: 15/04/05, 08:08:33
Error description: Error BASE/1003 Variable does not exist: OWND
Stack Calls
===========
Called from LOCKERRHAN(0)
Called from (b)INITHANDL$(0)
Called from ADDSBR(521)
Called from (b)BUILDMENU(505)
Called from TMENU:COMMAND(0)
Called from TWINDOW:COMMAND(0)
Called from TWINDOW:HANDLEEVEN(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from ATENDE(104)
Called from (b)MAIN(60)
Called from TBTNBMP:CLICK(0)
Called from TBTNBMP:LBUTTONUP(0)
Called from TBTNBMP:HANDLEEVEN(0)
Called from WINRUN(0)
Called from TMDIFRAME:ACTIVATE(0)
Called from MAIN(85)
