or simply the component itself if it work... (i'm not sure in v2) 2009/3/28 Jussi Lahtinen <jussi.lahti...@gmail.com>: > Hi! > > I noticed Start and End options to make sector (also in circle), but > how to fill them with color? > > Fabien, here it is, but I think it is not very useful. > It is made only for my special case. It has fixed sizes, and it is > limited to 8 sectors. > > Notice that Part() array have to sum up 100% to make this code to work. > Vb6 code: > > Sub PieChart() > Dim Angle As Single > Dim prevAngle As Single > Dim ii As Long > > With PieChartPic > > .Cls > PieChartPic.Circle (104, 104), 104, vbBlack' Bug in vb6, can't use > just .Line(... etc. > PieChartPic.Line (104, 104)-(104, 104 + 105), vbBlack > > For ii = 0 To 7 > Angle = (Part(ii) * 0.062831853) + prevAngle > > PieChartPic.Line (104, 104)-(104 + ((Sin(Angle)) * 105), 104 + > ((Cos(Angle)) * 105)), vbBlack > > SelectObject .hdc, mBrush(ii)' Just for the colors. > Call ExtFloodFill(.hdc, (104 + Sin((Angle + prevAngle) / 2) * 100), > (104 + Cos((Angle + prevAngle) / 2) * 100), 13160660, 1) > > prevAngle = Angle > Next ii > > .Refresh > > End With > > End Sub > > > Jussi > > > > > On Fri, Mar 27, 2009 at 13:22, Fabien Bodard <gambas...@gmail.com> wrote: >> hi jussi, can you send me the vb code ? >> >> i'm working on gb.chart component... it may interest me just to >> complete my component >> >> (this component work fine only on svn version) >> >> >> thanks >> Le 27 mars 2009 11:31, Benoît Minisini <gam...@users.sourceforge.net> a >> écrit : >>>> Hi! >>>> >>>> I need pie chart in my application, and I have old vb6 code that does >>>> what I need, but it is based on floodfill. >>>> Do Gambas have any equivalent function? Or alternatively, method to >>>> draw filled sectors? >>>> I'm using Gambas3. >>>> Thanks! >>>> >>>> >>>> Jussi >>>> >>> >>> I think that Draw.Ellipse() will draw what you need by using its last two >>> optional arguments. >>> >>> Regards, >>> >>> -- >>> Benoît >>> >>> >>> ------------------------------------------------------------------------------ >>> _______________________________________________ >>> Gambas-user mailing list >>> Gambas-user@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/gambas-user >>> >> >> ------------------------------------------------------------------------------ >> _______________________________________________ >> Gambas-user mailing list >> Gambas-user@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/gambas-user >> > > ------------------------------------------------------------------------------ > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user >
------------------------------------------------------------------------------ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user