ein kleineres image gezielt in ein groesseres kopieren?

[richard_boderich]

hallo!

ich habe zwei TImage objecte ein kleines und ein großes. ich wuerde jetz gern den bildinhalt
des kleineren an eine bestimmte stelle in den bildinhalt des groesseren kopieren.
ich denke das ich da irgendwie über die bitmaps der beiden timage gehen muss. jedoch weis ich nicht
wie ich die bildinformation an eine bestimmte stelle des groesseren zielbitmaps einfuegen kann.
waere nett wen jemand einen ansatz haette. fuer das koordinatenproblem. wichtig ist noch, das das
kleinere bild transparent dargestellt werden soll. das heist sein hintergrund soll der inhalt der grossen bitmap sein. schonmal danke im vorraus an euch fuer eure zeit.

Richard

[DGL-luke]

na dann such mal nach TCanvas.Draw bzw. TCanvas.Stretchdraw.

bitblt gibts auch noch.

[Khabarakh]

Für Chroma-Key-Transparenz (was du wohl benötigst) gibt es noch TransparentBlt.

[richard_boderich]

aus der msdn zu TransparentBlt

Zitat:

If the source and destination rectangles are not the same size, the source bitmap is stretched to match the destination rectangle

es geht also nicht da er die bildinformation an die groesse des zielbimaps anpasst, was er jedoch nich tun soll.

[Khabarakh]

Was hindert dich daran, ein anderes Destination-Rechteck als die gesamte Bitmap-Größe anzugeben, sodass eben nichts gestreckt wird?

PS: In deiner Sig sind zwei Plenks.

[richard_boderich]

mhh ok khabarak,

also hab es jetzt mit canvas.draw probiert und es geht nicht. er sagt immer das die funktion nur ausgefuerht werden kann ,wenn das imageobject eine bitmap enthaelt. es zeigt aber ein icon an.
ich dachte nun das es trotzdem eine leere bitmap hat aber nix is.

also werd ich doch mal deinen vorschlag aufgreifen

btw. was meinst du eigentlich mit plenks?

Richard

[richard_boderich]

@khabarak,

hab jetzt die api funktion probiert. ist genau dasselbe. krieg zur laufzeit ne exeption
operation kann nur durchgefuehrt werden wenn das object ein bitmap enthaelt. hab das jetzt so probiert.

Delphi-Quellcode:

TransparentBlt(
  image8.canvas.handle,        // handle to destination DC
  0,   // x-coord of destination upper-left corner
  0,   // y-coord of destination upper-left corner
  20,     // width of destination rectangle
  20,    // height of destination rectangle
  image7.canvas.handle,         // handle to source DC
  0,    // x-coord of source upper-left corner
  0,    // y-coord of source upper-left corner
  20,      // width of source rectangle
  20,    // height of source rectangle
  0  // color to make transparent
);

[turboPASCAL]

Äh, nicht den Image.Canvas verwenden, sondern Image.Picture.Canvas !

kommt nun noch darauf an, Image.Picture.Bitmap wenn das Imageobject ein Bitmap enthält oder im anderem Fall z.B. bei Jpeg-Grafiken Image.Picture.Graphic

[richard_boderich]

qturbopascal ein tpicture object hat doch keine canvas oder?