Thema: Delphi Fadenkreuz für TImage

Einzelnen Beitrag anzeigen

NetSonic

Registriert seit: 10. Mai 2007
124 Beiträge
 
Delphi 10 Seattle Professional
 
#6

Re: Fadenkreuz für TImage

  Alt 16. Mai 2007, 17:13
Hm... wenn ich jetzt versuche die JPG-Datei in BMP zu wandeln, bekomme ich einen "abstrakten Fehler" bei TEMPBitmap := TBitmap.Create;:

Delphi-Quellcode:
var
   strLageplan: String;
   TEMPGraphic: TGraphic;
   TEMPBitmap: TBitmap;
begin

strLageplan := 'C:\lageplan.jpg';

TEMPGraphic := TGraphic.Create;
TEMPGraphic.LoadFromFile(strLageplan);
TEMPBitmap := TBitmap.Create;
TEMPBitmap.Height := TEMPGraphic.Height;
TEMPBitmap.Width := TEMPGraphic.Width;
TEMPBitmap.Canvas.Draw(0,0,TEMPGraphic);
imgLageplan.Picture.Bitmap.Assign(TEMPBitmap);
imgLageplan.AutoSize := True;
was mach ich da schon wieder falsch?
  Mit Zitat antworten Zitat