TImage zu TBitMap casten

[turboPASCAL]

An sonsten die Graphic die ein Jpeg, Png oder anderes enthält, zu einem Bitmap "umbauen".

Delphi-Quellcode:

// ...
begin
  // ... 
  with TPicture.Create do // simple convert any graphic to bitmap
  try
    LoadFromFile({OpenPictureDialog1.}FileName);
    Image1.Picture.Bitmap.Assign(Graphic);
    Image1.Invalidate;
  finally
    Free;
  end;
end;