From 621924577e8906e1787e87337f7ca7b66bffa817 Mon Sep 17 00:00:00 2001 From: lazarus Date: Wed, 11 Sep 2002 13:19:56 +0000 Subject: [PATCH] MG: added CVS keywords git-svn-id: trunk@3325 - --- ide/keymapping.pp | 24 ++++++++++++ ide/lazarusidestrconsts.pas | 4 +- ide/mainbar.pas | 76 +++++++++++++++++++++++++++++++++++-- 3 files changed, 100 insertions(+), 4 deletions(-) diff --git a/ide/keymapping.pp b/ide/keymapping.pp index df28257823..47a08ec662 100644 --- a/ide/keymapping.pp +++ b/ide/keymapping.pp @@ -86,6 +86,14 @@ const ecInsertUserName = ecUserFirst + 81; ecInsertDateTime = ecUserFirst + 82; ecInsertChangeLogEntry = ecUserFirst + 83; + ecInsertCVSAuthor = ecUserFirst + 84; + ecInsertCVSDate = ecUserFirst + 85; + ecInsertCVSHeader = ecUserFirst + 86; + ecInsertCVSID = ecUserFirst + 87; + ecInsertCVSLog = ecUserFirst + 88; + ecInsertCVSName = ecUserFirst + 89; + ecInsertCVSRevision = ecUserFirst + 90; + ecInsertCVSSource = ecUserFirst + 91; ecWordCompletion = ecUserFirst + 100; ecCompleteCode = ecUserFirst + 101; @@ -509,6 +517,14 @@ begin ecInsertUserName: Result:='Insert current username'; ecInsertDateTime: Result:='Insert current date and time'; ecInsertChangeLogEntry: Result:='Insert ChangeLog entry'; + ecInsertCVSAuthor: Result:='Insert CVS keyword Author'; + ecInsertCVSDate: Result:='Insert CVS keyword Date'; + ecInsertCVSHeader: Result:='Insert CVS keyword Header'; + ecInsertCVSID: Result:='Insert CVS keyword ID'; + ecInsertCVSLog: Result:='Insert CVS keyword Log'; + ecInsertCVSName: Result:='Insert CVS keyword Name'; + ecInsertCVSRevision: Result:='Insert CVS keyword Revision'; + ecInsertCVSSource: Result:='Insert CVS keyword Source'; // search menu ecFind: Result:= 'Find text'; @@ -1200,6 +1216,14 @@ begin 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,[]); + Add(C,'Insert CVS keyword Author',ecInsertCVSAuthor,VK_UNKNOWN,[],VK_UNKNOWN,[]); + Add(C,'Insert CVS keyword Date',ecInsertCVSDate,VK_UNKNOWN,[],VK_UNKNOWN,[]); + Add(C,'Insert CVS keyword Header',ecInsertCVSHeader,VK_UNKNOWN,[],VK_UNKNOWN,[]); + Add(C,'Insert CVS keyword ID',ecInsertCVSID,VK_UNKNOWN,[],VK_UNKNOWN,[]); + Add(C,'Insert CVS keyword Log',ecInsertCVSLog,VK_UNKNOWN,[],VK_UNKNOWN,[]); + Add(C,'Insert CVS keyword Name',ecInsertCVSName,VK_UNKNOWN,[],VK_UNKNOWN,[]); + Add(C,'Insert CVS keyword Revision',ecInsertCVSRevision,VK_UNKNOWN,[],VK_UNKNOWN,[]);; + Add(C,'Insert CVS keyword Source',ecInsertCVSSource,VK_UNKNOWN,[],VK_UNKNOWN,[]); // command commands C:=Categories[AddCategory('CommandCommands','Command commands',caAll)]; diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 6d16082503..ebf463c757 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -123,12 +123,14 @@ ResourceString lisMenuSelectLine = 'Select line'; lisMenuSelectParagraph = 'Select paragraph'; lisMenuInsertText = 'Insert text'; + lisMenuInsertCVSKeyword = 'CVS keyword'; lisMenuInsertGeneral = 'General'; + lisMenuCompleteCode = 'Complete Code'; + lisMenuInsertGPLNotice = 'GPL notice'; lisMenuInsertUserName = 'Current username'; lisMenuInsertDateTime = 'Current date and time'; lisMenuInsertChangeLogEntry = 'ChangeLog entry'; - lisMenuCompleteCode = 'Complete Code'; lisMenuFind = 'Find'; lisMenuFindNext = 'Find &Next'; diff --git a/ide/mainbar.pas b/ide/mainbar.pas index efd5ccc2f8..0d61b8e8a9 100644 --- a/ide/mainbar.pas +++ b/ide/mainbar.pas @@ -155,13 +155,25 @@ type itmEditSelectLine: TMenuItem; itmEditSelectParagraph: TMenuItem; itmEditInsertText: TMenuItem; + itmEditCompleteCode: TMenuItem; + + itmEditInsertCVSKeyWord: TMenuItem; itmEditInsertGeneral: TMenuItem; + + itmEditInsertCVSAuthor: TMenuItem; + itmEditInsertCVSDate: TMenuItem; + itmEditInsertCVSHeader: TMenuItem; + itmEditInsertCVSID: TMenuItem; + itmEditInsertCVSLog: TMenuItem; + itmEditInsertCVSName: TMenuItem; + itmEditInsertCVSRevision: TMenuItem; + itmEditInsertCVSSource: TMenuItem; + itmEditInsertGPLNotice: TMenuItem; itmEditInsertUsername: TMenuItem; itmEditInsertDateTime: TMenuItem; itmEditInsertChangeLogEntry: TMenuItem; - itmEditCompleteCode: TMenuItem; - + itmSearchFind: TMenuItem; itmSearchFindNext: TMenuItem; itmSearchFindPrevious: TMenuItem; @@ -542,6 +554,54 @@ begin begin // insert text sub menu items + itmEditInsertCVSKeyWord := TMenuItem.Create(Self); + itmEditInsertCVSKeyWord.Name:='itmEditInsertCVSKeyWord'; + itmEditInsertCVSKeyWord.Caption := lisMenuInsertCVSKeyword; + itmEditInsertText.Add(itmEditInsertCVSKeyWord); + + begin + // insert CVS keyword sub menu items + itmEditInsertCVSAuthor := TMenuItem.Create(Self); + itmEditInsertCVSAuthor.Name:='itmEditInsertCVSAuthor'; + itmEditInsertCVSAuthor.Caption := 'Author'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSAuthor); + + itmEditInsertCVSDate := TMenuItem.Create(Self); + itmEditInsertCVSDate.Name:='itmEditInsertCVSDate'; + itmEditInsertCVSDate.Caption := 'Date'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSDate); + + itmEditInsertCVSHeader := TMenuItem.Create(Self); + itmEditInsertCVSHeader.Name:='itmEditInsertCVSHeader'; + itmEditInsertCVSHeader.Caption := 'Header'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSHeader); + + itmEditInsertCVSID := TMenuItem.Create(Self); + itmEditInsertCVSID.Name:='itmEditInsertCVSID'; + itmEditInsertCVSID.Caption := 'ID'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSID); + + itmEditInsertCVSLog := TMenuItem.Create(Self); + itmEditInsertCVSLog.Name:='itmEditInsertCVSLog'; + itmEditInsertCVSLog.Caption := 'Log'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSLog); + + itmEditInsertCVSName := TMenuItem.Create(Self); + itmEditInsertCVSName.Name:='itmEditInsertCVSName'; + itmEditInsertCVSName.Caption := 'Name'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSName); + + itmEditInsertCVSRevision := TMenuItem.Create(Self); + itmEditInsertCVSRevision.Name:='itmEditInsertCVSRevision'; + itmEditInsertCVSRevision.Caption := 'Revision'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSRevision); + + itmEditInsertCVSSource := TMenuItem.Create(Self); + itmEditInsertCVSSource.Name:='itmEditInsertCVSSource'; + itmEditInsertCVSSource.Caption := 'Source'; + itmEditInsertCVSKeyWord.Add(itmEditInsertCVSSource); + end; + itmEditInsertGeneral := TMenuItem.Create(Self); itmEditInsertGeneral.Name:='itmEditInsertGeneral'; itmEditInsertGeneral.Caption := lisMenuInsertGeneral; @@ -965,11 +1025,21 @@ begin itmEditSelectCodeBlock.ShortCut:=CommandToShortCut(ecSelectCodeBlock); itmEditSelectLine.ShortCut:=CommandToShortCut(ecSelectLine); itmEditSelectParagraph.ShortCut:=CommandToShortCut(ecSelectParagraph); + itmEditCompleteCode.ShortCut:=CommandToShortCut(ecCompleteCode); + + itmEditInsertCVSAuthor.ShortCut:=CommandToShortCut(ecInsertCVSAuthor); + itmEditInsertCVSDate.ShortCut:=CommandToShortCut(ecInsertCVSDate); + itmEditInsertCVSHeader.ShortCut:=CommandToShortCut(ecInsertCVSHeader); + itmEditInsertCVSID.ShortCut:=CommandToShortCut(ecInsertCVSID); + itmEditInsertCVSLog.ShortCut:=CommandToShortCut(ecInsertCVSLog); + itmEditInsertCVSName.ShortCut:=CommandToShortCut(ecInsertCVSName); + itmEditInsertCVSRevision.ShortCut:=CommandToShortCut(ecInsertCVSRevision); + itmEditInsertCVSSource.ShortCut:=CommandToShortCut(ecInsertCVSSource); + itmEditInsertGPLNotice.ShortCut:=CommandToShortCut(ecInsertGPLNotice); itmEditInsertUsername.ShortCut:=CommandToShortCut(ecInsertUserName); itmEditInsertDateTime.ShortCut:=CommandToShortCut(ecInsertDateTime); itmEditInsertChangeLogEntry.ShortCut:=CommandToShortCut(ecInsertChangeLogEntry); - itmEditCompleteCode.ShortCut:=CommandToShortCut(ecCompleteCode); itmSearchFind.ShortCut:=CommandToShortCut(ecFind); itmSearchFindNext.ShortCut:=CommandToShortCut(ecFindNext);