yvemoreau
Messages postés308Date d'inscriptionmardi 11 juin 2002StatutMembreDernière intervention26 septembre 2008 28 févr. 2003 à 19:41
bounjour ManChesTer !
oui,c'est vrai ! javais pensé le créé dans OnCreate avec une boucle for du genre...
var
x,y,a,b,R,R1:Integer;
begin
with form1.Imageb do
begin
Canvas.Pen.Style :=psSolid ;
Canvas.Pen.Color:=$000000;
28 févr. 2003 à 19:41
oui,c'est vrai ! javais pensé le créé dans OnCreate avec une boucle for du genre...
var
x,y,a,b,R,R1:Integer;
begin
with form1.Imageb do
begin
Canvas.Pen.Style :=psSolid ;
Canvas.Pen.Color:=$000000;
Canvas.Rectangle(0,0,405,405);
Canvas.Rectangle(2,2,403,403); // contour
Canvas.Pen.Color:=$C0C0C0; // exemple pas ça du tout
y:=4;x:=401;for R:=1 to 250 do
begin Canvas.Rectangle(y,y,x,x);inc(y);dec(x);end;
mais ,bon ,j'ai refais le zip en l'incluant !
dsl !
28 févr. 2003 à 14:51
Bon coding...
ManChesTer.