paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 14:20:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added CVS keywords

Browse Source 
git-svn-id: trunk@3325 -
This commit is contained in:
lazarus 2002-09-11 13:19:56 +00:00
parent 60c0bf0cd4
commit 621924577e
3 changed files with 100 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/keymapping.pp
View File

@ -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)];

4
ide/lazarusidestrconsts.pas
View File

@ -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';

76
ide/mainbar.pas
View File

@ -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);