CopyImage()

Синтаксис

Result = CopyImage(#Image1 , #Image2)

Описание

Создает идентичную копию изображения. Если изображение содержит много кадров, для копирования будет использован текущий кадр.

Параметры

#Image1	Номер, идентифицирующий Исходное изображение.
#Image2	Номер для идентификации новой Копии изображения. В качестве этого параметра можно использовать значение #PB_Any, чтобы сгенерировать этот Номер автоматически. Примечание: Если изображение с Номером #Image2 уже существует - оно автоматически перезапишется новой Копией.

Возвращаемое значение

Возвращает не нулевое значение, если изображение было успешно скопировано, или ноль, если копию создать не удалось. Если в качестве параметра #Image2 использовалось значение #PB_Any, то в случае успеха будет возвращен сгенерированный Номер.

Пример (Фран)

If OpenWindow(0, 0, 0, 622, 256, "CopyImage", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ImageGadget(0, 0, 0, 256, 256, LoadImage(0, #PB_Compiler_Home+"Examples\Sources\Data\Background.bmp"))
    ButtonGadget(1, 266, 100, 90, 30, "Copie ->")
    ImageGadget(2, 366, 0, 256, 256, 0)

    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Gadget
            Select EventGadget()
                Case 1
                    f = CopyImage(0, #PB_Any) ; Создает копию в изображении #1 из  изображения #0.
                    SetGadgetState(2, ImageID(f)) ; Просмотр
            EndSelect
        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

См. также

GrabImage(), FreeImage()

Поддерживаемые OS

Все