Thema: Delphi TImage zu TBitMap casten

Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#5

AW: TImage zu TBitMap casten

  Alt 19. Jan 2013, 19:17
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;
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat