Yes. It can't be used in TABs.
However, we can have a work around.
See this code. I think it may be useful for you.
Code: Select all
# include "minigui.ch"
function main
define window sample at 0,0 width 1000 height 600 main
define button pressme
row 10
col 10
width 80
caption "Press Me!"
action docustomprogressbars()
end button
define tab t1 at 50,5 width 900 height 520 on change checkgraph()
define page "Page 1"
end page
define page "Page 2"
end page
end tab
end window
sample.center
sample.activate
return nil
function docustomprogressbars
if sample.t1.value == 2
custom_progress_bar("sample",100,100,300,25,{255,0,0},10,100)
custom_progress_bar("sample",150,100,300,25,{255,255,0},40,100)
custom_progress_bar("sample",200,100,300,25,{0,255,0},60,100)
custom_progress_bar("sample",250,100,300,25,{0,0,255},80,100)
custom_progress_bar("sample",300,150,25,250,{255,0,0},10,100)
custom_progress_bar("sample",300,200,25,250,{255,255,0},40,100)
custom_progress_bar("sample",300,250,25,250,{0,255,0},60,100)
custom_progress_bar("sample",300,300,25,250,{0,0,255},80,100)
endif
return nil
function checkgraph
if sample.t1.value == 2
docustomprogressbars()
else
erase window sample
endif
return nil
function custom_progress_bar(cWindowName,nRow,nCol,nWidth,nHeight,aColor,nValue,nMax)
local nStartRow, nStartCol, nFinishRow, nFinishCol := 0
// borders
DRAW RECTANGLE IN WINDOW &cWindowName AT nRow,nCol TO nRow+nHeight,nCol+nWidth PENCOLOR {255,255,255} FILLCOLOR {255,255,255}
DRAW LINE IN WINDOW &cWindowName At nRow,nCol to nRow+nHeight,nCol PENCOLOR {0,0,0} PENWIDTH 1
DRAW LINE IN WINDOW &cWindowName At nRow,nCol to nRow,nCol+nWidth PENCOLOR {0,0,0} PENWIDTH 1
// progress bar
if nWidth > nHeight // Horizontal Progress Bar
nStartRow := nRow + 1
nStartCol := nCol + 1
nFinishRow := nRow + nHeight - 1
nFinishCol := nCol + 1 + ((nWidth - 2) * nValue / nMax)
else // Vertical Progress Bar
nStartRow := nRow + nHeight - 1
nStartCol := nCol + 1
nFinishRow := nStartRow - ((nHeight - 2) * nValue / nMax)
nFinishCol := nCol + nWidth - 1
endif
DRAW RECTANGLE IN WINDOW &cWindowName AT nStartRow,nStartCol TO nFinishRow,nFinishCol PENCOLOR aColor FILLCOLOR aColor
return nil
