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

implemented TWin32WSCustomListBox.GetTopIndex and SetTopIndex

Browse Source 
git-svn-id: trunk@6645 -
This commit is contained in:
vincents 2005-01-20 13:34:07 +00:00
parent bdd68241d4
commit ef34c15147
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/sizeconstraints.inc
View File

@ -87,9 +87,9 @@ begin
Result:=MinInterfaceHeight;
end;
// EffectiveMaxWidth is the minumum of MaxWidth and MaxInterfaceWidth,
// but is at least MinInterfaceWidth.
// A value of zero is interpreted as unconstraint.
// The EffectiveMaxWidth is the minumum of MaxWidth and MaxInterfaceWidth,
// but it is at least MinInterfaceWidth.
// A zero value is interpreted as unconstraint.
function TSizeConstraints.EffectiveMaxWidth: integer;
begin
if (MaxInterfaceWidth>0) and
@ -101,9 +101,9 @@ begin
Result:=MinInterfaceWidth;
end;
// EffectiveMaxHeight is the minumum of MaxHeight and MaxInterfaceHeight,
// but is at least MinInterfaceHeight.
// A value of zero is interpreted as unconstraint.
// The EffectiveMaxHeight is the minumum of MaxHeight and MaxInterfaceHeight,
// but it is at least the MinInterfaceHeight.
// A zero value is interpreted as unconstraint.
function TSizeConstraints.EffectiveMaxHeight: integer;
begin
if (MaxInterfaceHeight>0) and

5
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -460,8 +460,7 @@ end;
function TWin32WSCustomListBox.GetTopIndex(const ACustomListBox: TCustomListBox): integer;
begin
// TODO: implement me!
Result := 0;
Result:=Windows.SendMessage(ACustomListBox.Handle, LB_GETTOPINDEX, 0, 0);
end;
procedure TWin32WSCustomListBox.SelectItem(const ACustomListBox: TCustomListBox; AIndex: integer; ASelected: boolean);
@ -523,7 +522,7 @@ end;
procedure TWin32WSCustomListBox.SetTopIndex(const ACustomListBox: TCustomListBox; const NewTopIndex: integer);
begin
// TODO: implement me!
Windows.SendMessage(ACustomListBox.Handle, LB_SETTOPINDEX, NewTopIndex, 0);
end;
{ TWin32WSCustomComboBox }