Bild schärfen ???

[SimStar001]

Hallo, ich hoffe mir kann jemand mit meinem problem helfen


und zwar habe ich ein Imae gezeichnet, welches ich dann entweder vergrößern, oder verkleinern will. ich mache dies über image1.strech := true;


allerdings ist es danach sher verschwommen bzw unscharf. kann man dieses bild irgendwie schärfen? wer hat ne idee oder nen code?!



dankö!

[toms]

Hallo,

"Interpolating Bitmap Resampler" beschreibt einige Methoden, um ein Bild zu strecken.

[SimStar001]

danke für den link, aber leider sinde die dateien nicht mehr vorhanden

[toms]

Zitat von SimStar001:

danke für den link, aber leider sinde die dateien nicht mehr vorhanden

sind z.T noch auf einzelnen Mirrors vorhanden.

z.B resample.zip (Full Source)

[SimStar001]

vielen dank, nun brauche ich nur noch das PACKAGE VCL30, das habsch net und deshalb will der net compilieren!


woher bekomme ich das package?

[gammatester]

Zitat von SimStar001:

vielen dank, nun brauche ich nur noch das PACKAGE VCL30, das habsch net und deshalb will der net compilieren!


woher bekomme ich das package?

Du brauchst das Package nicht. Schalt in den Projektoptionen "Build with runtime packages" (oder wie das in Deiner IDE heißt) aus. Oder setze in der DOF-Datei "UsePackages=0".

Gruß Gammatester

[roga]

Erstmal ein großes Hallo an Alle! Bin noch recht "neu" hier, aber ein jahrelanger und begeisterter Besucher dieses Forums. Vielleicht kann ich einiges beisteuern. Programmiere rein hobbymäßig seit Delphis-Kinderschuhen und bin eigentlich nie davon los gekommen...

Versuchs mal hiermit:

Bitmap erstellen und das Bild darauf zeichnen.

Delphi-Quellcode:

 
  SetStretchBltMode(Image.Canvas.Handle, HALFTONE);
  StretchBlt(Image.Canvas.Handle, 0, 0, NewWidth, NewHeight,
             Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, SRCCOPY);

Ist zwar nicht die beste Lösung, liefert aber gute Resultate.

Gruß roga

Zitat:

Warum immer gleich mit Kanonen auf Spatzen schießen!

[DeddyH]

Hallo roga, Willkommen in der DP ,

würdest Du bitte Quelltext immer in Delphi-Tags einschließen?
Code

[toms]

Weitere sind zu finden im efg2 Lab, Resampling Sektion.