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

MG: added insert Username and Datetime

Browse Source 
git-svn-id: trunk@3323 -
This commit is contained in:
lazarus 2002-09-11 12:05:46 +00:00
parent 8c87999185
commit 4b76f93f27
4 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/ideprocs.pp
View File

@ -90,6 +90,7 @@ function CommentText(const s: string; CommentType: TCommentType): string;
function UncommentLines(const s: string): string;
procedure TranslateResourceStrings(const BaseDirectory, CustomLang: string);
function NameToValidIdentifier(const s: string): string;
function GetCurrentUserName: string;
implementation
@ -972,4 +973,9 @@ begin
Result:=Dest;
end;
function GetCurrentUserName: string;
begin
Result:=GetEnv('USER');
end;
end.

8
ide/keymapping.pp
View File

@ -83,6 +83,8 @@ const
ecSelectParagraph = ecUserFirst + 58;
ecInsertGPLNotice = ecUserFirst + 80;
ecInsertUserName = ecUserFirst + 81;
ecInsertDateTime = ecUserFirst + 82;
ecWordCompletion = ecUserFirst + 100;
ecCompleteCode = ecUserFirst + 101;
@ -503,6 +505,8 @@ begin
ecSelectLine: Result:= 'Select line';
ecSelectParagraph: Result:= 'Select paragraph';
ecInsertGPLNotice: Result:='Insert GPL notice';
ecInsertUserName: Result:='Insert current username';
ecInsertDateTime: Result:='Insert current date and time';
// search menu
ecFind: Result:= 'Find text';
@ -1170,7 +1174,6 @@ begin
Add(C,'Select code block',ecSelectCodeBlock,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Select line',ecSelectLine,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Select paragraph',ecSelectParagraph,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Insert GPL notice',ecInsertGPLNotice,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Uppercase selection',ecSelectionUpperCase,VK_UNKNOWN, [],VK_UNKNOWN,[]);
Add(C,'Lowercase selection',ecSelectionLowerCase,VK_UNKNOWN, [],VK_UNKNOWN,[]);
Add(C,'Convert tabs to spaces in selection',ecSelectionTabs2Spaces,VK_UNKNOWN, [],VK_UNKNOWN,[]);
@ -1191,6 +1194,9 @@ begin
Add(C,'Delete whole text',ecClearAll,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Break line and move cursor',ecLineBreak,VK_RETURN,[],VK_UNKNOWN,[]);
Add(C,'Break line, leave cursor',ecInsertLine,VK_N,[ssCtrl],VK_UNKNOWN,[]);
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,[]);
// command commands
C:=Categories[AddCategory('CommandCommands','Command commands',caAll)];

2
ide/lazarusidestrconsts.pas
View File

@ -125,6 +125,8 @@ ResourceString
lisMenuInsertText = 'Insert text';
lisMenuInsertGeneral = 'General';
lisMenuInsertGPLNotice = 'GPL notice';
lisMenuInsertUserName = 'Current username';
lisMenuInsertDateTime = 'Current date and time';
lisMenuCompleteCode = 'Complete Code';
lisMenuFind = 'Find';

14
ide/mainbar.pas
View File

@ -157,6 +157,8 @@ type
itmEditInsertText: TMenuItem;
itmEditInsertGeneral: TMenuItem;
itmEditInsertGPLNotice: TMenuItem;
itmEditInsertUsername: TMenuItem;
itmEditInsertDateTime: TMenuItem;
itmEditCompleteCode: TMenuItem;
itmSearchFind: TMenuItem;
@ -550,6 +552,16 @@ begin
itmEditInsertGPLNotice.Name:='itmEditInsertGPLNotice';
itmEditInsertGPLNotice.Caption := lisMenuInsertGPLNotice;
itmEditInsertGeneral.Add(itmEditInsertGPLNotice);
itmEditInsertUsername := TMenuItem.Create(Self);
itmEditInsertUsername.Name:='itmEditInsertUsername';
itmEditInsertUsername.Caption := lisMenuInsertUsername;
itmEditInsertGeneral.Add(itmEditInsertUsername);
itmEditInsertDateTime := TMenuItem.Create(Self);
itmEditInsertDateTime.Name:='itmEditInsertDateTime';
itmEditInsertDateTime.Caption := lisMenuInsertDateTime;
itmEditInsertGeneral.Add(itmEditInsertDateTime);
end;
end;
@ -948,6 +960,8 @@ begin
itmEditSelectLine.ShortCut:=CommandToShortCut(ecSelectLine);
itmEditSelectParagraph.ShortCut:=CommandToShortCut(ecSelectParagraph);
itmEditInsertGPLNotice.ShortCut:=CommandToShortCut(ecInsertGPLNotice);
itmEditInsertUsername.ShortCut:=CommandToShortCut(ecInsertUserName);
itmEditInsertDateTime.ShortCut:=CommandToShortCut(ecInsertDateTime);
itmEditCompleteCode.ShortCut:=CommandToShortCut(ecCompleteCode);
itmSearchFind.ShortCut:=CommandToShortCut(ecFind);