unterschiedliche Größen bei tImage und Canvas

Visum · Beiträge: 106

Hi,
ich hab ein kleines Problem mit einem Image, dass ich vergrößere und dann in die Canvas zeichne.

Das Image wird zwar vergrößert, die Canvas von dem Image verändert sich aber nicht in der Größe. D.h. folgender Code geht nicht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(x);
  image1.Width:=x*32;
  image1.Canvas.Draw(x*32,0,image2.Picture.Bitmap);
end;

Jo, Frage: Wie mach ich es, dass die Canvas gleichzeitig vergrößert wird?

p.s. ich weiß, dass ich das schonmal gelesen hab wies geht, ich finds aber nicht mehr ...

Visum · Beiträge: 106

was ausprobieren doch alles nutzt

ich habs jetzt mit ner zusätzlichen Bitmap gemacht

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var bitmap:tbitmap;
begin
  inc(x);
  bitmap:=tbitmap.Create;
  bitmap.Width:=x*32;
  bitmap.Height:=32;
  bitmap.Canvas.Draw(0,0,image1.Picture.bitmap);
  image1.Width:=x*32;
  bitmap.Canvas.Draw((x-1)*32,0,image2.Picture.Bitmap);
  image1.Picture.Assign(bitmap);
  bitmap.Free;
end;

sollte es bessere methoden geben würde ich mich über antworten freuen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme