RT
解决方案 »
- sql语句问题
- 再问一个:填空,
- TClientSocket和TServerSocket 通过ip地址连接后,如何判断网络连接类型
- 关于DELPHI和MSSQL
- 求一与DelForEx相关的文件
- 不同表查询结果综合
- 这种情况是不是表的一对一关系,还有更好的方法吗?
- 请教?使用dbExpress组件TSQLConnection连接sql server时出错,提示为SQL Error:Error mapping failed。
- Tree控件的点击后节点自动扩张,收缩的的消息是啥??? 还有我想让Tree在mouseDown后每次把VScrollBar在最顶上,如何做
- 如何通过拨号远程上传数据进行数据库更新??紧急!!!
- Delphi中的有关类型的语句,在VC中如何表示?谢谢
- 利用ADO控件连接非本地数据库的奇怪问题?统统给分!!!
郁闷 ING
property Transparent: TTransparentMode;DescriptionWhen TransparentMode is set to tmAuto (the default), the TransparentColor property returns the color of the bottom-leftmost pixel of the bitmap image. When TransparentMode is set to tmFixed, the TransparentColor property refers to the color stored in the bitmap object.***************************************************************************Determines which color of the bitmap is to be transparent when the bitmap is drawn.property TransparentColor: TColor;DescriptionUse TransparentColor to determine how to draw the bitmap transparently. When the TransparentMode property is set to tmAuto (default), TransparentColor returns the color of the first pixel in the bitmap image data. For "bottom-up" bitmaps, the first pixel is the bottom leftmost pixel shown onscreen. For "top-down" bitmaps (less common), the first pixel is in the top left corner shown onscreen. If TransparentColor is assigned, the TransparentMode is automatically set to tmFixed so that the new transparent color can be used later. If you want TransparentColor to disregard any assignments and return the bottom leftmost pixel color again, set TransparentMode to tmAuto.
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
Width := 100;
Height := 100;
Canvas.Brush.Color := clRed;
Canvas.FillRect(Rect(0,0,100,100));
Canvas.Pen.Color := clGreen;
Canvas.MoveTo(0,0);
Canvas.LineTo(100,100); TransparentMode := tmFixed;
Transparent := True;
TransParentColor := clRed;
Form1.Canvas.Draw(0,0,BitMap); Transparent := False;
Form1.Canvas.Draw(120,0,BitMap);
end;
finally
Bitmap.Free;
end;
end;