Beware, the below code is pretty raw:
Code: Select all
EnableExplicit
#progBar_Reverse = 1
Structure UDT_GadData
grp.l ; Grouping for bulk operations
base.l ; A base value, gadget dependent
first.l ; A first value, gadget dependent
last.l ; A last value, gadget dependent
max.l ; A max value, gadget dependent
min.l ; A min value, gadget dependent
assocA.l ; An associated gadget or object
assocB.l ; Another
state.l ; An overall state
x.l ; Overall x position
y.l ; Overall y position
wide.l ; Overall width
high.l ; An overall height
flagA.l ; A flag
flagB.l ; Another, in case of value conflict
flagC.l ; Another, in case of value conflict
value.l ; A general value
EndStructure
Procedure create_ProgressBar(gi,ii,x,y,w,h,mx,bg,bc,ec,flg=0)
Protected *p.UDT_gadData ; Gadget data
*p = AllocateMemory(SizeOf(UDT_gadData)) ; Get some memory
*p\base = bg ; Base = background colour
*p\first = bc ; First = starting colour
*p\last = ec ; Last = ending colour
*p\max = mx ; max = Highest value
*p\assocA = ii ; assoc = PB image number
*p\wide = w
*p\high = h
*p\state = 0 ; state = current progress value
*p\flagA = flg & #progBar_Reverse ; flagA = Back to front?
*p\flagB = flg & #PB_ProgressBar_Vertical ; flagA = Vertical?
*p\flagC = flg & #PB_Image_Border ; flagC = Border?
CreateImage(ii,w,h) ; Create the image
StartDrawing(ImageOutput(ii))
Box(0,0,w,h,bg)
StopDrawing()
ImageGadget(gi,x,y,w,h,ImageID(ii),*p\flagC) ; Create the gadget
SetGadgetData(gi,*p)
EndProcedure
Procedure update_ProgressBar(id,v)
Protected *p.UDT_gadData ; Gadget data
Protected rb.l, re.l ; First,Last red element
Protected gb.l, ge.l ; First,Last green
Protected bb.l, be.l ; First,Last blue
Protected pix.l ; Pixel max offset
Protected i.l ; iterator
Protected r.l, g.l, b.l ; Workhorses, red/green/blue
Protected oset.l ; Workhorse, pix offset for line
Protected vDist.l ; Distance of progress bar
Protected pos.l ; position made safe
*p = GetGadgetData(id)
If v > *p\max
pos = *p\max
ElseIf v < 0
pos = 0
Else
pos = v
EndIf
rb = Red(*p\first) : re = Red(*p\last)
gb = Green(*p\first) : ge = Green(*p\last)
bb = Blue(*p\first) : be = Blue(*p\last)
If *p\flagB
vDist = *p\high
Else
vDist = *p\wide
EndIf
pix = (vDist * pos) / *p\max
StartDrawing(ImageOutput(*p\assocA))
Box(0,0, *p\wide,*p\high, *p\base)
For i = 0 To pix
r = rb + ((re - rb) * i) / vDist
g = gb + ((ge - gb) * i) / vDist
b = bb + ((be - bb) * i) / vDist
oset = (vDist * *p\flagA) - i ; Direction to move
If oset < 0 : oset * -1 : EndIf
If *p\flagB
LineXY(0,oset, *p\wide,oset, RGB(r,g,b))
Else
LineXY(oset,0, oset,*p\high, RGB(r,g,b))
EndIf
Next
StopDrawing()
*p\state = pos
SetGadgetState(id,ImageID(*p\assocA))
EndProcedure
Procedure release_ProgressBar(id)
Protected *p.UDT_gadData ; Gadget data
*p=GetGadgetData(id)
FreeImage(*p\assocA)
FreeGadget(id)
FreeMemory(*p)
EndProcedure
; =============================================
; Dirty quick test
Define p.l ; workhorse, window colour
Define winEvent.l
Define progA.l ; Progress values
Define progB.l
Define progC.l
Define progD.l
OpenWindow(0,#PB_Ignore,0,500,50,"Test")
StartDrawing(WindowOutput(0))
p=Point(1,1)
StopDrawing()
SmartWindowRefresh(0,#True)
CreateGadgetList(WindowID(0))
create_ProgressBar(0,0, 10,10, 400,10, 255, p, $0000FF,$FFFF00, #PB_Image_Border)
create_ProgressBar(1,1, 10,30, 400,10,1000, $000000,$00FFFF,$00FF00, #PB_Image_Border|#progBar_Reverse)
create_ProgressBar(2,3, 440,10, 10,30, 100, $FFFFFF,$FF00FF,$0000FF, #PB_ProgressBar_Vertical)
create_ProgressBar(3,2, 460,10, 10,30, 500, $800000,$00FFFF,$0000FF, #PB_ProgressBar_Vertical|#progBar_Reverse)
Repeat
winEvent = WaitWindowEvent(5)
progA + 1
progB + 1
progC + 1
progD + 1
If progA > 255 : progA = 0 : EndIf
If progB > 1000 : progB = 0 : EndIf
If progC > 100 : progC = 0 : EndIf
If progD > 500 : progD = 0 : EndIf
update_ProgressBar(0,progA)
update_ProgressBar(1,progB)
update_ProgressBar(2,progC)
update_ProgressBar(3,progD)
Until winEvent = #PB_Event_CloseWindow
release_ProgressBar(0)
release_ProgressBar(1)
release_ProgressBar(2)
release_ProgressBar(3)
EndBut mainly this was for having a way to get bulk data into the gadget data area.
Edited to fix fangs crash.
