forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

changed the way editor messages are cleared

This commit is contained in:
Basile Burg 2014-08-09 02:52:07 +02:00
parent 8aad4fba49
commit cf4e37457f
2 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/ce_editor.pas
View File

@ -32,6 +32,7 @@ type
procedure UpdateByEvent; override;
private
fKeyChanged: boolean;
fProj: TCEProject;
// http://bugs.freepascal.org/view.php?id=26329
fSyncEdit: TSynPluginSyncroEdit;
@ -57,6 +58,9 @@ type
procedure focusedEditorChanged;
function getEditorHint: string;
//
procedure projNew(const aProject: TCEProject); override;
procedure projClose(const aProject: TCEProject); override;
procedure projFocused(const aProject: TCEProject); override;
procedure projCompile(const aProject: TCEProject); override;
procedure projRun(const aProject: TCEProject); override;
//
@ -248,6 +252,21 @@ begin
UpdateByEvent;
end;
procedure TCEEditorWidget.projNew(const aProject: TCEProject);
begin
fProj := aProject;
end;
procedure TCEEditorWidget.projClose(const aProject: TCEProject);
begin
fProj := nil;
end;
procedure TCEEditorWidget.projFocused(const aProject: TCEProject);
begin
fProj := aProject;
end;
procedure TCEEditorWidget.projCompile(const aProject: TCEProject);
begin
endUpdateByDelay;
@ -386,7 +405,12 @@ begin
CEMainForm.docChangeNotify(Self, editorIndex);
if ed.Lines.Count = 0 then exit;
//
CEMainForm.MessageWidget.ClearMessages(mcEditor);
if fProj = nil then
CEMainForm.MessageWidget.ClearMessages(mcEditor)
else begin
// if the source is in proj then we want to keep messages to correct mistakes.
end;
lex(ed.Lines.Text, tokLst);
if ed.isDSource then

3
src/ce_main.pas
View File

@ -1047,7 +1047,6 @@ procedure TCEMainForm.actEdFindNextExecute(Sender: TObject);
begin
ffindwidg.actFindNextExecute(nil);
end;
{$ENDREGION}
{$REGION run -------------------------------------------------------------------}
@ -1179,7 +1178,7 @@ var
i: NativeInt;
begin
fMesgWidg.ClearMessages(mcProject);
fMesgWidg.ClearAllMessages;
for i := 0 to fWidgList.Count-1 do
fWidgList.widget[i].projCompile(aProject);