mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 17:55:55 +02:00
MG: scrollingwincontrol from Andrew
git-svn-id: trunk@1151 -
This commit is contained in:
parent
9018c8d14f
commit
38c4697f8a
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user