Цилиндр.

[jaxik]

Здравствуйте уважаемые программисты. Помогите пожалуйста разобраться. Есть высота и радиус, которые варьируются по своим данным. Как мне это отобразить в Image?

Я сделал простой код отрисовки цилиндра, а вот с данными не получается...

a:=round(strtofloat(label1.caption)); // радиус
b:=round(strtofloat(label2.caption)); //высота.

WITH Image1.Canvas DO
BEGIN
Brush.Color:=clWhite;
Pen.Color:=clBlack;
image1.Canvas.Ellipse(60,210,100,250);
image1.Canvas.Ellipse(60,65,100,105);
MoveTo(60,80);
LineTo(60,230);
MoveTo(99,85);
LineTo(99,230);
end;

 

[Dock1100]

var a,b,x,y:integer;
begin
a:=round(strtofloat(edit1.text)); // радиус
b:=round(strtofloat(edit2.text)); //высота.
x:=0;
y:=0;
WITH Image1.Canvas DO
BEGIN
Brush.Color:=clWhite;
Pen.Color:=clBlack;
image1.Canvas.Ellipse(x,y,x+a,y+a div 2);
image1.Canvas.Ellipse(x,y+b,x+a,y+a div 2+b);
MoveTo(x,y+a div 4);
LineTo(x,y+b+a div 4);
MoveTo(x+a-1,y+a div 4);
LineTo(x+a-1,y+b+a div 4);
end;
end;