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;
我觉得是img.FromHBITMAP(bmp.Handle,bmp.Palette);这里有问题,
如果直接换成img:=TGPBitmap.Create('xxx.jpg')的话程序就能正常的显示 ;
请高手帮我看看,是那里错了
解决方案 »
- dbExpress SQLCONNECTION 连接 局域网的DB2
- 给定一组字符数组,怎么检测其真实的编码呢?
- 分数不多,但希望大侠深受援助。要代码注解(相当新手,越详细越好),毕设 急!
- DELPHI调用COM的问题
- 在Button上画个图片,为什么一按鼠标就消失了,我应该截获什么事件么?
- 短信编码问题
- 动态生成的窗口如何才能彻底从内存中释放?
- 请问在delphi里面能不能调用用vb生成的dll 文件
- delphi6.0 多线程socket,分不够再加
- 大家都是中国人,快救救我!!!!!!!!!!!
- 一道小小选择题
- 谁能帮忙参考DELPHI7的TLabeledEdit组件定义,移植到DELPHI5?
俺最后是把图形画上去,而不是直接用FromHBITMAP获取