; ; ------------------------------------------------------------ ; ; PureBasic - Image example file ; ; (c) Fantaisie Software ; ; ------------------------------------------------------------ ; If OpenWindow(0, 100, 100, 500, 300, "PureBasic - Image") If CreateImage(0, 255, 255) StartDrawing(ImageOutput(0)) For k=0 To 255 FrontColor(RGB(k,0, k)) ; Радуга, от черного до розового Line(0, k, 255, 1) Next DrawingMode(#PB_2DDrawing_Transparent) FrontColor(RGB(255,255,255)) ; Вывести текст на белом ! DrawText(40, 50, "Легко созданное изображение !") StopDrawing() ; Эта функция абсолютно необходима, когда операции рисования закончены !!! Никогда это не забывай ! EndIf CopyImage(0, 1) ResizeImage(1, 100, 100) GrabImage(0, 2, 100, 60, 150, 40) Repeat Event = WaitWindowEvent() If Event = #PB_Event_Repaint StartDrawing(WindowOutput(0)) DrawImage(ImageID(0), 20, 10) DrawImage(ImageID(1), 320, 80) DrawImage(ImageID(2), 320, 200) StopDrawing() EndIf Until Event = #PB_Event_CloseWindow ; Если пользователь нажал на кнопку закрытия EndIf End ; Все открытые окна автоматически закрывает PureBasic