drawdib.pas

来自「these are some texts and original progra」· PAS 代码 · 共 24 行

unit drawdib;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus;

  const
  DDF_SAME_HDC=$0004;
  DDF_SAME_DRAW=$0008;

  function DrawDibOpen():HWND; stdcall;far;external'msvfw32.dll';
  function DrawDibBegin(dd:HWND;dc:HDC;dxDest,dyDest:Integer;lpbi:PBITMAPINFOHEADER;
                        dxSrc,dySrc:Integer;flags:Cardinal):Boolean; stdcall;far;external'msvfw32.dll';
  function DrawDibRealize(dd:HWND;dc:HDC;fBackground:Boolean):Cardinal; stdcall;far;external'msvfw32.dll';
  function DrawDibDraw(dd:HWND;dc:HDC;xDest,yDest,dxDest,dyDext:Integer;lpbi:PBITMAPINFOHEADER;
                        lpBits:Pointer;xSrc,ySrc,dxSrc,dySrc:Integer;flags:Cardinal):Boolean; stdcall;far;external'msvfw32.dll';
  function DrawDibClose(dd:HWND):Boolean; stdcall;far;external'msvfw32.dll';
implementation

end.