From 8503a81b169480b1261d01f00ef1c870a94d22e7 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Tue, 22 Dec 2020 23:00:21 +0100
Subject: [PATCH] update page control test program

---
 lazproj/pagecontrol/pagecontrol.lpi       |  9 +++++----
 lazproj/pagecontrol/pagecontroltester.lfm |  5 +----
 lazproj/pagecontrol/pagecontroltester.pas | 12 ++++++------
 3 files changed, 12 insertions(+), 14 deletions(-)

diff --git a/lazproj/pagecontrol/pagecontrol.lpi b/lazproj/pagecontrol/pagecontrol.lpi
index dad9b244..6b5b81e6 100644
--- a/lazproj/pagecontrol/pagecontrol.lpi
+++ b/lazproj/pagecontrol/pagecontrol.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
@@ -36,9 +36,10 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="1">
       <Item1>
diff --git a/lazproj/pagecontrol/pagecontroltester.lfm b/lazproj/pagecontrol/pagecontroltester.lfm
index db0badb1..0d6b439b 100644
--- a/lazproj/pagecontrol/pagecontroltester.lfm
+++ b/lazproj/pagecontrol/pagecontroltester.lfm
@@ -4,8 +4,5 @@ object Form1: TForm1
   Top = 193
   Width = 819
   Caption = 'Form1'
-  ClientHeight = 317
-  ClientWidth = 819
-  LCLVersion = '1.8.4.0'
-  Visible = False
+  LCLVersion = '2.0.10.0'
 end
diff --git a/lazproj/pagecontrol/pagecontroltester.pas b/lazproj/pagecontrol/pagecontroltester.pas
index df90e83a..fd4dfcc2 100644
--- a/lazproj/pagecontrol/pagecontroltester.pas
+++ b/lazproj/pagecontrol/pagecontroltester.pas
@@ -6,12 +6,12 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  ce_controls, ce_sharedres;
+  u_controls, u_sharedres;
 
 type
   TForm1 = class(TForm)
   private
-    fPageControl: TCEPageControl;
+    fPageControl: TDexedPageControl;
     procedure pageControlChanged(sender: TObject);
     procedure pagePaint(sender: TObject);
   public
@@ -27,7 +27,7 @@ implementation
 constructor TForm1.create(aOwner: TComponent);
 begin
   inherited;
-  fPageControl := TCEPageControl.Create(self);
+  fPageControl := TDexedPageControl.Create(self);
   fPageControl.Parent := self;
   fPageControl.Align  := alClient;
   fPageControl.onChanged:=@pageControlChanged;
@@ -41,7 +41,7 @@ end;
 
 procedure TForm1.pageControlChanged(sender: TObject);
 var
-  page: TCEPage;
+  page: TDexedPage;
 begin
   page := fPageControl.currentPage;
   if assigned(page) then
@@ -58,9 +58,9 @@ end;
 
 procedure TForm1.pagePaint(sender: TObject);
 var
-  page: TCEPage = nil;
+  page: TDexedPage = nil;
 begin
-  page := TCEPage(sender);
+  page := TDexedPage(sender);
   if assigned(page) then
   begin
     page.Canvas.Clear;