Verständnisfrage: TImage

[Uwe Raabe]

Das SetSize wie auch das Setzen von Width und Height auf 0 sind überflüssig. Das FillRect sollte eigentlich ausreichen, ein schwarzes Bitmap zu erzeugen. Pen.Color := black passt aber nicht besonders gut dazu.

Man kann ein Bitmap nicht "löschen", lediglich mit einer Farbe komplett übermalen.

[Bummi]

wenn man schon ein Image dafür missbrauchen will kann man die ganzen Automatismen die TImage bei Zugriff aus das (Pseudo)Canvas bietet nutzen...

Delphi-Quellcode:

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  image1.Picture.Bitmap := nil;
  Image1.Canvas.Ellipse(x-10,y-10,x+10,y+10);
end;

[Jumpy]

[OT]

Zitat:

Zitat von SearchBot (Beitrag 1182267)

Irgendwie scheine ich nach links zu gucken und rechts zu pinseln...

Darf ich mir den ausleihen, der ist auf zweideutige Weise echt gut :-D

[/OT]

[SearchBot]

Zitat:

Zitat von Jumpy (Beitrag 1182288)

[OT]

Zitat:

Zitat von SearchBot (Beitrag 1182267)

Irgendwie scheine ich nach links zu gucken und rechts zu pinseln...

Darf ich mir den ausleihen, der ist auf zweideutige Weise echt gut :-D

[/OT]

Ja klar, gerne :nerd: :D

[SearchBot]

Zitat:

Zitat von Uwe Raabe (Beitrag 1182268)

Man kann ein Bitmap nicht "löschen", lediglich mit einer Farbe komplett übermalen.

Achso.
Ich versuchte Dinge zu tun, die es nicht gibt :?
Ok.

Dann werde ich es immer übermalen. Manchmal ist die Lösung so einfach, daß der Verstand nicht ausreicht :)

Danke für Eure Assistenz. Ich will bestimmt bald wieder was doofes wissen :coder:

[Bummi]

hast Du #12 nicht gesehen?

Delphi-Quellcode:

image1.Picture.Bitmap := nil;

[SearchBot]

Hallo Brummi,

offen gestanden habe ich das zwar gesehen, aber spontan nicht begriffen :oops: und dann ignoriert. Aber es ist gut, daß du mich noch mal drauf anstupst.

Dabei ist mir was seltsames aufgefallen:

Code:

procedure ..FormShow..
var panel1:TImage; Can:TBitmap;
begin
 panel1.Picture.Bitmap:=nil;
 Can:=panel1.Picture.Bitmap;
 Can.Canvas.Brush.Color:=clBlack; //Hier
 Can.SetSize(panel1.Width, panel1.Height);

Wenn ich die Zeile mit "//Hier" entferne, wird die Bitmap "gelöscht", wenn ich die Form anzeigen lasse - sie ist dann weiß.
Wenn ich die Zeile aber drinlasse, so wie oben, dann wird die Bitmap beim ersten Mal schwarz gemacht, (ich male dann etwas drin rum) aber bei weiteren Aufrufen bleibt sie so und wird nicht "gelöscht" (auch nicht schwarz, meine Malereien bleiben drin)
:wiejetzt: :gruebel: Das verstehe ich jetzt dann wieder nicht.

Auch der technische Hintergrund scheint mir seltsam.

Ich vergleiche das mal mit Bauland (Speicher). Das Bauland ist in kleine Zellen aufgeteilt, in jeder Zelle ist ein Besitzerschild angebracht. Windows ist immer mit dem großen Bagger unterwegs und macht alles platt, was kein Schild hat.
Jetzt habe ich also eine Bitmap (Zelle mit Besitzerschild) und male darauf herum (ich baue ein Haus drauf). Wenn ich jetzt das Schild wegnehme (Bitmap:=nil) kommt der Windowsbagger und macht mir die Zelle platt, alles weg.

Aber zur Bitmap gehören ja noch weitere Objekte (Bitmap.Canvas... - Gasleitungen zB in meinem Gedankenmodell) - sind die da nicht untergeordnet und wenn ich oben auf NIL stelle, wird unten drunter auch alles freigegeben (zum umgraben)? Wie kann ich dann einfach wieder was zuweisen (Gas einleiten), wenn oben nichts mehr ist - müsste das dann nicht krachen (Access violation)!?

[Bummi]

Wenn Du das Bitmap auf nil setzt ist es weg ...
Sobald Du auf das Canvas von TImage zugreifst wird ein neues in der Größe des Images erstellt und alle Zugriffe auf Imagex.Canvas auf das interne FBitmap angewendet, dieses wird dann von TImage aus seinem nicht zugreifbaren Canvas dargestellt. (wie bereits erwähnt wurde ist TImage selten die beste Lösung)

Ich hatte weiter ober ein Microbeispiel angehängt.

Ohne zu wissen wo es hingehen soll ist es schwer Dir einen verständlichen Weg zu einer optimalen Lösung zu vermitteln.

Kann sein dass es Richtung Paintbox geht, gegf. mit Offscreenbitmaps, vielleicht auch nur mit Datenstrukturen um getane Aktionen für ein Neuzeichnen zu speichern ...

[Uwe Raabe]

Zitat:

Zitat von SearchBot (Beitrag 1182672)

:wiejetzt: :gruebel: Das verstehe ich jetzt dann wieder nicht.

Ich auch nicht - denn bei mir funktioniert das wie erwartet. Entweder machst du irgendetwas anders oder es hängt an der Delphi-Version.

Kannst du mal ein Minimalprojekt bereitstellen, bei dem dein Problem auftritt?

[SearchBot]

Wahrscheinlich liegt es an meinem Delphi (Embarcadero® Delphi® XE Version 15.0.3953.35171).

Der folgende Code wird bei Formshow aufgerufen und jedesmal wird das Bitmap korrekt geleert und ist wieder leer (Weiß).

Code:

 panel1.Picture.Bitmap:=nil;
 Can:=panel1.Picture.Bitmap;
 Can.SetSize(panel1.Width, panel1.Height);

Mit der Zeile ..clBlack mache ich mir das Bitmap schwarz (es ist dann auch leer). Das funktioniert aber nur beim 1.Aufruf. Male ich drin rum, schieße das Form und rufe es wieder auf (formshow) - ist/bleibt es in dem Zustand, als ich das Form geschlossen habe. Daß der Code durchgeht und nicht vielleicht vorher schon rausspringt, prüfe ich mit dem Showmessage.
Interessanterweise erscheint zuerst die Message und dann das Form...:gruebel:

Code:

 panel1.Picture.Bitmap:=nil;
 Can:=panel1.Picture.Bitmap;
 Can.Canvas.Brush.Color:=clBlack; 
 Can.SetSize(panel1.Width, panel1.Height);
 showmessage('Hallo');