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

Fixes compiling the examples with the new notebook.

Browse Source 
git-svn-id: trunk@28916 -
This commit is contained in:
sekelsenmat 2011-01-09 11:05:07 +00:00
parent c4099a7d6a
commit 76f0a18ff0
3 changed files with 9 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
examples/notebku.pp
View File

@ -49,9 +49,7 @@ type
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
end;
var
@ -234,7 +232,7 @@ begin
end;
// Create Show/Hide Tabs Button on first page of TabbedNotebook
fButton4 := TButton.Create(fNotebook.Page[0]);
{ fButton4 := TButton.Create(fNotebook.Page[0]);
with fButton4 do
begin
Parent := fNotebook.Page[0];
@ -245,7 +243,7 @@ begin
top := 150;
Caption := 'Hide Tabs';
Show;
end;
end;}
// Create Delete Page Button on third page of TabbedNotebook
fButton5 := TButton.Create(fNotebook.Page[2]);
@ -260,20 +258,6 @@ begin
Caption := 'Delete Page';
Show;
end;
// Create Set Tabs Position Button on first page of TabbedNotebook
fButton6 := TButton.Create(fNotebook.Page[0]);
with fButton6 do
begin
Parent := fNotebook.Page[0];
OnClick := @Button6Click;
Width := 150;
Height := 23;
left := (250 {Parent.Widht} - Width) div 2;
top := 190;
Caption := 'Set Tab Position';
Show;
end;
// Goto the first page of the Notebook
fNotebk.PageIndex := 0;
@ -297,17 +281,6 @@ begin
Close;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
//writeln('Show/Hide Tabs Button Clicked');
fNotebook.ShowTabs := not fNotebook.ShowTabs;
if (fNotebook.ShowTabs) then
fButton4.Caption := 'Hide Tabs'
else
fButton4.Caption := 'Show Tabs';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
//writeln('Delete Page Button Clicked');
@ -320,21 +293,6 @@ begin
else
fNotebook.Pages.Delete(fNotebook.Pages.Count - 1);
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
//writeln('Set Tab Position Button Clicked');
if fNotebook.TabPosition = tpTop then
fNotebook.TabPosition := tpRight
else if fNotebook.TabPosition = tpRight then
fNotebook.TabPosition := tpBottom
else if fNotebook.TabPosition = tpBottom then
fNotebook.TabPosition := tpLeft
else if fNotebook.TabPosition = tpLeft then
fNotebook.TabPosition := tpTop;
end;
end.

4
lcl/extctrls.pp
View File

@ -308,7 +308,7 @@ type
{ function GetActivePage: String;
function GetActivePageComponent: TCustomPage;}
function GetPage(AIndex: Integer): TPage;
// function GetPageCount : integer;
function GetPageCount : integer;
function GetPageIndex: Integer;
{ function FindVisiblePage(Index: Integer): Integer;}
procedure InsertPage(APage: TPage; Index: Integer);
@ -327,7 +327,7 @@ type
function CustomPage(Index: integer): TCustomPage;}
public
property Page[Index: Integer]: TPage read GetPage;
// property PageCount: integer read GetPageCount;
property PageCount: integer read GetPageCount;
// property PageList: TList read FPageList;
published
// TUntabbedNotebook specific properties

5
lcl/include/notebook.inc
View File

@ -141,6 +141,11 @@ begin
Result := TPage(FPageList.Items[AIndex]);
end;
function TNotebook.GetPageCount: Integer;
begin
Result := FPages.Count;
end;
function TNotebook.GetPageIndex: Integer;
begin
Result := FPageIndex;