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

Examples, NotebookTest: adapted to changed TNotebook behavior and improved layout

Browse Source 
git-svn-id: trunk@29579 -
This commit is contained in:
maxim 2011-02-16 22:24:49 +00:00
parent 3cbb0a7b81
commit 936f3bcb10
2 changed files with 75 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
examples/notebooktest.lpi
View File

@ -1,28 +1,19 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<Version Value="9"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="None"/>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
<ResourceType Value="res"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="23" Y="36"/>
<EditorIndex Value="0"/>
<Filename Value="notebooktest.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="NotebookTest"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -40,15 +31,24 @@
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="1">
<Unit0>
<Filename Value="notebooktest.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="NotebookTest"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="10"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -57,6 +57,9 @@
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

69
examples/notebooktest.pp
View File

@ -42,12 +42,15 @@ uses
type
TForm1 = class(TFORM)
notebook1 : TNotebook;
TForm1 = class(TForm)
Notebook1 : TNotebook;
Button1: TButton;
Button2: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
procedure Button1CLick(Sender : TObject);
procedure Button2CLick(Sender : TObject);
procedure Button3CLick(Sender : TObject);
public
constructor Create(AOwner: TComponent); override;
end;
@ -56,7 +59,7 @@ type
constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Caption := 'Notebook Testing';
Caption := 'Notebook testing';
Left := 0;
Top := 0;
Width := 700;
@ -67,31 +70,54 @@ begin
with Button1 do begin
Top:= 0;
Left:= 0;
Width:= 50;
Height:= 20;
AutoSize := true;
Parent:= Self;
Caption := 'Button';
Caption := 'Create page';
OnClick := @Button1Click;
end;
Button2 := TButton.Create(Self);
with Button2 do begin
Top:= 0;
Left:= 50;
Width:= 50;
Height:= 20;
AnchorSide[akLeft].Side := asrRight;
AnchorSide[akLeft].Control := Button1;
AnchorSide[akTop].Side := asrCenter;
AnchorSide[akTop].Control := Button1;
AutoSize := true;
Parent:= Self;
Caption := 'Button';
Caption := 'Back';
OnClick := @Button2Click;
end;
Button3 := TButton.Create(Self);
with Button3 do begin
AnchorSide[akLeft].Side := asrRight;
AnchorSide[akLeft].Control := Button2;
AnchorSide[akTop].Side := asrCenter;
AnchorSide[akTop].Control := Button2;
AutoSize := true;
Parent:= Self;
Caption := 'Forward';
OnClick := @Button3Click;
end;
Label1 := TLabel.Create(Self);
with Label1 do begin
AnchorSide[akLeft].Side := asrRight;
BorderSpacing.Left := 6;
AnchorSide[akLeft].Control := Button3;
AnchorSide[akTop].Side := asrCenter;
AnchorSide[akTop].Control := Button3;
Parent:= Self;
Caption := '0 pages total';
end;
NoteBook1 := TNoteBook.Create(Self);
with NoteBook1 do
begin
Top:= 25;
Left:= 0;
Width:= 650;
Height:= 250;
AnchorSide[akTop].Side := asrBottom;
AnchorSide[akTop].Control := Button1;
Align := alBottom;
Anchors := Anchors + [akTop];
Parent:= Self;
end;
end;
@ -114,12 +140,19 @@ begin
Caption := Format('This is page [%d]',[NewPageIndex]);
Parent := NewPage;
end;
Label1.Caption := IntToStr(Notebook1.PageCount)+ ' pages total';
end;
procedure TForm1.Button2Click(Sender : TObject);
begin
if Notebook1.PageIndex>=0 then
Notebook1.Pages[Notebook1.PageIndex] := 'Test';
if Notebook1.PageIndex>0 then
Notebook1.PageIndex:=Notebook1.PageIndex-1;
end;
procedure TForm1.Button3Click(Sender : TObject);
begin
if Notebook1.PageIndex<Notebook1.PageCount-1 then
Notebook1.PageIndex:=Notebook1.PageIndex+1;
end;
var