Radieren/Freilegen von Bildern mit FMX

[paul.kunig]

Langsam gerät die Sache außer Kontrolle.

Das mit der Maus war in meinem letzten Post lediglich eine Möglichkeit. Ich arbeite mit einem Timer, der in bestimmten Abständen etwas freilegen soll.

Das mit der Transparenz war eine Idee, die dieses Hin- und Herkopieren vermeiden/ersetzen sollte, so in dem Sinn Fläche erreicht

Delphi-Quellcode:

Image.Teilbereich.Opacity:=1

.

Werde nun erst einmal CopyfromBitmap ausprobieren und mich später noch einmal melden.

Danke bis hierher.

[paul.kunig]

Hallo,

habe die Methode CopyfromBitmap ausprobiert.
Scheint die Richtige zu sein.

Zum Testen habe ich ein normales Foto.jpg und ein Schwarzes.jpg verwendet.

Erstelle ich allerdings ein Bitmap zur Laufzeit und färbe die Zeichenfläche(Canvas) schwarz, funktioniert es nicht mehr.

Die Zeichenfläche bleibt schwarz.

Oder muss ich das Bitmap zur Laufzeit erzeugen, schwarz färben, abspeichern und es beim Beenden des Programmes wieder von der Festplatte löschen?

Gruß

[striderx]

Du erstellst beide Bitmaps zur Laufzeit, färbst die eine eimalig Schwarz und lädst in die andere das Foto. Also nix mit speichern.

Dann kopierst du jeweils die entsprechenden Teile aus der Foto-Bitmap in die erste Bitmap und zeigst die so gänderte Bitmap in dem Image an an.


Wenn du mal etwa Code zeigen würdest, könnte man dir vielleicht besser helfen.

[paul.kunig]

Hallo striderx,

ich konnte folgende mir unverständliche Reaktion feststellen:
Gegeben:
TImage, 3x TButton.

Folgender Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  Image1.Bitmap.Clear($FFFFFF);
  // initializes the image bitmap canvas
  Image1.Bitmap := TBitmap.Create(241, 425);

  Image1.Bitmap.Clear($FFFFFF);
  // sets the rectangle to be drawn
  MyRect := TRectF.Create(0, 0, 241, 425);
  // fills and draws the rectangle on the canvas
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Fill.Color := TAlphaColors.Black;
  Image1.Bitmap.Canvas.FillRect(MyRect, 0, 0, AllCorners, 1);
  Image1.Bitmap.Canvas.EndScene;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  Image1.Bitmap.Clear($FFFFFF);
  // initializes the image bitmap canvas
  Image1.Bitmap := TBitmap.Create(Image1.Bitmap.Width, Image1.Bitmap.Height);

  Image1.Bitmap.Clear($FFFFFF);
  // sets the rectangle to be drawn
  MyRect := TRectF.Create(0, 0, 241, 425);
  // fills and draws the rectangle on the canvas
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Fill.Color := TAlphaColors.Red;
  Image1.Bitmap.Canvas.FillRect(MyRect, 0, 0, AllCorners, 1);
  Image1.Bitmap.Canvas.EndScene;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  Image1.Bitmap.Clear($FFFFFF);
  // initializes the image bitmap canvas
  Image1.Bitmap := TBitmap.Create;

  Image1.Bitmap.Clear($FFFFFF);
  // sets the rectangle to be drawn
  MyRect := TRectF.Create(0, 0, 241, 425);
  // fills and draws the rectangle on the canvas
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Fill.Color := TAlphaColors.Green;
  Image1.Bitmap.Canvas.FillRect(MyRect, 0, 0, AllCorners, 1);
  Image1.Bitmap.Canvas.EndScene;

Folgendes Verhalten in folgender Reihenfolge ist festzustellen:
Betätigen des Button1 = schwarzes Rechteck | O.k.
Betätigen des Button2 = rotes Rechteck | O.K
Betätigen des Button3 = löschen des roten Rechtecks(richtig wäre grünes Rechteck)

Erneutes Betätigen des Button2 = keine sichtbare Reaktion
Erneutes Betätigen des Button1 = schwarzes Rechteck |O.k.

Während das schwarze Rechteck jederzeit aufgerufen werden kann, wird das rote Rechteck nur gezeichnet, wenn vorher nicht Button3 betätigt wurde.

Hat jemand eine Idee, aus welchem Grund diese Verhalten auftritt?
Konnte man früher in Delphi die Komponenten nicht Positionieren, also z.B. 30px vom Rand, nächste Komponente 30px von erster Komponente usw.?

Gruß

[striderx]

Wie gesagt, mit FMX habe ich keine großen Erfahrungen, aber da sich anscheinend sonst keiner rührt ...

erst mal aufräumen:

