Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#2

AW: Mehrere Bilder in Canvas zeichnen

  Alt 19. Nov 2011, 23: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)
  Mit Zitat antworten Zitat