Verständnisfrage: TImage

[SearchBot]

Zitat von Uwe Raabe:

Allerdings funktioniert das mit dem Zeichnen auf TImage.Picture.Bitmap.Canvas schon. Wichtig dabei ist aber ein vorheriges SetSize, um die Bitmap auch so groß zu machen, wie das Image.

Ja, das ist klasse. So mache ich da jetzt auch.
Derzeit bin ich aber an dem Problem daran, die Bitmap wieder zu leeren, um neue Informationen darauf darzustellen.

Im Forum fand ich den Hinweis, die Bitmap.width:=0 zu setzen; danach mache ich wieder setsize, aber das Bild von zuvor ist immernoch da
Irgendwie scheine ich nach links zu gucken und rechts zu pinseln...

Aktueller Stand:

Code:

procedure TForm2.FormShow(Sender: TObject);
var Can:TBitmap;

 function FRect(x,y,x2,y2:word):TRect;
 begin
   result.Left:=x;
   result.Right:=x2-x;
   result.Top:=y;
   result.Bottom:=y2-y;
 end;

begin
// panel1 ist ein TImage;
 with panel1 do begin
  Top:=0;
  Left:=0;
  Width:=screen.DesktopWidth;
  Height:=screen.DesktopHeight;
 end;
 Can:=panel1.Picture.Bitmap;
 
 Can.SetSize(0,0);            //Bild löschen geht so nicht
 Can.Width:=0; Can.Height:=0; //Bild löschen geht so auch nicht
 
 Can.SetSize(panel1.Width, panel1.Height);
 Can.Canvas.Brush.Color:=clBlack;
 Can.Canvas.FillRect(FRect(0,0,panel1.Width,panel1.Height));
end;

(aus einem bestimmten Grund nutze ich nicht panel1.align:=alClient !)

Und so male ich auf dem Bitmap:

Code:

procedure TForm2.FormClick(Sender: TObject);
var p:TPoint; can:TCanvas;
const size=10;

begin
  Can:=Panel1.Picture.Bitmap.Canvas;
  getCursorPos(p);
  p:=ScreentoClient(p);
  Can.Brush.Color := clRed;
  Can.Pen.Color := clBlack;
 with p do begin
  r.Left:=x-size; r.Top:=y-size;
  r.Bottom:=y+size; r.Right:=x+size;
  Can.Ellipse( r.left, r.Top,r.Right,r.Bottom);
 end;
end;

Was läuft falsch, wenn ich das dann nicht mehr aus dem BitMap weg bekomme?

[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;

[SearchBot]

Zitat von Uwe Raabe:

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

[Bummi]

hast Du #12 nicht gesehen?

image1.Picture.Bitmap := nil;

[SearchBot]

Hallo Brummi,

offen gestanden habe ich das zwar gesehen, aber spontan nicht begriffen 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)
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 von SearchBot:

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?

[Jumpy]

[OT]

Zitat von SearchBot:

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

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

[/OT]

[SearchBot]

Zitat von Jumpy:

[OT]

Zitat von SearchBot:

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

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

[/OT]

Ja klar, gerne