paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 06:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added insert ChangeLog Entry

Browse Source 
git-svn-id: trunk@3324 -
This commit is contained in:
lazarus 2002-09-11 12:18:21 +00:00
parent 4b76f93f27
commit 60c0bf0cd4
4 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/ideprocs.pp
View File

@ -91,7 +91,7 @@ function UncommentLines(const s: string): string;
procedure TranslateResourceStrings(const BaseDirectory, CustomLang: string);
function NameToValidIdentifier(const s: string): string;
function GetCurrentUserName: string;
function GetCurrentMailAddress: string;
implementation
@ -978,4 +978,9 @@ begin
Result:=GetEnv('USER');
end;
function GetCurrentMailAddress: string;
begin
Result:='<'+GetCurrentUserName+'@'+GetEnv('HOSTNAME')+'>';
end;
end.

3
ide/keymapping.pp
View File

@ -85,6 +85,7 @@ const
ecInsertGPLNotice = ecUserFirst + 80;
ecInsertUserName = ecUserFirst + 81;
ecInsertDateTime = ecUserFirst + 82;
ecInsertChangeLogEntry = ecUserFirst + 83;
ecWordCompletion = ecUserFirst + 100;
ecCompleteCode = ecUserFirst + 101;
@ -507,6 +508,7 @@ begin
ecInsertGPLNotice: Result:='Insert GPL notice';
ecInsertUserName: Result:='Insert current username';
ecInsertDateTime: Result:='Insert current date and time';
ecInsertChangeLogEntry: Result:='Insert ChangeLog entry';
// search menu
ecFind: Result:= 'Find text';
@ -1197,6 +1199,7 @@ begin
Add(C,'Insert GPL notice',ecInsertGPLNotice,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Insert username',ecInsertUserName,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Insert date and time',ecInsertDateTime,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Insert ChangeLog entry',ecInsertChangeLogEntry,VK_UNKNOWN,[],VK_UNKNOWN,[]);
// command commands
C:=Categories[AddCategory('CommandCommands','Command commands',caAll)];

1
ide/lazarusidestrconsts.pas
View File

@ -127,6 +127,7 @@ ResourceString
lisMenuInsertGPLNotice = 'GPL notice';
lisMenuInsertUserName = 'Current username';
lisMenuInsertDateTime = 'Current date and time';
lisMenuInsertChangeLogEntry = 'ChangeLog entry';
lisMenuCompleteCode = 'Complete Code';
lisMenuFind = 'Find';

7
ide/mainbar.pas
View File

@ -159,6 +159,7 @@ type
itmEditInsertGPLNotice: TMenuItem;
itmEditInsertUsername: TMenuItem;
itmEditInsertDateTime: TMenuItem;
itmEditInsertChangeLogEntry: TMenuItem;
itmEditCompleteCode: TMenuItem;
itmSearchFind: TMenuItem;
@ -562,6 +563,11 @@ begin
itmEditInsertDateTime.Name:='itmEditInsertDateTime';
itmEditInsertDateTime.Caption := lisMenuInsertDateTime;
itmEditInsertGeneral.Add(itmEditInsertDateTime);
itmEditInsertChangeLogEntry := TMenuItem.Create(Self);
itmEditInsertChangeLogEntry.Name:='itmEditInsertChangeLogEntry';
itmEditInsertChangeLogEntry.Caption := lisMenuInsertChangeLogEntry;
itmEditInsertGeneral.Add(itmEditInsertChangeLogEntry);
end;
end;
@ -962,6 +968,7 @@ begin
itmEditInsertGPLNotice.ShortCut:=CommandToShortCut(ecInsertGPLNotice);
itmEditInsertUsername.ShortCut:=CommandToShortCut(ecInsertUserName);
itmEditInsertDateTime.ShortCut:=CommandToShortCut(ecInsertDateTime);
itmEditInsertChangeLogEntry.ShortCut:=CommandToShortCut(ecInsertChangeLogEntry);
itmEditCompleteCode.ShortCut:=CommandToShortCut(ecCompleteCode);
itmSearchFind.ShortCut:=CommandToShortCut(ecFind);