Rotating a bitmap 1

[Kocky]

Hello,

I want the following. I have a TImage component which contains a WMF (Windows Metafile) picture. I want to convert this WMF to a BMP. I tried to following code but it doesn't work.

procedure TfrmShowPreview.btnRotateClick(Sender: TObject);
var
AData: THandle;
APalette: HPALETTE;
AFormat: Word;
begin
Img.Picture.RegisterClipboardFormat(CF_BITMAP, TBitmap);
Img.Picture.RegisterClipboardFormat(CF_METAFILEPICT,
TMetafile);

Clipboard.Clear;
Img.Picture.SaveToClipboardFormat(AFormat, AData,
APalette);
Clipboard.SetAsHandle(CF_BITMAP, AData);
Img.Picture.Assign(nil);
Img.Picture.Assign(Clipboard);
end;

 

[McMerfy]

procedure TfrmShowPreview.btnRotateClick(Sender: TObject);
var
  DstBmp : TBitmap;
begin
  with Img.Picture do
  begin
    dstBmp := TBitmap.Create();
    dstBmp.Height := Metafile.Height;
    dstBmp.Width  := Metafile.Width;
    dstBmp.Canvas.StretchDraw(Rect(0, 0, Metafile.Width, Metafile.Height), Metafile);
    Assign(dstBmp);
    dstBmp.Free;
  end;
end;

Cheers

--- markus

 

[Kocky]

Thanx !!
That solved the problem.