Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

1 канал онлайн http://www.yaom.ru/ort-pervyj-kanal/ - с тв программой.

Процедура PutImage.

  • Объявление:

    Procedure PutImage(X, Y : Integer; var BitMap; BitBlt : Word);

  • Описание:

    Помещает битовое изображение на экран.

  • Замечания:

    Точка с координатами (X, Y) - верхний левый угол прямоугольной области на экране. BitMap - нетипизированный параметр, в котором содержится высота, ширина и двоичный образ изображения, которое будет помещено на экран. BitBlt определяет, какая двоичная операция будет использована при выводе изображения на экран.

    Каждой двоичной операции соответствует константа. Например:

    PutImage (X, Y, BitMap, NormalPut) помещает на экран изображение, сохраненное в BitMap с позиции (X, Y) используя команду ассемблера MOV для каждого байта в изображении.

    PutImage (X, Y, BitMap, XORPut) помещает на экран изображение, сохраненное в BitMap с позиции (X, Y) используя команду ассемблера XOR для каждого байта в изображении. Это часто используемая методика в анимации для перемещения изображения по экрану.

    PutImage (X, Y, Растр, NotPut) инвертирует биты в BitMap и затем помещает на экран изображение, сохраненное в BitMap с позиции (X, Y) используя команду ассемблера MOV для каждого байта в изображении. Таким образом, изображение появляется в инвертированном виде по отношению к первоначальному.

  • Ограничения:

    Нужно быть в графическом режиме.

  • Пример:

    { Пример программы для процедуры PutImage }
    Uses Graph;
    Var Gd, Gm : Integer;
    P : Pointer;
    Size : Word;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    SetFillStyle(XHatchFill, Cyan);
    Bar(0, 0, GetMaxX, GetMaxY);
    Size := ImageSize(10, 20, 30, 40);
    GetMem(P, Size); { Распределяем память в куче }
    GetImage(10, 20, 30, 40, P^);
    ReadLn;
    ClearDevice;
    PutImage(100, 100, P^, NormalPut);
    ReadLn;
    CloseGraph;
    End.



Вернуться к оглавлению справочника