Os exemplos a seguir mostram a utilização de alguns comandos e diálogos de uso geral.
$nolib
prog
public arquivo(255),bt(n)
arquivo=""
menu sample03
pad e1 prompt "&File" popup p1
bar 01 prompt "&New";
message "Edit new file ...";
do proc1
bar 02 prompt "&Open...";
message "Open file for Edit...";
do proc1
bar 03 separator
bar 04 prompt "&Showtext...";
message "Show a sample text message...";
do proc1
bar 05 prompt "&Progress Bar...";
message "Show a sample Progress bar...";
do proc1
bar 06 separator
bar 07 prompt "E&xit";
message "End of program...";
do proc1
pad e2 prompt "&Help" popup p2
bar 01 prompt "About OpusWin...";
do proc2
EndMenu
*
SetWindowText "OpusWin - SAMPLE03.F"
SetWindowIcon "world.ico"
set border on
set color to "GR+/B,B/GR+"
Activate menu sample03
PlaySound ("musica.wav")
ToolBar
style CCS_TOP TBSTYLE_ALTDRAG TBSTYLE_TOOLTIPS
bitmap "toolbar.bmp" 1
Buttons 1 TBSTYLE_BUTTON Tip "New File ..." do proc1
Buttons 2 TBSTYLE_BUTTON Tip "Open File ..." do proc1
Buttons SEPARATOR TBSTYLE_SEP
Buttons 4 TBSTYLE_BUTTON Tip "ShowText ..." do proc1
Buttons 5 TBSTYLE_BUTTON Tip "Progress Bar..." do proc1
Buttons SEPARATOR TBSTYLE_SEP
Buttons 7 TBSTYLE_BUTTON Tip "Exit ..." do proc1
Buttons SEPARATOR TBSTYLE_SEP
Buttons 9 TBSTYLE_BUTTON Tip "About OpusWin ..." do proc2
EndToolBar
proc proc1
public arquivo(255),bt(n)
if istoolbar() = .t.
opt=button()
else
opt=bar()
endif
do case
editor="notepad "
case opt=1 && new
Run editor SW_NORMAL
case opt=2 && Open
bt=2 && cancel
do open_file
if bt=1 && ok: abrir arquivo
if len(alltrim(arquivo)) > 0
cmd_run = editor + arquivo
Run cmd_run
else
Run editor
endif
elseif bt=3 && browse
arquivo=GetOpenFileName("*.f","","Fonte/*.f;*.fon/Texto/*.txt/Todos/*.*")
bt=2 && cancel
do open_file
if bt=1 && ok: abrir arquivo
cmd_run = editor + arquivo
Run cmd_run
endif
endif
case opt=4
Showtext (02,10)
texto='Isto e uma linha de texto exibida pelo comando "ShowText"'
Showtext (02,10,texto,"Arial",1,"B/G")
case opt=5
Showtext (02,10)
pbcreate progress_bar 02,12,76,2 && chars
pbmessage progress_bar "SETRANGE" 1 20
pbmessage progress_bar "SETSTEP" 1
for i=1 to 19
pbmessage progress_bar "STEPIT"
sleep 1
temp=i*100/20
texto=str(i,2)+" --> "+str(temp,2)+" completo ..."
Showtext (02,10,texto,"arial",1,"B/G")
next
pbmessage progress_bar "DESTROY"
case opt=7
Deactivate menu sample03
quit
endcase
return
proc proc2
if istoolbar() = .t.
opt=button()
else
opt=bar()
endif
if opt = 1 .or. opt=9
xtext="OpusWin - OPUS for Windows"
botao=1
Dialog 20,05,36,08
style WS_POPUP DS_MODALFRAME
ctext xtext NULL 02,02,32,01
ctext "Copyright (c) Tecnocoop Sistemas" NULL 02,03,32,01
ctext "1997, Rio de Janeiro - BRAZIL" NULL 02,04,32,01
DefPushButton "&Ok" botao 13,06,08,02 IDOK
icon "world.ico" 1 15,00,0,0
EndDialog
endif
proc open_file
public arquivo(255),bt(n)
Dialog 10,05,61,06
caption "OpusWin - OPUS for Windows"
style WS_POPUP WS_CAPTION WS_SYSMENU
help "C:\openbhlp\wopushlp.hlp"
ltext "File:" NULL 01,01,05,01 CONTEXT(1)
EditText NULL arquivo 06,01,52,01 IDOK CONTEXT(1)
DefPushButton "&Edit" bt 06,04,08,02 IDOK CONTEXT(1)
PushButton "E&xit" NULL 16,04,08,02 IDOK
PushButton "&Browse" NULL 26,04,08,02 IDOK CONTEXT(1)
EndDialog
return
O exemplo apresentado a seguir utiliza as Caixas de Diálogo de uso geral.
$nolib
prog
public arquivo(255),bt(n)
arquivo=""
menu Dialogos
pad e1 prompt "&File" popup p1
bar 01 prompt "&New";
message "Edit new file ...";
do proc1
bar 02 prompt "&Open...";
message "Open file for Edit...";
do proc1
bar 03 prompt "&Font";
message "End of program...";
do proc1
bar 04 prompt "E&xit";
message "End of program...";
do proc1
EndMenu
SetWindowText "OpusWin - Dialogos de uso geral"
SetWindowIcon "world.ico"
Activate Menu Dialogos
PlaySound ("musica.wav")
end
proc proc1
public arquivo(255),bt(n)
opt=bar()
varc=""
varn=0
do case
editor="notepad "
case opt=1 && new
Run editor SW_NORMAL
case opt=2 && Open
bt=2 && cancel
do open_file
if bt=1 && ok: abrir arquivo
if len(alltrim(arquivo)) > 0
cmd_run = editor + arquivo
Run cmd_run SW_NORMAL
else
Run editor SW_NORMAL
endif
elseif bt=3 && browse
arquivo=GetOpenFileName("*.f","","Fonte/*.f;*.fon/Texto/*.txt/Todos/*.*")
bt=2 && cancel
do open_file
if bt=1 && ok: abrir arquivo
cmd_run = editor + arquivo
Run cmd_run SW_NORMAL
endif
endif
case opt=3
ChooseFont (varc,varn)
mens='Fonte escolhida="'+varc+'"' + chr(10) + ;
'Tamanho da Fonte="'+str(varn)+'"'
ret=MessageBox(mens,"Apenas um aviso ...","O","I")
case opt=4
Deactivate menu Dialogos
quit
endcase
return
proc open_file
public arquivo(255),bt(n)
Dialog 01,01,40,06
caption "OpusWin - OPUS for Windows"
style WS_POPUP DS_MODALFRAME WS_CAPTION WS_SYSMENU
help "..\help\ctxhlp.hlp"
ltext "File:" NULL 01,01,05,01 CONTEXT(1)
EditText NULL arquivo 06,01,32,01 ES_AUTOHSCROLL IDOK CONTEXT(1)
DefPushButton "&Edit" bt 06,04,08,-12 IDOK CONTEXT(1)
PushButton "E&xit" NULL 16,04,08,-12 IDOK
PushButton "&Browse" NULL 26,04,08,-12 IDOK CONTEXT(1)
EndDialog
return