paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-16 03:42:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed LM_LVChangedItem, OnShowHint, small bugs

Browse Source 
git-svn-id: trunk@1347 -
This commit is contained in:
lazarus 2002-02-09 01:48:18 +00:00
parent a0e87c84ba
commit c2b1c73799
1 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/include/interfacebase.inc
View File

@ -804,18 +804,21 @@ begin
Result := false; Result := false;
end; end;
function TInterfaceBase.GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; function TInterfaceBase.GetDIBits(DC: HDC; Bitmap: HBitmap;
StartScan, NumScans: UINT; Bits: Pointer;
var BitInfo: BitmapInfo; Usage: UINT): Integer;
begin begin
Result := 0; Result := 0;
end; end;
function TInterfaceBase.GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; function TInterfaceBase.GetBitmapBits(Bitmap: HBITMAP; Count: Longint;
Bits: Pointer): Longint;
begin begin
Result := 0; Result := 0;
end; end;
function TInterfaceBase.CreateDIBSection(DC: HDC; const p2: tagBitmapInfo; p3: UINT; function TInterfaceBase.CreateDIBSection(DC: HDC; const p2: tagBitmapInfo;
var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; p3: UINT; var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP;
begin begin
Result := 0; Result := 0;
end; end;
@ -830,7 +833,14 @@ begin
Result := 0; Result := 0;
end; end;
function TInterfaceBase.GetObject(GDIObject: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; function TInterfaceBase.GetNotebookTabIndexAtPos(Handle: HWND;
const ClientPos: TPoint): integer;
begin
Result:=-1;
end;
function TInterfaceBase.GetObject(GDIObject: HGDIOBJ; BufSize: Integer;
Buf: Pointer): Integer;
begin begin
Result := 0; Result := 0;
end; end;
@ -850,12 +860,14 @@ begin
Result := SIMPLEREGION; Result := SIMPLEREGION;
end; end;
function TInterfaceBase.GetScrollBarSize(Handle: HWND; BarKind: Integer): integer; function TInterfaceBase.GetScrollBarSize(Handle: HWND;
BarKind: Integer): integer;
begin begin
Result := GetSystemMetrics(BarKind); Result := GetSystemMetrics(BarKind);
end; end;
function TInterfaceBase.GetScrollInfo(Handle: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): Boolean; function TInterfaceBase.GetScrollInfo(Handle: HWND; BarFlag: Integer;
var ScrollInfo: TScrollInfo): Boolean;
begin begin
Result := False; Result := False;
end; end;
@ -880,7 +892,8 @@ begin
Result := 0; Result := 0;
end; end;
function TInterfaceBase.GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; function TInterfaceBase.GetTextExtentPoint(DC: HDC; Str: PChar;
Count: Integer; var Size: TSize): Boolean;
begin begin
Result := False; Result := False;
end; end;
@ -911,8 +924,9 @@ begin
Result:=false; Result:=false;
end; end;
function TInterfaceBase.GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Longint; function TInterfaceBase.GradientFill(DC: HDC; Vertices: PTriVertex;
Meshes: Pointer; NumMeshes : Longint; Mode : Longint): Boolean; NumVertices : Longint; Meshes: Pointer; NumMeshes : Longint;
Mode : Longint): Boolean;
begin begin
Result := False; Result := False;
end; end;
@ -1455,6 +1469,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.66 2002/11/09 15:02:07 lazarus
MG: fixed LM_LVChangedItem, OnShowHint, small bugs
Revision 1.65 2002/10/31 21:29:47 lazarus Revision 1.65 2002/10/31 21:29:47 lazarus
MG: implemented TControlScrollBar.Size MG: implemented TControlScrollBar.Size