Thank you very much for the code!! I added some new features, like user-defined number of sides for the polygon and colors. http://files.getdropbox.com/u/1118452/Screenshot.png
I want to ask something about the colors : Is it possible to fill an array with colors using a loop? For example I have this array ---> color array [1..20] of TfpgColor I want to replace this: *Color[1]:=TfpgColor($000000); //Black Color[2]:=TfpgColor($0000FF); //Blue Color[3]:=TfpgColor($FF0000); //Red Color[4]:=TfpgColor($FFFF00);//Yellow Color[5]:=TfpgColor($00FFFF);//Aqua Color[6]:=TfpgColor($008000);//Green Color[7]:=TfpgColor($808080);//Gray* . . . . With a loop Thank you 2009/6/24 Graeme Geldenhuys <grae...@opensoft.homeip.net> > kota kota wrote: > > ok here is an example, > > (look the red letters) > > > > As an alternative, I quickly converted the triangle painting into a > component, which produces an OnProgress event. I then added a > ProgressBar to the main form which indicates the progress of the > calculation before the next paint occurs. > > Here is a screenshot, showing the previous paint and it's busy > calculating the new triangles. > > http://opensoft.homeip.net/~graemeg/generate_triangles.png<http://opensoft.homeip.net/%7Egraemeg/generate_triangles.png> > > I also attached the new code for you. > > > Regards, > - Graeme - > > _______________________________________________________ > fpGUI - a cross-platform GUI toolkit using Free Pascal > http://opensoft.homeip.net/fpgui/ > > > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal >
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
