AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Bildbearbeitungsprogramm Auswahlwerkzeug
Thema durchsuchen
Ansicht
Themen-Optionen

Bildbearbeitungsprogramm Auswahlwerkzeug

Ein Thema von schlagzu · begonnen am 19. Mai 2011 · letzter Beitrag vom 19. Mai 2011
Antwort Antwort
schlagzu

Registriert seit: 11. Okt 2010
86 Beiträge
 
Delphi XE Starter
 
#1

Bildbearbeitungsprogramm Auswahlwerkzeug

  Alt 19. Mai 2011, 15:30
Hallo,

ich programmiere gerade ein Bildbearbeitungsprogramm und scheitere gerade am Auswahlwerkzeug.
Bei einem Viereck ist das nicht schwer und auch nicht bei einem Polygon. Aber wie mache ich das bei einen Kreis und beim Zauberstab. Wie ich die Pixel, die im Raster liegen (+- X%) kriege ich. Aber wie bekomme ich die Außenlinie?

MfG schlagzu
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#2

AW: Bildbearbeitungsprogramm Auswahlwerkzeug

  Alt 19. Mai 2011, 16:37
Das scheint über Masken zu laufen. Also ein Schwarz/Weiß Bild, bei dem Schwarz = markiertes Areal. Zumindest lassen sich so auch bei mir bekannten Programmen Auswahlen speichern.

Derartige Masken lassen sich auch im RLE Format (z.B. PCX) nahezu ohne Geschwindigkeitsverluste komprimieren.

Eine deratige Form, sich Auswahlen zu merken bietet m.E. auch Vorteile bei einfachen Formen wie Kreise und Rechtecke. Ohne (komplexe) Berechnung prüfbar, ob Pixel im Auswahlbereich und GDI Funktionen kann man damit auch füttern.

Geändert von Satty67 (19. Mai 2011 um 16:42 Uhr)
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#3

AW: Bildbearbeitungsprogramm Auswahlwerkzeug

  Alt 19. Mai 2011, 16:45
Beim Kreis merkst du dir den Punkt in OnMouseDown.
Dazu die Parameter x und y in einem TPoint speichern.
FUrsprung := Point(x,y); Im Event OnMouseMove bekommt du neue Koordinaten mit denen du den Radius des Kreises berechnen kannst.
Delphi-Quellcode:
FAktPunkt := Point(x,y);
radius := CalcDistance(FUrsprung, FAktPunkt);
...
// Hilfsfunktion
function CalcDistance(p1,p2:TPoint):integer;
begin
  Result := Round(Sqrt(Sqr(p1.x-p2.x)+Sqr(p1.y-p2.y)));
end;
Zauberstab ist natürlich deutlich anspruchsvoller; ich würde das nach hinten verschieben bis du die einfacheren Dinge gelöst hast.
Andreas
  Mit Zitat antworten Zitat
Antwort Antwort


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 23:30 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