AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi TImage Ergebnisse nicht gut (genug)!

TImage Ergebnisse nicht gut (genug)!

Ein Thema von mandumoal · begonnen am 16. Okt 2003 · letzter Beitrag vom 16. Okt 2003
Antwort Antwort
mandumoal

Registriert seit: 20. Feb 2003
124 Beiträge
 
Delphi 5 Professional
 
#1

TImage Ergebnisse nicht gut (genug)!

  Alt 16. Okt 2003, 16:35
Hi!

Was gibt es denn für Möglichkeiten schönere Bildchen zu zaubern auf denen nicht diese "Verpixelungen" (z.B. bei Kurven) zu erkennen sind?
(siehe Anhang)

mfg mandumoal
Miniaturansicht angehängter Grafiken
gr.gif  
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: TImage Ergebnisse nicht gut (genug)!

  Alt 16. Okt 2003, 16:38
Da musst Du Dich selbst ins Zeug legen. Aber eine Suche nach Hier im Forum suchenanti-aliasing sollte Dir weiter helfen.

......
Daniel W.
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
mandumoal

Registriert seit: 20. Feb 2003
124 Beiträge
 
Delphi 5 Professional
 
#3

Re: TImage Ergebnisse nicht gut (genug)!

  Alt 16. Okt 2003, 17:08
Hi!

Ich habe mal die Antialiasing Procedure von Sanchez Antialiasing ausprobiert aber habe einige Probleme:

Erst mal habe ich mein Bild das schöner aussehen will in einem TImage.
Wie kann ich denn daraus ein Bitmap machen, welches ich dann der Procedure übergeben kann?

Ich habes es mal mit einem Bitmap probiert und bekam an dieser Stelle eine Exeption (Zugriffsverletzung):

Delphi-Quellcode:
procedure Antialiasing(Bitmap: TBitmap; Rect: TRect; Percent: Integer);
var
  pix, prevscan, nextscan, hpix: ^PixArray;
  l, p: Integer;
  R, G, B: Integer;
  R1, R2, G1, G2, B1, B2: Byte;
begin
  Bitmap.PixelFormat := pf24bit; //<<<<<<------Hier
  with Bitmap.Canvas do begin
    Brush.Style := bsclear;
    for l := Rect.Top to Rect.Bottom - 1 do begin
      pix:= Bitmap.ScanLine[l];
      if l <> Rect.Top then prevscan := Bitmap.ScanLine[l-1]
      else prevscan := nil;
      if l <> Rect.Bottom - 1 then nextscan := Bitmap.ScanLine[l+1]
      else nextscan := nil;
Was ist denn an der Stelle schiefgelaufen?

das ist erstmal genug

mfg mandumoal
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 00:45 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