paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-05 00:13:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

TEST: TListView; Fix dragging (with/without MultiSelect), avoid 2nd context-menu event, fix order for mouse up/down/click/popup events. Issue #0035362, Issue #0035917 and related

Browse Source 
git-svn-id: trunk@63013 -
This commit is contained in:
martin 2020-04-18 19:29:06 +00:00
parent 13e6d2cd23
commit 11e9158faa
5 changed files with 1745 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -11520,6 +11520,7 @@ test/lazutils/testpaswstring.lpi svneol=native#text/plain
test/lazutils/testpaswstring.pas svneol=native#text/plain
test/lazutils/testunicode.lpi svneol=native#text/plain
test/lazutils/testunicode.pas svneol=native#text/pascal
test/lcltests/testlistview.pas svneol=native#text/pascal
test/lcltests/testmethodcompare.pas svneol=native#text/plain
test/lcltests/testpagecontrol.pas svneol=native#text/pascal
test/lcltests/testpen.pas svneol=native#text/plain

1735
test/lcltests/testlistview.pas Normal file
View File

File diff suppressed because it is too large Load Diff

4
test/lcltests/testpagecontrol.pas
View File

@ -225,8 +225,8 @@ begin
FreeAndNil(FForm);
FForm := TForm.CreateNew(nil);
FForm.Top := Screen.DesktopTop + 1;
FForm.Left := Screen.DesktopLeft + 1;
FForm.Top := Screen.Monitors[0].Top + 1;
FForm.Left := Screen.Monitors[0].Left + 1;
FForm.Height := 200;
FForm.Width := 500;
FForm.Show;

7
test/runtestsgui.lpi
View File

@ -53,7 +53,7 @@
<PackageName Value="CodeTools"/>
</Item6>
</RequiredPackages>
<Units Count="14">
<Units Count="15">
<Unit0>
<Filename Value="runtestsgui.lpr"/>
<IsPartOfProject Value="True"/>
@ -117,6 +117,11 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="TestMenuIntf"/>
</Unit13>
<Unit14>
<Filename Value="lcltests\testlistview.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestListView"/>
</Unit14>
</Units>
</ProjectOptions>
<CompilerOptions>

2
test/testunits.pas
View File

@ -32,7 +32,7 @@ uses
// lazutils
TestLazUtils, TestLazUTF8, TestLazUTF16, TestLConvEncoding, TestAvgLvlTree,
// lcltests
testpen, TestPreferredSize, TestTextStrings
testpen, TestPreferredSize, TestTextStrings, TestListView
{$IFNDEF NoSemiAutomatedTests}
// semi-automatic tests
, testpagecontrol, idesemiautotests, lclsemiautotests