paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 21:41:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: notify IDE about the change when compiler messages options are changed (bug #0018409)

Browse Source 
git-svn-id: trunk@28957 -
This commit is contained in:
paul 2011-01-11 09:59:13 +00:00
parent 013f06f128
commit 794576d48f
1 changed files with 39 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ide/compileroptions.pp
View File

@ -383,6 +383,8 @@ type
private
fItems : TFPList;
fHash : array of array of TCompilerMessageConfig;
FChangeStamp: int64;
FOnChanged : TNotifyEvent;
protected
fUsedMsgFile : string;
fUpdating : Integer;
@ -402,6 +404,10 @@ type
function GetCount: Integer;
function GetErrorNames(errtype: TFPCErrorType): string;
property ChangeStamp: int64 read FChangeStamp;
procedure IncreaseChangeStamp;
property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;
public
constructor Create;
destructor Destroy; override;
@ -418,6 +424,7 @@ type
procedure SetDefault(KeepIgnored: Boolean=true); virtual;
function GetParams(MsgIndex: Integer; var prms: array of string; out PrmCount: Integer): Integer; virtual;
function Equals(Obj: TObject): boolean; override;
property Msg[i: Integer]: TCompilerMessageConfig read GetMsgConfig;
property MsgByIndex[AIndex: Integer]: TCompilerMessageConfig read GetMsgConfigByIndex;
@ -1015,6 +1022,7 @@ begin
fExecuteAfter.OnChanged:=@OnItemChanged;
fBuildMacros := TIDEBuildMacros.Create(Self);
FCompilerMessages:=TCompilerMessagesList.Create;
FCompilerMessages.OnChanged:=@OnItemChanged;
Clear;
end;
@ -4157,9 +4165,16 @@ begin
Result := FErrorNames[errtype];
end;
procedure TCompilerMessagesList.IncreaseChangeStamp;
begin
CTIncreaseChangeStamp64(FChangeStamp);
if assigned(OnChanged) then OnChanged(Self);
end;
constructor TCompilerMessagesList.Create;
begin
inherited Create;
FChangeStamp:=CTInvalidChangeStamp;
fItems := TFPList.Create;
end;
@ -4189,6 +4204,8 @@ var
m : TCompilerMessageConfig;
err : TFPCErrorType;
begin
if Equals(Src) then
Exit;
BeginUpdate;
try
Clear;
@ -4208,6 +4225,7 @@ begin
finally
EndUpdate;
end;
IncreaseChangeStamp;
end;
procedure TCompilerMessagesList.BeginUpdate;
@ -4643,6 +4661,25 @@ begin
end;
function TCompilerMessagesList.Equals(Obj: TObject): boolean;
var
ObjList: TCompilerMessagesList absolute Obj;
i: integer;
begin
Result := inherited Equals(Obj);
if not Result and (Obj is TCompilerMessagesList) then
begin
Result := ObjList.Count = Count;
if Result then
for i := 0 to Count - 1 do
if Msg[i].Ignored <> ObjList.Msg[i].Ignored then
begin
Result := False;
Exit;
end;
end;
end;
{ TCompilerMessageConfig }
constructor TCompilerMessageConfig.Create(AOwner: TCompilerMessagesList);