Ich bitte um hilfe, ich bin am verzeifeln

[Lenter123]

Hallo erst mal
ich bin fabi bin 17 jahre alt und mein problem ist:
ich sitzte gerade in der abi vorprüfung und muss eigentlich nur einen ganz einfachen kindercode schreiben, aber ich hab erlich gesagt keine ahnung von delphi.
und zwar sieht die aufgabe so aus.
Wir sollen einen baum zeichnen der auf knopfdruck dann mehrere male kopiert wird, auch in verschiedenen größen.
ich wäre euch sehr verbunden wenn ich mir helfen könntet.

mfg fabi :)

[Sir Rufo]

Herzlich Willkommen in der DP!

Laut Forenregeln lösen wir hier keine Hausaufgaben und damit verwandte Aufgaben.

Stell eine konkrete Frage und du bekommst eine konkrete Antwort.

[Lenter123]

meine frage lautet :
wie male ich einen baum in delphi.
ich brauch min 3 punkte sonnst is abi gestrichen ...
bis jetzt hab ich ein image und einen button:)

[MrSpock]

... und ebenfalls gemäß Forenregeln ist es erwünscht Groß- / Kleinschreibung zu verwenden.

[Lenter123]

kannst du dir vorstellen was für ein druck ich gerade habe .. ich hab max 5 sek um zu tippen und dann wieder auf deplhi zu switchen also ich bitte dich

[cookie22]

Zitat:

Zitat von Lenter123 (Beitrag 1156146)

meine frage lautet :
wie male ich einen baum in delphi.
ich brauch min 3 punkte sonnst is abi gestrichen ...
bis jetzt hab ich ein image und einen button:)

Poste doch mal deinen Code und wo es dann hängt. ;)

[uligerhardt]

Zitat:

Zitat von Lenter123 (Beitrag 1156143)

Wir sollen einen baum zeichnen

Was meinst du denn mit "einen Baum zeichnen"? Einen grünen Kreis mit braunem Rechteck drunter malen? Eine Graphik (JPEG, Bitmap, ...) laden? Oder ein Baum im Informatik-Sinne?

[Lenter123]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
canvas.Brush.Style:=bssolid;
canvas.Brush.Color:=cllime;
canvas.ellipse(100,200,200,100);
end;
begin
canvas.brush.Color:=clmaroon;
canvas.RoundRect(140,200,160,400,10,10);
end;
end;
end.




jetzt habe ich aber keine ahnung wie ich das multiplizieren kann... es soll ja sogar in mehreren größen dargestellt werden

[Namenloser]

Zitat:

Zitat von Lenter123 (Beitrag 1156143)

ich sitzte gerade in der abi vorprüfung und muss eigentlich nur einen ganz einfachen kindercode schreiben, aber ich hab erlich gesagt keine ahnung von delphi

Ich glaub es hakt.

Wieso ist der Thread noch offen?

[DeddyH]

Für mehrfaches Zeichnen pack das Ganze in eine Schleife, für Größenänderungen musst Du die Koordinaten proportional umrechnen.