paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 13:19:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: about: replaced TNoteBook with TPageControl

Browse Source 
git-svn-id: trunk@27358 -
This commit is contained in:
mattias 2010-09-13 20:57:10 +00:00
parent 75f7582346
commit 60b9345550
2 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/aboutfrm.lfm
View File

@ -12,16 +12,15 @@ object AboutForm: TAboutForm
PopupMenu = PopupMenu1
Position = poScreenCenter
LCLVersion = '0.9.29'
object Notebook: TNotebook
object Notebook: TPageControl
Left = 0
Height = 326
Top = 0
Width = 460
Align = alClient
OnPageChanged = NotebookPageChanged
PageIndex = 0
TabOrder = 0
object VersionPage: TPage
object VersionPage: TTabSheet
Caption = 'Version'
ClientWidth = 458
ClientHeight = 299
@ -115,7 +114,7 @@ object AboutForm: TAboutForm
ParentFont = False
end
end
object AboutPage: TPage
object AboutPage: TTabSheet
Caption = 'About'
ClientWidth = 458
ClientHeight = 299
@ -197,10 +196,10 @@ object AboutForm: TAboutForm
TabOrder = 0
end
end
object ContributorsPage: TPage
object ContributorsPage: TTabSheet
Caption = 'Contributors'
end
object AcknowledgementsPage: TPage
object AcknowledgementsPage: TTabSheet
Caption = 'Acknowledgements'
end
end

18
ide/aboutfrm.pas
View File

@ -26,8 +26,8 @@ interface
uses
Classes, SysUtils, FPCAdds, Forms, Controls, Graphics, Dialogs, LResources,
StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, EnvironmentOpts,
Clipbrd, FileUtil, Menus, LCLIntf;
StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, ComCtrls,
EnvironmentOpts, Clipbrd, FileUtil, Menus, LCLIntf;
type
@ -76,16 +76,16 @@ type
miVerToClipboard: TMenuItem;
OfficialLabel: TLabel;
OfficialURLLabel: TLabel;
VersionPage: TPage;
VersionPage: TTabSheet;
ButtonPanel: TPanel;
PlatformLabel: TLabel;
PopupMenu1: TPopupMenu;
VersionLabel: TLABEL;
RevisionLabel: TLabel;
Notebook:TNotebook;
AboutPage:TPage;
ContributorsPage:TPage;
AcknowledgementsPage:TPage;
Notebook: TPageControl;
AboutPage: TTabSheet;
ContributorsPage: TTabSheet;
AcknowledgementsPage:TTabSheet;
procedure AboutFormCreate(Sender:TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure miVerToClipboardClick(Sender: TObject);
@ -209,9 +209,9 @@ end;
procedure TAboutForm.NotebookPageChanged(Sender: TObject);
begin
if Assigned(Contributors) then
Contributors.Active:=NoteBook.ActivePage = lisContributors;
Contributors.Active:=NoteBook.ActivePage = ContributorsPage;
if Assigned(Acknowledgements) then
Acknowledgements.Active:=NoteBook.ActivePage = lisAcknowledgements;
Acknowledgements.Active:=NoteBook.ActivePage = AcknowledgementsPage;
end;
procedure TAboutForm.URLLabelMouseDown(Sender: TObject;