AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bitmap strecken

Ein Thema von Jörn · begonnen am 10. Sep 2004 · letzter Beitrag vom 11. Sep 2004
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Bitmap strecken

  Alt 11. Sep 2004, 00:50
Eindeutig die Graphics32
Alle anderen Verfahren bieten imho nur Stretching nach dem "nearest Neighbor"-Verfahren - also stupide Pixelvervielfältigung. WIrd blockig ohne Ende. Evtl. auch noch lineare Intpl., die aber wie gesagt auch nicht ganz das gelbe vom Ei ist.
Vorgehen bei der G32:
Nach installation "GR32" in die Uses-Klausel aufnehmen, und alles was ein TBitmap war zum TBitmap32 machen.
Delphi-Quellcode:
var
  bmp1, bmp2: TBitmap32;
begin
  bmp1 := TBitmap32.Create;
  bmp2 := TBitmap32.Create;

  bmp1.LoadFromFile('c:\ich bin ein Pfad\ich ein Bild.bmp');

  bmp2.Width := bmp1.Width div 2;
  bmp2.Height := bmp1.Height div 2;

  bmp1.StretchFilter := sfLanczos; // Muss also beim Source-Bitmap gewählt werden!

  bmp1.DrawTo(bmp2, bmp2.BoundsRect, bmp1.BoundsRect);
end;
Damit wäre das Bild nun in seiner Größe halbiert, und bleibt dabei schön .
Als Stretchfilter eingebaut sind:
Nearest Neighbor
lineare Intpl.
Spline-Intpl.
Mitchell
Lanczos (der imho die schönsten Ergebnisse bringt, aber auch der langsamste ist.)

Weitere Vorteile der G32:
- TBitmap32.Pixels[x,y] ist quasi so schnell wie die Scanline-Variante
- Antialiastes Zeichnen von Linien etc. (mit Koordinaten in Integer, Singe, Double, oder einem eigenen Festkommatyp)
- Pixels[x,y] gibts auch in diversen antialiasten Varianten
- Volle Ünterstützung eines 8-Bit Alphakanals
- insgesammt sehr schnell und flexibel
- brauchbar dokumentiert
- Es kommen Visuelle Kompos mit: TImage32, TBitmap32List, TPaintBox32, TRangeBar, TGaugeBar, TImgView32 (quasi ein Image mit Scrollbox - SEHR praktisch )

Ich empfehle die G32 immer sehr gerne, da sie den komplettesten Ersatz für die doch etwas langsamen Delphi-Kompos darstellt, und in der Handhabung aber kaum anders sind!

Wenn du ein Grafik-Prog schreibst, kannst du dir insgesamt damit das Leben leichter machen.

Nächtsle,
dizzy
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat
Jörn

Registriert seit: 5. Sep 2003
Ort: Helmstedt
312 Beiträge
 
#12

Re: Bitmap strecken

  Alt 11. Sep 2004, 10:58
Du hast mich überzeugt, ansehen werde ich es mir auf jeden Fall einmal. Aber ich denke, trotzdem werde ich nach obigem Prinzip einmal eine Funktion zum Stretchen schreiben, allein um ein wenig die Problematik dahinter verstehen zu können.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz