Цилиндр.

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем jaxik, 15 сен 2010.

  1. jaxik

    jaxik Гость

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

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

    Код (Delphi):
    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;
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Delphi):
    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;
     

Поделиться этой страницей