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

MG: implemented TControlScrollBar.Size

Browse Source 
git-svn-id: trunk@2382 -
This commit is contained in:
lazarus 2002-08-17 23:41:19 +00:00
parent 778b8e81a7
commit a5a504b865
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwinapih.inc
View File

@ -95,6 +95,7 @@ function GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; ov
Function GetParent(Handle : HWND): HWND; override;
Function GetProp(Handle : hwnd; Str : PChar): Pointer; override;
Function GetRgnBox(RGN : HRGN; lpRect : PRect) : Longint; override;
function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer; override;
function GetScrollInfo(Handle: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): Boolean; override;
function GetStockObject(Value: Integer): LongInt; override;
function GetSysColor(nIndex: Integer): DWORD; override;
@ -191,6 +192,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.52 2002/10/31 21:29:49 lazarus
MG: implemented TControlScrollBar.Size
Revision 1.51 2002/10/03 14:47:34 lazarus
MG: added TComboBox.OnPopup+OnCloseUp+ItemWidth