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.