Visum - Di 20.05.03 17:23
Titel: unterschiedliche Größen bei tImage und Canvas
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:
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 - Di 20.05.03 17:59
was ausprobieren doch alles nutzt ;)
ich habs jetzt mit ner zusätzlichen Bitmap gemacht
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 ;)