MG: scrollingwincontrol from Andrew

git-svn-id: trunk@1151 -
This commit is contained in:
lazarus 2002-02-09 01:47:58 +00:00
parent 9018c8d14f
commit 38c4697f8a

View File

@ -780,6 +780,22 @@ begin
Result := 0;
end;
function TInterfaceBase.GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer;
begin
Result := 0;
end;
function TInterfaceBase.GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint;
begin
Result := 0;
end;
function TInterfaceBase.CreateDIBSection(DC: HDC; const p2: tagBitmapInfo; p3: UINT;
var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP;
begin
Result := 0;
end;
function TInterfaceBase.GetFocus: HWND;
begin
Result := 0;
@ -1237,6 +1253,9 @@ end;
{ =============================================================================
$Log$
Revision 1.46 2002/09/10 06:49:19 lazarus
MG: scrollingwincontrol from Andrew
Revision 1.45 2002/09/09 14:01:05 lazarus
MG: improved TScreen and ShowModal