Очередной вопрос про ZOOM (хочу переделать MSPaint

[SHURUP]

Здраствуйте Уважаемые!
Может кто сталкивался cо такой штукой.
Делаю примитивный граф. редактор.
Суть проблемы такова:
Если с маштабом 1:1 - все понятно (узнал в каком месте курсор, и поставил туда точку нужного цвета), то как быть с увеличением в n раз?
Координаты можно перевести по какой-то нехитрой формуле, а вот с рисованием фигур (круг, например) возникает много проблем.
И что делать с сеткой?, если рисунок - маленький, ее можно нарисовать по циклу, но если большой - тормоза!
Вопрос туда-же: Заливка цветом при маштабе.
Может вообще не стоит использовать Picture для рабочего пространства в Пиксельном редакторе?

[alibek]

Насчет Picture - почему же, используй. Тольк выключи AutoRedraw. И рисуй через API.
А какие проблемы с рисованием? Рисуешь на настоящем "дисплее", а в свой Picture ты результат только проецируешь (с нужным масштабом).

[SHURUP]

2 alibek: Спасибо, так и сделаю!Что-то я, похоже, слегка притупил.
А насчет сетки, все-же через цикл, или более гуманный методкто-то знает?

[alibek]

Да нет другого способа, линиями и через цикл. Ускорить можно, если рисовать их через API.

[tyomitch]

А насчет сетки, все-же через цикл, или более гуманный методкто-то знает?

Можно CreatePatternBrush и им всё залить. Должно быть офигенно быстро.

[alibek]

tyomitch, все может быть. Но мне кажется, что рисование линии все же побыстрее будет, чем битблиттинг.

[tyomitch]

tyomitch, все может быть. Но мне кажется, что рисование линии все же побыстрее будет, чем битблиттинг.

Да нет, не BitBlt, а FillRect... Вот пример:

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

Option Explicit

Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub Form_DblClick()
Dim hBrush As Long, hBitmap As Long, rc As RECT
hBitmap = CreateBitmap(8, 8, 1, 1, ByVal "я Ђ Ђ Ђ Ђ Ђ Ђ Ђ Ђ ")
hBrush = CreatePatternBrush(hBitmap)
DeleteObject hBitmap
SetRect rc, 0, 0, ScaleWidth / Screen.TwipsPerPixelX, ScaleHeight / Screen.TwipsPerPixelY
FillRect hDC, rc, hBrush
DeleteObject hBrush
End Sub