Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Mehrere Bilder in Canvas zeichnen
20. Nov 2011, 00:12
Brush bekommt nicht mit dass ein anderes Bitmap verwendet werden soll ....
so gehts ...
Delphi-Quellcode:
for x := 1 to 2 do
begin
for y := 1 to 2 do
begin
b.LoadFromFile(Pfade[x, y]);
Image1.Canvas.Brush.Bitmap := b;
Image1.Canvas.Rectangle((x - 1) * 50, (y - 1) * 50, x * 50, y * 50);
Image1.Canvas.Brush.Bitmap := nil;
end;
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|