unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G
本例分別用五種辦法初始化了同樣的一個矩形, 運行效果圖:unit Unit1; interface uses Windows, Messages, Sy
本例效果圖:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Clas
本例效果圖:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cla
本例效果圖:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Clas
本例效果圖:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Clas
本例效果圖:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Clas
//聲明: DrawFrameControl( DC: HDC; {設備環境句柄} const Rect: TRect; {矩形} uTyp
//聲明: SetPixel( DC: HDC; {設備環境句柄} X, Y: Integer; {坐標} Color: COLORREF {顏色
//聲明: CreateBrushIndirect( const p1: TLogBrush {畫刷結構} ): HBRUSH; {返回畫刷句柄}
//聲明: CreatePatternBrush( Bitmap: HBITMAP {位圖句柄} ): HBRUSH; {返回畫刷句柄} //舉例
//聲明: CreateHatchBrush( p1: Integer; {陰影樣式} p2: COLORREF {顏色值} ): HBRUSH; {
//聲明: CreateSolidBrush( p1: COLORREF {顏色值} ): HBRUSH; {返回畫刷句柄} //舉例: proce
//聲明: CreatePenIndirect( const LogPen: TLogPen {筆結構} ): HPEN; {返回筆句柄}
//聲明: PolyPolyline( DC: HDC; {設備環境句柄} var Points; {點數組} var nPoints;{數組, 數組