两个小问题
1."文章题目"的字段名TITLE,STRING,100.问题:在DBGRID中COLUMN显示不了长字符串,滚动条没有用如何实现滚动或在COLUMN中文本能换行.
2.BMP文件如何转换成ICON?
问题点数：60、回复次数：3Top
1 楼slley（一剑下天山）回复于 2002-05-30 16:57:40 得分 5
好象DBGrid中的文本不支持换行。Top
2 楼netlib（河外孤星）回复于 2002-05-30 17:04:40 得分 5
1、建议使用TDBmemo
2、用delhpi自带image editor(菜单 tools里)
打开一个.bmp，然后别存为一个ico文件就好了。Top
3 楼forgot（忘记forgot2000）回复于 2002-05-30 17:05:00 得分 50
1.用dxdbgrid、wwwdbgrid等第三方控件。
2.procedure ConvertIconToBitmap( IcoFile,BmpFile : string );
var
Icon1 : TIcon;
Bitmap1 : TBitmap;
begin
Icon1 := TIcon.Create;
Icon1.LoadFromFile(IcoFile);
Bitmap1 := TBitmap.Create;
Bitmap1.Height := Icon1.Height;
Bitmap1.Width := Icon1.Width;
Bitmap1.Canvas.Draw(0, 0, Icon1);
Bitmap1.SaveToFile(BmpFile);
Bitmap1.Free;
Icon1.Free;
end;
--------------------------------------------------------------------
function BitmapToIcon(Bitmap: TBitmap): TIcon;
var
IconSizeX, IconSizeY : integer;
IconInfo: TIconInfo;
IconBitmap, MaskBitmap: TBitmap;
x, y: Integer;
TransparentColor: TColor;
begin
IconSizeX := GetSystemMetrics(SM_CXICON);
IconSizeY := GetSystemMetrics(SM_CYICON);
IconBitmap:= TBitmap.Create;
IconBitmap.Width:= IconSizeX;
IconBitmap.Height:= IconSizeY;
IconBitmap.Canvas.StretchDraw(Rect(0, 0, IconSizeX, IconSizeY), Bitmap);
IconBitmap.TransparentColor:= Bitmap.TransparentColor;
TransparentColor:= IconBitmap.TransparentColor and $FFFFFF;
MaskBitmap:= TBitmap.Create;
MaskBitmap.Assign(IconBitmap);
for y:= 0 to IconSizeY - 1 do
for x:= 0 to IconSizeX - 1 do
if IconBitmap.Canvas.Pixels[x, y] = TransparentColor then
IconBitmap.Canvas.Pixels[x, y]:= clBlack;
IconInfo.fIcon:= True;
IconInfo.hbmMask:= MaskBitmap.MaskHandle;
IconInfo.hbmColor:= IconBitmap.Handle;
Result:= TIcon.Create;
Result.Handle:= CreateIconIndirect(IconInfo);
MaskBitmap.Free;
IconBitmap.Free;
end;
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
