Verständnisfrage: TImage

[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