paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 16:20:19 +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'; rsSettings = 'Settings';
rsSVNSettings = 'SVN settings'; rsSVNSettings = 'SVN settings';
rsShowDiff = 'Show diff'; rsShowDiff = 'Show diff';
rsShowDiffBase = 'Show diff of local changes'; rsShowDiffBase = 'Show Diff of Local Changes';
rsShowDiffPrev = 'Show diff against previous version'; rsShowDiffPrev = 'Show Diff Against Previous Version';
rsShowDiffHead = 'Show diff against HEAD'; rsShowDiffHead = 'Show Diff Against HEAD';
rsShowDiffCountRev = 'Show last X commits'; rsShowDiffCountRev = 'Show Last X Commits';
rsShowLog = 'Show log'; rsShowLog = 'Show log';
rsSourceFileDoesNotBelongToTheProjectPleaseAddFirst = 'Source file does not ' rsSourceFileDoesNotBelongToTheProjectPleaseAddFirst = 'Source file does not '
+'belong to the project. Please add first.'; +'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)]); //debugln(['TIDETodoWindow.UpdateTodos Owner=',DbgSName(CurOwner)]);
if CurProject<>nil then begin if CurProject<>nil then begin
// scan all units of project // scan all units of project
Caption:=lisTodoListCaption+' '+CurProject.ProjectInfoFile; Caption:=lisToDoList+' '+CurProject.ProjectInfoFile;
FBaseDirectory:=ExtractFilePath(CurProject.ProjectInfoFile); FBaseDirectory:=ExtractFilePath(CurProject.ProjectInfoFile);
if (CurProject.MainFile<>nil) and (pfMainUnitIsPascalSource in CurProject.Flags) if (CurProject.MainFile<>nil) and (pfMainUnitIsPascalSource in CurProject.Flags)
then then
@ -371,7 +371,7 @@ begin
end; end;
end else if CurPackage<>nil then begin end else if CurPackage<>nil then begin
// scan all units of package // scan all units of package
Caption:=lisTodoListCaption+' '+CurPackage.Filename; Caption:=lisToDoList+' '+CurPackage.Filename;
FBaseDirectory:=ExtractFilePath(CurPackage.Filename); FBaseDirectory:=ExtractFilePath(CurPackage.Filename);
for i:=0 to CurPackage.FileCount-1 do begin for i:=0 to CurPackage.FileCount-1 do begin
CurPkgFile:=CurPackage.Files[i]; CurPkgFile:=CurPackage.Files[i];
@ -627,7 +627,7 @@ begin
fUpdating := False; fUpdating := False;
fScannedFiles := TAvgLvlTree.Create(@CompareTLScannedFiles); fScannedFiles := TAvgLvlTree.Create(@CompareTLScannedFiles);
Caption := lisTodoListCaption; Caption := lisToDoList;
acRefresh.Hint := lisTodolistRefresh; acRefresh.Hint := lisTodolistRefresh;
acGoto.Hint := listodoListGotoLine; acGoto.Hint := listodoListGotoLine;

5
components/todolist/todoliststrconsts.pas
View File

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