paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Tests: test for PageControl, workaround QT and GTK do extra paint

Browse Source 
git-svn-id: trunk@42694 -
This commit is contained in:
martin 2013-09-09 08:36:48 +00:00
parent 426e526f9b
commit e9ab40821e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/lcltests/testpagecontrol.pas
View File

@ -296,7 +296,7 @@ procedure TTestPageControl.CheckPaint(AName: String; APaintedPage: TTestSheet);
var
i: Integer;
begin
{$IfDef LCLQT}
{$IfDef LCLGTK2}
if APaintedPage <> nil then begin
AssertTrue(AName + ' Paint was called', APaintedPage.DidPaint >= 1);
end;
@ -304,7 +304,7 @@ begin
if APaintedPage <> nil then begin
AssertEquals(AName + ' Paint was called', 1, APaintedPage.DidPaint);
end;
{$IfNDef LCLGTK2}
{$IfNDef LCLQT}
for i := 0 to PageControl.ControlCount - 1 do
if (PageControl.Controls[i] <> APaintedPage) and (PageControl.Controls[i] is TTestSheet) then
AssertEquals(AName + 'NO paint for other page', 0, (PageControl.Controls[i] as TTestSheet).DidPaint);