1,184
社区成员
发帖
与我相关
我的任务
分享
procedure TForm3.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
var
g: TGPGraphics;
img:TGPBitmap;
n:Single;
w, h: UINT;
begin
n:=0.50;
bmp:=ImageEnMView1.GetBitmap(ImageEnMView1.SelectedImage);
g:= TGPGraphics.Create(Image1.Canvas.Handle);
img:=TGPBitmap.Create;
img.FromHBITMAP(bmp.Handle,bmp.Palette);
w := img.GetWidth;
h := img.GetHeight;
g.SetInterpolationMode(InterpolationModeHighQualityBilinear);
g.DrawImage(img, MakeRect(0, 0, 0.5*w, 0.5*h), 0, 0, w, h, UnitPixel);
img.Free;
g.Free;