Fadenkreuz (transparent) und Bereich markieren

[br_klaus]

Hallo,
gibt es eine Komponente/Unit, mit der man ein Fadenkreuz über eine Timage erzeugen kann, das dann mit der Maus immer mitwandert. Ebenso auch zum erzeugen von Bereichen (Rechteck, Polygon oder Freihand).
Wenn nicht, dann muß ich das selber machen.
Ich würde das Fadenkreuz auch gerne etwas transparent machen. Wie macht man das? (neue farbe) * Prozent auf Original- Farbe, mit XOR, oder wie?
Dann erst die alten Farben (das geht wohl nur pixelweise) speichern, das Kreuz bzw Reckteck/polygon zeichnen, ei Maus bewegung wierherstellen, neu zeichnen.

[MAC]

wenn du ein starres Farbenkreuz haben willst, dann nimm dafür ein extra image und zeichne dein fadenkreuz mit den paint programm (gimp oder paint.net)
dann kannst du als png speichern und transparenz ist da,
Das von die beschriebene ürde auch gehen, allerdings ist das langsam...
dann wird in onmousemove von fadenkreuz! das fadenkreuz so verschoben, dass sich die mitte unterm curser befindet...

[pluto]

Das kannst du selbst machen. Du könntest z.b. einfach ein TImage nehmen und mit MoveTo und LineTo ein Fadenkreuz zeichnen. Es gibt meine ich aber auch was fertiges. Eine Funktion:
Ich bin mir im Moment nicht sicher, aber in der extgraphics Unit könnte was drin sein.

[m.fuchs]

Das kannst du selbst machen. Du könntest z.b. einfach ein TImage nehmen und mit MoveTo und LineTo ein Fadenkreuz zeichnen. Es gibt meine ich aber auch was fertiges. Eine Funktion:
Ich bin mir im Moment nicht sicher, aber in der extgraphics Unit könnte was drin sein.

Aber sicher, neben Hakenkreuzen kann extgraphics auch ein normales Kreuz zeichnen. PaintCross ist da das Richtige.

Micha

[br_klaus]

Herzlichen Dank, werde die extgraphics-Unit ausprobieren.

Aber jetzt weiß ich noch immer nicht, wie man transparent zeichnet. Wenn ich zB ein weißes Rechteck habe, das ich transparent über ein Bild legen will, wie macht man das?

Oder ganz konkret: welche Farbe bekommt ein Pixel mit der Farbe alt, wenn ich darüber die Farbe neu transparent (Undurchsichtigkeit in Prozent) lege? Gibt es da eine Formel, die das berechnet? Ich nehme an, daß das für jeden der RGB-Anteile verschieden sein muß.

Ich denke auch, daß es für das Fadenkreuz besser ist, wenn es auf hellen Stellen (Grauwert gering) schwarz wird, an dunklen (hoher Grauwert) weiß. Deshalb müßte ich wohl pixelweise arbeiten.


Ich bräuchte also ein Funktion in dieser Art:

Function Transparenz(alt,neu:TColor; opak:integer): TColor;

Gibt es schon so etwas?

[Maik81ftl]

Herzlichen Dank, werde die extgraphics-Unit ausprobieren.

Aber jetzt weiß ich noch immer nicht, wie man transparent zeichnet. Wenn ich zB ein weißes Rechteck habe, das ich transparent über ein Bild legen will, wie macht man das?

Oder ganz konkret: welche Farbe bekommt ein Pixel mit der Farbe alt, wenn ich darüber die Farbe neu transparent (Undurchsichtigkeit in Prozent) lege? Gibt es da eine Formel, die das berechnet? Ich nehme an, daß das für jeden der RGB-Anteile verschieden sein muß.

Ich denke auch, daß es für das Fadenkreuz besser ist, wenn es auf hellen Stellen (Grauwert gering) schwarz wird, an dunklen (hoher Grauwert) weiß. Deshalb müßte ich wohl pixelweise arbeiten.


Ich bräuchte also ein Funktion in dieser Art:

Function Transparenz(alt,neu:TColor; opak:integer): TColor;

Gibt es schon so etwas?

Wie MAC schon sagte! mach die am Bessten ein Kreuz.png mit Gimp. Kostet dich im Netz für Windows null, null net nada

Da ich sehe, das du Vista verwendest kann ich dir versichern, das es ohne Probleme laufen wird. könnte denne ggf etwas Lahm sein, aber zugegeben auch schnell gelöst als Übergangsvariante. das eigendliche kannst ja denne immer noch als Verbesserung einbinden.

[MAC]

also die mische Fuktion ist gar nicht mal so komplex, ich hab sie so programmiert:

Du kannst die Funktion verwenden, aber ACHTUNG - DIE METHODE JEDES EINZELNE PIXEL BERECHNEN UND ZEICHNEN IST SEHR SEHR LANGSAM.
Im grunde ist es eine Ganz normale Mittelwertberechnung. das percent gibt da die Gewichtung an - z.B wenn man in der Schule Epo: 6 haben sollte und Arbeiten: 1. Wobei die Arbeit 80% zählt.
Endnote = Arbeit*0.8 + Epo*0.2 = 2
Das ganze einmal für Rot - grün und blau.

