paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:19:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: messages: clear translation when message changes

Browse Source 
git-svn-id: trunk@45190 -
This commit is contained in:
mattias 2014-05-26 20:51:52 +00:00
parent 2fa5d80285
commit 73c1593c0b
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/ideintf/ideexterntoolintf.pas
View File

@ -142,9 +142,9 @@ type
property Urgency: TMessageLineUrgency read FUrgency write SetUrgency;
property SubTool: string read FSubTool write SetSubTool; // e.g. SubToolFPC, SubToolMake, SubToolFPCLinker
property SubType: PtrUInt read FSubType write SetSubType; // depends on SubTool
property Msg: string read FMsg write SetMsg; // improved message without filename, line, column
property Msg: string read FMsg write SetMsg; // improved message without filename, line, column, setting it clears TranslatedMsg
property MsgID: integer read FMsgID write SetMsgID; // message id (depends on parser, e.g. fpc writes them with -vq, MsgID<>0 if valid)
property TranslatedMsg: string read FTranslatedMsg write SetTranslatedMsg; // translated Msg
property TranslatedMsg: string read FTranslatedMsg write SetTranslatedMsg; // translated Msg, set this after Msg
property Filename: string read FFilename write SetFilename; // full file name, relative if not found or not yet searched
property Line: integer read FLine write SetLine; // valid if >0
property Column: integer read FColumn write SetColumn; // valid if >0
@ -1832,6 +1832,7 @@ procedure TMessageLine.SetMsg(AValue: string);
begin
if FMsg=AValue then Exit;
FMsg:=AValue;
FTranslatedMsg:='';
IncreaseChangeStamp;
end;

1
ide/etmessageswnd.pas
View File

@ -94,6 +94,7 @@ var
ImgIDFatal: Integer;
begin
IDEMessagesWindow:=Self;
Caption:='Messages';
SourceMarks:=TETMarks.Create(Self);
ImgIDInfo:=IDEImages.LoadImage(12, 'state12x12_information');