Forum: Multimedia
Delphi
by DeddyH,
4. Sep 2008
Gern geschehen, aber bitte nicht einfach so hinnehmen, sondern nachvollziehen. Btw: in Deinem Code hast Du vergessen, den Metafilecanvas freizugeben, daher wurde nichts gezeichnet.
Forum: Multimedia
Delphi
by DeddyH,
3. Sep 2008
Bitmap in Metafile oder andersrum? Dein Code passt nicht zum Threadtitel, Du kannst es aber mal so versuchen (und nachschauen, was Du vergessen hast):procedure Bmp2Wmf(const BMP: TBitmap;
const Filename: TFileName;
const Enhanced: Boolean = false);
var mf: TMetafile;
mfc: TMetafileCanvas;
begin
mf := TMetafile.Create;
try
mf.Width :=...