comp • gb.qt4 • paint • dashoffset

Paint.DashOffset (gb.qt4)

Static Property DashOffset As Float

Retorna ou define o deslocamento utilizado para traços de desenho.

O offset especifica um deslocamento para o padrão iniciado por stroke.

O valor de deslocamento é feito em unidades de largura de linha. Por exemplo, se a largura da linha é 10 pixels, então, um offset definido para 5, terá como resultado, 50 pixels de comprimento.

Exemplo

Public Sub Button1_Click()
Dim I As Integer
 While I <= 100
  DrawingArea1.Clear
  Paint.Begin(DrawingArea1)
  Paint.LineWidth = 10
  Paint.Dash = [3.0, 3.0]
  Paint.DashOffset = I
  Paint.Rectangle(10, 10, 150, 150)
  Paint.Stroke()
  Paint.End
  Inc I
  Wait 0.1
 Wend
End