mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 06:09:14 +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;
|
Result := 0;
|
||||||
end;
|
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;
|
function TInterfaceBase.GetFocus: HWND;
|
||||||
begin
|
begin
|
||||||
Result := 0;
|
Result := 0;
|
||||||
@ -1237,6 +1253,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$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
|
Revision 1.45 2002/09/09 14:01:05 lazarus
|
||||||
MG: improved TScreen and ShowModal
|
MG: improved TScreen and ShowModal
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user