pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazedit: Adds a about box

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2299 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-02-16 11:27:35 +00:00
parent 68121d48e9
commit db032e3d1f
7 changed files with 95 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
applications/lazedit/main.pp
View File

@ -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.