Содержание материала

Code:

function CopyBufToClip(DC: HDC; var CopyDC: HDC; var CopyBitmap: HBitmap;

          Left, Top, Width, Height: Integer;

          Rop: LongInt; DeleteObjects: Boolean): Boolean;

var

TempBitmap: HBitmap;

begin

Result := False;

if (DC <> 0) and (CopyDC <> 0) and (CopyBitmap <> 0) then

   begin

     TempBitmap := CopyBitmap;

     CopyBitmap := SelectObject(DC, CopyBitmap);

     Result := BitBlt(DC, Left, Top, Width, Height, CopyDC, 0, 0, Rop);

     CopyBitmap := TempBitmap;

     if DeleteObjects then

       begin

         DeleteDC(CopyDC);

         DeleteObject(CopyBitmap);

       end;

   end;

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить