Bildbearbeitung mit Delphi

[Neutral General]

Wer diesen Thread hier liest, der bekommt doch mal wieder das Vorurteil ggü. Delphi-Programmierern bestätigt, dass diese alles ihre Komponenten erledigen lassen und ihre Programme zusammenklicken!

Das hier ist doch wirklich keine großartige Aufgabe. Dafür braucht niemand irgendwelche Super-Komponenten oder GDI+ oder sonstiges.

Das Bild per StretchBlt vom Image auf ein größeres Bitmap kopieren (auch mal hier in der DP suchen!)
Mit ner verschachtelten Schleife + Scanline alle Pixel durchgehen und nach irgendwelchen Kriterien (die ja nur der Thread-Ersteller momentan kennt) die Pixel nach und nach durch andere ersetzen.

fertig.

[Jens01]

Zitat:

Wer diesen Thread hier liest, der bekommt doch mal wieder das Vorurteil ggü. Delphi-Programmierern bestätigt, dass diese alles ihre Komponenten erledigen lassen und ihre Programme zusammenklicken!

Ich möchte keine Diskussion anfangen, aber wo sollte soetwas ein Vorurteil oder etwas Negatives sein, wenn man gute Komponenten/ Objekte nimmt und diese arbeiten läßt. Wenn Du sowas nicht machst, würdest Du kein größeres Programm hinbekommen. Du programmierst Dir das OS (Windows/Linux usw) ja auch nicht jedes mal neu.

[Neutral General]

@Jens01: Nö, aber man muss sich nicht für jeden Mist direkt ne Komponente installieren, wenn mans auch grad selbst machen kann. Ich finde Programmierer sollten nämlich zumindest noch ein bisschen programmieren können...

[Jens01]

Okay, ich selbst bin zumindest kein Informatiker...

[Progman]

Zitat von Neutral General:

@Jens01: Nö, aber man muss sich nicht für jeden Mist direkt ne Komponente installieren, wenn mans auch grad selbst machen kann. Ich finde Programmierer sollten nämlich zumindest noch ein bisschen programmieren können...

Das möcht ich zu 100% unterschreiben!

[Muellermilchtrinker]

Zitat von Progman:

Zitat von Neutral General:

@Jens01: Nö, aber man muss sich nicht für jeden Mist direkt ne Komponente installieren, wenn mans auch grad selbst machen kann. Ich finde Programmierer sollten nämlich zumindest noch ein bisschen programmieren können...

Das möcht ich zu 100% unterschreiben!

Und genau das werde ich versuchen. Das ganze mit der mitgelieferten TImage Komponente zu tun. Bei kurzem schauen mit Bildbearbeitung in Delphi (DT) hab ich gesehen, dass man Pixel einzeln ansprechen kann. Mein Problem ist nur, dass Bild zu verkleinern und nachher ein neues Bild zu erstellen, anhand der neuen Pixelfarbe. Aber ich werde mich mal schlau machen.

[zeras]

Zitat von Muellermilchtrinker:

Mein Problem ist nur, dass Bild zu verkleinern und nachher ein neues Bild zu erstellen, anhand der neuen Pixelfarbe.

Mach doch erst Stretchbit, wie oben beschrieben. Dann hast du die Größe und kannst mit den Farben machen was du willst.

[Muellermilchtrinker]

Also ich häng nun doch beim verkleinern.
Ich nutze folgenden Code:

Delphi-Quellcode:

  Image2.Canvas.StretchDraw(Rect(0,
                               0,
                               30,
                               30),
                               image1.Picture.bitmap);

Doch nun gibt es ein paar Dinge: 1. Damit funktionieren nur Bitmaps und 2. Wird das Bild oben klein angezeigt und darum ein weißen Hintergrund. Ich möchte, dass das Bild nun groß angezeigt wird, dass man die einzelnen Pixelgrenzen sieht. Vielleicht kann mir jmd. helfen

[Jens01]

Ganz habe ich nicht verstanden, wo genau Dein Problem liegt, aber es gibt eigentlich verschiedene Verfahren, wie gestretcht wird...

Also eigentlich solltest Du Dir das mal so ganz schnell selber schreiben können, so wie ich das hier verstanden habe.
Hier mal eine Unit, wie man das mit Graphics32 machen kann :

Delphi-Quellcode:

procedure GR32Stretch(Src: TBitmap32; Dst: TBitmap; proportional: Boolean = True; Quality: Integer = 3);
var
  Dst2: TBitmap32;
begin
  Dst2 := TBitmap32.Create;
  Dst2.Assign(Dst);

  GR32Stretch(Src, Dst2, proportional, Quality);

  Dst.Assign(Dst2);
  Dst2.Free;
end;

procedure SetProportional(dstBMP: TBitmap32; scrRECT: TRect);
begin
  if RectHeight(scrRECT) > RectWidth(scrRECT) then
    dstBMP.Width := Round(RectWidth(scrRECT) * dstBMP.Height / RectHeight(scrRECT))
  else
    dstBMP.Height := Round(RectHeight(scrRECT) * dstBMP.Width / RectWidth(scrRECT));
end;

procedure GR32Stretch(Src, Dst: TBitmap32; proportional: Boolean = True; Quality: Integer = 3);
// http://graphics32.org/wiki/FAQ/Resampling
var
  R3: TKernelResampler;
  R2: TLinearResampler;
  R1: TDraftResampler;
  R0: TNearestResampler;
begin
  if (Src.Width < 1) or (Src.Height < 1) or (Dst.Width < 1) or (Dst.Height < 1) then
    Exit;

  if proportional then
    SetProportional(Dst, Src.BoundsRect);

  case Quality of
    3:
      begin
        R3 := TKernelResampler.Create(Src);
        R3.Kernel := TLanczosKernel.Create;
      end;
    2:
      begin
        R2 := TLinearResampler.Create(Src);
      end;
    1:
      begin
        R1 := TDraftResampler.Create(Src);
      end;
    0:
      begin
        R0 := TNearestResampler.Create(Src);
      end;
  end;

  Dst.Draw(Dst.BoundsRect, Src.BoundsRect, Src);
end;

end.

[freeway]

quick & dirty

Delphi-Quellcode:

image1.Width := 30;
image1.Height := 30;
Image1.Canvas.StretchDraw(Rect(0,
                               0,
                               30,
                               30),
                               image2.Picture.bitmap);

image1.Width := 300;
image1.Height := 300;
image1.Stretch := true;