From e9ab40821ea53f76d3ddeba79524789e2a6ab3ea Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 9 Sep 2013 08:36:48 +0000
Subject: [PATCH] Tests: test for PageControl, workaround QT and GTK do extra
 paint

git-svn-id: trunk@42694 -
---
 test/lcltests/testpagecontrol.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/lcltests/testpagecontrol.pas b/test/lcltests/testpagecontrol.pas
index f7dfcdcc58..e3922fdb92 100644
--- a/test/lcltests/testpagecontrol.pas
+++ b/test/lcltests/testpagecontrol.pas
@@ -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);