Pixekfarbe ändern?

[Lyan]

Hallo,

ich würde gerne alle Pixel eines Bilkdes die nicht schwarz sind durch dien Farbe weiß ersetzen.
Ich weiß nur leider garnicht wie ich einen Pixel durch eine Farbe ersetze, ist mein erstes Projekt mit Canvas. :D

Hier mal mein bisheriger Code:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  bmptmp : Tbitmap;
  i,j : Integer;
  col : TColor;
begin
  try
    bmptmp := TBitmap.Create;
    bmptmp.Assign(Image1.Picture.bitmap);
    for I := 0 to 299 do
    begin
      for j := 0 to 149 do
      begin
        col := bmptmp.Canvas.Pixels[i,j];
        if col <> clblack then begin
          bmptmp.Canvas.Pixels[i,j] := clwhite;
        end;
      end;
    end;
    Image1.Picture.Bitmap.Assign(bmptmp);
    bmptmp.Free;
    Image1.Picture.SaveToFile('C:\temp\test.bmp');
  except
    showmessage('Fehler');
  end;
end;

EDIT:// hat geklappt

[bernhard_LA]

hier is ein super tutorial zu diesem thema http://http://www.delphi-treff.de/tutorials/grafik-und-spiele/bitmaps/einleitung/, ich hoffe es beantwortet alle deine Fragen , falls nein .... einfach melden

[himitsu]

Warum die Farbwerte erst konertieren, wenn man sie auch direkt nutzen kann?
siehe TColor

HexToTColor('000000') = $000000 = clBlack
HexToTColor('FFFFFF') = $FFFFFF = clWhite

PS: Es war seht "praktisch", daß du keiner Fehlermeldung gegeben hast, bzw. überhaupt nicht gesagt wurde, worin dein Problem denn nun besteht.

[Lyan]

Zitat:

Zitat von himitsu (Beitrag 1183956)

Warum die Farbwerte erst konertieren, wenn man sie auch direkt nutzen kann?
siehe TColor

HexToTColor('000000') = $000000 = clBlack
HexToTColor('FFFFFF') = $FFFFFF = clWhite

PS: Es war seht "praktisch", daß du keiner Fehlermeldung gegeben hast, bzw. überhaupt nicht gesagt wurde, worin dein Problem denn nun besteht.

Danke himitsu, hab es überarbeitet.
Noch eine Frage,
wenn ich ein bestimmtes Quadrat in meinem Bitmap drehen möchte, wie würde das funktionieren? :D

z.B. ist in dem Bild ein Dreieck. Dieses Dreieck soll dun einem um seine eigene Achse um 360° gedreht werden.

Und danke bernhardt_LA, der Link ist sehr nützlich!

[himitsu]

360° drehen = 0° drehen = macht einfach garnichts :zwinker:

Bitmap drehen, Image Drehen, Bild drehen (eventuell noch 90° in die Suche aufnehmen, falls da reicht, da diese Codes wesentlich einfacher/schneller/kleiner sind)