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

Beautified about dialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2328 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2012-02-29 13:18:26 +00:00
parent 7664591671
commit 02df30c327
6 changed files with 1707 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
applications/lazedit/main.pp
View File

@ -511,6 +511,8 @@ type
procedure EditorFontSizeUp;
procedure EditorFontSizeDown;
procedure AboutLazEdit;
procedure ParseCommandlineFilenames(Dummy: PtrInt); //Dummy is needed for QueueAsyncCall()
procedure ParseCommandLineSwitches;
@ -880,7 +882,7 @@ end;
procedure TLazEditMainForm.acAboutExecute(Sender: TObject);
begin
formAbout.ShowModal;
AboutLazEdit;
end;
procedure TLazEditMainForm.acEditFindNextExecute(Sender: TObject);
@ -2592,5 +2594,15 @@ begin
end;
end;
procedure TLazEditMainForm.AboutLazEdit;
begin
FormAbout.SetCopyrightInfo(CopyLeftStatement, AuthorWebName, AuthorWebUrl);
FormAbout.SetVersionInfo(AppName, AppVersion, '','', '');
FormAbout.SetLicenseInfo(LicenseText, LicenseName, LicenseUrl);
FormAbout.Top := Top + 15;
FormAbout.Left := Left + 15;
FormAbout.ShowModal;
end;
end.