如何将bmp文件转成.ico文件
要求背景是透明的.
要求背景是透明的.
解决方案 »
- 自己分配的窗口中有必要用DefWindowProc么?
- 请问一下如何定义array property
- idhttp的Invalid argument to date encode错误
- 用ADO插入数据库SQL SERVER 2000问题
- ▲▲▲▲发布一个解释器程序▲▲▲▲
- 菜鸟提问!
- acc,bcc各是个Tedit控件,我想用一个变量字符串name1表示a和b,那带变量name1的话怎么表示出acc和abb呢,请看内容?
- 添加记录问题
- DBLookupCombox怎样使之达到初始空值状态啊
- 当Toolbar.ShowCaptions:=true时,怎样才能调整toolbutton的大小?
- 请大家帮忙看一下错在哪?
- 报表横打???
varIconSizeX : integer;IconSizeY : integer;myBmp : TBitmap;AndMask : TBitmap;XOrMask : TBitmap;IconInfo : TIconInfo;Icon : TIcon;beginIconSizeX := GetSystemMetrics(SM_CXICON);IconSizeY := GetSystemMetrics(SM_CYICON);myBmp := TBitmap.Create;myBmp.LoadFromFile(bmp);AndMask := TBitmap.Create;AndMask.Width := IconSizeX;AndMask.Height := IconSizeY;AndMask.Canvas.Brush.Color := clBlack;AndMask.Canvas.Rectangle(0, 0, IconSizeX, IconSizeY);XOrMask := TBitmap.Create;XOrMask.Width := IconSizeX;XOrMask.Height := IconSizeY;StretchBlt(XorMask.Canvas.Handle, 0, 0, IconSizeX, IconSizeY,myBmp.Canvas.Handle, 0, 0, myBmp.Width, myBmp.Height, SRCCOPY);Icon := TIcon.Create;IconInfo.fIcon := true;IconInfo.xHotspot := 0;IconInfo.yHotspot := 0;IconInfo.hbmMask := AndMask.Handle;IconInfo.hbmColor := XOrMask.Handle;Icon.Handle := CreateIconIndirect(IconInfo);AndMask.Free;XOrMask.Free;myBmp.Free;Icon.SaveToFile(ico);Icon.Free;end;
以上资料来自超级猛料
2色的,而且特难看.