Hi!
Für ein Vokabelprogramm möchte ich "Blätter auf einem Stapel" (Karteikasten)
zeichnen. (Siehe Bild in der Anlage oder
hier.
Ich brauche als eine Funktion, welche mir X Blätter auf einem
Stapel zeichnet.
Vielleicht hat ja jemand lust, mir eine solche Procedure zu schreiben.
Hier mal das Grundgerüst:
Delphi-Quellcode:
procedure ZeichneStapel(Image: TImage; AnzahlBlaetter: Integer);
begin
// Zeichne Kasten unten
// Code...
// Zeichne Blätter
for i := 1 to AnzahlBlaetter do
begin
// Code...
end;
end;