From 4b76f93f27101b2ae03a8101d94afba7c21951f3 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Wed, 11 Sep 2002 12:05:46 +0000
Subject: [PATCH] MG: added  insert Username and Datetime

git-svn-id: trunk@3323 -
---
 ide/ideprocs.pp             |  6 ++++++
 ide/keymapping.pp           |  8 +++++++-
 ide/lazarusidestrconsts.pas |  2 ++
 ide/mainbar.pas             | 14 ++++++++++++++
 4 files changed, 29 insertions(+), 1 deletion(-)

diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index a321d29418..9d5c9ef536 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -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.
diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index c3d21018ba..3413717424 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -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)];
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 1a26a8d13f..e51c79bb3d 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -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';
diff --git a/ide/mainbar.pas b/ide/mainbar.pas
index b24deedfc1..81b938dac2 100644
--- a/ide/mainbar.pas
+++ b/ide/mainbar.pas
@@ -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);