AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Canvas: Wie Formen kombinieren?

Canvas: Wie Formen kombinieren?

Ein Thema von BlueStarHH · begonnen am 4. Nov 2010 · letzter Beitrag vom 5. Nov 2010
Antwort Antwort
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hannover-Hainholz
797 Beiträge
 
Delphi 11 Alexandria
 
#1

Canvas: Wie Formen kombinieren?

  Alt 4. Nov 2010, 14:39
Hallo,

ich habe Bildobjekt und ein TCanvas. Ich möchte dort mit dem Canvas nun ein Rechteck aufmalen, das durch einen Kreis ausgefüllt wird. Der Bereich im Rechteck, den der Kreis abdeckt soll transparent sein. Alle anderen Bereich im Rechteck sollen mit dem Brush des Rechtecks gefüllt werden. Im Anhang die rote Fläche. Transparent heißt, der Inhalt vom Bildobjekt soll dort durchscheinen. Es muss wirklich irgendwie transparent gezeichnet werden. Sich eine Kopie vom Bildobjekt zu holen und die dann am Ende drübermalen geht nicht. Wer hat eine Idee?
Miniaturansicht angehängter Grafiken
kreis.png  

Geändert von BlueStarHH ( 4. Nov 2010 um 14:45 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Canvas: Wie Formen kombinieren?

  Alt 4. Nov 2010, 15:27
Ich bin nicht zu 100% sicher, aber ich glaube, mit Regions ist das zu machen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#3

AW: Canvas: Wie Formen kombinieren?

  Alt 4. Nov 2010, 15:41
Also die Regions sind schon der richtige Weg

Und alternativ kann man das Ganze auch erstmal auf ein temporäres Bild zeichnen und dann komplett rüberkoperen.
- Rechteck zeichnen (komplett ausgefüllt)
- Kreis zeichnen (mit mit einer farbe füllen, welche man als Transparent definiert)
- dann alles ins Zielbild einfügen und dabei die gewünschte Farbe als Transparent deklarieren, so daß diese nicht mitkopiert wird.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Canvas: Wie Formen kombinieren?

  Alt 4. Nov 2010, 17:30
unter http://www.progdigy.com/ findest Du die GDI plus API, Free und ohne Installation verwendbar, einige brauchbare Demos sind enthalten.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Canvas: Wie Formen kombinieren?

  Alt 4. Nov 2010, 18:54
Regions funktionieren auch ohne GDI+, sie sehen dann nur nicht so hübsch aus
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hannover-Hainholz
797 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Canvas: Wie Formen kombinieren?

  Alt 5. Nov 2010, 08:46
Ich habs jetzt mit einer Paintbox und 2 Regionen probiert (Kreis+Rechteck), die kombiniert werden. Leider verändert das gar nichts an der Ausgabe. D.h. der Kreisausschnitt ist nicht transparent sondern deckt mit dem Brush alles ab. Wo liegt der Fehler:

Delphi-Quellcode:
var
  r: TRect;
  RgnR, RgnK: HRgn;
begin
  r.Left := 10;
  r.top := 20;
  r.Right := 50;
  r.Bottom := 60;

  RgnR := CreateRectRgn(r.Left, r.top, r.Right, r.Bottom);
  RgnK := CreateEllipticRgn(r.Left, r.top, r.Right, r.Bottom);

  CombineRgn(RgnR, RgnR, RgnK, RGN_DIFF);
  SetWindowRgn(PaintBox.Canvas.Handle, RgnR, True);

  PaintBox.Canvas.Rectangle(0, 0, PaintBox.Width, PaintBox.Height);

  PaintBox.Canvas.brush.Color := clRed;
  PaintBox.Canvas.Rectangle(r);

  PaintBox.Canvas.brush.Color := clYellow;
  PaintBox.Canvas.Ellipse(r);
end;
  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 15: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