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"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -36,9 +36,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
<Item1> <Item1>

5
lazproj/pagecontrol/pagecontroltester.lfm
View File

@ -4,8 +4,5 @@ object Form1: TForm1
Top = 193 Top = 193
Width = 819 Width = 819
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 317 LCLVersion = '2.0.10.0'
ClientWidth = 819
LCLVersion = '1.8.4.0'
Visible = False
end end

12
lazproj/pagecontrol/pagecontroltester.pas
View File

@ -6,12 +6,12 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
ce_controls, ce_sharedres; u_controls, u_sharedres;
type type
TForm1 = class(TForm) TForm1 = class(TForm)
private private
fPageControl: TCEPageControl; fPageControl: TDexedPageControl;
procedure pageControlChanged(sender: TObject); procedure pageControlChanged(sender: TObject);
procedure pagePaint(sender: TObject); procedure pagePaint(sender: TObject);
public public
@ -27,7 +27,7 @@ implementation
constructor TForm1.create(aOwner: TComponent); constructor TForm1.create(aOwner: TComponent);
begin begin
inherited; inherited;
fPageControl := TCEPageControl.Create(self); fPageControl := TDexedPageControl.Create(self);
fPageControl.Parent := self; fPageControl.Parent := self;
fPageControl.Align := alClient; fPageControl.Align := alClient;
fPageControl.onChanged:=@pageControlChanged; fPageControl.onChanged:=@pageControlChanged;
@ -41,7 +41,7 @@ end;
procedure TForm1.pageControlChanged(sender: TObject); procedure TForm1.pageControlChanged(sender: TObject);
var var
page: TCEPage; page: TDexedPage;
begin begin
page := fPageControl.currentPage; page := fPageControl.currentPage;
if assigned(page) then if assigned(page) then
@ -58,9 +58,9 @@ end;
procedure TForm1.pagePaint(sender: TObject); procedure TForm1.pagePaint(sender: TObject);
var var
page: TCEPage = nil; page: TDexedPage = nil;
begin begin
page := TCEPage(sender); page := TDexedPage(sender);
if assigned(page) then if assigned(page) then
begin begin
page.Canvas.Clear; page.Canvas.Clear;