摘要：
//声明: GetPixel( DC: HDC; {设备环境句柄} X, Y: Integer {坐标} ): COLORREF; {返回颜色值} 阅读全文
posted @ 2008-02-10 17:27
万一
阅读(3351)
评论(2)
推荐(0)
摘要：
//声明: DrawCaption( p1: HWND; {窗口句柄} p2: HDC; {设备环境句柄} const p3: TRect; {矩形} p4: UINT {选项} ): BOOL; //p4 参数可选值: DC_ACTIVE = 1; {使用活动标题栏颜色} DC_SMALLCAP = 2; {使... 阅读全文
posted @ 2008-02-10 17:10
万一
阅读(4641)
评论(0)
推荐(0)
摘要：
//声明: CreateBrushIndirect( const p1: TLogBrush {画刷结构} ): HBRUSH; {返回画刷句柄} //TLogBrush 是 tagLOGBRUSH 结构的重定义: tagLOGBRUSH = packed record lbStyle: UINT; {画刷风格} lbColor: COLORREF; ... 阅读全文
posted @ 2008-02-10 15:55
万一
阅读(2929)
评论(0)
推荐(0)
摘要：
var Bitmap: TBitmap; procedure TForm1.FormCreate(Sender: TObject); begin Bitmap := TBitmap.Create; Bitmap.LoadFromFile('c:\temp\bg.bmp'); Self.Brush.Bitmap := Bitmap; end; procedure TForm1.... 阅读全文
posted @ 2008-02-10 15:48
万一
阅读(4595)
评论(3)
推荐(0)
摘要：
//声明: CreatePatternBrush( Bitmap: HBITMAP {位图句柄} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject); var Bitmap: TBitmap; BrushHandle: HBRUSH; begin Bitmap := TBit... 阅读全文
posted @ 2008-02-10 15:37
万一
阅读(4368)
评论(2)
推荐(0)
摘要：
//声明: CreateHatchBrush( p1: Integer; {阴影样式} p2: COLORREF {颜色值} ): HBRUSH; {返回画刷句柄} //p1 参数可选值: HS_HORIZONTAL = 0; HS_VERTICAL = 1; HS_FDIAGONAL = 2; HS_BDIAGONAL = 3; HS_CROSS = ... 阅读全文
posted @ 2008-02-10 14:24
万一
阅读(3554)
评论(0)
推荐(0)
摘要：
//声明: CreateSolidBrush( p1: COLORREF {颜色值} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject); var BrushHandle: HBRUSH; begin BrushHandle := CreateSolidBrush(clYellow);... 阅读全文
posted @ 2008-02-10 14:03
万一
阅读(3909)
评论(4)
推荐(0)
摘要：
//声明: CreatePenIndirect( const LogPen: TLogPen {笔结构} ): HPEN; {返回笔句柄} //TLogPen 是 tagLOGPEN 结构的重定义: tagLOGPEN = packed record lopnStyle: UINT; {笔样式} lopnWidth: TPoint; {笔... 阅读全文
posted @ 2008-02-10 13:12
万一
阅读(2433)
评论(0)
推荐(0)
摘要：
//声明: CreatePen( Style, Width: Integer; {样式与笔宽} Color: COLORREF {颜色} ): HPEN; {返回笔句柄} //Style 参数可选值: PS_SOLID = 0; {实线} PS_DASH = 1; {段线; 要求笔宽 //举例: procedur... 阅读全文
posted @ 2008-02-10 11:26
万一
阅读(9226)
评论(0)
推荐(0)
摘要：
//声明: InflateRect( var lprc: TRect; {要修改的矩形} dx, dy: Integer {变化值} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var R: TRect; const s = '%d,%d,%d,%d'; begin R := Rect(60, ... 阅读全文
posted @ 2008-02-10 09:55
万一
阅读(6422)
评论(0)
推荐(0)
浙公网安备 33010602011771号