Vlajky v Delphi 7

arven · Napísal **arven**: 05.06.2015 22:29

Zdravím, robím "úlohu" do školy na INF a máme urobiť vlajku Poľska, Nemecka a Švajčiarska cez Delphi 7. A ja to neviem urobiť... Urobil som niečo ale takto to vôbec vyzerať teda nemá... Nejaké nápady? Alebo rovno vytvorený projekt?

Kód:

procedure TForm1.PLFlagClick(Sender: TObject);
begin
image1.Canvas.Brush.Color:=clRed;
image1.Canvas.Brush.Style:=bsSolid;
image1.Canvas.Pen.Style:=psSolid;
image1.Canvas.Pen.Color:=clBlack;
image1.Canvas.Pen.Width:=2;
image1.Canvas.Rectangle(100,400,500,200);
image1.Canvas.MoveTo(100,400);
image1.Canvas.LineTo(500,400);
image1.Canvas.LineTo(500,00);
image1.Canvas.LineTo(100,0);
image1.Canvas.LineTo(100,400)
end;

end.

EDIT: Má to byť celé cez Rectangle, na nete je málo návodov na Delphi7 a preto neviem nájsť riešenie nikde...

Miso122 · Napísal **Miso122**: 05.06.2015 22:32

Vsetko to su vlajky vytvorene pomocou obdlznikov a stvorcov. Nema tam co robit prikaz moeto a lineto

arven · Napísal autor témy **arven**: 05.06.2015 22:44

Ja viem, preto píšem že som to urobil zle a som si toho vedomí. Preto sa pýtam tu či by bol niekto ochotný a pomohol mi. Nechápem vlastne princíp príkazu Rectangle keďže učiteľ nám to "vysvetlil" za necelých 5 min. čo nám ostávalo do zvonenia...

Miso122 · Napísal **Miso122**: 05.06.2015 22:48

Prikaz rectangle vykresli stvorec alebo obdlznik podla suradnic dvoch protilahlych vrcholov.

Cele to spravis tak, ze si na papier nacrtnes vlajky, vypocitas suradnice a postupne vykreslis obdlzniky, pricom pred kazdy nastavis farbu akou ma byt vyplneny.

arven · Napísal autor témy **arven**: 05.06.2015 22:53

V rectangle potrebujem X1,Y1,X2,Y2 nie? A čo to vlastne znamená trochu som sa v tým súradniciach stratil ktorá patrí kde atď..

Miso122 · Napísal **Miso122**: 05.06.2015 23:04

X1- x-ova suradnica jedneho vrchola
Y1- y-ova sur. toho isteho vrchola

X2- x-ova sur. protilahleho vrchola
Y2- y-ova sur. protilahleho vrchola

Vlajky v Delphi 7

Podobné témy