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

LazSVN and ToDoList: Changed GUI string capitalization

Browse Source 
git-svn-id: trunk@33626 -
This commit is contained in:
juha 2011-11-19 13:41:30 +00:00
parent d2c21f0142
commit 40f4015ef8
3 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazsvnpkg/svnclasses.pas
View File

@ -72,10 +72,10 @@ resourcestring
rsSettings = 'Settings';
rsSVNSettings = 'SVN settings';
rsShowDiff = 'Show diff';
rsShowDiffBase = 'Show diff of local changes';
rsShowDiffPrev = 'Show diff against previous version';
rsShowDiffHead = 'Show diff against HEAD';
rsShowDiffCountRev = 'Show last X commits';
rsShowDiffBase = 'Show Diff of Local Changes';
rsShowDiffPrev = 'Show Diff Against Previous Version';
rsShowDiffHead = 'Show Diff Against HEAD';
rsShowDiffCountRev = 'Show Last X Commits';
rsShowLog = 'Show log';
rsSourceFileDoesNotBelongToTheProjectPleaseAddFirst = 'Source file does not '
+'belong to the project. Please add first.';

6
components/todolist/todolist.pas
View File

@ -357,7 +357,7 @@ begin
//debugln(['TIDETodoWindow.UpdateTodos Owner=',DbgSName(CurOwner)]);
if CurProject<>nil then begin
// scan all units of project
Caption:=lisTodoListCaption+' '+CurProject.ProjectInfoFile;
Caption:=lisToDoList+' '+CurProject.ProjectInfoFile;
FBaseDirectory:=ExtractFilePath(CurProject.ProjectInfoFile);
if (CurProject.MainFile<>nil) and (pfMainUnitIsPascalSource in CurProject.Flags)
then
@ -371,7 +371,7 @@ begin
end;
end else if CurPackage<>nil then begin
// scan all units of package
Caption:=lisTodoListCaption+' '+CurPackage.Filename;
Caption:=lisToDoList+' '+CurPackage.Filename;
FBaseDirectory:=ExtractFilePath(CurPackage.Filename);
for i:=0 to CurPackage.FileCount-1 do begin
CurPkgFile:=CurPackage.Files[i];
@ -627,7 +627,7 @@ begin
fUpdating := False;
fScannedFiles := TAvgLvlTree.Create(@CompareTLScannedFiles);
Caption := lisTodoListCaption;
Caption := lisToDoList;
acRefresh.Hint := lisTodolistRefresh;
acGoto.Hint := listodoListGotoLine;

5
components/todolist/todoliststrconsts.pas
View File

@ -28,7 +28,6 @@ uses
Classes, SysUtils;
resourcestring
lisTodoListCaption='ToDo List';
lisTodolistRefresh='Refresh todo items';
lisTodoListGotoLine='Goto selected source line';
lisTodoListPrintList='Print todo items';
@ -47,8 +46,8 @@ resourcestring
lisPrint = 'Print';
dlgUnitDepRefresh = 'Refresh';
lisTDDInsertToDo = 'Insert ToDo';
lisViewToDoList = 'View ToDo list';
lisToDoList = 'ToDo list';
lisViewToDoList = 'View ToDo List';
lisToDoList = 'ToDo List';
lisPkgFileTypeText = 'Text';
implementation