Delphi - nákres valca

[Gumeny]

Zdravím,
som začiatočník v Delphi a chcem napísať program, ktorý vykresli nákres valca. Ibaže ako podstavu nemôzem použiť len elipsu, keďže jednú časť podstavy vidno a druhú nie (teda je zakreslená čiarkovanou čiarou). Potreboval by som teda vykresliť dve polelipsy, pričom každú iným štýlom - skrátka nákres valca.

[Gumeny]

Už je to vyriešené. Prikladám riešenie, ak by to niekto potreboval a sorry, že to je v sekcii C,C++,C#, ale nevedel som, kde inde to hodiť.

Image1 má rozmery 90x90 pixelov.

Kód: Vybrať všetko

  Image1.Canvas.Pen.Style := psSolid; //nastavíme štýl na neprerušovaný
  Image1.Canvas.Pie( 10, 65, 80, 85, 10, 75, 80, 75 ); //nakreslíme prvú časť podstavy
  Image1.Canvas.Pen.Style := psDot; //nastavíme štýl na bodkovaný...
  Image1.Canvas.Pie( 10, 65, 80, 85, 80, 75, 10, 75 ); //...a nakreslíme druhú časť podstavy
  //cez stred podstavy prechádza ešte jedna nechcená čiara, ktorú prekreslíme bielym perom
  Image1.Canvas.Pen.Style := psSolid;  //nastavíme štýl na neprerušovaný,
  Image1.Canvas.Pen.Color := clWhite; //farbu na bielu
  Image1.Canvas.Pen.Width := 2; //a hrubku na 2
  Image1.Canvas.MoveTo(9,75); //presunieme pero na správne miesto
  Image1.Canvas.LineTo(79,75); //a kreslíme bielu čiaru
  //zvyšok je už myslím pohoda
  Image1.Canvas.Pen.Color := clBlack;
  Image1.Canvas.Pen.Width := 1;
  Image1.Canvas.Pen.Style := psSolid;
  Image1.Canvas.Ellipse(10,5,80,25);
  Image1.Canvas.MoveTo(10,15);
  Image1.Canvas.LineTo(10,75);
  Image1.Canvas.MoveTo(80,15);
  Image1.Canvas.LineTo(80,75);

S pozdravom
Gumeny