• Warum jeweils zwei Mal 'Image1.Bitmap.Clear($FFFFFF)' - einmal reicht.
  Und solange das Rechteck, das du zeichnest, genauso groß ist wie die Bitmap und das Rechteck nicht transparent ist, kannst du das auch ganz weglassen.

• Das Setzen der Bitmap-Größe würde ich in das OnCreate-Ereignis des Formulars legen.

Zum seltsamen Verhalten:

Du schreibst nicht, was passiert genau, wenn man Button 3 anklickt. Welche Farbe hast du denn dann? Weiß? Und was passiert, wenn du Button 3 als erstes anklickst?


Zum Positionieren von Komponenten:

klar kann man das - was ist denn genau dein Problem?

[paul.kunig]

Hallo striderx,

ich habe es extra so ausführlich aufgeführt.
Das Löschen der Bitmap kann in diesem Fall ignoriert werden. Ansonsten hast du Recht, dass es einmal reicht.
Wie gesagt, in diesem Fall uninteressant.

Die Bitmap-Größe muss angegeben werden, da sonst kein Bitmap angezeigt wird.

Das Ganze wird im Normalfall im onCreate einmalig gesetzt. Zu Anschauungszwecken und zum Verständnis hier in verschieden Routinen verteilt.

Die Farbe ist die Standardfarbe des Image. Auch wenn der Button3 zuerst betätigt wird tut sich nichts.

So wie es aussieht hat Delphi noch immer Macken.

Der Fehler liegt in dieser Zeile:

Delphi-Quellcode:

 Image1.Bitmap := TBitmap.Create;

Im Normalfall werden hier keine Parameter angegeben. Auch bei Nutzung von Strg+Leertaste wird nur Create ohne Parameter angeboten.

Tatsächlich gibt es noch constructor Create, der Parameter erwartet.
Dieses Create funktioniert aber nur bei richtiger Nutzung.

Erwartet wird hier ein Integer! Übergibt man allerdings Image.width(in Delphi 10 ist width ein Single), so funktioniert das Ganze nicht. Der Compiler zeigt allerdings keinen Fehler an.

Fazit:
Nur der Aufruf von Create führt dazu, dass das Bitmap nicht angezeigt wird.
Der Aufruf von Create mit Parametern vom falschen Typ führt ebenfalls zum Fehler wie vorher beschrieben, wird aber vom Compiler ignoriert.

Lediglich der Aufruf von Create mit Parametern vom richtigen/erwarteten Typ bringt das gewünschte Ergebnis.


Um eine Komponente zu Positionieren gibt man die Position von Links und von Oben an.
Label1.Left gibt es aber nicht.

Gruß

[striderx]

Zitat:

ich habe es extra so ausführlich aufgeführt.

Zitat:

Zu Anschauungszwecken und zum Verständnis hier in verschieden Routinen verteilt.

Wenn ich einen Fehler suche, baue ich mir die Sicht doch nicht mit unnötigem Kram zu.

Zitat:

So wie es aussieht hat Delphi noch immer Macken.

Mag ja sein, aber oft sitzt der Fehler auch vor dem PC. :)
Hast Du eigentlich mal nachgesehen, ob für Button 3 das OnClick-Ereignis noch 'verdrahtet' ist?

Zitat:

Label1.Left gibt es aber nicht.

Nö, aber Label.Position.X

[paul.kunig]

Hätte ich den deiner Meinung nach überflüssigen Kram nicht angegeben, würde darauf hingewiesen, dass etwas fehlt.
Weiterhin kann eine Fehlersuche nur stattfinden, wenn aller Kram angegeben ist, da sonst potenzielle Fehlerquellen möglicherweise ausgeschlossen werden bzw. nicht beachtet werden.

Zum Testen habe ich den Kram genau so benutzt.

Ja, das onClick-Ereignis für Button3 ist verdrahtet.

Danke für die Info auf die Eigenschaft Position.

Gruß

[Rollo62]

Zitat:

Zitat von paul.kunig (Beitrag 1437437)

Ich habe ein Image mit Bild benutzt und eine schwarze Zeichenoberfläche darüber gelegt.

Probleme kommen auf beim Freilegen der bereits besuchten Flächen, da beim Neuzeichnen natürlich die ganze Zeichenfläche neu gezeichnet wird.

Daher meine Überlegung, ob mein Ansatz überhaupt der Richtige ist.

Das ist leider bei FMX so, schau dir mal TScene an, das könnte hilfreich sein.

[striderx]

Batürlich geht das in FMX!

Anbei ein schnell zusammen-geklöppeltes Programm, das meinen geschilderten Ansatz zeigt. Wenn du jetzt noch in die zweite Bitmap zum Anfang ein Bild lädst, dann müsste das doch im Grunde das sein, was du eingangs beschrieben hast.