Code: Select all
Structure MYPAINTExtraInformation
age.i
name.s
weight.i
height.i
EndStructure
Procedure.i MYPAINT(x.i,y.i,topcolor.i,bottomcolor.i,pointer.i)
*extra.MYPAINTExtraInformation = pointer
If *extra\name = "Dave"
ProcedureReturn #Red
Else
ProcedureReturn #Green
EndIf
EndProcedure
DrawingMode(#PB_2DDrawing_CustomFilter)
more.MYPAINTExtraInformation
more\name = "Dave"
more\height = 185
CustomFilterCallback(@MYPAINT(),@more)
Thanks either way for v4.4 (which is brilliant!),
Seymour.