设置画笔终点线帽
#Include <GDIPlus.au3>
_GDIPlus_PenSetEndCap($hPen, $iEndCap)
$hPen | 画笔对象句柄 |
$iEndCap | 线帽类型. 可以是下列值之一: $GDIP_LINECAPFLAT - 平面线帽 $GDIP_LINECAPSQUARE - 方形线帽 $GDIP_LINECAPROUND - 圆形线帽 $GDIP_LINECAPTRIANGLE - 三角形线帽 $GDIP_LINECAPNOANCHOR - 线帽未指定锚 $GDIP_LINECAPSQUAREANCHOR - 线两端锚指定距形锚 $GDIP_LINECAPROUNDANCHOR - 线两端锚指定圆形锚 $GDIP_LINECAPDIAMONDANCHOR - 线两端锚指定菱形锚 $GDIP_LINECAPARROWANCHOR - 线两端锚指定箭头锚 $GDIP_LINECAPCUSTOM - 用户自定义 |
成功: | 返回 True |
失败: | 返回 False |
在MSDN中搜索
#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
_Main()
Func _Main()
Local $hGUI, $hGraphic, $hPen
; 创建 GUI
$hGUI = GUICreate("GDI+", 400, 300)
GUISetState()
; 创建资源
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hPen = _GDIPlus_PenCreate(0xFF000000, 8)
_GDIPlus_PenSetEndCap($hPen, $GDIP_LINECAPARROWANCHOR)
; 显示笔端盖
MsgBox(4096, "信息", "Pen end cap type: " & _GDIPlus_PenGetEndCap($hPen))
; 描绘箭头
_GDIPlus_GraphicsDrawLine($hGraphic, 10, 130, 390, 130, $hPen)
_GDIPlus_PenSetWidth($hPen, 6)
_GDIPlus_GraphicsDrawLine($hGraphic, 10, 150, 390, 150, $hPen)
_GDIPlus_PenSetWidth($hPen, 8)
_GDIPlus_GraphicsDrawLine($hGraphic, 10, 170, 390, 170, $hPen)
; 循环直到用户退出
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; 清理资源
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndFunc ;==>_Main