描述

 

获取刻度宽度的值.这是自定义线帽相对于用于绘制线条的钢笔对象的宽度的数量.对1.0默认值不规模的线帽.

 

C++ Syntax

 

 

FreeBASIC 语法

 

 

参数

 

该方法没有参数.

 

返回值

 

此方法返回宽度缩放因子的值.

 

引用文件

 

CGpLineCaps.inc (include CGdiPlus.inc)

 

示例

 

' ========================================================================================

' The following example creates a CustomLineCap object and sets the width scale. It then

' gets the width scale, assigns the custom cap to a Pen object, and draws a line.

' ========================================================================================

SUB Example_GetWidthScale (BYVAL hdc AS HDC)

 

  ' // Create a graphics object from the window device context

  DIM graphics AS CGpGraphics = hdc

  ' // Get the DPI scaling ratio

  DIM rxRatio AS SINGLE = graphics.GetDpiX / 96

  DIM ryRatio AS SINGLE = graphics.GetDpiY / 96

  ' // Set the scale transform

  graphics.ScaleTransform(rxRatio, ryRatio)

 

  ' // Create a Path object, and add two lines to it

  DIM pts(0 TO 2) AS GpPoint = {GDIP_POINT(-15, -15), GDIP_POINT(0, 0), GDIP_POINT(15, -15)}

'#ifdef __FB_64BIT__

'   DIM pts(0 TO 2) AS GpPoint = {(-15, -15), (0, 0), (15, -15)}

'#else

'   ' // With the 32-bit compiler, the above syntax can't be used because a mess in the

'   ' // FB headers for GdiPlus: GpPoint is defined as Point in 64 bit and as Point_ in 32 bit.

'   DIM pts(0 TO 2) AS GpPoint

'   pts(0).x = -15 : pts(0).y = -15 : pts(2).x = 15: pts(2).y = -15

'#endif

 

  DIM capPath AS CGpGraphicsPath = FillModeAlternate

  capPath.AddLines(@pts(0), 3)

 

  ' // Create a CustomLineCap object, and set its base cap to LineCapRound

  DIM custCap AS CGpCustomLineCap = CGpCustomLineCap(NULL, @capPath)

 

  ' // Set the width scale for custCap.

  custCap.SetWidthScale(3)

 

  ' // Get the width scale from custCap.

  DIM widthScale AS SINGLE = custCap.GetWidthScale

 

  ' // If the width scale is 3, assign custCap as the end cap of a Pen object and draw a line.

  IF widthScale = 3 THEN

     DIM widthScalePen AS CGpPen = CGpPen(GDIP_ARGB(255, 0, 255, 0), 1.0)

     widthScalePen.SetCustomEndCap(@custCap)

     graphics.DrawLine(@widthScalePen, 0, 0, 200, 200)

  END IF

 

END SUB

' ========================================================================================