unit u_Turm;
//Julian Lärz
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
type
{ Tfrm_TurmvonHanoi }
Tfrm_TurmvonHanoi = class(TForm)
btn_starten: TButton;
btn_schritt: TButton;
btn_schliessen: TButton;
Shape1: TShape;
procedure btn_schliessenClick(Sender: TObject);
procedure btn_startenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
public
end;
var
frm_TurmvonHanoi: Tfrm_TurmvonHanoi;
vAnzahlscheiben:integer;
implementation
{$R *.lfm}
{ Tfrm_TurmvonHanoi }
procedure Tfrm_TurmvonHanoi.btn_startenClick(Sender: TObject);
var
i: Integer;
x, y, size: Integer;
shape: TShape;
begin //zeichnen von Türmen
vAnzahlscheiben:= strtoint(Inputbox('Eingabe der Scheiben', 'Gib die Anzahl der Scheiben von Hanoi ein!','')); // Aufruf zum eingeben der zu zeichnenden Scheiben
// Setze die Anfangskoordinaten und Größe der Vierecke
x := 50;
y := 50;
size := 30;
for i := 1 to vAnzahlscheiben do
begin
// Erstelle ein neues TShape
shape := TShape.Create(Self);
shape.Parent := frm_TurmvonHanoi;
// Setze die Eigenschaften des TShape
shape.Shape := stRectangle;
shape.Left := x;
shape.Top := y;
shape.Width := size;
shape.Height := size;
shape.Brush.Color := clLime; // Farbe nach Bedarf anpassen
// Beschrifte das Viereck mit einem Namen
shape.Name := 'Rectangle' + IntToStr(i);
shape.Caption := 'Viereck ' + IntToStr(i);
// Passe die Koordinaten für das nächste Viereck an
x := x + size + 5;
end;
end;
procedure Tfrm_TurmvonHanoi.FormCreate(Sender: TObject);
begin
end;
procedure Tfrm_TurmvonHanoi.FormPaint(Sender: TObject); // in form paint geschrieben, damit keine fehler auftreten und damit ich 2 Ebenen habe und nicht mmeine türme beeinflussen
begin
Canvas.Brush.Color := clBlue; // Farbe für die Türme
Canvas.Pen.Color := clBlack; // Farbe für die Konturen
// Erster Turm
Canvas.Rectangle(150, 50, 200, 400);
// Zweiter Turm
Canvas.Rectangle(450, 50, 500, 400);
// Dritter Turm
Canvas.Rectangle(750, 50, 800, 400);
// Erster Turm
Canvas.Brush.Color := clWhite; // Farbe für den Text
Canvas.TextOut(175, 420, 'A');
// Zweiter Turm
Canvas.TextOut(475, 420, 'B');
// Dritter Turm
Canvas.TextOut(775, 420, 'C');
end;
procedure Tfrm_TurmvonHanoi.btn_schliessenClick(Sender: TObject);
begin
close;
end;
end.
hier wäre ein neuer quellcode, der erzeugt jetzt immerhin die grafischen sachen, jetzt geht es aber noch um das sortieren und die positionen der shapes, wie könnte ich jetzt hier weiter vorgehen, die andere Variante war mir dann doch leider zu kompliziert