mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-29 12:23:54 +02:00
localization, added context policy to make resource string dialog
git-svn-id: trunk@4121 -
This commit is contained in:
mattias
parent
b005241c46
commit
ed099b1966
@ -271,10 +271,10 @@ type
|
||||
function GatherResourceStringsWithValue(SectionCode: TCodeBuffer;
|
||||
SectionX, SectionY: integer; const StringValue: string;
|
||||
CodePositions: TCodeXYPositions): boolean;
|
||||
function AddResourcestring(SectionCode: TCodeBuffer;
|
||||
SectionX, SectionY: integer;
|
||||
function AddResourcestring(CursorCode: TCodeBuffer; X,Y: integer;
|
||||
SectionCode: TCodeBuffer; SectionX, SectionY: integer;
|
||||
const NewIdentifier, NewValue: string;
|
||||
InsertAlphabetically: boolean): boolean;
|
||||
InsertPolicy: TResourcestringInsertPolicy): boolean;
|
||||
|
||||
// expressions
|
||||
function GetStringConstBounds(Code: TCodeBuffer; X,Y: integer;
|
||||
@ -1077,23 +1077,34 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCodeToolManager.AddResourcestring(SectionCode: TCodeBuffer; SectionX,
|
||||
SectionY: integer; const NewIdentifier, NewValue: string;
|
||||
InsertAlphabetically: boolean): boolean;
|
||||
function TCodeToolManager.AddResourcestring(
|
||||
CursorCode: TCodeBuffer; X,Y: integer;
|
||||
SectionCode: TCodeBuffer; SectionX, SectionY: integer;
|
||||
const NewIdentifier, NewValue: string;
|
||||
InsertPolicy: TResourcestringInsertPolicy): boolean;
|
||||
var
|
||||
CursorPos: TCodeXYPosition;
|
||||
CursorPos, SectionPos, NearestPos: TCodeXYPosition;
|
||||
begin
|
||||
Result:=false;
|
||||
{$IFDEF CTDEBUG}
|
||||
writeln('TCodeToolManager.AddResourcestring A ',SectionCode.Filename,' x=',Sectionx,' y=',Sectiony);
|
||||
{$ENDIF}
|
||||
if not InitCurCodeTool(SectionCode) then exit;
|
||||
CursorPos.X:=SectionX;
|
||||
CursorPos.Y:=SectionY;
|
||||
CursorPos.Code:=SectionCode;
|
||||
SectionPos.X:=SectionX;
|
||||
SectionPos.Y:=SectionY;
|
||||
SectionPos.Code:=SectionCode;
|
||||
try
|
||||
Result:=FCurCodeTool.AddResourcestring(CursorPos, NewIdentifier, NewValue,
|
||||
InsertAlphabetically,SourceChangeCache);
|
||||
NearestPos.Code:=nil;
|
||||
if InsertPolicy=rsipContext then begin
|
||||
CursorPos.X:=X;
|
||||
CursorPos.Y:=Y;
|
||||
CursorPos.Code:=CursorCode;
|
||||
Result:=FCurCodeTool.FindNearestResourceString(CursorPos, SectionPos,
|
||||
NearestPos);
|
||||
if not Result then exit;
|
||||
end;
|
||||
Result:=FCurCodeTool.AddResourcestring(SectionPos, NewIdentifier, NewValue,
|
||||
InsertPolicy,NearestPos,SourceChangeCache);
|
||||
except
|
||||
on e: Exception do HandleException(e);
|
||||
end;
|
||||
|
||||
@ -38,6 +38,12 @@ uses
|
||||
Classes, SysUtils, CodeCache, CodeAtom;
|
||||
|
||||
type
|
||||
TResourcestringInsertPolicy = (
|
||||
rsipNone, // do not add/insert
|
||||
rsipAppend, // append at end
|
||||
rsipAlphabetically,// insert alphabetically
|
||||
rsipContext // insert context sensitive
|
||||
);
|
||||
|
||||
{ TCodeXYPositions - a list of PCodeXYPosition }
|
||||
|
||||
|
||||
@ -1942,7 +1942,7 @@ begin
|
||||
SameArea.StartPos:=SameArea.EndPos;
|
||||
MoveCursorToCleanPos(SameArea.StartPos);
|
||||
ReadTillCommentEnd;
|
||||
SameArea.EndPos:=CurPos.EndPos;
|
||||
SameArea.EndPos:=CurPos.StartPos;
|
||||
if (SameArea.StartPos=SameArea.EndPos) then
|
||||
RaiseException('TCustomCodeTool.GetCleanPosInfo Internal Error A');
|
||||
if CleanPos<SameArea.EndPos then begin
|
||||
|
||||
@ -127,9 +127,6 @@ type
|
||||
TOnGetSrcPathForCompiledUnit =
|
||||
function(Sender: TObject; const Filename: string): string of object;
|
||||
|
||||
TOnGetCodeToolForBuffer = function(Sender: TObject;
|
||||
Code: TCodeBuffer): TFindDeclarationTool of object;
|
||||
|
||||
//----------------------------------------------------------------------------
|
||||
// flags/states for searching
|
||||
TFindDeclarationFlag = (
|
||||
@ -383,6 +380,8 @@ type
|
||||
const FoundContext: TFindContext): TIdentifierFoundResult of object;
|
||||
TOnFindUsedUnit = function(SrcTool: TFindDeclarationTool;
|
||||
const TheUnitName, TheUnitInFilename: string): TCodeBuffer of object;
|
||||
TOnGetCodeToolForBuffer = function(Sender: TObject;
|
||||
Code: TCodeBuffer): TFindDeclarationTool of object;
|
||||
|
||||
TFindDeclarationInput = record
|
||||
Flags: TFindDeclarationFlags;
|
||||
@ -463,8 +462,8 @@ type
|
||||
TFindDeclarationTool = class(TPascalParserTool)
|
||||
private
|
||||
FInterfaceIdentifierCache: TInterfaceIdentifierCache;
|
||||
FOnGetCodeToolForBuffer: TOnGetCodeToolForBuffer;
|
||||
FOnFindUsedUnit: TOnFindUsedUnit;
|
||||
FOnGetCodeToolForBuffer: TOnGetCodeToolForBuffer;
|
||||
FOnGetUnitSourceSearchPath: TOnGetSearchPath;
|
||||
FOnGetSrcPathForCompiledUnit: TOnGetSrcPathForCompiledUnit;
|
||||
FFirstNodeCache: TCodeTreeNodeCache;
|
||||
@ -619,14 +618,14 @@ type
|
||||
|
||||
property InterfaceIdentifierCache: TInterfaceIdentifierCache
|
||||
read FInterfaceIdentifierCache;
|
||||
property OnGetCodeToolForBuffer: TOnGetCodeToolForBuffer
|
||||
read FOnGetCodeToolForBuffer write FOnGetCodeToolForBuffer;
|
||||
property OnGetUnitSourceSearchPath: TOnGetSearchPath
|
||||
read FOnGetUnitSourceSearchPath write FOnGetUnitSourceSearchPath;
|
||||
property OnFindUsedUnit: TOnFindUsedUnit
|
||||
read FOnFindUsedUnit write FOnFindUsedUnit;
|
||||
property OnGetSrcPathForCompiledUnit: TOnGetSrcPathForCompiledUnit
|
||||
read FOnGetSrcPathForCompiledUnit write FOnGetSrcPathForCompiledUnit;
|
||||
property OnGetCodeToolForBuffer: TOnGetCodeToolForBuffer
|
||||
read FOnGetCodeToolForBuffer write FOnGetCodeToolForBuffer;
|
||||
end;
|
||||
|
||||
const
|
||||
|
||||
@ -122,6 +122,10 @@ msgstr ""
|
||||
msgid "Comment end not found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctscompiledsrcpath
|
||||
msgid "Compiled SrcPath"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctscompiler
|
||||
msgid "Compiler"
|
||||
msgstr ""
|
||||
@ -210,6 +214,10 @@ msgstr ""
|
||||
msgid "Designer Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsdesignerunitsdirectory
|
||||
msgid "Designer Units"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsduplicateidentifier
|
||||
msgid "duplicate identifier: %s"
|
||||
msgstr ""
|
||||
@ -242,6 +250,10 @@ msgstr ""
|
||||
msgid "execute access denied for %s"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsendofsourceexpectedbutatomfound
|
||||
msgid "expected end., but %s found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsexprtypemustbeclassorrecord
|
||||
msgid "expression type must be class or record type"
|
||||
msgstr ""
|
||||
@ -378,6 +390,10 @@ msgstr ""
|
||||
msgid "invalid type"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsjitformdirectory
|
||||
msgid "JITForm Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctskeyword
|
||||
msgid "keyword"
|
||||
msgstr ""
|
||||
@ -462,6 +478,14 @@ msgstr ""
|
||||
msgid "Packager Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctspackagerregistrationdirectory
|
||||
msgid "Packager Registration Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctspackagerunitsdirectory
|
||||
msgid "Packager Units Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsprocedureorfunction
|
||||
msgid "procedure or function"
|
||||
msgstr ""
|
||||
@ -570,6 +594,10 @@ msgstr ""
|
||||
msgid "unexpected keyword \"%s\" in asm block found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunexpectedkeywordinbeginendblock
|
||||
msgid "unexpected keyword \"%s\" in begin..end found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunexpectedsubrangeoperatorfound
|
||||
msgid "unexpected subrange operator '..' found"
|
||||
msgstr ""
|
||||
@ -578,6 +606,10 @@ msgstr ""
|
||||
msgid "unit not found: %s"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunitpathinitialization
|
||||
msgid "UnitPath Initialization"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunknownfunction
|
||||
msgid "Unknown function %s"
|
||||
msgstr ""
|
||||
|
||||
@ -132,6 +132,10 @@ msgstr ""
|
||||
msgid "Comment end not found"
|
||||
msgstr "Fin de commentaire non trouvé"
|
||||
|
||||
#: codetoolsstrconsts:ctscompiledsrcpath
|
||||
msgid "Compiled SrcPath"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctscompiler
|
||||
msgid "Compiler"
|
||||
msgstr "Compilateur"
|
||||
@ -220,6 +224,10 @@ msgstr "Sources de d
|
||||
msgid "Designer Directory"
|
||||
msgstr "Répertoire concepteur"
|
||||
|
||||
#: codetoolsstrconsts:ctsdesignerunitsdirectory
|
||||
msgid "Designer Units"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsduplicateidentifier
|
||||
msgid "duplicate identifier: %s"
|
||||
msgstr "identificateur %s dupliqué"
|
||||
@ -252,6 +260,10 @@ msgstr "erreur dans paramlist"
|
||||
msgid "execute access denied for %s"
|
||||
msgstr "droits d'exécution refusés pour %s"
|
||||
|
||||
#: codetoolsstrconsts:ctsendofsourceexpectedbutatomfound
|
||||
msgid "expected end., but %s found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsexprtypemustbeclassorrecord
|
||||
msgid "expression type must be class or record type"
|
||||
msgstr "le type d'expression doit être classe ou record"
|
||||
@ -388,6 +400,10 @@ msgstr "plage non valide"
|
||||
msgid "invalid type"
|
||||
msgstr "type non valide"
|
||||
|
||||
#: codetoolsstrconsts:ctsjitformdirectory
|
||||
msgid "JITForm Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctskeyword
|
||||
msgid "keyword"
|
||||
msgstr "mot-clé"
|
||||
@ -472,6 +488,14 @@ msgstr "R
|
||||
msgid "Packager Directory"
|
||||
msgstr "Répertoire de paquet"
|
||||
|
||||
#: codetoolsstrconsts:ctspackagerregistrationdirectory
|
||||
msgid "Packager Registration Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctspackagerunitsdirectory
|
||||
msgid "Packager Units Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsprocedureorfunction
|
||||
msgid "procedure or function"
|
||||
msgstr "procedure ou function"
|
||||
@ -580,6 +604,10 @@ msgstr "mot-cl
|
||||
msgid "unexpected keyword \"%s\" in asm block found"
|
||||
msgstr "mot-clé \"%s\" inattendu trouvé dans le bloc asm"
|
||||
|
||||
#: codetoolsstrconsts:ctsunexpectedkeywordinbeginendblock
|
||||
msgid "unexpected keyword \"%s\" in begin..end found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunexpectedsubrangeoperatorfound
|
||||
msgid "unexpected subrange operator '..' found"
|
||||
msgstr "opérateur plage '..' inattendu trouvé"
|
||||
@ -588,6 +616,10 @@ msgstr "op
|
||||
msgid "unit not found: %s"
|
||||
msgstr "unité %s non trouvée"
|
||||
|
||||
#: codetoolsstrconsts:ctsunitpathinitialization
|
||||
msgid "UnitPath Initialization"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunknownfunction
|
||||
msgid "Unknown function %s"
|
||||
msgstr "fonction %s inconnue"
|
||||
|
||||
@ -146,6 +146,10 @@ msgstr ""
|
||||
msgid "unexpected end of source"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsendofsourceexpectedbutatomfound
|
||||
msgid "expected end., but %s found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctspointstartat
|
||||
msgid ". start at "
|
||||
msgstr ""
|
||||
@ -154,6 +158,10 @@ msgstr ""
|
||||
msgid "unexpected keyword \"%s\" in asm block found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunexpectedkeywordinbeginendblock
|
||||
msgid "unexpected keyword \"%s\" in begin..end found"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunexpectedkeywordwhilereadingbackwards
|
||||
msgid "unexpected keyword \"%s\" found while reading blocks backwards"
|
||||
msgstr ""
|
||||
@ -414,6 +422,10 @@ msgstr ""
|
||||
msgid "SrcPath Initialization"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsunitpathinitialization
|
||||
msgid "UnitPath Initialization"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsnestedcommentson
|
||||
msgid "Nested Comments On"
|
||||
msgstr ""
|
||||
@ -518,10 +530,30 @@ msgstr ""
|
||||
msgid "Designer Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsjitformdirectory
|
||||
msgid "JITForm Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctsdesignerunitsdirectory
|
||||
msgid "Designer Units"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctscompiledsrcpath
|
||||
msgid "Compiled SrcPath"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctspackagerdirectory
|
||||
msgid "Packager Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctspackagerregistrationdirectory
|
||||
msgid "Packager Registration Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctspackagerunitsdirectory
|
||||
msgid "Packager Units Directory"
|
||||
msgstr ""
|
||||
|
||||
#: codetoolsstrconsts:ctslazarusmaindirectory
|
||||
msgid "lazarus main directory"
|
||||
msgstr ""
|
||||
|
||||
@ -157,6 +157,8 @@ type
|
||||
// search & replace
|
||||
function ReplaceIdentifiers(IdentList: TStrings;
|
||||
SourceChangeCache: TSourceChangeCache): boolean;
|
||||
function FindNearestIdentifierNode(const CursorPos: TCodeXYPosition;
|
||||
IdentTree: TAVLTree): TAVLTreeNode;
|
||||
|
||||
// expressions
|
||||
function GetStringConstBounds(const CursorPos: TCodeXYPosition;
|
||||
@ -175,8 +177,15 @@ type
|
||||
function GatherResourceStringsWithValue(const CursorPos: TCodeXYPosition;
|
||||
const StringValue: string;
|
||||
PositionList: TCodeXYPositions): boolean;
|
||||
function GatherResourceStringIdents(const SectionPos: TCodeXYPosition;
|
||||
var IdentTree: TAVLTree): boolean;
|
||||
function FindNearestResourceString(const CursorPos,
|
||||
SectionPos: TCodeXYPosition;
|
||||
var NearestPos: TCodeXYPosition): boolean;
|
||||
function AddResourcestring(const SectionPos: TCodeXYPosition;
|
||||
const NewIdentifier, NewValue: string; InsertAlphabetically: boolean;
|
||||
const NewIdentifier, NewValue: string;
|
||||
InsertPolicy: TResourcestringInsertPolicy;
|
||||
const NearestPos: TCodeXYPosition;
|
||||
SourceChangeCache: TSourceChangeCache): boolean;
|
||||
function CreateIdentifierFromStringConst(
|
||||
const StartCursorPos, EndCursorPos: TCodeXYPosition;
|
||||
@ -208,7 +217,7 @@ const
|
||||
|
||||
var
|
||||
BlockKeywordFuncList: TKeyWordFunctionList;
|
||||
|
||||
|
||||
procedure BuildBlockKeyWordFuncList;
|
||||
var BlockWord: TBlockKeyword;
|
||||
begin
|
||||
@ -1215,11 +1224,42 @@ begin
|
||||
Result:=true;
|
||||
end;
|
||||
|
||||
function TStandardCodeTool.FindNearestIdentifierNode(
|
||||
const CursorPos: TCodeXYPosition; IdentTree: TAVLTree): TAVLTreeNode;
|
||||
var
|
||||
CleanCursorPos: integer;
|
||||
BestDiff: Integer;
|
||||
CurIdentNode: TAVLTreeNode;
|
||||
CurDiff: Integer;
|
||||
begin
|
||||
Result:=nil;
|
||||
if IdentTree=nil then exit;
|
||||
BuildTreeAndGetCleanPos(trTillCursor,CursorPos,CleanCursorPos,[],true);
|
||||
BestDiff:=SrcLen+1;
|
||||
MoveCursorToCleanPos(1);
|
||||
repeat
|
||||
ReadNextAtom;
|
||||
if AtomIsIdentifier(false) then begin
|
||||
CurIdentNode:=
|
||||
IdentTree.FindKey(@Src[CurPos.StartPos],@CompareIdentifiers);
|
||||
if CurIdentNode<>nil then begin
|
||||
CurDiff:=CurPos.StartPos-CleanCursorPos;
|
||||
if CurDiff<0 then CurDiff:=-CurDiff;
|
||||
if (Result=nil) or (CurDiff<BestDiff) then begin
|
||||
BestDiff:=CurDiff;
|
||||
Result:=CurIdentNode;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
until CurPos.EndPos>SrcLen
|
||||
end;
|
||||
|
||||
function TStandardCodeTool.GetStringConstBounds(
|
||||
const CursorPos: TCodeXYPosition;
|
||||
var StartPos, EndPos: TCodeXYPosition; ResolveComments: boolean): boolean;
|
||||
// examples:
|
||||
// 's1'+'s2'#13+AFunction(...)+inherited AMethod
|
||||
{ $DEFINE VerboseGetStringConstBounds}
|
||||
type
|
||||
TStrConstTokenType = (scatNone, scatStrConst, scatPlus, scatIdent,
|
||||
scatInherited, scatPoint, scatUp,
|
||||
@ -1263,31 +1303,41 @@ var
|
||||
SameArea: TAtomPosition;
|
||||
LastToken, CurrentToken: TStrConstTokenType;
|
||||
StartCleanPos, EndCleanPos: integer;
|
||||
StringConstantFound: Boolean;
|
||||
begin
|
||||
StartPos:=CursorPos;
|
||||
EndPos:=CursorPos;
|
||||
Result:=true;
|
||||
BuildTreeAndGetCleanPos(trAll,CursorPos,CleanCursorPos,[],true);
|
||||
//writeln('TStandardCodeTool.GetStringConstBounds A ',CleanCursorPos,' "',copy(Src,CleanCursorPos-5,5),'" | "',copy(Src,CleanCursorPos,5),'"');
|
||||
{$IFDEF VerboseGetStringConstBounds}
|
||||
writeln('TStandardCodeTool.GetStringConstBounds A ',CleanCursorPos,' "',copy(Src,CleanCursorPos-5,5),'" | "',copy(Src,CleanCursorPos,5),'"');
|
||||
{$ENDIF}
|
||||
GetCleanPosInfo(-1,CleanCursorPos,ResolveComments,SameArea);
|
||||
//writeln('TStandardCodeTool.GetStringConstBounds B ',SameArea.StartPos,'-',SameArea.EndPos,' "',copy(Src,SameArea.StartPos,SameArea.EndPos-SameArea.StartPos),'"');
|
||||
{$IFDEF VerboseGetStringConstBounds}
|
||||
writeln('TStandardCodeTool.GetStringConstBounds B ',SameArea.StartPos,'-',SameArea.EndPos,' "',copy(Src,SameArea.StartPos,SameArea.EndPos-SameArea.StartPos),'"');
|
||||
{$ENDIF}
|
||||
if (SameArea.EndPos=SameArea.StartPos) or (SameArea.StartPos>SrcLen) then
|
||||
exit;
|
||||
// read til end of string constant
|
||||
MoveCursorToCleanPos(SameArea.StartPos);
|
||||
ReadNextAtom;
|
||||
//writeln('TStandardCodeTool.GetStringConstBounds read til end of string ',GetAtom);
|
||||
{$IFDEF VerboseGetStringConstBounds}
|
||||
writeln('TStandardCodeTool.GetStringConstBounds read til end of string ',GetAtom);
|
||||
{$ENDIF}
|
||||
CurrentToken:=GetCurrentTokenType;
|
||||
if (CurrentToken=scatNone) then exit;
|
||||
StringConstantFound:=(CurrentToken=scatStrConst);
|
||||
repeat
|
||||
EndCleanPos:=CurPos.EndPos;
|
||||
ReadNextAtom;
|
||||
LastToken:=CurrentToken;
|
||||
CurrentToken:=GetCurrentTokenType;
|
||||
//writeln('TStandardCodeTool.GetStringConstBounds Read Forward: ',GetAtom,' EndCleanPos=',EndCleanPos,
|
||||
//' LastToken=',StrConstTokenTypeName[LastToken],
|
||||
//' CurrentToken=',StrConstTokenTypeName[CurrentToken],
|
||||
//' ',StrConstTokenTypeName[GetCurrentTokenType]);
|
||||
{$IFDEF VerboseGetStringConstBounds}
|
||||
writeln('TStandardCodeTool.GetStringConstBounds Read Forward: ',GetAtom,' EndCleanPos=',EndCleanPos,
|
||||
' LastToken=',StrConstTokenTypeName[LastToken],
|
||||
' CurrentToken=',StrConstTokenTypeName[CurrentToken],
|
||||
' ',StrConstTokenTypeName[GetCurrentTokenType]);
|
||||
{$ENDIF}
|
||||
case CurrentToken of
|
||||
scatNone, scatEdgedBracketClose, scatRoundBracketClose:
|
||||
if not (LastToken in [scatStrConst,scatIdent,scatUp,
|
||||
@ -1298,7 +1348,10 @@ begin
|
||||
break;
|
||||
|
||||
scatStrConst:
|
||||
if not (LastToken in [scatPlus]) then exit;
|
||||
if not (LastToken in [scatPlus]) then
|
||||
exit
|
||||
else
|
||||
StringConstantFound:=true;
|
||||
|
||||
scatPlus:
|
||||
if not (LastToken in [scatStrConst, scatIdent, scatUp,
|
||||
@ -1327,12 +1380,16 @@ begin
|
||||
// read til start of string constant
|
||||
MoveCursorToCleanPos(SameArea.StartPos);
|
||||
ReadNextAtom;
|
||||
//writeln('TStandardCodeTool.GetStringConstBounds Read til start of string ',GetAtom);
|
||||
{$IFDEF VerboseGetStringConstBounds}
|
||||
writeln('TStandardCodeTool.GetStringConstBounds Read til start of string ',GetAtom);
|
||||
{$ENDIF}
|
||||
CurrentToken:=GetCurrentTokenType;
|
||||
repeat
|
||||
StartCleanPos:=CurPos.StartPos;
|
||||
ReadPriorAtom;
|
||||
//writeln('TStandardCodeTool.GetStringConstBounds Read backward: ',GetAtom,' StartCleanPos=',StartCleanPos);
|
||||
{$IFDEF VerboseGetStringConstBounds}
|
||||
writeln('TStandardCodeTool.GetStringConstBounds Read backward: ',GetAtom,' StartCleanPos=',StartCleanPos);
|
||||
{$ENDIF}
|
||||
LastToken:=CurrentToken;
|
||||
CurrentToken:=GetCurrentTokenType;
|
||||
case CurrentToken of
|
||||
@ -1343,7 +1400,10 @@ begin
|
||||
break;
|
||||
|
||||
scatStrConst:
|
||||
if not (LastToken in [scatPlus]) then exit;
|
||||
if not (LastToken in [scatPlus]) then
|
||||
exit
|
||||
else
|
||||
StringConstantFound:=true;
|
||||
|
||||
scatPlus:
|
||||
if not (LastToken in [scatStrConst, scatIdent, scatRoundBracketOpen]) then
|
||||
@ -1371,7 +1431,12 @@ begin
|
||||
until false;
|
||||
|
||||
// convert start and end position
|
||||
//writeln('TStandardCodeTool.GetStringConstBounds END "',copy(Src,StartCleanPos,EndCleanPos-StartCleanPos),'"');
|
||||
{$IFDEF VerboseGetStringConstBounds}
|
||||
writeln('TStandardCodeTool.GetStringConstBounds END "',copy(Src,StartCleanPos,EndCleanPos-StartCleanPos),'" StringConstantFound=',StringConstantFound);
|
||||
{$ENDIF}
|
||||
if not StringConstantFound then begin
|
||||
EndCleanPos:=StartCleanPos;
|
||||
end;
|
||||
if not CleanPosToCaret(StartCleanPos,StartPos) then exit;
|
||||
if not CleanPosToCaret(EndCleanPos,EndPos) then exit;
|
||||
|
||||
@ -1740,8 +1805,71 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TStandardCodeTool.GatherResourceStringIdents(
|
||||
const SectionPos: TCodeXYPosition; var IdentTree: TAVLTree): boolean;
|
||||
var
|
||||
CleanCursorPos: integer;
|
||||
ANode: TCodeTreeNode;
|
||||
begin
|
||||
Result:=false;
|
||||
IdentTree:=nil;
|
||||
// parse source and find clean positions
|
||||
BuildTreeAndGetCleanPos(trAll,SectionPos,CleanCursorPos,[],true);
|
||||
// find resource string section
|
||||
ANode:=FindDeepestNodeAtPos(CleanCursorPos,true);
|
||||
if (ANode=nil) then exit;
|
||||
ANode:=ANode.GetNodeOfType(ctnResStrSection);
|
||||
if ANode=nil then exit;
|
||||
// search identifier in section
|
||||
ANode:=ANode.FirstChild;
|
||||
while ANode<>nil do begin
|
||||
if (ANode.Desc=ctnConstDefinition) then begin
|
||||
if IdentTree=nil then
|
||||
IdentTree:=TAVLTree.Create(@BasicCodeTools.CompareIdentifiers);
|
||||
IdentTree.Add(@Src[ANode.StartPos]);
|
||||
end;
|
||||
ANode:=ANode.NextBrother;
|
||||
end;
|
||||
Result:=true;
|
||||
end;
|
||||
|
||||
function TStandardCodeTool.FindNearestResourceString(const CursorPos,
|
||||
SectionPos: TCodeXYPosition; var NearestPos: TCodeXYPosition): boolean;
|
||||
var
|
||||
CursorTool, SectionTool: TStandardCodeTool;
|
||||
IdentTree: TAVLTree;
|
||||
NearestNode: TAVLTreeNode;
|
||||
NearestCleanPos: Integer;
|
||||
begin
|
||||
Result:=false;
|
||||
NearestPos.Code:=nil;
|
||||
// get both codetools
|
||||
if not Assigned(OnGetCodeToolForBuffer) then exit;
|
||||
CursorTool:=TStandardCodeTool(OnGetCodeToolForBuffer(Self,CursorPos.Code));
|
||||
SectionTool:=TStandardCodeTool(OnGetCodeToolForBuffer(Self,SectionPos.Code));
|
||||
if (CursorTool=nil) or (SectionTool=nil) then exit;
|
||||
// get all resourcestring identifiers
|
||||
IdentTree:=nil;
|
||||
Result:=SectionTool.GatherResourceStringIdents(SectionPos,IdentTree);
|
||||
if IdentTree=nil then exit;
|
||||
try
|
||||
// find nearest resourcestring identifier in the cursor source
|
||||
NearestNode:=CursorTool.FindNearestIdentifierNode(CursorPos,IdentTree);
|
||||
if NearestNode=nil then exit;
|
||||
// convert node to cleanpos
|
||||
NearestCleanPos:=Integer(NearestNode.Data)-Integer(@SectionTool.Src[1])+1;
|
||||
// convert cleanpos to caret
|
||||
CleanPosToCaret(NearestCleanPos,NearestPos);
|
||||
finally
|
||||
IdentTree.Free;
|
||||
end;
|
||||
Result:=true;
|
||||
end;
|
||||
|
||||
function TStandardCodeTool.AddResourcestring(const SectionPos: TCodeXYPosition;
|
||||
const NewIdentifier, NewValue: string; InsertAlphabetically: boolean;
|
||||
const NewIdentifier, NewValue: string;
|
||||
InsertPolicy: TResourcestringInsertPolicy;
|
||||
const NearestPos: TCodeXYPosition;
|
||||
SourceChangeCache: TSourceChangeCache): boolean;
|
||||
var
|
||||
CleanSectionPos: integer;
|
||||
@ -1749,21 +1877,24 @@ var
|
||||
Indent: Integer;
|
||||
InsertPos: Integer;
|
||||
InsertSrc: String;
|
||||
NearestCleanPos: integer;
|
||||
begin
|
||||
Result:=false;
|
||||
//writeln('TStandardCodeTool.AddResourcestring A ',NewIdentifier,'=',NewValue);
|
||||
//writeln('TStandardCodeTool.AddResourcestring A ',NewIdentifier,'=',NewValue,' ');
|
||||
if (NewIdentifier='') or (length(NewIdentifier)>255) then exit;
|
||||
if SourceChangeCache=nil then exit;
|
||||
SourceChangeCache.MainScanner:=Scanner;
|
||||
// parse source and find clean positions
|
||||
//writeln('TStandardCodeTool.AddResourcestring B');
|
||||
BuildTreeAndGetCleanPos(trAll,SectionPos,CleanSectionPos,[],true);
|
||||
//writeln('TStandardCodeTool.AddResourcestring C');
|
||||
// find resource string section
|
||||
SectionNode:=FindDeepestNodeAtPos(CleanSectionPos,true);
|
||||
if (SectionNode=nil) then exit;
|
||||
SectionNode:=SectionNode.GetNodeOfType(ctnResStrSection);
|
||||
if SectionNode=nil then exit;
|
||||
|
||||
//writeln('TStandardCodeTool.AddResourcestring B SectionChilds=',SectionNode.FirstChild<>nil,' InsertAlphabetically=',InsertAlphabetically);
|
||||
//writeln('TStandardCodeTool.AddResourcestring D SectionChilds=',SectionNode.FirstChild<>nil);
|
||||
// find insert position
|
||||
if SectionNode.FirstChild=nil then begin
|
||||
// no resourcestring in this section yet -> append as first child
|
||||
@ -1772,37 +1903,71 @@ begin
|
||||
InsertPos:=SectionNode.StartPos+length('RESOURCESTRING');
|
||||
end else begin
|
||||
// search insert position
|
||||
if InsertAlphabetically then begin
|
||||
// insert new identifier alphabetically
|
||||
ANode:=SectionNode.FirstChild;
|
||||
while (ANode<>nil) do begin
|
||||
if (ANode.Desc=ctnConstDefinition)
|
||||
and (CompareIdentifiers(@Src[ANode.StartPos],PChar(NewIdentifier))<0)
|
||||
then
|
||||
break;
|
||||
ANode:=ANode.NextBrother;
|
||||
case InsertPolicy of
|
||||
rsipAlphabetically:
|
||||
begin
|
||||
// insert new identifier alphabetically
|
||||
ANode:=SectionNode.FirstChild;
|
||||
while (ANode<>nil) do begin
|
||||
if (ANode.Desc=ctnConstDefinition)
|
||||
and (CompareIdentifiers(@Src[ANode.StartPos],PChar(NewIdentifier))<0)
|
||||
then
|
||||
break;
|
||||
ANode:=ANode.NextBrother;
|
||||
end;
|
||||
if ANode=nil then begin
|
||||
// append new identifier as last
|
||||
Indent:=GetLineIndent(Src,SectionNode.LastChild.StartPos);
|
||||
InsertPos:=FindLineEndOrCodeAfterPosition(SectionNode.LastChild.EndPos);
|
||||
end else begin
|
||||
// insert in front of node
|
||||
Indent:=GetLineIndent(Src,ANode.StartPos);
|
||||
InsertPos:=FindLineEndOrCodeInFrontOfPosition(ANode.StartPos);
|
||||
end;
|
||||
end;
|
||||
if ANode=nil then begin
|
||||
// append new identifier as last
|
||||
|
||||
rsipContext:
|
||||
begin
|
||||
// find nearest
|
||||
ANode:=nil;
|
||||
if (NearestPos.Code<>nil)
|
||||
and (CaretToCleanPos(NearestPos,NearestCleanPos)=0) then begin
|
||||
ANode:=SectionNode.FirstChild;
|
||||
while (ANode<>nil) do begin
|
||||
if (ANode.Desc=ctnConstDefinition)
|
||||
and (ANode.StartPos<=NearestCleanPos)
|
||||
and (ANode.EndPos>NearestCleanPos)
|
||||
then begin
|
||||
break;
|
||||
end;
|
||||
ANode:=ANode.NextBrother;
|
||||
end;
|
||||
end;
|
||||
if ANode=nil then begin
|
||||
// append new identifier as last
|
||||
Indent:=GetLineIndent(Src,SectionNode.LastChild.StartPos);
|
||||
InsertPos:=FindLineEndOrCodeAfterPosition(SectionNode.LastChild.EndPos);
|
||||
end else begin
|
||||
// insert behind node
|
||||
Indent:=GetLineIndent(Src,ANode.StartPos);
|
||||
InsertPos:=FindLineEndOrCodeAfterPosition(ANode.EndPos);
|
||||
end;
|
||||
end;
|
||||
|
||||
else
|
||||
begin
|
||||
// append new identifier
|
||||
Indent:=GetLineIndent(Src,SectionNode.LastChild.StartPos);
|
||||
InsertPos:=FindLineEndOrCodeAfterPosition(SectionNode.LastChild.EndPos);
|
||||
end else begin
|
||||
// insert in front of node
|
||||
Indent:=GetLineIndent(Src,ANode.StartPos);
|
||||
InsertPos:=FindLineEndOrCodeInFrontOfPosition(ANode.StartPos);
|
||||
end;
|
||||
end else begin
|
||||
// append new identifier
|
||||
Indent:=GetLineIndent(Src,SectionNode.LastChild.StartPos);
|
||||
InsertPos:=FindLineEndOrCodeAfterPosition(SectionNode.LastChild.EndPos);
|
||||
end;
|
||||
end;
|
||||
|
||||
//writeln('TStandardCodeTool.AddResourcestring C Indent=',Indent,' InsertPos=',InsertPos,' ',copy(Src,InsertPos-9,8),'|',copy(Src,InsertPos,8));
|
||||
//writeln('TStandardCodeTool.AddResourcestring E Indent=',Indent,' InsertPos=',InsertPos,' ',copy(Src,InsertPos-9,8),'|',copy(Src,InsertPos,8));
|
||||
// insert
|
||||
InsertSrc:=SourceChangeCache.BeautifyCodeOptions.BeautifyStatement(
|
||||
NewIdentifier+' = '+NewValue+';',Indent);
|
||||
//writeln('TStandardCodeTool.AddResourcestring D "',InsertSrc,'"');
|
||||
//writeln('TStandardCodeTool.AddResourcestring F "',InsertSrc,'"');
|
||||
SourceChangeCache.Replace(gtNewLine,gtNewLine,InsertPos,InsertPos,InsertSrc);
|
||||
SourceChangeCache.Apply;
|
||||
Result:=true;
|
||||
|
||||
@ -1217,6 +1217,7 @@ resourcestring
|
||||
lisMakeResStrStringsWithSameValue = 'Strings with same value:';
|
||||
lisMakeResStrAppendToSection = 'Append to section';
|
||||
lisMakeResStrInsertAlphabetically = 'Insert alphabetically';
|
||||
lisMakeResStrInsertContexttSensitive = 'Insert context sensitive';
|
||||
lisMakeResStrSourcePreview = 'Source preview';
|
||||
|
||||
// diff dialog
|
||||
@ -1249,6 +1250,33 @@ resourcestring
|
||||
lisPkgFileTypeText = 'Text';
|
||||
lisPkgFileTypeBinary = 'Binary';
|
||||
|
||||
// view project units dialog
|
||||
lisViewProjectUnits = 'View Project Units';
|
||||
|
||||
// unit info dialog
|
||||
lisInformationAboutUnit = 'Information about %s';
|
||||
lisUIDyes = 'yes';
|
||||
lisUIDno = 'no';
|
||||
lisUIDbytes = '%s bytes';
|
||||
lisUIDName = 'Name:';
|
||||
lisUIDType = 'Type:';
|
||||
lisUIDinProject = 'in Project:';
|
||||
lisUIDIncludedBy = 'Included by:';
|
||||
lisUIDClear = 'Clear';
|
||||
lisUIDPathsReadOnly = 'Paths (Read Only)';
|
||||
lisUIDSrc = 'Src';
|
||||
lisUIDOk = 'Ok';
|
||||
|
||||
// unit editor
|
||||
lisUEErrorInRegularExpression = 'Error in regular expression';
|
||||
lisUENotFound = 'Not found';
|
||||
lisUESearchStringNotFound = 'Search string ''%s'' not found!';
|
||||
lisUEReplaceThisOccurrenceOfWith = 'Replace this occurrence of %s%s%s%s '
|
||||
+'with %s%s%s?';
|
||||
lisUESearching = 'Searching: %s';
|
||||
lisUEReadOnly = '%s/ReadOnly';
|
||||
lisUEGotoLine = 'Goto line :';
|
||||
|
||||
implementation
|
||||
end.
|
||||
|
||||
|
||||
@ -43,15 +43,9 @@ uses
|
||||
Classes, SysUtils, Forms, Controls, Buttons, ComCtrls, StdCtrls, Dialogs,
|
||||
ExtCtrls, LResources, LazarusIDEStrConsts, IDEOptionDefs, CodeToolManager,
|
||||
CodeAtom, CodeToolsStructs, CodeCache, SynHighlighterPas, SynEdit,
|
||||
EditorOptions, InputHistory;
|
||||
EditorOptions, InputHistory, MiscOptions;
|
||||
|
||||
type
|
||||
TResourcestringInsertPolicy = (
|
||||
rsipNone, // do not add/insert
|
||||
rsipAppend, // append at end
|
||||
rsipAlphabetically // insert alphabetically
|
||||
);
|
||||
|
||||
TMakeResStrDialog = class(TForm)
|
||||
// source synedit
|
||||
StringConstGroupBox: TGroupBox;
|
||||
@ -77,6 +71,7 @@ type
|
||||
// insert position type
|
||||
AppendResStrRadioButton: TRadioButton;
|
||||
InsertAlphabeticallyResStrRadioButton: TRadioButton;
|
||||
InsertContextSensitiveRadioButton: TRadioButton;
|
||||
|
||||
// preview
|
||||
SrcPreviewGroupBox: TGroupBox;
|
||||
@ -126,6 +121,7 @@ type
|
||||
procedure SaveHistories;
|
||||
procedure SaveIdentPrefixes;
|
||||
procedure SaveIdentLengths;
|
||||
procedure Save;
|
||||
end;
|
||||
|
||||
function ShowMakeResStrDialog(
|
||||
@ -172,6 +168,8 @@ begin
|
||||
else begin
|
||||
if MakeResStrDialog.InsertAlphabeticallyResStrRadioButton.Checked then
|
||||
InsertPolicy:=rsipAlphabetically
|
||||
else if MakeResStrDialog.InsertContextSensitiveRadioButton.Checked then
|
||||
InsertPolicy:=rsipContext
|
||||
else
|
||||
InsertPolicy:=rsipAppend;
|
||||
end;
|
||||
@ -263,13 +261,20 @@ begin
|
||||
with AppendResStrRadioButton do begin
|
||||
SetBounds(IdentPrefixLabel.Left,
|
||||
ResStrWithSameValuesCombobox.Top+ResStrWithSameValuesCombobox.Height+7,
|
||||
Min((Parent.ClientWidth-3*Left) div 2,150),Height);
|
||||
Min(Max(50,(Parent.ClientWidth-3*Left) div 3),150),Height);
|
||||
end;
|
||||
|
||||
with InsertAlphabeticallyResStrRadioButton do begin
|
||||
SetBounds(AppendResStrRadioButton.Left+AppendResStrRadioButton.Width+5,
|
||||
AppendResStrRadioButton.Top,
|
||||
Parent.ClientWidth-Left-5,Height);
|
||||
AppendResStrRadioButton.Width,Height);
|
||||
end;
|
||||
|
||||
with InsertContextSensitiveRadioButton do begin
|
||||
SetBounds(InsertAlphabeticallyResStrRadioButton.Left
|
||||
+InsertAlphabeticallyResStrRadioButton.Width+5,
|
||||
InsertAlphabeticallyResStrRadioButton.Top,
|
||||
Max(100,Parent.ClientWidth-Left-5),Height);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -351,7 +356,7 @@ begin
|
||||
then
|
||||
exit;
|
||||
end;
|
||||
SaveHistories;
|
||||
Save;
|
||||
ModalResult:=mrOk;
|
||||
end;
|
||||
|
||||
@ -494,6 +499,13 @@ begin
|
||||
Caption:=lisMakeResStrInsertAlphabetically;
|
||||
end;
|
||||
|
||||
InsertContextSensitiveRadioButton:=TRadioButton.Create(Self);
|
||||
with InsertContextSensitiveRadioButton do begin
|
||||
Name:='InsertContextSensitiveRadioButton';
|
||||
Parent:=ConversionGroupBox;
|
||||
Caption:=lisMakeResStrInsertContexttSensitive;
|
||||
end;
|
||||
|
||||
// converted source preview
|
||||
SrcPreviewGroupBox:=TGroupBox.Create(Self);
|
||||
with SrcPreviewGroupBox do begin
|
||||
@ -797,6 +809,8 @@ begin
|
||||
end;
|
||||
|
||||
procedure TMakeResStrDialog.Init;
|
||||
var
|
||||
InsertPolicy: TResourcestringInsertPolicy;
|
||||
begin
|
||||
// string constant
|
||||
StringConstSynEdit.Text:=Code.GetLines(StartPos.Y,EndPos.Y);
|
||||
@ -813,6 +827,13 @@ begin
|
||||
CodeToolBoss.CreateIdentifierFromStringConst(Code,StartPos.X,StartPos.Y,
|
||||
Code,EndPos.X,EndPos.Y,DefaultIdentifier,50);
|
||||
UpdateIdentifier;
|
||||
// insert policy
|
||||
InsertPolicy:=MiscellaneousOptions.MakeResourceStringInsertPolicy;
|
||||
case InsertPolicy of
|
||||
rsipAlphabetically: InsertAlphabeticallyResStrRadioButton.Checked:=true;
|
||||
rsipContext: InsertContextSensitiveRadioButton.Checked:=true;
|
||||
else AppendResStrRadioButton.Checked:=true;
|
||||
end;
|
||||
// show new source
|
||||
UpdateSourcePreview;
|
||||
end;
|
||||
@ -851,6 +872,21 @@ begin
|
||||
HistoryList.Push(IdentLengthComboBox.Text);
|
||||
end;
|
||||
|
||||
procedure TMakeResStrDialog.Save;
|
||||
var
|
||||
InsertPolicy: TResourcestringInsertPolicy;
|
||||
begin
|
||||
SaveHistories;
|
||||
if InsertContextSensitiveRadioButton.Checked then
|
||||
InsertPolicy:=rsipContext
|
||||
else if InsertAlphabeticallyResStrRadioButton.Checked then
|
||||
InsertPolicy:=rsipAlphabetically
|
||||
else
|
||||
InsertPolicy:=rsipAppend;
|
||||
MiscellaneousOptions.MakeResourceStringInsertPolicy:=InsertPolicy;
|
||||
MiscellaneousOptions.Save;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -30,7 +30,8 @@ unit MiscOptions;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, BuildLazDialog, LazConf, IDEProcs, Laz_XMLCfg;
|
||||
Classes, SysUtils, BuildLazDialog, CodeToolsStructs, LazConf, IDEProcs,
|
||||
Laz_XMLCfg;
|
||||
|
||||
type
|
||||
TSortDirection = (sdAscending, sdDescending);
|
||||
@ -40,6 +41,7 @@ type
|
||||
private
|
||||
fBuildLazOpts: TBuildLazarusOptions;
|
||||
fFilename: string;
|
||||
FMakeResourceStringInsertPolicy: TResourcestringInsertPolicy;
|
||||
FSortSelDirection: TSortDirection;
|
||||
FSortSelDomain: TSortDomain;
|
||||
function GetFilename: string;
|
||||
@ -55,6 +57,9 @@ type
|
||||
property SortSelDirection: TSortDirection read FSortSelDirection
|
||||
write FSortSelDirection;
|
||||
property SortSelDomain: TSortDomain read FSortSelDomain write FSortSelDomain;
|
||||
property MakeResourceStringInsertPolicy: TResourcestringInsertPolicy
|
||||
read FMakeResourceStringInsertPolicy
|
||||
write FMakeResourceStringInsertPolicy;
|
||||
end;
|
||||
|
||||
const
|
||||
@ -62,12 +67,15 @@ const
|
||||
'Ascending', 'Descending');
|
||||
SortDomainNames: array[TSortDomain] of string = (
|
||||
'Words', 'Lines', 'Paragraphs');
|
||||
ResourcestringInsertPolicyNames: array[TResourcestringInsertPolicy] of string
|
||||
= ('None', 'Append', 'Alphabetically', 'Context');
|
||||
|
||||
var MiscellaneousOptions: TMiscellaneousOptions;
|
||||
|
||||
function SortDirectionNameToType(const s: string): TSortDirection;
|
||||
function SortDomainNameToType(const s: string): TSortDomain;
|
||||
|
||||
function ResourcestringInsertPolicyNameToType(
|
||||
const s: string): TResourcestringInsertPolicy;
|
||||
|
||||
implementation
|
||||
|
||||
@ -90,6 +98,15 @@ begin
|
||||
Result:=sdLines;
|
||||
end;
|
||||
|
||||
function ResourcestringInsertPolicyNameToType(
|
||||
const s: string): TResourcestringInsertPolicy;
|
||||
begin
|
||||
for Result:=Low(TResourcestringInsertPolicy)
|
||||
to High(TResourcestringInsertPolicy) do
|
||||
if AnsiCompareText(ResourcestringInsertPolicyNames[Result],s)=0 then exit;
|
||||
Result:=rsipAppend;
|
||||
end;
|
||||
|
||||
{ TMiscellaneousOptions }
|
||||
|
||||
constructor TMiscellaneousOptions.Create;
|
||||
@ -143,6 +160,9 @@ begin
|
||||
Path+'SortSelection/Direction',SortDirectionNames[sdAscending]));
|
||||
SortSelDomain:=SortDomainNameToType(XMLConfig.GetValue(
|
||||
Path+'SortSelection/Domain',SortDomainNames[sdLines]));
|
||||
MakeResourceStringInsertPolicy:=ResourcestringInsertPolicyNameToType(
|
||||
XMLConfig.GetValue(Path+'MakeResourcestringInsertPolicy/Value',
|
||||
ResourcestringInsertPolicyNames[rsipAppend]));
|
||||
finally
|
||||
XMLConfig.Free;
|
||||
end;
|
||||
@ -178,7 +198,9 @@ begin
|
||||
SortDirectionNames[sdAscending]);
|
||||
XMLConfig.SetDeleteValue(Path+'SortSelection/Domain',
|
||||
SortDomainNames[SortSelDomain],SortDomainNames[sdLines]);
|
||||
|
||||
XMLConfig.SetDeleteValue(Path+'MakeResourcestringInsertPolicy/Value',
|
||||
ResourcestringInsertPolicyNames[MakeResourceStringInsertPolicy],
|
||||
ResourcestringInsertPolicyNames[rsipAppend]);
|
||||
XMLConfig.Flush;
|
||||
finally
|
||||
XMLConfig.Free;
|
||||
|
||||
@ -27,7 +27,8 @@ unit UnitInfoDlg;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Controls, StdCtrls, Forms, Buttons, ExtCtrls, IDEProcs;
|
||||
Classes, SysUtils, Controls, StdCtrls, Forms, Buttons, ExtCtrls, IDEProcs,
|
||||
LazarusIDEStrConsts;
|
||||
|
||||
type
|
||||
TUnitInfoDlg = class(TFORM)
|
||||
@ -96,15 +97,15 @@ var Dlg: TUnitInfoDlg;
|
||||
begin
|
||||
Dlg:=TUnitInfoDlg.Create(Application);
|
||||
with Dlg do begin
|
||||
Caption:='Information about '+AnUnitName;
|
||||
Caption:=Format(lisInformationAboutUnit, [AnUnitName]);
|
||||
setFilePath(FilePath);
|
||||
setShortName(AnUnitName);
|
||||
setType(AType);
|
||||
if IsPartOfProject then
|
||||
setInProject('yes')
|
||||
setInProject(lisUIDyes)
|
||||
else
|
||||
setInProject('no');
|
||||
setSize(IntToStr(SizeInBytes)+' bytes');
|
||||
setInProject(lisUIDno);
|
||||
setSize(Format(lisUIDbytes, [IntToStr(SizeInBytes)]));
|
||||
setLines(IntToStr(LineCount));
|
||||
setPath(FilePath);
|
||||
setIncludedBy(IncludedBy);
|
||||
@ -125,7 +126,6 @@ begin
|
||||
inherited Create(AOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
|
||||
Caption:='Unit Info for unit ???';
|
||||
Width:=500;
|
||||
Height:=300;
|
||||
position:=poScreenCenter;
|
||||
@ -137,7 +137,7 @@ begin
|
||||
Parent:=self;
|
||||
Left:=4;
|
||||
top:=4;
|
||||
caption:='Name:';
|
||||
caption:=lisUIDName;
|
||||
end;
|
||||
|
||||
utype:=TLabel.create(self);
|
||||
@ -146,7 +146,7 @@ begin
|
||||
Parent:=self;
|
||||
Left:=UName.Left;
|
||||
top:=24;
|
||||
caption:='Type:';
|
||||
caption:=lisUIDType;
|
||||
end;
|
||||
|
||||
uinproject:=TLabel.create(self);
|
||||
@ -155,7 +155,7 @@ begin
|
||||
Parent:=self;
|
||||
Left:=UName.Left;
|
||||
top:=44;
|
||||
caption:='in Project:';
|
||||
caption:=lisUIDinProject;
|
||||
end;
|
||||
|
||||
usize:=TLabel.create(self);
|
||||
@ -191,7 +191,7 @@ begin
|
||||
Parent:=self;
|
||||
Left:=UName.Left;
|
||||
top:=124;
|
||||
caption:='Included by:';
|
||||
caption:=lisUIDIncludedBy;
|
||||
end;
|
||||
|
||||
outname:=TLabel.create(self);
|
||||
@ -211,7 +211,6 @@ begin
|
||||
Left:=outname.Left;
|
||||
top:=24;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
caption:='temp';
|
||||
end;
|
||||
|
||||
outinproject:=TLabel.create(self);
|
||||
@ -221,7 +220,6 @@ begin
|
||||
Left:=outname.Left;
|
||||
top:=44;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
caption:='temp';
|
||||
end;
|
||||
|
||||
outsize:=TLabel.create(self);
|
||||
@ -231,7 +229,6 @@ begin
|
||||
Left:=outname.Left;
|
||||
top:=64;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
caption:='temp';
|
||||
end;
|
||||
|
||||
outlines:=TLabel.create(self);
|
||||
@ -241,7 +238,6 @@ begin
|
||||
Left:=outname.Left;
|
||||
top:=84;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
caption:='temp';
|
||||
end;
|
||||
|
||||
outpath:=TLabel.create(self);
|
||||
@ -250,7 +246,6 @@ begin
|
||||
Parent:=self;
|
||||
Left:=outname.Left;
|
||||
top:=104;
|
||||
caption:='temp';
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
autosize:=true;
|
||||
end;
|
||||
@ -261,7 +256,6 @@ begin
|
||||
Parent:=self;
|
||||
Left:=outname.Left;
|
||||
top:=124;
|
||||
caption:='temp';
|
||||
Width:=Self.ClientWidth-Left-57;
|
||||
autosize:=true;
|
||||
end;
|
||||
@ -273,7 +267,7 @@ begin
|
||||
Left:=Self.ClientWidth-55;
|
||||
Top:=122;
|
||||
Width:=50;
|
||||
Caption:='Clear';
|
||||
Caption:=lisUIDClear;
|
||||
OnClick:=@clearIncludedByClick;
|
||||
end;
|
||||
|
||||
@ -285,7 +279,7 @@ begin
|
||||
Top:=outIncludedBy.Top+outIncludedBy.Height+5;
|
||||
Width:=Self.ClientWidth-2*Left;
|
||||
Height:=100;
|
||||
Caption:='Paths (Read Only)';
|
||||
Caption:=lisUIDPathsReadOnly;
|
||||
OnResize:=@PathsGroupBoxResize;
|
||||
end;
|
||||
|
||||
@ -331,7 +325,7 @@ begin
|
||||
Parent:=PathsGroupBox;
|
||||
Left:=2;
|
||||
Top:=52;
|
||||
Caption:='Src';
|
||||
Caption:=lisUIDSrc;
|
||||
end;
|
||||
|
||||
SrcPathEdit:=TEdit.Create(Self);
|
||||
@ -351,7 +345,7 @@ begin
|
||||
Width:=75;
|
||||
Height:=25;
|
||||
Left:=(Self.ClientWidth-Width) div 2;
|
||||
Caption:='Ok';
|
||||
Caption:=lisUIDOk;
|
||||
Default:=true;
|
||||
OnClick:=@OkButtonClick;
|
||||
end;
|
||||
@ -362,22 +356,22 @@ end;
|
||||
|
||||
procedure TUnitInfoDlg.setShortName(const str:string);
|
||||
begin
|
||||
outname.caption:=str;
|
||||
outname.caption:=str;
|
||||
end;
|
||||
|
||||
procedure TUnitInfoDlg.setType(const str:string);
|
||||
begin
|
||||
outtype.caption:=str;
|
||||
outtype.caption:=str;
|
||||
end;
|
||||
|
||||
procedure TUnitInfoDlg.setInProject(const str:string);
|
||||
begin
|
||||
outinproject.caption:=str;
|
||||
outinproject.caption:=str;
|
||||
end;
|
||||
|
||||
procedure TUnitInfoDlg.setSize(const str:string);
|
||||
begin
|
||||
outsize.caption:=str;
|
||||
outsize.caption:=str;
|
||||
end;
|
||||
|
||||
procedure TUnitInfoDlg.setLines(const str:string);
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
{
|
||||
/***************************************************************************
|
||||
ViewUnit_dlg.pp
|
||||
-------------------
|
||||
---------------
|
||||
TViewUnit is the application dialog for displaying all units in a project.
|
||||
|
||||
|
||||
@ -122,7 +122,7 @@ begin
|
||||
inherited Create(AOwner);
|
||||
|
||||
if LazarusResources.Find(Classname)=nil then begin
|
||||
Caption := 'View Project Units';
|
||||
Caption := lisViewProjectUnits;
|
||||
Width:=325;
|
||||
Height:=200;
|
||||
Position:=poScreenCenter;
|
||||
@ -249,6 +249,9 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.16 2003/05/02 22:22:15 mattias
|
||||
localization, added context policy to make resource string dialog
|
||||
|
||||
Revision 1.15 2003/03/08 01:33:35 mattias
|
||||
localization from Olivier
|
||||
|
||||
@ -295,96 +298,5 @@ end.
|
||||
Revision 1.1 2000/07/13 10:27:48 michael
|
||||
+ Initial import
|
||||
|
||||
Revision 1.8 2000/05/10 02:34:43 lazarus
|
||||
Changed writelns to Asserts except for ERROR and WARNING messages. CAW
|
||||
|
||||
Revision 1.7 2000/03/24 14:40:41 lazarus
|
||||
A little polishing and bug fixing.
|
||||
|
||||
Revision 1.6 2000/03/19 03:52:08 lazarus
|
||||
Added onclick events for the speedbuttons.
|
||||
Shane
|
||||
|
||||
Revision 1.5 2000/03/03 20:22:02 lazarus
|
||||
Trying to add TBitBtn
|
||||
Shane
|
||||
|
||||
Revision 1.4 2000/02/24 09:10:12 lazarus
|
||||
TListBox.Selected bug fixed.
|
||||
|
||||
Revision 1.3 2000/02/22 21:29:42 lazarus
|
||||
Added a few more options in the editor like closeing a unit. Also am keeping track of what page , if any, they are currently on.
|
||||
Shane
|
||||
|
||||
Revision 1.2 2000/02/21 21:08:29 lazarus
|
||||
Bug fix in GetCaption. Added the line to check if a handle is allocated for a csEdit. Otherwise when creating it, it check's it's caption. It then sends a LM_GETTEXT and the edit isn't created, so it calls LM_CREATE which in turn checks the caption again, etc.
|
||||
Shane
|
||||
|
||||
Revision 1.1 2000/02/21 17:38:04 lazarus
|
||||
Added modalresult to TCustomForm
|
||||
Added a View Units dialog box
|
||||
Added a View Forms dialog box
|
||||
Added a New Unit menu selection
|
||||
Added a New Form menu selection
|
||||
Shane
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -18,6 +18,10 @@ msgstr ""
|
||||
msgid " The key \"%s\" is already connected to \"%s\"."
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidbytes
|
||||
msgid "%s bytes"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsdirectory
|
||||
msgid "%s directory"
|
||||
msgstr ""
|
||||
@ -34,6 +38,10 @@ msgstr ""
|
||||
msgid "%s, project specific"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuereadonly
|
||||
msgid "%s/ReadOnly"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgpasautolower
|
||||
msgid "%sSave As%s always saves pascal files lowercase"
|
||||
msgstr ""
|
||||
@ -166,6 +174,10 @@ msgstr ""
|
||||
msgid "Add"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddcurunittopkg
|
||||
msgid "Add active unit to a package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddunittoproject
|
||||
msgid "Add active unit to Project"
|
||||
msgstr "Fuege Unit zum Projekt hinzu"
|
||||
@ -318,6 +330,10 @@ msgstr ""
|
||||
msgid "Behind methods"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypebinary
|
||||
msgid "Binary"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsblock
|
||||
msgid "Block"
|
||||
msgstr ""
|
||||
@ -370,7 +386,7 @@ msgstr "Kompilere Alles"
|
||||
msgid "build all files of program/project"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildcodetools
|
||||
#: lazarusidestrconsts:lisbuildcodetools
|
||||
msgid "Build CodeTools"
|
||||
msgstr ""
|
||||
|
||||
@ -391,6 +407,10 @@ msgid "Build IDE"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildjitform
|
||||
msgid "Build JIT Form"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildjitform
|
||||
msgid "Build JITForm"
|
||||
msgstr ""
|
||||
|
||||
@ -402,6 +422,10 @@ msgstr "Kompiliere Lazarus"
|
||||
msgid "Build LCL"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildpkgreg
|
||||
msgid "Build Package Registration"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecbuild
|
||||
msgid "build program/project"
|
||||
msgstr ""
|
||||
@ -470,10 +494,30 @@ msgstr ""
|
||||
msgid "Choose code template file (*.dci)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosecompilerpath
|
||||
msgid "Choose compiler filename (ppc386)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedebuggerpath
|
||||
msgid "Choose debugger filename"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedirectory
|
||||
msgid "Choose directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosefpcsourcedir
|
||||
msgid "Choose FPC source directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischooselazarussourcedirectory
|
||||
msgid "Choose Lazarus Directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosetestbuilddir
|
||||
msgid "Choose the directory for tests"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcdtclassorder
|
||||
msgid "Class order"
|
||||
msgstr ""
|
||||
@ -510,10 +554,6 @@ msgstr ""
|
||||
msgid "Close all editor files"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Close buttons in notebook"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcodecreation
|
||||
msgid "Code Creation"
|
||||
msgstr ""
|
||||
@ -1074,6 +1114,10 @@ msgstr ""
|
||||
msgid "Error"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisueerrorinregularexpression
|
||||
msgid "Error in regular expression"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefserrorreading
|
||||
msgid "Error reading %s%s%s%s%s"
|
||||
msgstr ""
|
||||
@ -1338,6 +1382,10 @@ msgstr "Gehe zur Include Direktiven"
|
||||
msgid "Goto line"
|
||||
msgstr "Gehe zu Zeilennummer"
|
||||
|
||||
#: lazarusidestrconsts:lisuegotoline
|
||||
msgid "Goto line :"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtodolistgotoline
|
||||
msgid "Goto selected source line"
|
||||
msgstr ""
|
||||
@ -1526,10 +1574,18 @@ msgstr ""
|
||||
msgid "In front of methods"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidinproject
|
||||
msgid "in Project:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgassertcode
|
||||
msgid "Include Assertion Code"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeinclude
|
||||
msgid "Include file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoincfiles
|
||||
msgid "Include Files:"
|
||||
msgstr ""
|
||||
@ -1538,6 +1594,10 @@ msgstr ""
|
||||
msgid "Include system variables"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidincludedby
|
||||
msgid "Included by:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuincrementalfind
|
||||
msgid "Incremental Find"
|
||||
msgstr ""
|
||||
@ -1558,6 +1618,14 @@ msgstr "Block einruecken"
|
||||
msgid "Info"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisinformationaboutunit
|
||||
msgid "Information about %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoinherited
|
||||
msgid "Inherited"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uepins
|
||||
msgid "INS"
|
||||
msgstr ""
|
||||
@ -1574,6 +1642,10 @@ msgstr ""
|
||||
msgid "Insert ChangeLog entry"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismakeresstrinsertcontexttsensitive
|
||||
msgid "Insert context sensitive"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecinsertdatetime
|
||||
msgid "Insert current date and time"
|
||||
msgstr ""
|
||||
@ -1822,6 +1894,10 @@ msgstr "Startkommando des Projektes"
|
||||
msgid "lazarus [options] <project-filename>\n\nIDE Options:\n\n--help or -? this help message\n\n"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisconfigdirectory
|
||||
msgid "Lazarus config directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazarusdirectory
|
||||
msgid "Lazarus directory"
|
||||
msgstr "Lazarus Verzeichnis"
|
||||
@ -1874,6 +1950,10 @@ msgstr ""
|
||||
msgid "Level 3 (Level 2 + Uncertain)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelfm
|
||||
msgid "LFM - Lazarus form text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuinsertlgplnotice
|
||||
msgid "LGPL notice"
|
||||
msgstr ""
|
||||
@ -1938,6 +2018,10 @@ msgstr "Block klein schreiben"
|
||||
msgid "Lowercase, first letter up"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelrs
|
||||
msgid "LRS - Lazarus resource"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgmainmenu
|
||||
msgid "Main Menu"
|
||||
msgstr ""
|
||||
@ -2162,6 +2246,10 @@ msgstr ""
|
||||
msgid "Next"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidno
|
||||
msgid "no"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgednoerr
|
||||
msgid "No errors in key mapping found."
|
||||
msgstr ""
|
||||
@ -2190,6 +2278,10 @@ msgstr ""
|
||||
msgid "Normal selection mode"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuenotfound
|
||||
msgid "Not found"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uenotimplcap
|
||||
msgid "Not implemented yet"
|
||||
msgstr ""
|
||||
@ -2250,14 +2342,18 @@ msgstr ""
|
||||
msgid "Open filename at cursor"
|
||||
msgstr "Oeffne Dateiname unter Cursor"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopeninstalledpkg
|
||||
msgid "Open installed package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgqopenlastprj
|
||||
msgid "Open last project at start"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackage
|
||||
msgid "Open package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackagefile
|
||||
msgid "Open package file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenproject
|
||||
msgid "Open Project"
|
||||
msgstr "Oeffne Projekt"
|
||||
@ -2270,6 +2366,10 @@ msgstr "Oeffne Projekt Datei"
|
||||
msgid "Open Recent"
|
||||
msgstr "Oeffne wieder"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentpkg
|
||||
msgid "Open recent package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentproject
|
||||
msgid "Open Recent Project"
|
||||
msgstr "Oeffne bekanntes Projekt"
|
||||
@ -2334,6 +2434,10 @@ msgstr ""
|
||||
msgid "OVR"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenupackagegraph
|
||||
msgid "Package Graph"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsparentnodecannotcontainch
|
||||
msgid "Parent node can not contain child nodes."
|
||||
msgstr ""
|
||||
@ -2358,6 +2462,10 @@ msgstr ""
|
||||
msgid "Path To Compiler:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidpathsreadonly
|
||||
msgid "Paths (Read Only)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenupause
|
||||
msgid "Pause"
|
||||
msgstr "Stop"
|
||||
@ -2450,6 +2558,14 @@ msgstr "Projektdateiname"
|
||||
msgid "Project files"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectincpath
|
||||
msgid "Project Include Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuprojectinspector
|
||||
msgid "Project Inspector"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmcatprojectmenu
|
||||
msgid "Project menu commands"
|
||||
msgstr ""
|
||||
@ -2462,6 +2578,14 @@ msgstr ""
|
||||
msgid "Project Options..."
|
||||
msgstr "Projektoptionen..."
|
||||
|
||||
#: lazarusidestrconsts:lisprojectsrcpath
|
||||
msgid "Project Src Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectunitpath
|
||||
msgid "Project Unit Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispromptforvalue
|
||||
msgid "Prompt for value"
|
||||
msgstr "Benutzer nach Daten fragen"
|
||||
@ -2542,6 +2666,10 @@ msgstr ""
|
||||
msgid "Replace text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuereplacethisoccurrenceofwith
|
||||
msgid "Replace this occurrence of %s%s%s%s with %s%s%s?"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgreport
|
||||
msgid "Report"
|
||||
msgstr ""
|
||||
@ -2714,6 +2842,14 @@ msgstr ""
|
||||
msgid "Search Paths"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuesearchstringnotfound
|
||||
msgid "Search string '%s' not found!"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuesearching
|
||||
msgid "Searching: %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtimesecondunit
|
||||
msgid "sec"
|
||||
msgstr ""
|
||||
@ -2874,6 +3010,10 @@ msgstr ""
|
||||
msgid "Show all procs on error"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Show Close Buttons in notebook"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgshowcompiledprocedures
|
||||
msgid "Show Compiled Procedures"
|
||||
msgstr ""
|
||||
@ -3018,6 +3158,10 @@ msgstr ""
|
||||
msgid "Space key"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidsrc
|
||||
msgid "Src"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcostack
|
||||
msgid "Stack"
|
||||
msgstr ""
|
||||
@ -3166,6 +3310,10 @@ msgstr ""
|
||||
msgid "Test directory \"%s\" not found."
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypetext
|
||||
msgid "Text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtextattributes
|
||||
msgid "Text attributes"
|
||||
msgstr ""
|
||||
@ -3326,6 +3474,10 @@ msgstr ""
|
||||
msgid "Type"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidtype
|
||||
msgid "Type:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlguncertopt
|
||||
msgid "Uncertain Optimizations"
|
||||
msgstr ""
|
||||
@ -3370,6 +3522,10 @@ msgstr ""
|
||||
msgid "Unindent selection"
|
||||
msgstr "Block rausruecken"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeunit
|
||||
msgid "Unit"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgunitdepcaption
|
||||
msgid "Unit dependencies"
|
||||
msgstr ""
|
||||
@ -3602,6 +3758,10 @@ msgstr ""
|
||||
msgid "Window Positions"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildwithstaticpackages
|
||||
msgid "With Packages"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liswordatcursorincurrenteditor
|
||||
msgid "Word at cursor in current editor"
|
||||
msgstr "Wort an der aktuellen editor position"
|
||||
@ -3630,3 +3790,7 @@ msgstr ""
|
||||
msgid "Write prefix"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidyes
|
||||
msgid "yes"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -18,6 +18,10 @@ msgstr ""
|
||||
msgid " The key \"%s\" is already connected to \"%s\"."
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidbytes
|
||||
msgid "%s bytes"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsdirectory
|
||||
msgid "%s directory"
|
||||
msgstr ""
|
||||
@ -34,6 +38,10 @@ msgstr ""
|
||||
msgid "%s, project specific"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuereadonly
|
||||
msgid "%s/ReadOnly"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgpasautolower
|
||||
msgid "%sSave As%s always saves pascal files lowercase"
|
||||
msgstr ""
|
||||
@ -166,6 +174,10 @@ msgstr ""
|
||||
msgid "Add"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddcurunittopkg
|
||||
msgid "Add active unit to a package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddunittoproject
|
||||
msgid "Add active unit to Project"
|
||||
msgstr "Añadir unidad activa al Proyecto"
|
||||
@ -318,6 +330,10 @@ msgstr "Respaldar"
|
||||
msgid "Behind methods"
|
||||
msgstr "Atrás de métodos"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypebinary
|
||||
msgid "Binary"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsblock
|
||||
msgid "Block"
|
||||
msgstr ""
|
||||
@ -370,7 +386,7 @@ msgstr "Construir todo"
|
||||
msgid "build all files of program/project"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildcodetools
|
||||
#: lazarusidestrconsts:lisbuildcodetools
|
||||
msgid "Build CodeTools"
|
||||
msgstr ""
|
||||
|
||||
@ -391,6 +407,10 @@ msgid "Build IDE"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildjitform
|
||||
msgid "Build JIT Form"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildjitform
|
||||
msgid "Build JITForm"
|
||||
msgstr ""
|
||||
|
||||
@ -402,6 +422,10 @@ msgstr "Construir Lazarus"
|
||||
msgid "Build LCL"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildpkgreg
|
||||
msgid "Build Package Registration"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecbuild
|
||||
msgid "build program/project"
|
||||
msgstr ""
|
||||
@ -470,10 +494,30 @@ msgstr "Verificar:"
|
||||
msgid "Choose code template file (*.dci)"
|
||||
msgstr "Escoja archivo plantilla de código (*.dci)"
|
||||
|
||||
#: lazarusidestrconsts:lischoosecompilerpath
|
||||
msgid "Choose compiler filename (ppc386)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedebuggerpath
|
||||
msgid "Choose debugger filename"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedirectory
|
||||
msgid "Choose directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosefpcsourcedir
|
||||
msgid "Choose FPC source directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischooselazarussourcedirectory
|
||||
msgid "Choose Lazarus Directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosetestbuilddir
|
||||
msgid "Choose the directory for tests"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcdtclassorder
|
||||
msgid "Class order"
|
||||
msgstr "Orden de la clase"
|
||||
@ -510,10 +554,6 @@ msgstr ""
|
||||
msgid "Close all editor files"
|
||||
msgstr "Cerrar todos los archivos del editor"
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Close buttons in notebook"
|
||||
msgstr "Cerrar botones en notebook"
|
||||
|
||||
#: lazarusidestrconsts:dlgcodecreation
|
||||
msgid "Code Creation"
|
||||
msgstr "Creación de Código"
|
||||
@ -1074,6 +1114,10 @@ msgstr "Opciones del Entorno"
|
||||
msgid "Error"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisueerrorinregularexpression
|
||||
msgid "Error in regular expression"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefserrorreading
|
||||
msgid "Error reading %s%s%s%s%s"
|
||||
msgstr ""
|
||||
@ -1338,6 +1382,10 @@ msgstr "Ir a directiva de inclusi
|
||||
msgid "Goto line"
|
||||
msgstr "Ir a línea"
|
||||
|
||||
#: lazarusidestrconsts:lisuegotoline
|
||||
msgid "Goto line :"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtodolistgotoline
|
||||
msgid "Goto selected source line"
|
||||
msgstr ""
|
||||
@ -1526,10 +1574,18 @@ msgstr ""
|
||||
msgid "In front of methods"
|
||||
msgstr "Delante de métodos"
|
||||
|
||||
#: lazarusidestrconsts:lisuidinproject
|
||||
msgid "in Project:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgassertcode
|
||||
msgid "Include Assertion Code"
|
||||
msgstr "Incluir código de Aserción"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeinclude
|
||||
msgid "Include file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoincfiles
|
||||
msgid "Include Files:"
|
||||
msgstr "Archivos de Inclusión:"
|
||||
@ -1538,6 +1594,10 @@ msgstr "Archivos de Inclusi
|
||||
msgid "Include system variables"
|
||||
msgstr "Incluir variables del sistema"
|
||||
|
||||
#: lazarusidestrconsts:lisuidincludedby
|
||||
msgid "Included by:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuincrementalfind
|
||||
msgid "Incremental Find"
|
||||
msgstr ""
|
||||
@ -1558,6 +1618,14 @@ msgstr "Sangrar selecci
|
||||
msgid "Info"
|
||||
msgstr "Información"
|
||||
|
||||
#: lazarusidestrconsts:lisinformationaboutunit
|
||||
msgid "Information about %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoinherited
|
||||
msgid "Inherited"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uepins
|
||||
msgid "INS"
|
||||
msgstr "INS"
|
||||
@ -1574,6 +1642,10 @@ msgstr ""
|
||||
msgid "Insert ChangeLog entry"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismakeresstrinsertcontexttsensitive
|
||||
msgid "Insert context sensitive"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecinsertdatetime
|
||||
msgid "Insert current date and time"
|
||||
msgstr ""
|
||||
@ -1822,6 +1894,10 @@ msgstr ""
|
||||
msgid "lazarus [options] <project-filename>\n\nIDE Options:\n\n--help or -? this help message\n\n"
|
||||
msgstr "lazarus [opciones] <nombrearchivo-proyecto>\n\nOpciones del IDE:\n\n--help o -? este mensaje de ayuda\n\n"
|
||||
|
||||
#: lazarusidestrconsts:lisconfigdirectory
|
||||
msgid "Lazarus config directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazarusdirectory
|
||||
msgid "Lazarus directory"
|
||||
msgstr "Directorio de Lazarus"
|
||||
@ -1874,6 +1950,10 @@ msgstr "Nivel 2 (Nivel 1 + optimizaciones m
|
||||
msgid "Level 3 (Level 2 + Uncertain)"
|
||||
msgstr "Nivel 3 (Nivel 2 + Inciertas)"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelfm
|
||||
msgid "LFM - Lazarus form text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuinsertlgplnotice
|
||||
msgid "LGPL notice"
|
||||
msgstr ""
|
||||
@ -1938,6 +2018,10 @@ msgstr "Selecci
|
||||
msgid "Lowercase, first letter up"
|
||||
msgstr "Minúsculas, primera letra mayúscula"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelrs
|
||||
msgid "LRS - Lazarus resource"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgmainmenu
|
||||
msgid "Main Menu"
|
||||
msgstr "Menú principal"
|
||||
@ -2162,6 +2246,10 @@ msgstr ""
|
||||
msgid "Next"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidno
|
||||
msgid "no"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgednoerr
|
||||
msgid "No errors in key mapping found."
|
||||
msgstr "No se encontraron errores en accesos rápidos"
|
||||
@ -2190,6 +2278,10 @@ msgstr ""
|
||||
msgid "Normal selection mode"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuenotfound
|
||||
msgid "Not found"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uenotimplcap
|
||||
msgid "Not implemented yet"
|
||||
msgstr "No implementado todavía"
|
||||
@ -2250,14 +2342,18 @@ msgstr ""
|
||||
msgid "Open filename at cursor"
|
||||
msgstr "Abrir nombre de archivo a cursor"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopeninstalledpkg
|
||||
msgid "Open installed package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgqopenlastprj
|
||||
msgid "Open last project at start"
|
||||
msgstr "Abrir último proyecto al iniciar"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackage
|
||||
msgid "Open package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackagefile
|
||||
msgid "Open package file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenproject
|
||||
msgid "Open Project"
|
||||
msgstr "Abrir Proyecto"
|
||||
@ -2270,6 +2366,10 @@ msgstr "Abrir archivo de Proyecto"
|
||||
msgid "Open Recent"
|
||||
msgstr "Abrir Reciente"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentpkg
|
||||
msgid "Open recent package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentproject
|
||||
msgid "Open Recent Project"
|
||||
msgstr "Abrir proyecto reciente"
|
||||
@ -2334,6 +2434,10 @@ msgstr ""
|
||||
msgid "OVR"
|
||||
msgstr "SOB"
|
||||
|
||||
#: lazarusidestrconsts:lismenupackagegraph
|
||||
msgid "Package Graph"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsparentnodecannotcontainch
|
||||
msgid "Parent node can not contain child nodes."
|
||||
msgstr ""
|
||||
@ -2358,6 +2462,10 @@ msgstr ""
|
||||
msgid "Path To Compiler:"
|
||||
msgstr "Ruta al compilador:"
|
||||
|
||||
#: lazarusidestrconsts:lisuidpathsreadonly
|
||||
msgid "Paths (Read Only)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenupause
|
||||
msgid "Pause"
|
||||
msgstr "Pausar"
|
||||
@ -2450,6 +2558,14 @@ msgstr "Nombre de archivo del Proyecto"
|
||||
msgid "Project files"
|
||||
msgstr "Archivos del proyecto"
|
||||
|
||||
#: lazarusidestrconsts:lisprojectincpath
|
||||
msgid "Project Include Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuprojectinspector
|
||||
msgid "Project Inspector"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmcatprojectmenu
|
||||
msgid "Project menu commands"
|
||||
msgstr ""
|
||||
@ -2462,6 +2578,14 @@ msgstr "Opciones del Proyecto"
|
||||
msgid "Project Options..."
|
||||
msgstr "Opciones del proyecto..."
|
||||
|
||||
#: lazarusidestrconsts:lisprojectsrcpath
|
||||
msgid "Project Src Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectunitpath
|
||||
msgid "Project Unit Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispromptforvalue
|
||||
msgid "Prompt for value"
|
||||
msgstr "Preguntar por valor"
|
||||
@ -2542,6 +2666,10 @@ msgstr "Reemplazar todo"
|
||||
msgid "Replace text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuereplacethisoccurrenceofwith
|
||||
msgid "Replace this occurrence of %s%s%s%s with %s%s%s?"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgreport
|
||||
msgid "Report"
|
||||
msgstr "Reporte"
|
||||
@ -2714,6 +2842,14 @@ msgstr ""
|
||||
msgid "Search Paths"
|
||||
msgstr "Rutas de búsquedas"
|
||||
|
||||
#: lazarusidestrconsts:lisuesearchstringnotfound
|
||||
msgid "Search string '%s' not found!"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuesearching
|
||||
msgid "Searching: %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtimesecondunit
|
||||
msgid "sec"
|
||||
msgstr "seg"
|
||||
@ -2874,6 +3010,10 @@ msgstr ""
|
||||
msgid "Show all procs on error"
|
||||
msgstr "Mostrar todos los procs sobre error"
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Show Close Buttons in notebook"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgshowcompiledprocedures
|
||||
msgid "Show Compiled Procedures"
|
||||
msgstr "Mostrar Procedimientos Compilados"
|
||||
@ -3018,6 +3158,10 @@ msgstr "Espacio"
|
||||
msgid "Space key"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidsrc
|
||||
msgid "Src"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcostack
|
||||
msgid "Stack"
|
||||
msgstr "Pila"
|
||||
@ -3166,6 +3310,10 @@ msgstr "Directorio de prueba"
|
||||
msgid "Test directory \"%s\" not found."
|
||||
msgstr "Directorio de prueba \"%s\" no encontrado."
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypetext
|
||||
msgid "Text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtextattributes
|
||||
msgid "Text attributes"
|
||||
msgstr "Atributos del texto"
|
||||
@ -3326,6 +3474,10 @@ msgstr "Ajustar los espacios finales"
|
||||
msgid "Type"
|
||||
msgstr "Tipo"
|
||||
|
||||
#: lazarusidestrconsts:lisuidtype
|
||||
msgid "Type:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlguncertopt
|
||||
msgid "Uncertain Optimizations"
|
||||
msgstr "Optimizaciones inciertas"
|
||||
@ -3370,6 +3522,10 @@ msgstr ""
|
||||
msgid "Unindent selection"
|
||||
msgstr "Desangrar selección"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeunit
|
||||
msgid "Unit"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgunitdepcaption
|
||||
msgid "Unit dependencies"
|
||||
msgstr ""
|
||||
@ -3602,6 +3758,10 @@ msgstr ""
|
||||
msgid "Window Positions"
|
||||
msgstr "Posiciones de las ventanas"
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildwithstaticpackages
|
||||
msgid "With Packages"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liswordatcursorincurrenteditor
|
||||
msgid "Word at cursor in current editor"
|
||||
msgstr ""
|
||||
@ -3630,3 +3790,7 @@ msgstr ""
|
||||
msgid "Write prefix"
|
||||
msgstr "Prefijo de escribir"
|
||||
|
||||
#: lazarusidestrconsts:lisuidyes
|
||||
msgid "yes"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -27,6 +27,10 @@ msgstr "Confli avec "
|
||||
msgid " The key \"%s\" is already connected to \"%s\"."
|
||||
msgstr "La touche \"%s\" est déjà associée à la commande \"%s\"."
|
||||
|
||||
#: lazarusidestrconsts:lisuidbytes
|
||||
msgid "%s bytes"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsdirectory
|
||||
msgid "%s directory"
|
||||
msgstr ""
|
||||
@ -43,6 +47,10 @@ msgstr ""
|
||||
msgid "%s, project specific"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuereadonly
|
||||
msgid "%s/ReadOnly"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgpasautolower
|
||||
msgid "%sSave As%s always saves pascal files lowercase"
|
||||
msgstr ""
|
||||
@ -175,6 +183,10 @@ msgstr ""
|
||||
msgid "Add"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddcurunittopkg
|
||||
msgid "Add active unit to a package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddunittoproject
|
||||
msgid "Add active unit to Project"
|
||||
msgstr "Ajouter l'unité active au projet"
|
||||
@ -327,6 +339,10 @@ msgstr "Sauvegarde"
|
||||
msgid "Behind methods"
|
||||
msgstr "Derrière les méthodes"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypebinary
|
||||
msgid "Binary"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsblock
|
||||
msgid "Block"
|
||||
msgstr ""
|
||||
@ -379,7 +395,7 @@ msgstr "Construire tout"
|
||||
msgid "build all files of program/project"
|
||||
msgstr "Construit tous les fichiers du programme"
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildcodetools
|
||||
#: lazarusidestrconsts:lisbuildcodetools
|
||||
msgid "Build CodeTools"
|
||||
msgstr ""
|
||||
|
||||
@ -400,6 +416,10 @@ msgid "Build IDE"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildjitform
|
||||
msgid "Build JIT Form"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildjitform
|
||||
msgid "Build JITForm"
|
||||
msgstr ""
|
||||
|
||||
@ -411,6 +431,10 @@ msgstr "Construire Lazarus"
|
||||
msgid "Build LCL"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildpkgreg
|
||||
msgid "Build Package Registration"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecbuild
|
||||
msgid "build program/project"
|
||||
msgstr "Compile le programme"
|
||||
@ -479,10 +503,30 @@ msgstr "Controles"
|
||||
msgid "Choose code template file (*.dci)"
|
||||
msgstr "Choisir un fichier de modèle de code (*.dci)"
|
||||
|
||||
#: lazarusidestrconsts:lischoosecompilerpath
|
||||
msgid "Choose compiler filename (ppc386)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedebuggerpath
|
||||
msgid "Choose debugger filename"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedirectory
|
||||
msgid "Choose directory"
|
||||
msgstr "Choisissez le répertoire"
|
||||
|
||||
#: lazarusidestrconsts:lischoosefpcsourcedir
|
||||
msgid "Choose FPC source directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischooselazarussourcedirectory
|
||||
msgid "Choose Lazarus Directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosetestbuilddir
|
||||
msgid "Choose the directory for tests"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcdtclassorder
|
||||
msgid "Class order"
|
||||
msgstr "L'odre des objets"
|
||||
@ -519,10 +563,6 @@ msgstr "Fermer tout"
|
||||
msgid "Close all editor files"
|
||||
msgstr "Fermer tous les fichiers ouverts"
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Close buttons in notebook"
|
||||
msgstr "Boutons fermer sur les onglets"
|
||||
|
||||
#: lazarusidestrconsts:dlgcodecreation
|
||||
msgid "Code Creation"
|
||||
msgstr "Création de code"
|
||||
@ -1083,6 +1123,10 @@ msgstr "Options d'environnement"
|
||||
msgid "Error"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisueerrorinregularexpression
|
||||
msgid "Error in regular expression"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefserrorreading
|
||||
msgid "Error reading %s%s%s%s%s"
|
||||
msgstr ""
|
||||
@ -1347,6 +1391,10 @@ msgstr "Aller
|
||||
msgid "Goto line"
|
||||
msgstr "Aller à la ligne"
|
||||
|
||||
#: lazarusidestrconsts:lisuegotoline
|
||||
msgid "Goto line :"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtodolistgotoline
|
||||
msgid "Goto selected source line"
|
||||
msgstr ""
|
||||
@ -1535,10 +1583,18 @@ msgstr ""
|
||||
msgid "In front of methods"
|
||||
msgstr "Devant les méthodes"
|
||||
|
||||
#: lazarusidestrconsts:lisuidinproject
|
||||
msgid "in Project:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgassertcode
|
||||
msgid "Include Assertion Code"
|
||||
msgstr "Inclure le code d'assertion"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeinclude
|
||||
msgid "Include file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoincfiles
|
||||
msgid "Include Files:"
|
||||
msgstr "Fichiers include"
|
||||
@ -1547,6 +1603,10 @@ msgstr "Fichiers include"
|
||||
msgid "Include system variables"
|
||||
msgstr "Inclure les variables système"
|
||||
|
||||
#: lazarusidestrconsts:lisuidincludedby
|
||||
msgid "Included by:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuincrementalfind
|
||||
msgid "Incremental Find"
|
||||
msgstr "Poursuivre la recherche"
|
||||
@ -1567,6 +1627,14 @@ msgstr "Indenter la s
|
||||
msgid "Info"
|
||||
msgstr "Info"
|
||||
|
||||
#: lazarusidestrconsts:lisinformationaboutunit
|
||||
msgid "Information about %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoinherited
|
||||
msgid "Inherited"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uepins
|
||||
msgid "INS"
|
||||
msgstr "INS"
|
||||
@ -1583,6 +1651,10 @@ msgstr ""
|
||||
msgid "Insert ChangeLog entry"
|
||||
msgstr "Ajoute une entrée au ChangeLog"
|
||||
|
||||
#: lazarusidestrconsts:lismakeresstrinsertcontexttsensitive
|
||||
msgid "Insert context sensitive"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecinsertdatetime
|
||||
msgid "Insert current date and time"
|
||||
msgstr "Insert la date et l'heure courante"
|
||||
@ -1831,6 +1903,10 @@ msgstr "Lancer la cible avec la ligne de commande"
|
||||
msgid "lazarus [options] <project-filename>\n\nIDE Options:\n\n--help or -? this help message\n\n"
|
||||
msgstr "lazarus [options] <fichier projet>\n\nIDE Options:\n\n--help ou -? ce message d'aide\n\n"
|
||||
|
||||
#: lazarusidestrconsts:lisconfigdirectory
|
||||
msgid "Lazarus config directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazarusdirectory
|
||||
msgid "Lazarus directory"
|
||||
msgstr "Répertoire de Lazarus"
|
||||
@ -1883,6 +1959,10 @@ msgstr "Niveau 2 (Optimisation plus lente)"
|
||||
msgid "Level 3 (Level 2 + Uncertain)"
|
||||
msgstr "Niveau 3 (Niveau 2 avec des insertitudes)"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelfm
|
||||
msgid "LFM - Lazarus form text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuinsertlgplnotice
|
||||
msgid "LGPL notice"
|
||||
msgstr ""
|
||||
@ -1947,6 +2027,10 @@ msgstr "Mise en minuscule de la s
|
||||
msgid "Lowercase, first letter up"
|
||||
msgstr "Minuscule et majusule pour la premère lettre"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelrs
|
||||
msgid "LRS - Lazarus resource"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgmainmenu
|
||||
msgid "Main Menu"
|
||||
msgstr "Menu principal"
|
||||
@ -2171,6 +2255,10 @@ msgstr ""
|
||||
msgid "Next"
|
||||
msgstr "Suivant"
|
||||
|
||||
#: lazarusidestrconsts:lisuidno
|
||||
msgid "no"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgednoerr
|
||||
msgid "No errors in key mapping found."
|
||||
msgstr "Pas d'erreurs trouvées sur l'assignation de touche"
|
||||
@ -2199,6 +2287,10 @@ msgstr ""
|
||||
msgid "Normal selection mode"
|
||||
msgstr "Mode de sélection normal"
|
||||
|
||||
#: lazarusidestrconsts:lisuenotfound
|
||||
msgid "Not found"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uenotimplcap
|
||||
msgid "Not implemented yet"
|
||||
msgstr "Non implémenté à ce jour"
|
||||
@ -2259,14 +2351,18 @@ msgstr "Ouvrir le fichier sous le curseur"
|
||||
msgid "Open filename at cursor"
|
||||
msgstr "Ouvrir le fichier sous le curseur"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopeninstalledpkg
|
||||
msgid "Open installed package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgqopenlastprj
|
||||
msgid "Open last project at start"
|
||||
msgstr "Ouvrir le dernier projet au démarrage"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackage
|
||||
msgid "Open package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackagefile
|
||||
msgid "Open package file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenproject
|
||||
msgid "Open Project"
|
||||
msgstr "Ouvrir un projet"
|
||||
@ -2279,6 +2375,10 @@ msgstr "Ouvrir un fichier projet"
|
||||
msgid "Open Recent"
|
||||
msgstr "Récemment ouvert(s)"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentpkg
|
||||
msgid "Open recent package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentproject
|
||||
msgid "Open Recent Project"
|
||||
msgstr "Ouvrir un projet récent"
|
||||
@ -2343,6 +2443,10 @@ msgstr "Mode recouvrement"
|
||||
msgid "OVR"
|
||||
msgstr "REC"
|
||||
|
||||
#: lazarusidestrconsts:lismenupackagegraph
|
||||
msgid "Package Graph"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsparentnodecannotcontainch
|
||||
msgid "Parent node can not contain child nodes."
|
||||
msgstr ""
|
||||
@ -2367,6 +2471,10 @@ msgstr "Colle le presse papier
|
||||
msgid "Path To Compiler:"
|
||||
msgstr "Chemins à compiler"
|
||||
|
||||
#: lazarusidestrconsts:lisuidpathsreadonly
|
||||
msgid "Paths (Read Only)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenupause
|
||||
msgid "Pause"
|
||||
msgstr "Pause"
|
||||
@ -2459,6 +2567,14 @@ msgstr "Nom de fichier du projet"
|
||||
msgid "Project files"
|
||||
msgstr "Fichiers projet"
|
||||
|
||||
#: lazarusidestrconsts:lisprojectincpath
|
||||
msgid "Project Include Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuprojectinspector
|
||||
msgid "Project Inspector"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmcatprojectmenu
|
||||
msgid "Project menu commands"
|
||||
msgstr "Commandes du menu Projet"
|
||||
@ -2471,6 +2587,14 @@ msgstr "Options du projet"
|
||||
msgid "Project Options..."
|
||||
msgstr "Options du projet..."
|
||||
|
||||
#: lazarusidestrconsts:lisprojectsrcpath
|
||||
msgid "Project Src Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectunitpath
|
||||
msgid "Project Unit Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispromptforvalue
|
||||
msgid "Prompt for value"
|
||||
msgstr "Demander la valeur"
|
||||
@ -2551,6 +2675,10 @@ msgstr "Remplacer tout"
|
||||
msgid "Replace text"
|
||||
msgstr "Texte à remplacer"
|
||||
|
||||
#: lazarusidestrconsts:lisuereplacethisoccurrenceofwith
|
||||
msgid "Replace this occurrence of %s%s%s%s with %s%s%s?"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgreport
|
||||
msgid "Report"
|
||||
msgstr "Rapport"
|
||||
@ -2723,6 +2851,14 @@ msgstr "D
|
||||
msgid "Search Paths"
|
||||
msgstr "Chemins de recherche"
|
||||
|
||||
#: lazarusidestrconsts:lisuesearchstringnotfound
|
||||
msgid "Search string '%s' not found!"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuesearching
|
||||
msgid "Searching: %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtimesecondunit
|
||||
msgid "sec"
|
||||
msgstr "Sec"
|
||||
@ -2883,6 +3019,10 @@ msgstr "Shift Tab"
|
||||
msgid "Show all procs on error"
|
||||
msgstr "Affiches toutes les proc.sur l'erreur"
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Show Close Buttons in notebook"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgshowcompiledprocedures
|
||||
msgid "Show Compiled Procedures"
|
||||
msgstr "Affiche les procédures compilées"
|
||||
@ -3027,6 +3167,10 @@ msgstr "Espace"
|
||||
msgid "Space key"
|
||||
msgstr "Touche espace"
|
||||
|
||||
#: lazarusidestrconsts:lisuidsrc
|
||||
msgid "Src"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcostack
|
||||
msgid "Stack"
|
||||
msgstr "Pile"
|
||||
@ -3175,6 +3319,10 @@ msgstr "R
|
||||
msgid "Test directory \"%s\" not found."
|
||||
msgstr "Le répertoire de tests \"%s\" non trouvé."
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypetext
|
||||
msgid "Text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtextattributes
|
||||
msgid "Text attributes"
|
||||
msgstr "Attributs"
|
||||
@ -3335,6 +3483,10 @@ msgstr "Supprimer les espaces de fin"
|
||||
msgid "Type"
|
||||
msgstr "Type"
|
||||
|
||||
#: lazarusidestrconsts:lisuidtype
|
||||
msgid "Type:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlguncertopt
|
||||
msgid "Uncertain Optimizations"
|
||||
msgstr "Optimisations incertaines"
|
||||
@ -3379,6 +3531,10 @@ msgstr "D
|
||||
msgid "Unindent selection"
|
||||
msgstr "Désindenter la sélection"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeunit
|
||||
msgid "Unit"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgunitdepcaption
|
||||
msgid "Unit dependencies"
|
||||
msgstr "Dépendences d'unités"
|
||||
@ -3611,6 +3767,10 @@ msgstr "Largeur:"
|
||||
msgid "Window Positions"
|
||||
msgstr "Positions de fenêtre"
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildwithstaticpackages
|
||||
msgid "With Packages"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liswordatcursorincurrenteditor
|
||||
msgid "Word at cursor in current editor"
|
||||
msgstr "Mot sous le curseur dans l'éditeur courant"
|
||||
@ -3639,3 +3799,7 @@ msgstr ""
|
||||
msgid "Write prefix"
|
||||
msgstr "Préfixe \"Write\""
|
||||
|
||||
#: lazarusidestrconsts:lisuidyes
|
||||
msgid "yes"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -98,6 +98,22 @@ msgstr ""
|
||||
msgid "Publish project directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectunitpath
|
||||
msgid "Project Unit Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectincpath
|
||||
msgid "Project Include Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectsrcpath
|
||||
msgid "Project Src Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisconfigdirectory
|
||||
msgid "Lazarus config directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenufile
|
||||
msgid "&File"
|
||||
msgstr ""
|
||||
@ -450,6 +466,10 @@ msgstr ""
|
||||
msgid "Publish Project"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuprojectinspector
|
||||
msgid "Project Inspector"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddunittoproject
|
||||
msgid "Add active unit to Project"
|
||||
msgstr ""
|
||||
@ -510,12 +530,28 @@ msgstr ""
|
||||
msgid "Run Parameters ..."
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuconfigcustomcomps
|
||||
msgid "Configure custom components"
|
||||
#: lazarusidestrconsts:lismenuopenpackage
|
||||
msgid "Open package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopeninstalledpkg
|
||||
msgid "Open installed package"
|
||||
#: lazarusidestrconsts:lismenuopenrecentpkg
|
||||
msgid "Open recent package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackagefile
|
||||
msgid "Open package file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddcurunittopkg
|
||||
msgid "Add active unit to a package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenupackagegraph
|
||||
msgid "Package Graph"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuconfigcustomcomps
|
||||
msgid "Configure custom components"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenusettings
|
||||
@ -586,6 +622,10 @@ msgstr ""
|
||||
msgid "Open Project File"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisopenpackagefile
|
||||
msgid "Open Package File"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lissavespace
|
||||
msgid "Save "
|
||||
msgstr ""
|
||||
@ -598,6 +638,26 @@ msgstr ""
|
||||
msgid "Choose directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischooselazarussourcedirectory
|
||||
msgid "Choose Lazarus Directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosecompilerpath
|
||||
msgid "Choose compiler filename (ppc386)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosefpcsourcedir
|
||||
msgid "Choose FPC source directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedebuggerpath
|
||||
msgid "Choose debugger filename"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosetestbuilddir
|
||||
msgid "Choose the directory for tests"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lissavechangestoproject
|
||||
msgid "Save changes to project %s?"
|
||||
msgstr ""
|
||||
@ -1179,7 +1239,7 @@ msgid "Scroll Past End of Line"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Close buttons in notebook"
|
||||
msgid "Show Close Buttons in notebook"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgshowscrollhint
|
||||
@ -1582,6 +1642,10 @@ msgstr ""
|
||||
msgid "Other"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoinherited
|
||||
msgid "Inherited"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgshowcompileroptions
|
||||
msgid "Show compiler options"
|
||||
msgstr ""
|
||||
@ -3170,10 +3234,6 @@ msgstr ""
|
||||
msgid "Refresh"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildjitform
|
||||
msgid "Build JITForm"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscleanlazarussource
|
||||
msgid "Clean Lazarus Source"
|
||||
msgstr ""
|
||||
@ -3186,10 +3246,22 @@ msgstr ""
|
||||
msgid "Build Component"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildcodetools
|
||||
msgid "Build CodeTools"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildsynedit
|
||||
msgid "Build SynEdit"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildjitform
|
||||
msgid "Build JIT Form"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildpkgreg
|
||||
msgid "Build Package Registration"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisbuildide
|
||||
msgid "Build IDE"
|
||||
msgstr ""
|
||||
@ -3246,6 +3318,10 @@ msgstr ""
|
||||
msgid "Build JITForm"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildwithstaticpackages
|
||||
msgid "With Packages"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildok
|
||||
msgid "Ok"
|
||||
msgstr ""
|
||||
@ -3762,6 +3838,10 @@ msgstr ""
|
||||
msgid "Insert alphabetically"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismakeresstrinsertcontexttsensitive
|
||||
msgid "Insert context sensitive"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismakeresstrsourcepreview
|
||||
msgid "Source preview"
|
||||
msgstr ""
|
||||
@ -3830,3 +3910,107 @@ msgstr ""
|
||||
msgid "ToDo options..."
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeunit
|
||||
msgid "Unit"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelfm
|
||||
msgid "LFM - Lazarus form text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelrs
|
||||
msgid "LRS - Lazarus resource"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeinclude
|
||||
msgid "Include file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypetext
|
||||
msgid "Text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypebinary
|
||||
msgid "Binary"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisviewprojectunits
|
||||
msgid "View Project Units"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisinformationaboutunit
|
||||
msgid "Information about %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidyes
|
||||
msgid "yes"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidno
|
||||
msgid "no"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidbytes
|
||||
msgid "%s bytes"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidname
|
||||
msgid "Name:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidtype
|
||||
msgid "Type:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidinproject
|
||||
msgid "in Project:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidincludedby
|
||||
msgid "Included by:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidclear
|
||||
msgid "Clear"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidpathsreadonly
|
||||
msgid "Paths (Read Only)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidsrc
|
||||
msgid "Src"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuidok
|
||||
msgid "Ok"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisueerrorinregularexpression
|
||||
msgid "Error in regular expression"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuenotfound
|
||||
msgid "Not found"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuesearchstringnotfound
|
||||
msgid "Search string '%s' not found!"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuereplacethisoccurrenceofwith
|
||||
msgid "Replace this occurrence of %s%s%s%s with %s%s%s?"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuesearching
|
||||
msgid "Searching: %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuereadonly
|
||||
msgid "%s/ReadOnly"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuegotoline
|
||||
msgid "Goto line :"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -18,6 +18,10 @@ msgstr "
|
||||
msgid " The key \"%s\" is already connected to \"%s\"."
|
||||
msgstr "ëÌÁ×ÉËÁ \"%s\" ÕÖÅ ÓÏÐÏÓÔÁ×ÌÅÎÁ Ó \"%s\"."
|
||||
|
||||
#: lazarusidestrconsts:lisuidbytes
|
||||
msgid "%s bytes"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsdirectory
|
||||
msgid "%s directory"
|
||||
msgstr "%s - ÜÔÏ ËÁÔÁÌÏÇ"
|
||||
@ -34,6 +38,10 @@ msgstr "%s,
|
||||
msgid "%s, project specific"
|
||||
msgstr "%s, Ó×ÑÚÁÎ Ó ÐÒÏÅËÔÏÍ"
|
||||
|
||||
#: lazarusidestrconsts:lisuereadonly
|
||||
msgid "%s/ReadOnly"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgpasautolower
|
||||
msgid "%sSave As%s always saves pascal files lowercase"
|
||||
msgstr "%sóÏÈÒ. ËÁË%s ×ÓÅÇÄÁ ÓÏÈÒ. ÆÁÊÌÙ ÐÁÓËÁÌÑ × ÎÉÖÎÅÍ ÒÅÇÉÓÔÒÅ"
|
||||
@ -166,6 +174,10 @@ msgstr "
|
||||
msgid "Add"
|
||||
msgstr "äÏÂÁ×ÉÔØ"
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddcurunittopkg
|
||||
msgid "Add active unit to a package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuaddunittoproject
|
||||
msgid "Add active unit to Project"
|
||||
msgstr "äÏÂÁ×ÉÔØ ÔÅËÕÝÉÊ ÍÏÄÕÌØ Ë ÐÒÏÅËÔÕ"
|
||||
@ -318,6 +330,10 @@ msgstr "
|
||||
msgid "Behind methods"
|
||||
msgstr "ðÏÓÌÅ ÍÅÔÏÄÏ×"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypebinary
|
||||
msgid "Binary"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsblock
|
||||
msgid "Block"
|
||||
msgstr "âÌÏË"
|
||||
@ -370,7 +386,7 @@ msgstr "
|
||||
msgid "build all files of program/project"
|
||||
msgstr "ÓÏÂÒÁÔØ ×ÓÅ ÆÁÊÌÙ ÐÒÏÇÒÁÍÍÙ/ÐÒÏÅËÔÁ"
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildcodetools
|
||||
#: lazarusidestrconsts:lisbuildcodetools
|
||||
msgid "Build CodeTools"
|
||||
msgstr "óÏÂÒÁÔØ CodeTools"
|
||||
|
||||
@ -391,6 +407,10 @@ msgid "Build IDE"
|
||||
msgstr "óÏÂÒÁÔØ IDE"
|
||||
|
||||
#: lazarusidestrconsts:lisbuildjitform
|
||||
msgid "Build JIT Form"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildbuildjitform
|
||||
msgid "Build JITForm"
|
||||
msgstr "óÏÂÒÁÔØ JITForm"
|
||||
|
||||
@ -402,6 +422,10 @@ msgstr "
|
||||
msgid "Build LCL"
|
||||
msgstr "óÏÂÒÁÔØ LCL"
|
||||
|
||||
#: lazarusidestrconsts:lisbuildpkgreg
|
||||
msgid "Build Package Registration"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecbuild
|
||||
msgid "build program/project"
|
||||
msgstr "ÓÏÂÒÁÔØ ÐÒÏÇÒÁÍÍÕ/ÐÒÏÅËÔ"
|
||||
@ -470,10 +494,30 @@ msgstr "
|
||||
msgid "Choose code template file (*.dci)"
|
||||
msgstr "÷ÙÂÅÒÉÔÅ ÆÁÊÌ ÛÁÂÌÏÎÏ× ËÏÄÁ (*.dci)"
|
||||
|
||||
#: lazarusidestrconsts:lischoosecompilerpath
|
||||
msgid "Choose compiler filename (ppc386)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedebuggerpath
|
||||
msgid "Choose debugger filename"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosedirectory
|
||||
msgid "Choose directory"
|
||||
msgstr "÷ÙÂÏÒ ËÁÔÁÌÏÇÁ"
|
||||
|
||||
#: lazarusidestrconsts:lischoosefpcsourcedir
|
||||
msgid "Choose FPC source directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischooselazarussourcedirectory
|
||||
msgid "Choose Lazarus Directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lischoosetestbuilddir
|
||||
msgid "Choose the directory for tests"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcdtclassorder
|
||||
msgid "Class order"
|
||||
msgstr "÷ ÐÏÒÑÄËÅ ËÌÁÓÓÏ×"
|
||||
@ -510,10 +554,6 @@ msgstr "
|
||||
msgid "Close all editor files"
|
||||
msgstr "úÁËÒÙÔØ ×ÓÅ ÆÁÊÌÙ ÒÅÄÁËÔÏÒÁ"
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Close buttons in notebook"
|
||||
msgstr "ëÎÏÐËÉ ÚÁËÒÙÔÉÑ ÎÁ ÚÁËÌÁÄËÁÈ"
|
||||
|
||||
#: lazarusidestrconsts:dlgcodecreation
|
||||
msgid "Code Creation"
|
||||
msgstr "óÏÚÄÁÎÉÅ ËÏÄÁ"
|
||||
@ -1074,6 +1114,10 @@ msgstr "
|
||||
msgid "Error"
|
||||
msgstr "ïÛÉÂËÁ"
|
||||
|
||||
#: lazarusidestrconsts:lisueerrorinregularexpression
|
||||
msgid "Error in regular expression"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefserrorreading
|
||||
msgid "Error reading %s%s%s%s%s"
|
||||
msgstr "ïÛÉÂËÁ ÞÔÅÎÉÑ %s%s%s%s%s"
|
||||
@ -1338,6 +1382,10 @@ msgstr "
|
||||
msgid "Goto line"
|
||||
msgstr "ðÅÒÅÈÏÄ Ë ÓÔÒÏËÅ"
|
||||
|
||||
#: lazarusidestrconsts:lisuegotoline
|
||||
msgid "Goto line :"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtodolistgotoline
|
||||
msgid "Goto selected source line"
|
||||
msgstr "ðÅÒÅÈÏÄ Ë ×ÙÄÅÌÅÎÎÏÊ ÓÔÒÏËÅ ÉÓÈÏÄÎÉËÁ"
|
||||
@ -1526,10 +1574,18 @@ msgstr ""
|
||||
msgid "In front of methods"
|
||||
msgstr "ðÅÒÅÄ ÍÅÔÏÄÁÍÉ"
|
||||
|
||||
#: lazarusidestrconsts:lisuidinproject
|
||||
msgid "in Project:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgassertcode
|
||||
msgid "Include Assertion Code"
|
||||
msgstr "÷ËÌÀÞÉÔØ ËÏÄ Assert"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeinclude
|
||||
msgid "Include file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoincfiles
|
||||
msgid "Include Files:"
|
||||
msgstr "÷ËÌÀÞÁÅÍÙÅ ÆÁÊÌÙ:"
|
||||
@ -1538,6 +1594,10 @@ msgstr "
|
||||
msgid "Include system variables"
|
||||
msgstr "÷ËÌÀÞÉÔØ ÓÉÓÔÅÍÎÙÅ ÐÅÒÅÍÅÎÎÙÅ"
|
||||
|
||||
#: lazarusidestrconsts:lisuidincludedby
|
||||
msgid "Included by:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuincrementalfind
|
||||
msgid "Incremental Find"
|
||||
msgstr "ðÏÉÓË Ó ÎÁÒÁÓÔÁÎÉÅÍ"
|
||||
@ -1558,6 +1618,14 @@ msgstr "
|
||||
msgid "Info"
|
||||
msgstr "éÎÆÏÒÍÁÃÉÑ"
|
||||
|
||||
#: lazarusidestrconsts:lisinformationaboutunit
|
||||
msgid "Information about %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcoinherited
|
||||
msgid "Inherited"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uepins
|
||||
msgid "INS"
|
||||
msgstr "÷óô"
|
||||
@ -1574,6 +1642,10 @@ msgstr "
|
||||
msgid "Insert ChangeLog entry"
|
||||
msgstr "÷ÓÔÁ×ÉÔØ ÜÌÅÍÅÎÔ ChangeLog"
|
||||
|
||||
#: lazarusidestrconsts:lismakeresstrinsertcontexttsensitive
|
||||
msgid "Insert context sensitive"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmecinsertdatetime
|
||||
msgid "Insert current date and time"
|
||||
msgstr "÷ÓÔÁ×ÉÔØ ÔÅËÕÝÉÅ ÄÁÔÕ É ×ÒÅÍÑ"
|
||||
@ -1822,6 +1894,10 @@ msgstr "
|
||||
msgid "lazarus [options] <project-filename>\n\nIDE Options:\n\n--help or -? this help message\n\n"
|
||||
msgstr "lazarus [ÏÐÃÉÉ] <ÉÍÑ ÆÁÊÌÁ ÐÒÏÅËÔÁ>\n\nîÁÓÔÒÏÊËÉ IDE :\n\n--help ÉÌÉ -? ÜÔÏ ÓÏÏÂÝÅÎÉÅ\n\n"
|
||||
|
||||
#: lazarusidestrconsts:lisconfigdirectory
|
||||
msgid "Lazarus config directory"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lislazarusdirectory
|
||||
msgid "Lazarus directory"
|
||||
msgstr "ëÁÔÁÌÏÇ Lazarus"
|
||||
@ -1874,6 +1950,10 @@ msgstr "
|
||||
msgid "Level 3 (Level 2 + Uncertain)"
|
||||
msgstr "õÒÏ×ÅÎØ 3 (ÕÒÏ×ÅÎØ 3 + ÎÅÓÔÁÎÄÁÒÔÎÁÑ)"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelfm
|
||||
msgid "LFM - Lazarus form text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuinsertlgplnotice
|
||||
msgid "LGPL notice"
|
||||
msgstr "úÁÍÅÔËÁ Ï LGPL"
|
||||
@ -1938,6 +2018,10 @@ msgstr "
|
||||
msgid "Lowercase, first letter up"
|
||||
msgstr "ôÏÌØËÏ 1Ñ ÂÕË×Á ÚÁÇÌÁ×ÎÁÑ"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypelrs
|
||||
msgid "LRS - Lazarus resource"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgmainmenu
|
||||
msgid "Main Menu"
|
||||
msgstr "çÌÁ×ÎÏÅ ÍÅÎÀ"
|
||||
@ -2162,6 +2246,10 @@ msgstr "
|
||||
msgid "Next"
|
||||
msgstr "óÌÅÄÕÀÝÉÊ"
|
||||
|
||||
#: lazarusidestrconsts:lisuidno
|
||||
msgid "no"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgednoerr
|
||||
msgid "No errors in key mapping found."
|
||||
msgstr "îÅ ÎÁÊÄÅÎÏ ÏÛÉÂÏË ÒÁÓËÌÁÄÏË."
|
||||
@ -2190,6 +2278,10 @@ msgstr "
|
||||
msgid "Normal selection mode"
|
||||
msgstr "îÏÒÍÁÌØÎÙÊ ÒÅÖÉÍ ×ÙÂÏÒÁ"
|
||||
|
||||
#: lazarusidestrconsts:lisuenotfound
|
||||
msgid "Not found"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:uenotimplcap
|
||||
msgid "Not implemented yet"
|
||||
msgstr "åÝÅ ÎÅ ÒÅÁÌÉÚÏ×ÁÎÏ"
|
||||
@ -2250,14 +2342,18 @@ msgstr "
|
||||
msgid "Open filename at cursor"
|
||||
msgstr "ïÔËÒÙÔØ ÉÍÑ ÆÁÊÌÁ ÐÏÄ ËÕÒÓÏÒÏÍ"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopeninstalledpkg
|
||||
msgid "Open installed package"
|
||||
msgstr "ïÔËÒÙÔØ ÕÓÔÁÎÏ×ÌÅÎÎÙÊ ÐÁËÅÔ"
|
||||
|
||||
#: lazarusidestrconsts:dlgqopenlastprj
|
||||
msgid "Open last project at start"
|
||||
msgstr "çÒÕÚÉÔØ ÐÏÓÌÅÄÎÉÊ ÐÒÏÅËÔ ÐÒÉ ÐÕÓËÅ"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackage
|
||||
msgid "Open package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenpackagefile
|
||||
msgid "Open package file"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenproject
|
||||
msgid "Open Project"
|
||||
msgstr "ïÔËÒÙÔØ ÐÒÏÅËÔ"
|
||||
@ -2270,6 +2366,10 @@ msgstr "
|
||||
msgid "Open Recent"
|
||||
msgstr "ïÔËÒÙÔØ ÎÅÄÁ×ÎÅÅ"
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentpkg
|
||||
msgid "Open recent package"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuopenrecentproject
|
||||
msgid "Open Recent Project"
|
||||
msgstr "ïÔËÒÙÔØ ÎÅÄÁ×ÎÉÊ ÐÒÏÅËÔ"
|
||||
@ -2334,6 +2434,10 @@ msgstr "
|
||||
msgid "OVR"
|
||||
msgstr "úáí"
|
||||
|
||||
#: lazarusidestrconsts:lismenupackagegraph
|
||||
msgid "Package Graph"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liscodetoolsdefsparentnodecannotcontainch
|
||||
msgid "Parent node can not contain child nodes."
|
||||
msgstr "òÏÄÉÔÅÌØÓËÉÊ ÜÌÅÍÅÎÔ ÎÅ ÍÏÖÅÔ ÓÏÄÅÒÖÁÔØ ÄÏÞÅÒÎÉÈ."
|
||||
@ -2358,6 +2462,10 @@ msgstr "
|
||||
msgid "Path To Compiler:"
|
||||
msgstr "ðÕÔØ Ë ËÏÍÐÉÌÑÔÏÒÕ:"
|
||||
|
||||
#: lazarusidestrconsts:lisuidpathsreadonly
|
||||
msgid "Paths (Read Only)"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenupause
|
||||
msgid "Pause"
|
||||
msgstr "ðÁÕÚÁ"
|
||||
@ -2450,6 +2558,14 @@ msgstr "
|
||||
msgid "Project files"
|
||||
msgstr "æÁÊÌÙ ÐÒÏÅËÔÁ"
|
||||
|
||||
#: lazarusidestrconsts:lisprojectincpath
|
||||
msgid "Project Include Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lismenuprojectinspector
|
||||
msgid "Project Inspector"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:srkmcatprojectmenu
|
||||
msgid "Project menu commands"
|
||||
msgstr "ëÏÍÁÎÄÙ ÍÅÎÀ ðÒÏÅËÔ"
|
||||
@ -2462,6 +2578,14 @@ msgstr "
|
||||
msgid "Project Options..."
|
||||
msgstr "ðÁÒÁÍÅÔÒÙ ÐÒÏÅËÔÁ..."
|
||||
|
||||
#: lazarusidestrconsts:lisprojectsrcpath
|
||||
msgid "Project Src Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisprojectunitpath
|
||||
msgid "Project Unit Path"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lispromptforvalue
|
||||
msgid "Prompt for value"
|
||||
msgstr "ðÏÄÓËÁÚËÁ ÐÏ ÚÎÁÞÅÎÉÀ"
|
||||
@ -2542,6 +2666,10 @@ msgstr "
|
||||
msgid "Replace text"
|
||||
msgstr "úÁÍÅÎÉÔØ ÔÅËÓÔ"
|
||||
|
||||
#: lazarusidestrconsts:lisuereplacethisoccurrenceofwith
|
||||
msgid "Replace this occurrence of %s%s%s%s with %s%s%s?"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgreport
|
||||
msgid "Report"
|
||||
msgstr "ïÔÞÅÔ"
|
||||
@ -2714,6 +2842,14 @@ msgstr "
|
||||
msgid "Search Paths"
|
||||
msgstr "ðÕÔÉ ÐÏÉÓËÁ"
|
||||
|
||||
#: lazarusidestrconsts:lisuesearchstringnotfound
|
||||
msgid "Search string '%s' not found!"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:lisuesearching
|
||||
msgid "Searching: %s"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtimesecondunit
|
||||
msgid "sec"
|
||||
msgstr "ÓÅË"
|
||||
@ -2874,6 +3010,10 @@ msgstr ""
|
||||
msgid "Show all procs on error"
|
||||
msgstr "÷ÓÅ ÐÒÏÃ-ÒÙ ÐÒÉ ÏÛÉÂËÁÈ"
|
||||
|
||||
#: lazarusidestrconsts:dlgclosebuttonsnotebook
|
||||
msgid "Show Close Buttons in notebook"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgshowcompiledprocedures
|
||||
msgid "Show Compiled Procedures"
|
||||
msgstr "ïÔËÏÍÐÉÒÉÒÏ×ÁÎÎÙÅ ÐÒÏÃ-ÒÙ"
|
||||
@ -3018,6 +3158,10 @@ msgstr "
|
||||
msgid "Space key"
|
||||
msgstr "ëÎÏÐËÁ ÐÒÏÂÅÌ"
|
||||
|
||||
#: lazarusidestrconsts:lisuidsrc
|
||||
msgid "Src"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgcostack
|
||||
msgid "Stack"
|
||||
msgstr "óÔÅËÁ"
|
||||
@ -3166,6 +3310,10 @@ msgstr "
|
||||
msgid "Test directory \"%s\" not found."
|
||||
msgstr "ëÁÔÁÌÏÇ ÐÒÏ \"%s\" ÎÅ ÎÁÊÄÅÎ."
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypetext
|
||||
msgid "Text"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgtextattributes
|
||||
msgid "Text attributes"
|
||||
msgstr "ðÁÒÁÍÅÔÒÙ ÔÅËÓÔÁ"
|
||||
@ -3326,6 +3474,10 @@ msgstr "
|
||||
msgid "Type"
|
||||
msgstr "ôÉÐ"
|
||||
|
||||
#: lazarusidestrconsts:lisuidtype
|
||||
msgid "Type:"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlguncertopt
|
||||
msgid "Uncertain Optimizations"
|
||||
msgstr "îÅÓÔÁÎÄÁÒÔÎÁÑ ÏÐÔÉÍÉÚÁÃÉÑ"
|
||||
@ -3370,6 +3522,10 @@ msgstr "
|
||||
msgid "Unindent selection"
|
||||
msgstr "óÄ×ÉÎÕÔØ ÂÌÏË ×ÌÅ×Ï"
|
||||
|
||||
#: lazarusidestrconsts:lispkgfiletypeunit
|
||||
msgid "Unit"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:dlgunitdepcaption
|
||||
msgid "Unit dependencies"
|
||||
msgstr "úÁ×ÉÓÉÍÏÓÔÉ ÍÏÄÕÌÑ"
|
||||
@ -3602,6 +3758,10 @@ msgstr "
|
||||
msgid "Window Positions"
|
||||
msgstr "ðÏÚÉÃÉÉ ÏËÎÁ"
|
||||
|
||||
#: lazarusidestrconsts:lislazbuildwithstaticpackages
|
||||
msgid "With Packages"
|
||||
msgstr ""
|
||||
|
||||
#: lazarusidestrconsts:liswordatcursorincurrenteditor
|
||||
msgid "Word at cursor in current editor"
|
||||
msgstr "óÌÏ×Ï ÐÏÄ ËÕÒÓÏÒÏÍ × ÜÔÏÍ ÒÅÄÁËÔÏÒÅ"
|
||||
@ -3630,3 +3790,7 @@ msgstr "
|
||||
msgid "Write prefix"
|
||||
msgstr "ðÒÅÆÉËÓ WRITE"
|
||||
|
||||
#: lazarusidestrconsts:lisuidyes
|
||||
msgid "yes"
|
||||
msgstr ""
|
||||
|
||||
|
||||
48
lcl/menus.pp
48
lcl/menus.pp
@ -186,28 +186,28 @@ type
|
||||
property Parent: TMenuItem read GetParent;
|
||||
published
|
||||
property AutoCheck: boolean read FAutoCheck write SetAutoCheck default False;
|
||||
property Caption: String
|
||||
read FCaption write SetCaption stored IsCaptionStored;
|
||||
property Checked: Boolean
|
||||
read FChecked write SetChecked stored IsCheckedStored default False;
|
||||
property Caption: String read FCaption write SetCaption
|
||||
stored IsCaptionStored;
|
||||
property Checked: Boolean read FChecked write SetChecked
|
||||
stored IsCheckedStored default False;
|
||||
property Default: Boolean read FDefault write SetDefault default False;
|
||||
property Enabled: Boolean
|
||||
read FEnabled write SetEnabled stored IsEnabledStored default True;
|
||||
property Enabled: Boolean read FEnabled write SetEnabled
|
||||
stored IsEnabledStored default True;
|
||||
property Graphic: TGraphic read FGraphic write SetGraphic;
|
||||
property GroupIndex: Byte read FGroupIndex write SetGroupIndex default 0;
|
||||
property Hint : String read FHint write FHint;
|
||||
property ImageIndex : Integer read FImageIndex write SetImageIndex;
|
||||
property RadioItem: Boolean
|
||||
read FRadioItem write SetRadioItem default False;
|
||||
property Hint: String read FHint write FHint;
|
||||
property ImageIndex: Integer read FImageIndex write SetImageIndex;
|
||||
property RadioItem: Boolean read FRadioItem write SetRadioItem
|
||||
default False;
|
||||
property RightJustify: boolean read FRightJustify write SetRightJustify;
|
||||
property ShortCut: TShortCut
|
||||
read FShortCut write SetShortCut stored IsShortCutStored default 0;
|
||||
property ShowAlwaysCheckable: boolean
|
||||
read FShowAlwaysCheckable write SetShowAlwaysCheckable;
|
||||
property SubMenuImages: TCustomImageList
|
||||
read FSubMenuImages write SetSubMenuImages;
|
||||
property Visible: Boolean
|
||||
read FVisible write SetVisible stored IsVisibleStored default True;
|
||||
property ShortCut: TShortCut read FShortCut write SetShortCut
|
||||
stored IsShortCutStored default 0;
|
||||
property ShowAlwaysCheckable: boolean read FShowAlwaysCheckable
|
||||
write SetShowAlwaysCheckable;
|
||||
property SubMenuImages: TCustomImageList read FSubMenuImages
|
||||
write SetSubMenuImages;
|
||||
property Visible: Boolean read FVisible write SetVisible
|
||||
stored IsVisibleStored default True;
|
||||
property OnClick: TNotifyEvent read FOnClick write FOnClick;
|
||||
end;
|
||||
|
||||
@ -231,7 +231,8 @@ type
|
||||
procedure DoChange(Source: TMenuItem; Rebuild: Boolean); virtual;
|
||||
function GetHandle: HMENU; virtual;
|
||||
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
|
||||
procedure MenuChanged(Sender: TObject; Source: TMenuItem; Rebuild: Boolean); virtual;
|
||||
procedure MenuChanged(Sender: TObject; Source: TMenuItem;
|
||||
Rebuild: Boolean); virtual;
|
||||
property OnChange: TMenuChangeEvent read FOnChange write FOnChange;
|
||||
procedure UpdateItems;
|
||||
public
|
||||
@ -276,11 +277,11 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure PopUp(X, Y : Integer);
|
||||
property PopupComponent : TComponent
|
||||
read FPopupComponent write FPopupComponent;
|
||||
property PopupComponent: TComponent read FPopupComponent
|
||||
write FPopupComponent;
|
||||
property PopupPoint: TPoint read FPopupPoint;
|
||||
published
|
||||
property AutoPopup : Boolean read FAutoPopup write FAutoPopup default True;
|
||||
property AutoPopup: Boolean read FAutoPopup write FAutoPopup default True;
|
||||
property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;
|
||||
end;
|
||||
|
||||
@ -378,6 +379,9 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.42 2003/05/02 22:22:15 mattias
|
||||
localization, added context policy to make resource string dialog
|
||||
|
||||
Revision 1.41 2003/04/19 18:37:58 mattias
|
||||
implemented adding OnClick, when clicking on designer menuitem
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user