paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 15:41:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

added TMemoScrollBar

Browse Source 
git-svn-id: trunk@2622 -
This commit is contained in:
mattias 2002-08-17 23:41:32 +00:00
parent fcb3d8a490
commit 8ff3294cc0
3 changed files with 33 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/interfacebase.inc
View File

@ -932,12 +932,18 @@ begin
end;
function TInterfaceBase.GetScrollBarSize(Handle: HWND;
BarKind: Integer): integer;
SBStyle: Integer): integer;
begin
Result := GetSystemMetrics(BarKind);
Result := GetSystemMetrics(SBStyle);
end;
function TInterfaceBase.GetScrollInfo(Handle: HWND; BarFlag: Integer;
function TInterfaceBase.GetScrollbarVisible(Handle: HWND;
SBStyle: Integer): boolean;
begin
Result := false;
end;
function TInterfaceBase.GetScrollInfo(Handle: HWND; SBStyle: Integer;
var ScrollInfo: TScrollInfo): Boolean;
begin
Result := False;
@ -1660,6 +1666,9 @@ end;
{ =============================================================================
$Log$
Revision 1.86 2003/03/29 17:20:05 mattias
added TMemoScrollBar
Revision 1.85 2003/03/17 20:53:16 mattias
removed SetRadioButtonGroupMode

18
lcl/include/winapi.inc
View File

@ -470,14 +470,19 @@ begin
Result := InterfaceObject.GetRGNBox(RGN, lpRect);
end;
function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer;
function GetScrollBarSize(Handle: HWND; SBStyle: Integer): integer;
begin
Result := InterfaceObject.GetScrollBarSize(Handle, BarKind);
Result := InterfaceObject.GetScrollBarSize(Handle, SBStyle);
end;
function GetScrollInfo(Handle: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): Boolean;
function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean;
begin
Result := InterfaceObject.GetScrollInfo(Handle, BarFlag, ScrollInfo);
Result := InterfaceObject.GetScrollbarVisible(Handle, SBStyle);
end;
function GetScrollInfo(Handle: HWND; SBStyle: Integer; var ScrollInfo: TScrollInfo): Boolean;
begin
Result := InterfaceObject.GetScrollInfo(Handle, SBStyle, ScrollInfo);
end;
function GetStockObject(Value : Integer): Longint;
@ -1222,6 +1227,7 @@ function GetScrollPos(Handle: HWND; nBar: Integer): Integer;
var
Info: TScrollInfo;
begin
Info.fMask:=SIF_POS;
GetScrollInfo(Handle, nBar, Info);
Result := Info.nPos;
end;
@ -1236,6 +1242,7 @@ function GetScrollRange(Handle: HWND; nBar: Integer; var lpMinPos, lpMaxPos: Int
var
Info: TScrollInfo;
begin
Info.fMask:=SIF_RANGE;
Result := GetScrollInfo(Handle, nBar, Info);
lpMinPos := Info.nMin;
lpMaxPos := Info.nMax;
@ -1573,6 +1580,9 @@ end;
{ =============================================================================
$Log$
Revision 1.79 2003/03/29 17:20:05 mattias
added TMemoScrollBar
Revision 1.78 2003/03/17 20:53:16 mattias
removed SetRadioButtonGroupMode

10
lcl/include/winapih.inc
View File

@ -133,8 +133,9 @@ function GetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT;
Function GetParent(Handle : HWND): HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function GetProp(Handle : hwnd; Str : PChar): Pointer;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function GetRgnBox(RGN : HRGN; lpRect : PRect) : Longint; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetScrollInfo(Handle: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetScrollBarSize(Handle: HWND; SBStyle: Integer): integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetScrollInfo(Handle: HWND; SBStyle: Integer; var ScrollInfo: TScrollInfo): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function GetScrollPos --> independent
//function GetScrollRange --> independent
function GetStockObject(Value: Integer): LongInt; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -222,7 +223,7 @@ function SetMapMode(DC: HDC; MapMode: Integer): Integer; {$IFDEF IF_BASE_MEMBER}
Function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function SetRect --> independent
//function SetRectEmpty --> independent
function SetScrollInfo(Handle: HWND; SBStyle : Integer; ScrollInfo: TScrollInfo; Redraw : Boolean): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetScrollInfo(Handle: HWND; SBStyle: Integer; ScrollInfo: TScrollInfo; Redraw : Boolean): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function SetScrollPos --> independent
//function SetScrollRange --> independent
function SetStretchBltMode(DC: HDC; StretchMode: Integer): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -374,6 +375,9 @@ procedure RaiseLastOSError;
{ =============================================================================
$Log$
Revision 1.73 2003/03/29 17:20:05 mattias
added TMemoScrollBar
Revision 1.72 2003/03/17 20:53:16 mattias
removed SetRadioButtonGroupMode