WindowStartDrawA

Синтаксис

Function WindowStartDrawA(ByVal hWin As HWND,ByVal x As Integer=0,ByVal y As Integer=0,ByVal w As Integer=0, ByVal h As Integer=0,ByVal ColorFlag As Integer=0,ByVal Color As Integer=&hFFFFFFFF) As Any Ptr

Описание

Используется для начала рисования(инициализации) на окнах. Идет в паре с StopDrawA.
В Windows функция возвращает объект графики, который кроме встроенных в библиотеку функций, можно еще использовать для функций GDI+ , не включенных в библиотеку. В Linux возвращает контекст CAIRO , который так же можно использовать не только для встроенных функций , но и для других функций CAIRO

Параметры

hWin - хендл окна

x,y,w,h - расположение и размеры ограниченного участка в окне для рисования. По умолчанию все окно

ColorFlag - флаг, если будет 1, то произойдет заполнение нужным цветом. Цвет указывается в параметре Color

Color - Цвет заполнения рисунка. Активируется только если ColorFlag=1

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HWND hwnd
hwnd = OpenWindow("",100,100,200,200)
Do
  WindowStartDrawA(hwnd)
     For i As Integer = 0 To 1000
        SetPixA(Rnd*200,Rnd*200,&hFF000000)
     Next
  BoxDrawA(20,20,140,120,&h8fFFFF00,,&h8fFFFF00)
  StopDrawA
  Sleep(1)
Loop Until WindowEvent = eventclose

Результат

Created with the Personal Edition of HelpNDoc: Full featured EPub generator