From db032e3d1f605b55ea63c53ecfc96a6b7576bb90 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Thu, 16 Feb 2012 11:27:35 +0000 Subject: [PATCH] lazedit: Adds a about box git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2299 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/lazedit/lazedit.lpi | 9 ++++- applications/lazedit/lazedit.lpr | 4 +-- applications/lazedit/lazedit_about.lfm | 40 ++++++++++++++++++++++ applications/lazedit/lazedit_about.pas | 41 +++++++++++++++++++++++ applications/lazedit/lazedit_constants.pp | 2 +- applications/lazedit/main.lfm | 4 +-- applications/lazedit/main.pp | 34 ++----------------- 7 files changed, 95 insertions(+), 39 deletions(-) create mode 100644 applications/lazedit/lazedit_about.lfm create mode 100644 applications/lazedit/lazedit_about.pas diff --git a/applications/lazedit/lazedit.lpi b/applications/lazedit/lazedit.lpi index c51d8796b..d95aa3787 100644 --- a/applications/lazedit/lazedit.lpi +++ b/applications/lazedit/lazedit.lpi @@ -75,7 +75,7 @@ - + @@ -158,6 +158,13 @@ + + + + + + + diff --git a/applications/lazedit/lazedit.lpr b/applications/lazedit/lazedit.lpr index 95c0fd798..e94f21c43 100644 --- a/applications/lazedit/lazedit.lpr +++ b/applications/lazedit/lazedit.lpr @@ -11,7 +11,7 @@ uses lazedit_translations, EditorPageControl, HtmlCode, - lazedit_constants; + lazedit_constants, lazedit_about; {$R *.res} @@ -33,7 +33,7 @@ begin else LazEditMainForm.TryFileOpen(ParamStr(1), False); {$endif} - + Application.CreateForm(TformAbout, formAbout); Application.Run; end. diff --git a/applications/lazedit/lazedit_about.lfm b/applications/lazedit/lazedit_about.lfm new file mode 100644 index 000000000..f6e363361 --- /dev/null +++ b/applications/lazedit/lazedit_about.lfm @@ -0,0 +1,40 @@ +object formAbout: TformAbout + Left = 478 + Height = 137 + Top = 326 + Width = 320 + Caption = 'About LazEdit' + ClientHeight = 137 + ClientWidth = 320 + OnCreate = FormCreate + LCLVersion = '0.9.31' + object Button1: TButton + Left = 120 + Height = 25 + Top = 96 + Width = 75 + Caption = 'Close' + ModalResult = 1 + TabOrder = 0 + end + object labelCopyright: TLabel + Left = 8 + Height = 14 + Top = 56 + Width = 70 + Caption = 'labelCopyright' + ParentColor = False + end + object Label1: TLabel + Left = 0 + Height = 34 + Top = 8 + Width = 320 + Alignment = taCenter + AutoSize = False + Caption = 'LazEdit' + Font.Height = -27 + ParentColor = False + ParentFont = False + end +end diff --git a/applications/lazedit/lazedit_about.pas b/applications/lazedit/lazedit_about.pas new file mode 100644 index 000000000..10f30bacb --- /dev/null +++ b/applications/lazedit/lazedit_about.pas @@ -0,0 +1,41 @@ +unit lazedit_about; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, + lazedit_constants; + +type + + { TformAbout } + + TformAbout = class(TForm) + Button1: TButton; + Label1: TLabel; + labelCopyright: TLabel; + procedure FormCreate(Sender: TObject); + private + { private declarations } + public + { public declarations } + end; + +var + formAbout: TformAbout; + +implementation + +{$R *.lfm} + +{ TformAbout } + +procedure TformAbout.FormCreate(Sender: TObject); +begin + labelCopyright.Caption := CopyLeftStatement; +end; + +end. + diff --git a/applications/lazedit/lazedit_constants.pp b/applications/lazedit/lazedit_constants.pp index 16c375527..3682cb349 100644 --- a/applications/lazedit/lazedit_constants.pp +++ b/applications/lazedit/lazedit_constants.pp @@ -42,7 +42,7 @@ interface const AppName = 'LazEdit'; AboutTitle = 'Over ' + AppName; - AppVersion = 'Version 1.1'; + AppVersion = 'Version 1.9'; CopyLeftStatement = 'Copyright (c) 2011, 2012 by Bart Broersma, FlyingSheep Inc. and Felipe Monteiro de Carvalho'; MetaGeneratorName = AppName + #32 + AppVersion; AuthorWebName = 'Bart & Mariska''s Webstek'; diff --git a/applications/lazedit/main.lfm b/applications/lazedit/main.lfm index 55295eb85..f8585eb89 100644 --- a/applications/lazedit/main.lfm +++ b/applications/lazedit/main.lfm @@ -110,10 +110,8 @@ object LazEditMainForm: TLazEditMainForm end object InfoBtn: TToolButton Left = 215 - Hint = 'Info' Top = 2 - Caption = 'InfoBtn' - ImageIndex = 8 + Action = acAbout end end object HtmlToolbar: TToolBar diff --git a/applications/lazedit/main.pp b/applications/lazedit/main.pp index be81769cb..25b080ed5 100644 --- a/applications/lazedit/main.pp +++ b/applications/lazedit/main.pp @@ -47,8 +47,7 @@ uses SynEdit, SynEditTypes, EditorPageControl, EPlus_Commons, lazedit_config, HtmlCode, HtmlDialogs, lazedit_constants, - lazedit_translations{ - MyFileUtils, Fcl_Misc, MruLists, MyGetOpt, ExtAbout, NlAutoTranslation}; + lazedit_translations, lazedit_about; type @@ -416,8 +415,6 @@ type procedure mnuViewFontSizeUpClick(Sender: TObject); procedure mnuSetHighlighterClick(Sender: TObject); - procedure AboutEPlus; - procedure DoFind(Sender: TObject); //callback for FindDialog procedure DoReplace(Sender: TObject); //callback for ReplaceDialog @@ -880,7 +877,7 @@ end; procedure TLazEditMainForm.acAboutExecute(Sender: TObject); begin - AboutEplus; + formAbout.ShowModal; end; procedure TLazEditMainForm.acEditFindNextExecute(Sender: TObject); @@ -2550,32 +2547,5 @@ begin end; end; - -{ ************************** [ About ] *********************** } - -procedure TLazEditMainForm.AboutEPlus; -{var - Dlg: TExtAboutDlg;} -begin -{ Dlg := TExtAboutDlg.Create; - try - Dlg.Caption := AboutTitle; - Dlg.ProductName := AppName; - Dlg.Version := AppVersion; - Dlg.CopyrightStatement := CopyLeftStatement; - Dlg.WebsiteCaption := AuthorWebName; - Dlg.WebsiteURL := AuthorWebUrl; - Dlg.LicenseText := LicenseText; - Dlg.LicenseWebsiteCaption := LicenseName; - Dlg.LicenseWebsiteURL := LicenseUrl; - Dlg.Top := Top + 20; - Dlg.Left := Left + 20; - Dlg.Execute; - finally - Dlg.Free; - end;} -end; - - end.