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

WinCE: implement TWin32WSCustomListBox.SelectRange. Issue #0036929.

Browse Source 
git-svn-id: trunk@63339 -
This commit is contained in:
bart 2020-06-10 10:02:03 +00:00
parent 43cb3d48b7
commit 0891d7a200
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -115,10 +115,8 @@ type
class procedure SelectItem(const ACustomListBox: TCustomListBox;
AIndex: integer; ASelected: boolean); override;
{ ToDo
class procedure SelectRange(const ACustomListBox: TCustomListBox;
ALow, AHigh: integer; ASelected: boolean); override;
}
class procedure SetBorder(const ACustomListBox: TCustomListBox); override;
class procedure SetColumnCount(const ACustomListBox: TCustomListBox; ACount: Integer); override;
class procedure SetItemIndex(const ACustomListBox: TCustomListBox; const AIndex: integer); override;
@ -562,13 +560,24 @@ begin
else
SetItemIndex(ACustomListBox, -1);
end;
{
class procedure SelectRange(const ACustomListBox: TCustomListBox;
ALow, AHigh: integer; ASelected: boolean); override;
class procedure TWinCEWSCustomListBox.SelectRange(const ACustomListBox: TCustomListBox;
ALow, AHigh: integer; ASelected: boolean);
var
AHandle: HWND;
ARange: LONG;
begin
ToDo: Send message LB_SELITEMRANGE
//https://docs.microsoft.com/en-us/windows/win32/controls/lb-selitemrange
if (AHigh > $FFFF) then
inherited SelectRange(ACustomListBox, ALow, AHigh, ASelected)
else
begin
AHandle := ACustomListBox.Handle;
ARange := Windows.MakeLong(ALow, AHigh);
Windows.SendMessage(AHandle, LB_SELITEMRANGE, Windows.WParam(ASelected), Windows.LParam(ARange));
end;
end;
}
class procedure TWinCEWSCustomListBox.SetBorder(const ACustomListBox: TCustomListBox);
var
Handle: HWND;