Mehrere Bilder in Canvas zeichnen

[Johannes013]

Hi Leute, :)

ich habe ein Image, auf dass ich mehrere kleine, quadratische Bilder zeichnen möchte.
Wenn ich das so mache, ist es immer das gleiche Bild:

Code:

var x, y  : Integer;
    b     : TBitmap;
begin
  b := TBitmap.Create();

  for x := 1 to nSizeX do
  begin
    for y := 1 to nSizeY do
    begin
      b.LoadFromFile(Pfade[x, y]);
      Image1.Canvas.Brush.Bitmap := b;
      Image1.Cancas.Rectangle((x - 1) * 50, (y - 1) * 50, x * 50, y * 50);
    end;
  end;

Die Texturpfade im Array Pfade sind unterschiedlich. Woran kann das liegen?

Gruß Johannes

[Bummi]

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;

[himitsu]

Wie groß sind denn die Bilder?


Sag jetzt blos nichts min 50*50.

[Medium]

TBitmap.Draw

[Bummi]

@Medium

so oder mit Stretchdraw würde ich es auch machen, so wie es aussieht will er aber Flächen mit Mustern füllen ...

[Medium]

Ah, jetzt macht auch Himis Kommentar sinn für mich. Der Wein, der Wein :drunken:

[Johannes013]

Danke :)
die Muster sind 50x50 Pixel groß, die erst Lösung hat geklappt.
Kann ich es auch abschalten dass zwischen des Mustern Striche sind?

Code:

Canvas.Pen.Width := 0

hilft da nicht...

Danke schonmal,
Johannes

[himitsu]

Pen.Style?

Nja, aber wie schon erwähnt ... du willst ja nur ganze Bilder zeichnen und nicht etwas Anderes, mit einem Muster.
Also .Draw ist die eigentliche Lösung. :angle2:


.Draw > Bild wo draufmalen
.Rectangle > Bild auf einen Stempel draufmachen und dann mit dem Stempel eine Fläche bedrucken

Was ist wohl einfacher?

[Johannes013]

Draw natürlich :D
Danke für die Hilfe, es klappt!