forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

update page control test program

This commit is contained in:
Basile Burg 2020-12-22 23:00:21 +01:00
parent 8d91dbf87f
commit 8503a81b16
3 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lazproj/pagecontrol/pagecontrol.lpi
View File

@ -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>

5
lazproj/pagecontrol/pagecontroltester.lfm
View File

@ -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

12
lazproj/pagecontrol/pagecontroltester.pas
View File

@ -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;