Mega Code Archive
Win-g
<![CDATA[
Subject: Re: WinG on an FTP site?
Try this one I made myself:
unit WinG; {WinG import unit for Borland Pascal}
interface
uses winTypes;
function WinGCreateDC:hDC;
function WinGRecommendDIBFormat(pFormat:pBitmapInfo):boolean;
function WinGCreateBitmap(WinGDC:hDC; pHeader:pBitmapInfo; var
ppBits:pointer):hBitmap;
function WinGGetDIBPointer(WinGBitmap:hBitmap;
pHeader:pBitmapInfo):pointer;
function WinGGetDIBColorTable(WinGDC:hDC; StartIndex, NumberOfEntries:word;
pColors:pointer):word;
function WinGSetDIBColorTable(WinGDC:hDC; StartIndex, NumberOfEntries:word;
pColors:pointer):word;
function WinGCreateHalftonePalette:hPalette;
type tWinGDither=(winG4x4Dispersed,winG8x8Dispersed,winG4x4Clustered);
function WinGCreateHalftoneBrush(context:hDC; crColor:tColorRef;
ditherType:tWinGDither):hBrush;
function WinGBitBlt(hdcDst:hDC; nXOriginDst, nYOriginDst, nWidthDst,
nHeightDst:integer;
hdcSrc:hDC; nXOriginSrc, nYOriginSrc:integer):boolean;
function WinGStretchBlt(hdcDst:hDC; nXOriginDst, nYOriginDst, nWidthDst,
nHeightDst:integer;
hdcSrc:hDC; nXOriginSrc, nYOriginSrc, nWidthSrc,
nHeightSrc:integer):boolean;
implementation
function WinGCreateDC:hDC; external 'WinG';
function WinGRecommendDIBFormat; external 'WinG';
function WinGCreateBitmap; external 'WinG';
function WinGGetDIBPointer; external 'WinG';
function WinGGetDIBColorTable; external 'WinG';
function WinGSetDIBColorTable; external 'WinG';
function WinGCreateHalftonePalette; external 'WinG';
function WinGCreateHalftoneBrush; external 'WinG';
function WinGBitBlt; external 'WinG';
function WinGStretchBlt; external 'WinG';
end.
]]>