Как ускорить процедуру?

[Matew]

Код: Выделить всё

Private Sub draw(cvet As Long, cvetZal As Long, pt1() As POINTAPI, aa As Integer)
Dim hPen As Long
Dim hOldPen As Long
Dim retval As Long
Dim hBrush As Long
Dim hOldBrush As Long

If cvetZal <> Pic.BackColor Then ' åñëè ïîëèãîí âûäåëåí, òî îí íå çàëèâàåòñÿ
    hBrush = CreateSolidBrush(cvetZal)
    hOldBrush = SelectObject(Pic.hdc, hBrush)
End If

hPen = CreatePen(0, 2, cvet)
hOldPen = SelectObject(Pic.hdc, hPen)
retval = polygon(Pic.hdc, pt1(1), aa)
retval = DeleteObject(hPen)

If cvetZal <> Pic.BackColor Then
    retval = DeleteObject(hBrush)
End If
End Sub


1.Можно ли как-нить ускорить эту процедуру?(она у меня самая медленная)
2.Помойму я не возвращаю все на место. Надо ли здесь возвращать Pic кисти и перья?

[GSerg]

Помнится, как-то мы вышли на тот факт, что рисование пером шириной 1 существенно быстрее, чем любой другой ширины...

Ну а насчёт утечек - да, есть.

Код: Выделить всё

Private Sub draw(cvet As Long, cvetZal As Long, pt1() As POINTAPI, aa As Integer)
  Dim hOldPen As Long, hOldBrush As Long
 
  If cvetZal <> Pic.BackColor Then hOldBrush = SelectObject(Pic.hdc, CreateSolidBrush(cvetZal))
  hOldPen = SelectObject(Pic.hdc, CreatePen(0, 2, cvet))
  polygon Pic.hdc, pt1(1), aa
  DeleteObject SelectObject(Pic.hDC, hOldPen)
  If hOldBrush Then DeleteObject SelectObject(Pic.hDC, hOldBrush)
End Sub


[Matew]

В моем случае (я замерял время) все таки быстрее получается рисовать пером 2 т.к. я сначала отсекаю регион по этому же поинтапи. И если потом рисую пером 1, то границ полигона не видно. За утечки спасибо, тока я несовсем понял почему так-DeleteObject SelectObject это удаляется выбраный объект? В других примерах я такого не видел...

[GSerg]

Selectobject возвращает предыдущий, заменённый объект. Его и удаляем.