Code: Alles auswählen

function mischen(a:TColor;zua:TColor;percent:real):TColor;
var
  ar,ag,ab:integer;
begin
ar := trunc(red(a)*(1-percent)+red(zua)*percent);
ag := trunc(green(a)*(1-percent)+green(zua)*percent);
ab := trunc(blue(a)*(1-percent)+blue(zua)*percent);
result := RGBToColor(ar,ag,ab);
end;

[Bora4d]

Altbewährte und sehr einfache Lösung ist XOR-Pen.
Alle anderen Lösungen haben dazu geführt dass wir heutzutage auch für einfache Programme >2 GHz Mehrkern CPU und Monterslüfter PC's haben.

Google einfach nach "Delphi Fadenkreuz" da wirst du Haufenbeispiele finden.
Die Schweizer haben nicht nur Ricola erfunden auch gute Tipps-Seiten:
http://www.swissdelphicenter.ch/de/grafik.php

[br_klaus]

Herzlichen Dank!

Habe schon viele Hinweise zu Fadenkreuz gefunden. Werde sie ausprobieren.

Habe auch eine ganz simple Funktion für die Transparenz gefunden (bei OpBitmap). Aber wahrscheinlich ist XOR-Pen wohl doch das einfachste.


Da gibt es eine Prozedur (für RGBA-Farben) in zwei Fassungen:

Code: Alles auswählen

procedure BlendColorsNormOnStat(SPix, DPix: PPixel32);

bzw.

Code: Alles auswählen

procedure BlendColorsNormOnNorm(SPix, DPix: PPixel32);

erstere, wenn das "alte" Pixel kein Alpha bzw Alpha = 255 hat (wie bei mir der Fall),
die zweite, wenn beide Pixel Alphawerte haben.

Die erste lautet

Code: Alles auswählen

procedure BlendColorsNormOnStat(SPix, DPix: PPixel32);
var alp1, alp2: integer;
begin
  if SPix^.Alpha = AlphaTransparent then exit else
    if SPix^.Alpha = AlphaOpaque then
      DPix^ := SPix^ else
    begin
      alp1 := SPix^.Alpha;
      alp2 := $FF - alp1;
      DPix^.Red := (DPix^.Red * alp2 + SPix^.Red * alp1) div $FF;
      DPix^.Green := (DPix^.Green * alp2 + SPix^.Green * alp1) div $FF;
      DPix^.Blue := (DPix^.Blue * alp2 + SPix^.Blue * alp1) div $FF;
      //DPix^.Alpha:=$FF;
    end;
end;

die zweite

Code: Alles auswählen

procedure BlendColorsNormOnNorm(SPix, DPix: PPixel32);
var FA,SA,DA: byte;
begin
  if SPix^.Alpha = AlphaTransparent then exit else
    if SPix^.Alpha = AlphaOpaque then
      DPix^ := SPix^ else
    begin
      FA := SPix^.Alpha + (($FF-SPix^.Alpha)*DPix^.Alpha) div $FF;
      if (FA=0) then SA:=0 else SA:=(SPix^.Alpha*$FF) div FA;
      DA := $FF-SA;
      DPix^.Red := (DPix^.Red * DA + SPix^.Red * SA) div $FF;
      DPix^.Green := (DPix^.Green * DA + SPix^.Green * SA) div $FF;
      DPix^.Blue := (DPix^.Blue * DA + SPix^.Blue * SA) div $FF;
      DPix^.Alpha:=(FA);
  end;
end;

Auf meinen Fall angewandt hieße das also (wenn TRGB die Farbe Tcolor als record (R,G,B) bzw (B,G,R) darstellt:

Code: Alles auswählen

Function AlphaBlend(alt,neu: TRGB; alpha:byte):TRGB;
  var n:byte;
  begin 
    if alpha = 0 then result:=alt // Deckung 0%, reine Transparenz
    else if alpha = 255 then result:=neu //Deckung 100%, nur neue farbe zu sehen
    else begin
      n:=255-alpha;
      result.R := (alt.R * n + neu.R * alhpa) div 255;
      result.G := (alt.G * n + neu.G * alpha) div 255;
      result.B := (alt.B * n + neu.B * alpha) div 255;
   end;
  end;

[MAC]

das letzte ist ein superbeispiel für "Case of"

Code: Alles auswählen

Function AlphaBlend(alt,neu: TRGB; alpha:byte):TRGB;
  var n:byte;
  begin 
  case alpha of
  0:result := alt;
  255: result := neu;
  else begin
      n:=255-alpha;
      result.R := (alt.R * n + neu.R * alhpa) div 255;
      result.G := (alt.G * n + neu.G * alpha) div 255;
      result.B := (alt.B * n + neu.B * alpha) div 255;
   end;
   end;
  end;