Transparentfarbe aus Pixelposition im Bild

[Moony]

Hallo zusammen,

wie schon der Titel besagt, möchte ich meine Transparentfarbe auf das Bld abstimmen. Dafür benötige ich die Farbe des Bildes von von einer bestimmten Position. Dies habe ich folgendermaßen versucht:

Delphi-Quellcode:

TImage.Picture.Bitmap.TransparentColor := TImage.Picture.Bitmap.Canvas.Pixels[1,1];

Ich möchte also nach diesen Angaben den oberen, linken Pixel als Transparentfarbe verwenden, deshalb die Angabe von 1,1. Leider liefert mir die Pixels-Funktion den Wert -1 zurück.

Ich hoffe mir kann da jemand weiterhelfen.

Gruß, Moony

[freak4fun]

Delphi-Quellcode:

Image1.Picture.Bitmap.TransparentColor := Image1.Picture.Bitmap.Canvas.Pixels[1,1];

Viellleicht so? Also mit dem erstellten Objekt.

[Moony]

Damit mache ich das auch....Ich mache das ja nicht mit dem Objekttyp sondern mit dem erstellten Objekt.

[himitsu]

eventuell so ... vorallem tmFixed ist wichtig :)

Delphi-Quellcode:

// kann man auch im OI instellen
Image1.Transparent := True;
// wird wohl auch gleich über das Image mit umgestllt
Image1.Picture.Bitmap.Transparent := True;
// wichtig, wenn du selber die farbe bestimmen willst
Image1.Picture.Bitmap.TransparentMode := tmFixed;
// tja, halt deine Farbe ^^
Image1.Picture.Bitmap.TransparentColor := ...;

[Moony]

Das mit dem Tranparentmode hab ich auch schon probiert, wobei das eigentlich überflüssig ist, da sobald eine Farbe festgelegt wird sich der Mode automatisch auf tmFixed ändert.

Was aber für mich wichtig ist, ist die Farbe von einem Pixel im Bild zu bekommen und dann zu setzen. Das heißt, ich möchte zum Bespiel aus dem Bld das geladen ist die Farbe des Pixels in der 2. Reihe, 5. Pixel erhalten. deshalb ja die Pixels-Funktion. aber diese liefert mir den Wert -1 zurück.

[Flocke]

Links oben ist Canvas.Pixels[0,0] und nicht [1,1]. Vielleicht liegt dein Bildpunkt nicht in der Bitmap?

[DGL-luke]

Pixels ist 0-indexed! Evtl. schlägst du ja erstmal auf ein 1x1-Bild, was natürlich nicht hinhaut... ansonsten sollte es eigentlich nie Fehlercodes zurückgeben, sondern Exceptions raisen...

Zitat:

Beachten Sie, dass die Eigenschaft Pixels nicht von jedem Gerätekontext unterstützt wird. Wenn der vorliegende Gerätekontext die Eigenschaft Pixels nicht unterstützt, gibt ein Lesezugriff den Wert -1 zurück. Die Zuweisung eines Wertes bleibt ohne Wirkung.

Ist dein Canvas evtl. gar nicht an einen Kontext gebunden?

[Flocke]

Zitat:

Zitat von DGL-luke

... ansonsten sollte es eigentlich nie Fehlercodes zurückgeben, sondern Exceptions raisen...

GetPixel ruft einfach Windows.GetPixel auf, ohne jede Fehlerprüfung.

Zitat:

Zitat von DGL-luke

Ist dein Canvas evtl. gar nicht an einen Kontext gebunden?

Eine TBitmap benutzt an sich einen Memory-DC, der sollte das können.

P.S. @Moony: schöne Grüße aus Unna nach Kamen.

[Moony]

@DGL-luke: An welchen Kontext sollte es denn gebunden sein. Ich rufe diese funktion über ein Imageobject auf. Ich will doch lediglich die Farbe eines bestimmten Pixels innerhalb des geladenen Objekts.

@Flocke: Grüße zurück.

Des Weiteren habe ich festgestellt, dass genau das gleiche Bild mit den fast gleichen Pixeleigenschaften überhaupt nicht berührt wird von der Transparenz!

[mimi]

ich habe genau das gleich versucht und es hat mich tage gekostet um festzustellen das es an Tranzparentcolor liegt weil ich hatten ihn so zugewiesen wie du auch doch das klappte nicht.

Ich meine es liegt dran das die farben nicht 100%ig überein stimmen du musst irgenwie eine Tolleranz einbauen.
ich habe es so gelöst versuche mal folgenden code:

Delphi-Quellcode:

function collision(Bild1, Bild2:TBitMap; x1,y1,x2,y2:Integer):Boolean;
var
  sx,sy:Integer;
  test:Boolean;
  r1,r2,r3:TRect;
begin
  // Position vom zweiten objekt berechnen
  sx:=x2-x1; sy:=y2-y1;
  test:=False;
  r2.Left:=x2; r2.Top:=y2; r2.Right:=x2+bild2.Width; r2.Bottom:=y2+bild2.Height;
  r1.Left:=x1; r1.Top:=y1; r1.Right:=x1+bild1.Width; r1.Bottom:=y1+bild1.Height;
  if IntersectRect(r3,r1,r2) = True then begin
    if Bild1.Canvas.Pixels[sx,sy] = Bild1.Canvas.Pixels[1,1] then test:=False
    else test:=True;
  end;
  result:=Test;
end; // Collsion

das problem dabei ist jetzt nur noch das wenn du von oben kommst fehler kommen evlt. bekommst du eine lösung hin oder hast eine idee wie es gelöst werden könnte :-D

[Hawkeye219]

Hallo Moony,

Zitat:

Zitat von Microsoft Platform SDK

If the pixel is outside of the current clipping region, the return value is CLR_INVALID.

Könnte das eine Erklärung sein?

Gruß Hawkeye

[Moony]

Aber warum soll ich hier 2 Objekte übergeben? Ich hab doch nur ein Inageobjekt und will von diesem die Farbe ermiteln.

[Moony]

@Hawkeye: Ich kann dir nicht sagen ob das dieser Wert ist. Ich bekommen -1 als Rückgabewert.

[Hawkeye219]

Die Konstante ist in der Unit Windows.pas vereinbart:

Delphi-Quellcode:

CLR_INVALID = DWORD($FFFFFFFF);

Wenn man den Wert als Integer interpretiert, erhält man -1. Das GDI liefert den Wert, falls der abgefragte Pixel außerhalb des aktuellen Clippingbereichs liegt.
Versuche doch einmal, vor der Abfrage den Clippingbereich zurückzusetzen:

Delphi-Quellcode:

SelectClipRgn(Image1.Canvas.Handle, 0);
TransColor := Image1.Canvas.Pixels[1, 1];

Vielleicht erhältst du so den gewünschten Farbwert.

Gruß Hawkeye

[Moony]

Das setzen des Clippingbreichs hilft lider auhc nichts....

[DGL-luke]

Schieb das Bild mal rüber.

[Moony]

Hat sich erledigt. Ich habe das Problem gelöst. Man muß auch die Transparenzfarbe setzen NACHDEM das Bild geladen wurde und NICHT vorher!!! :oops: Habe das in dem komplexen Wirrwarr nicht gesehen...

Danke für eure Hilfe. :thumb:

Gruß, Moony

[mimi]

meins wahr für eine Collisions funktion gedacht, darum zwei objekte.....