摘要:
program Altwind;//程序5-5 AltWinduses Windows, Messages; function WndProc(hWindow: HWND; Msg, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+} cxClient: Integer = 0; cyClient: Integer = 0; aptF...
阅读全文
posted @ 2009-04-25 16:10
zwz_good
阅读(133)
推荐(0)
编辑
摘要:
program Bezier; uses Windows, Messages; procedure DrawBezier(hdc1: HDC; apt: array of TPoint);begin PolyBezier(hdc1, apt, 4); //贝塞尔曲线 // 绘制控制点与端点连线 MoveToEx(hdc1, apt[0].X, apt[0].Y, nil); ...
阅读全文
posted @ 2009-04-25 15:42
zwz_good
阅读(138)
推荐(0)
编辑
摘要:
program LineDemo; uses Windows, Messages; function WndProc(hWindow: HWND; msg, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+} cxClient: Integer = 0; cyClient: Integer = 0;{$J-}var ps: TPain...
阅读全文
posted @ 2009-04-25 13:13
zwz_good
阅读(133)
推荐(0)
编辑
摘要:
program Sinewave; uses Windows, Messages, Math;const NUM = 1000; function WndProc(hWindow: HWND; msg, wParam, lParam: LongInt): LRESULT; stdcall;const TWOPI = (2 * 3.1415926);{$J+} cxClient: int...
阅读全文
posted @ 2009-04-25 12:40
zwz_good
阅读(145)
推荐(0)
编辑