Bildgröße verändern

[hbr]

Hallo
Super vielen Dank!!!!

Mal sehen ob ich das jetzt richtig verstanden habe.

Also möchte ich jetzt 25 Bilder haben so muss r1,r2,r3,r4...r26 :TRect haben. Richtig?

//Zeichne Vordergrundbild in Zwischenspeicher
r1.Right:=x+100;
r1.Bottom:=y+100;
Warum + 100 ????

Mit rx.Top und rx.Left bestimme ich die Position der einzelnen Bilder im Speicher. Richtig?

Dann
25 x 'cImg.Canvas.CopyRect(r1,Ball.Picture.Bitmap.Canvas,rx);'
und einmal
Form1.Canvas.StretchDraw(r1,cImg.Picture.Bitmap);
Form1.Canvas.Refresh;
ist das so?

Gruß
hbr

[hbr]

Hallo Michl,
ach ja,

Ball.Picture.LoadFromFile('Ball.gif');
Back.Picture.LoadFromFile('Bild.jpg');

ich möchte die Bilder im Programm einbinden und nicht als Bilder im Verzeichnis.
Wie mache ich das in diesem Fall?


gruß
hbr

[Michl]

... richtig verstanden

Also möchte ich jetzt 25 Bilder haben so muss r1,r2,r3,r4...r26 :TRect haben. Richtig?

... bitte kein r1, r2, r3... sondern

r:array[0..26] of TRect, und dann in einer Schleife abarbeiten!!!

r1.Right:=x+100;
r1.Bottom:=y+100;
Warum + 100 ????

... das ist meinem Fall die "Ballgröße", also der Ball ist 100x100 Pixel groß!

[Michl]

Ball.Picture.LoadFromFile('Ball.gif');
Back.Picture.LoadFromFile('Bild.jpg');

ich nehme an, dass Du die Bilder in einem TImage auf deiner Form plaziert hast?!

Dann brauchst Du die Bilder nicht nochmal extra laden, einfach die oben genannten Zeilen entfernen, stattdessen die TImages Deiner Form nutzen!

[hbr]

Ah jetzt ja,

Nochmals Vielen Dank.

Gruß
hbr

[hbr]

Hallo Michel,

ich nehme an, dass Du die Bilder in einem TImage auf deiner Form plaziert hast?!
Dann brauchst Du die Bilder nicht nochmal extra laden, einfach die oben genannten Zeilen entfernen, stattdessen die TImages Deiner Form nutzen!

da hab ich aber noch ein Problem!
Wie mache ich das mit
Form1.Canvas.StretchDraw(r1,cImg.Picture.Bitmap);
Wenn mein TImage auf einem TPanel in einem PageControl sitzt?

Gruß
hbr


Hat sich erledigt!
Danke.