Nah,sikerült a netről leszednem egy Dephi-s könyvet,így most már minden frankó!

Moderátoroktól elnézést kérek az új topic nyitásáért...

Király! Sikerült rájönnöm! Na már csak a kitöltésre kell rájönnöm,hogy mondjuk az ellipszist kék szinűre töltse ki.

Sikerült megoldanom,hogy már tudjak rajzolni de pl. ha egyszerre 2 vagy 3 rectangle-t akarok kirajzolni,akkor csak az egyiket rajzolja ki és arra alkalmazza a többihez rendelt beállításokat. Hogyan tudnám azt megcsinálni,hogy egyszerre több objektumot is kitudjak rajzolni a canvassal?

Abban szeretném a segítségeteket kérni,hogy mért van az,hogy a canvas nem rajzolja ki nekem a négyzetet?


procedure graph_init;
begin

Form1.Name:='Grafika_alap';
Form1.Color:=clblack;

end;



procedure TForm1.FormCreate(Sender: TObject);
begin

graph_init;
Canvas.Pen.Color:=clred;
Canvas.Rectangle(0,0,50,50);
end;

end.



Nagyon kérlek titeket segítsetek!

Előre is köszi!