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...
