Verständnisfrage: TImage

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

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

Code:

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

[DeddyH]

Zitat von SearchBot:

Code:

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

Du setzt erst das Bitmap des TImage auf nil und weist dann Can eben dieses zu, Can ist somit auch nil. Anschließend greifst Du auf den Canvas von "nichts" zu. Ist das so beabsichtigt?

[Uwe Raabe]

Zitat von DeddyH:

Du setzt erst das Bitmap des TImage auf nil und weist dann Can eben dieses zu, Can ist somit auch nil. Anschließend greifst Du auf den Canvas von "nichts" zu. Ist das so beabsichtigt?

Der Getter von TPicture.Bitmap erzeugt automatisch eine neue Instanz, wenn keine da ist oder kein TBitmap ist.

[DeddyH]

Achja, stimmt, sry. Trotzdem sieht das verwirrend aus, oder?

[Bummi]

Da Du mit dem automatisch generierten Format in clWhite nicht glücklich bist....

Delphi-Quellcode:

Procedure SetEmptyBitmap(i:TImage;C:TColor);
var
  bmp:TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.PixelFormat := pf32Bit;
    bmp.Canvas.Brush.Color := C;
    bmp.Width := i.Width;
    bmp.Height := i.Height;
    i.Picture.Assign(BMP);
  finally
    bmp.Free;
  end;
end;

.....
.....
und dann Statt
 panel1.Picture.Bitmap:=nil;
>>
SetEmptyBitmap(Panel1,clBlack);

BTW: wie kommt man auf die Idee ein TImage Panel1 zu benennen