Hi, ich hab mal wieder eine Logikfrage....
Ich komm einfach nicht auf die Lösung des Problems, also nun zu dem was ich will.
Ich möchte mit einem Bild ein Formular bedecken. Ich weiß nicht wie groß das Formular ist und ich will rechts und links am Rand immer 1 px frei haben, aber zwischen den Bildern keinen Abstand.
Ich versuche es nun mit For:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
// ...weiterer Code...
SetLength(Terrain, ( (ClientWidth - 2 - ClientWidth mod 64) div 64) * ( (ClientHeight - 2 - ClientHeight mod 48) div 48));
// Es sollen so viele Bilder erzeugt werden wie nötig, um das Formular zu bedecken UND jeweils 1 px links und rechts freizulassen
for I := 0 to Length(Terrain) - 1 do
begin
with Terrain[I] do
begin
X := 1 + 64 * (I mod 64); // ein Bild ist 64 px breit
Y := 1 + 48 * (I mod 48); // und 48 px hoch
// oben ist der Versuch, die Bilder nun so aufzuteilen, dass das Formular bedeckt ist, klappt leider nicht ( Die Bilder sind in zwei diagonalen Reihen vorhanden ... )
// Der Rest ist unwichtig für mein Problem
end;
end;
// ...und noch mehr Code...
end;
So, ich habe leider keinhe Ahnung, was ich mit X und Y anstellen muss, damit die Bilder korrekt auf das Formular aufgeteilt werden.
Kann mir da jemand helfen?
Ich danke vielmals im Vorhinein allen, die versuchen mir zu helfen.
mfG
VdG