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

implemented Quick Fix system

Browse Source 
git-svn-id: trunk@8782 -
This commit is contained in:
mattias 2006-02-20 18:55:36 +00:00
parent d437ea67e0
commit 7f659b2099
11 changed files with 189 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/anchordocking/dockform1unit.lrs
View File

@ -1,5 +1,3 @@
{ Dies ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3'$'#1#6'Height'#3','#1#3'Top'#3#209#0
+#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'

2
examples/anchordocking/dockform2unit.lrs
View File

@ -1,5 +1,3 @@
{ Dies ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TDockFormX','FORMDATA',[
'TPF0'#10'TDockFormX'#9'DockFormX'#4'Left'#3#234#1#6'Height'#2''#3'Top'#3#215
+#0#5'Width'#3#224#0#18'HorzScrollBar.Page'#3#223#0#18'VertScrollBar.Page'#2

1
ide/lazarusidestrconsts.pas
View File

@ -2953,6 +2953,7 @@ resourcestring
lisPOSaveInIDEConfigDirectory = 'Save in IDE config directory';
lisPODoNotSaveAnySessionInfo = 'Do not save any session info';
lisPOSaveSessionInformationIn = 'Save session information in';
lisMVSaveMessagesToFileTxt = 'Save messages to file (*.txt)';
implementation
end.

47
ide/msgquickfixes.pas
View File

@ -30,12 +30,15 @@ unit MsgQuickFixes;
interface
uses
Classes, SysUtils, LCLProc, MsgIntf, LazarusIDEStrConsts;
Classes, SysUtils, LCLProc, MsgIntf, TextTools, LazarusIDEStrConsts,
LazIDEIntf, CodeCache, CodeToolManager;
procedure QuickFixParameterNotUsed(Sender: TObject; Msg: TIDEMessageLine);
procedure QuickFixUnitNotUsed(Sender: TObject; Msg: TIDEMessageLine);
function GetMsgLineFilename(Msg: TIDEMessageLine;
out CodeBuf: TCodeBuffer): boolean;
procedure InitStandardIDEQuickFixItems;
procedure FreeStandardIDEQuickFixItems;
@ -47,8 +50,46 @@ begin
end;
procedure QuickFixUnitNotUsed(Sender: TObject; Msg: TIDEMessageLine);
var
CodeBuf: TCodeBuffer;
UnneededUnitname: String;
begin
DebugLn('QuickFixUnitNotUsed ');
if not GetMsgLineFilename(Msg,CodeBuf) then exit;
if not REMatches(Msg.Msg,'Unit "([a-z_0-9]+)" not used','I') then begin
DebugLn('QuickFixUnitNotUsed invalid message ',Msg.Msg);
exit;
end;
UnneededUnitname:=REVar(1);
// remove unit
LazarusIDE.SaveSourceEditorChangesToCodeCache(-1);
if not CodeToolBoss.RemoveUnitFromAllUsesSections(CodeBuf,UnneededUnitname)
then begin
LazarusIDE.DoJumpToCodeToolBossError;
end;
end;
function GetMsgLineFilename(Msg: TIDEMessageLine; out CodeBuf: TCodeBuffer
): boolean;
var
Filename: String;
begin
Result:=false;
CodeBuf:=nil;
if Msg.Parts=nil then begin
DebugLn('GetMsgLineFilename Msg.Parts=nil');
exit;
end;
Filename:=Msg.Parts.Values['Filename'];
DebugLn('GetMsgLineFilename Filename=',Filename,' ',Msg.Parts.Text);
CodeBuf:=CodeToolBoss.LoadFile(Filename,false,false);
if CodeBuf=nil then begin
DebugLn('GetMsgLineFilename Filename "',Filename,'" not found.');
exit;
end;
Result:=true;
end;
procedure InitStandardIDEQuickFixItems;

22
ide/msgview.lfm
View File

@ -1,5 +1,11 @@
object MessagesView: TMessagesView
ActiveControl = MessageView
Left = 262
Height = 79
Top = 518
Width = 722
HorzScrollBar.Page = 721
VertScrollBar.Page = 78
ActiveControl = MessageListBox
BorderStyle = bsSizeToolWin
Caption = 'MessagesView'
ClientHeight = 79
@ -7,22 +13,16 @@ object MessagesView: TMessagesView
KeyPreview = True
OnDeactivate = FormDeactivate
OnKeyDown = MessagesViewKeyDown
PixelsPerInch = 112
HorzScrollBar.Page = 721
VertScrollBar.Page = 78
Left = 262
Height = 79
Top = 518
Width = 722
object MessageView: TListBox
PixelsPerInch = 95
object MessageListBox: TListBox
Height = 79
Width = 722
Align = alClient
MultiSelect = True
OnExit = MessageViewExit
PopupMenu = MainPopupMenu
TabOrder = 0
TopIndex = -1
Height = 79
Width = 722
end
object MainPopupMenu: TPopupMenu
OnPopup = MainPopupMenuPopup

20
ide/msgview.lrs
View File

@ -1,14 +1,14 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMessagesView','FORMDATA',[
'TPF0'#13'TMessagesView'#12'MessagesView'#13'ActiveControl'#7#11'MessageView'
+#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#12'MessagesView'#12'Client'
+'Height'#2'O'#11'ClientWidth'#3#210#2#10'KeyPreview'#9#12'OnDeactivate'#7#14
+'FormDeactivate'#9'OnKeyDown'#7#19'MessagesViewKeyDown'#13'PixelsPerInch'#2
+'p'#18'HorzScrollBar.Page'#3#209#2#18'VertScrollBar.Page'#2'N'#4'Left'#3#6#1
+#6'Height'#2'O'#3'Top'#3#6#2#5'Width'#3#210#2#0#8'TListBox'#11'MessageView'#5
+'Align'#7#8'alClient'#11'MultiSelect'#9#6'OnExit'#7#15'MessageViewExit'#9'Po'
+'pupMenu'#7#13'MainPopupMenu'#8'TabOrder'#2#0#8'TopIndex'#2#255#6'Height'#2
+'O'#5'Width'#3#210#2#0#0#10'TPopupMenu'#13'MainPopupMenu'#7'OnPopup'#7#18'Ma'
+'inPopupMenuPopup'#4'left'#2'.'#3'top'#2')'#0#0#0
'TPF0'#13'TMessagesView'#12'MessagesView'#4'Left'#3#6#1#6'Height'#2'O'#3'Top'
+#3#6#2#5'Width'#3#210#2#18'HorzScrollBar.Page'#3#209#2#18'VertScrollBar.Page'
+#2'N'#13'ActiveControl'#7#14'MessageListBox'#11'BorderStyle'#7#13'bsSizeTool'
+'Win'#7'Caption'#6#12'MessagesView'#12'ClientHeight'#2'O'#11'ClientWidth'#3
+#210#2#10'KeyPreview'#9#12'OnDeactivate'#7#14'FormDeactivate'#9'OnKeyDown'#7
+#19'MessagesViewKeyDown'#13'PixelsPerInch'#2'_'#0#8'TListBox'#14'MessageList'
+'Box'#6'Height'#2'O'#5'Width'#3#210#2#5'Align'#7#8'alClient'#11'MultiSelect'
+#9#6'OnExit'#7#15'MessageViewExit'#9'PopupMenu'#7#13'MainPopupMenu'#8'TabOrd'
+'er'#2#0#8'TopIndex'#2#255#0#0#10'TPopupMenu'#13'MainPopupMenu'#7'OnPopup'#7
+#18'MainPopupMenuPopup'#4'left'#2'.'#3'top'#2')'#0#0#0
]);

145
ide/msgview.pp
View File

@ -63,7 +63,7 @@ type
{ TMessagesView }
TMessagesView = class(TForm)
MessageView: TListBox;
MessageListBox: TListBox;
MainPopupMenu: TPopupMenu;
procedure CopyAllMenuItemClick(Sender: TObject);
procedure CopyAllAndHiddenMenuItemClick(Sender: TObject);
@ -221,8 +221,8 @@ begin
FLastSelectedIndex := -1;
Caption := lisMenuViewMessages;
MessageView.Style := lbOwnerDrawFixed;
MessageView.OnDrawItem := @MessageViewDrawItem;
MessageListBox.Style := lbOwnerDrawFixed;
MessageListBox.OnDrawItem := @MessageViewDrawItem;
// assign the root TMenuItem to the registered menu root.
// This will automatically create all registered items
@ -260,7 +260,7 @@ begin
VisibleIndex := Line.VisiblePosition;
if VisibleIndex >= 0 then
begin
MessageView.Items.Delete(VisibleIndex);
MessageListBox.Items.Delete(VisibleIndex);
FVisibleItems.Delete(VisibleIndex);
end;
Line.Free;
@ -282,14 +282,26 @@ procedure TMessagesView.Add(const Msg, CurDir: string;
var
NewMsg: TIDEMessageLine;
i: integer;
LastItem: TIDEMessageLine;
begin
NewMsg := TIDEMessageLine.Create;
NewMsg:=nil;
if ItemCount>0 then begin
LastItem:=Items[ItemCount-1];
if LastItem.OriginalIndex=OriginalIndex then begin
// already added
NewMsg:=LastItem;
end;
end;
if NewMsg=nil then begin
NewMsg := TIDEMessageLine.Create;
FItems.Add(NewMsg);
end;
NewMsg.Msg := Msg;
NewMsg.Directory := CurDir;
NewMsg.Position := FItems.Count;
NewMsg.OriginalIndex := OriginalIndex;
//DebugLn('TMessagesView.Add FItems.Count=',dbgs(FItems.Count),' OriginalIndex=',dbgs(OriginalIndex));
FItems.Add(NewMsg);
if VisibleLine then
begin
@ -299,15 +311,15 @@ begin
i := FVisibleItems.Count - 1;
VisibleItems[i].VisiblePosition := -1;
FVisibleItems.Delete(i);
MessageView.Items[i] := Msg;
MessageListBox.Items[i] := Msg;
end
else begin
MessageView.Items.Add(Msg)// add line
MessageListBox.Items.Add(Msg)// add line
end;
NewMsg.VisiblePosition := FVisibleItems.Count;
FVisibleItems.Add(NewMsg);
FLastLineIsProgress := ProgressLine;
MessageView.TopIndex := MessageView.Items.Count - 1;
MessageListBox.TopIndex := MessageListBox.Items.Count - 1;
end;
end;
@ -329,28 +341,56 @@ end;
procedure TMessagesView.CollectLineParts(Sender: TObject;
SrcLines: TIDEMessageLineList);
{function MsgAsString(Msg: TIDEMessageLine): string;
begin
Result:=Msg.Msg;
if Msg.Parts<>nil then
Result:=Result+' '+Msg.Parts.Text;
end;}
var
i: Integer;
SrcLine: TIDEMessageLine;
DestLine: TIDEMessageLine;
StartOriginalIndex: LongInt;
DestIndex: Integer;
begin
//DebugLn('TMessagesView.CollectLineParts ',dbgsName(Sender),' ',dbgsName(SrcLines));
if Sender=nil then ;
if SrcLines=nil then exit;
if (SrcLines=nil) or (SrcLines.Count=0) then exit;
StartOriginalIndex:=SrcLines[0].OriginalIndex;
DestIndex:=ItemCount-1;
while (DestIndex>=0) and (Items[DestIndex].OriginalIndex<>StartOriginalIndex) do
dec(DestIndex);
for i:=0 to SrcLines.Count-1 do begin
SrcLine:=SrcLines[i];
DestLine:=Items[i];
if DestIndex>=FItems.Count then break;
DestLine:=Items[DestIndex];
if (SrcLine.OriginalIndex=DestLine.OriginalIndex) then begin
if SrcLine.Parts<>nil then begin
if DestLine.Parts=nil then
DestLine.Parts:=TStringList.Create;
DestLine.Parts.Assign(SrcLine.Parts);
//DebugLn('TMessagesView.CollectLineParts i=',dbgs(i),' Parts=',DestLine.Parts.Text);
end else if DestLine.Parts<>nil then
DestLine.Parts.Clear;
end else begin
//DebugLn('TMessagesView.CollectLineParts WARNING: ',dbgs(SrcLine.OriginalIndex),'<>',dbgs(DestLine.OriginalIndex));
DebugLn('TMessagesView.CollectLineParts WARNING: ',dbgs(SrcLine.OriginalIndex),'<>',dbgs(DestLine.OriginalIndex),' SrcLine=',SrcLine.Msg);
end;
inc(DestIndex);
end;
{for i:=0 to SrcLines.Count-1 do begin
SrcLine:=SrcLines[i];
DebugLn('TMessagesView.CollectLineParts i=',dbgs(i),' SrcLine=',MsgAsString(SrcLine));
end;
for i:=0 to ItemCount-1 do begin
DestLine:=Items[i];
DebugLn('TMessagesView.CollectLineParts i=',dbgs(i),' DestLine=',MsgAsString(DestLine));
end;}
end;
procedure TMessagesView.ClearTillLastSeparator;
@ -372,8 +412,8 @@ end;
procedure TMessagesView.ShowTopMessage;
begin
if MessageView.Items.Count > 0 then
MessageView.TopIndex := 0;
if MessageListBox.Items.Count > 0 then
MessageListBox.TopIndex := 0;
end;
function TMessagesView.MsgCount: integer;
@ -406,24 +446,24 @@ begin
else
Line.VisiblePosition := -1;
end;
// rebuild MessageView.Items
MessageView.Items.BeginUpdate;
// rebuild MessageListBox.Items
MessageListBox.Items.BeginUpdate;
for i := 0 to FVisibleItems.Count - 1 do
begin
Line := VisibleItems[i];
if MessageView.Items.Count > i then
MessageView.Items[i] := Line.Msg
if MessageListBox.Items.Count > i then
MessageListBox.Items[i] := Line.Msg
else
MessageView.Items.Add(Line.Msg);
MessageListBox.Items.Add(Line.Msg);
end;
while MessageView.Items.Count > FVisibleItems.Count do
MessageView.Items.Delete(MessageView.Items.Count - 1);
MessageView.Items.EndUpdate;
while MessageListBox.Items.Count > FVisibleItems.Count do
MessageListBox.Items.Delete(MessageListBox.Items.Count - 1);
MessageListBox.Items.EndUpdate;
end;
procedure TMessagesView.SaveMessagesToFile(const Filename: string);
begin
SaveStringToFile(Filename, MessageView.Items.Text, []);
SaveStringToFile(Filename, MessageListBox.Items.Text, []);
end;
{------------------------------------------------------------------------------
@ -435,10 +475,10 @@ begin
exit;
FLastLineIsProgress := False;
ClearItems;
if not Assigned(MessageView.OnClick) then
MessageView.OnClick := @MessageViewClicked;
if not Assigned(MessageView.OnDblClick) then
MessageView.OnDblClick := @MessageViewDblClicked;
if not Assigned(MessageListBox.OnClick) then
MessageListBox.OnClick := @MessageViewClicked;
if not Assigned(MessageListBox.OnDblClick) then
MessageListBox.OnDblClick := @MessageViewDblClicked;
end;
procedure TMessagesView.GetVisibleMessageAt(Index: integer;
@ -447,11 +487,11 @@ begin
// consistency checks
if (Index < 0) then
RaiseException('TMessagesView.GetVisibleMessageAt');
if MessageView.Items.Count <= Index then
if MessageListBox.Items.Count <= Index then
RaiseException('TMessagesView.GetVisibleMessageAt');
if (FItems = nil) then
if (FVisibleItems = nil) then
RaiseException('TMessagesView.GetVisibleMessageAt');
if (FItems.Count <= Index) then
if (FVisibleItems.Count <= Index) then
RaiseException('TMessagesView.GetVisibleMessageAt');
Msg := VisibleItems[Index].Msg;
MsgDirectory := VisibleItems[Index].Directory;
@ -478,7 +518,7 @@ begin
TObject(FItems[i]).Free;
FItems.Clear;
FVisibleItems.Clear;
MessageView.Clear;
MessageListBox.Clear;
end;
function TMessagesView.ItemCount: integer;
@ -497,8 +537,8 @@ end;
function TMessagesView.GetMessage: string;
begin
Result := '';
if (MessageView.Items.Count > 0) and (MessageView.SelCount > 0) then
Result := MessageView.Items.Strings[GetSelectedLineIndex];
if (MessageListBox.Items.Count > 0) and (MessageListBox.SelCount > 0) then
Result := MessageListBox.Items.Strings[GetSelectedLineIndex];
end;
function TMessagesView.GetMessageLine: TIDEMessageLine;
@ -525,7 +565,7 @@ end;
procedure TMessagesView.CopyAllMenuItemClick(Sender: TObject);
begin
Clipboard.AsText := MessageView.Items.Text;
Clipboard.AsText := MessageListBox.Items.Text;
end;
procedure TMessagesView.CopyAllAndHiddenMenuItemClick(Sender: TObject);
@ -535,9 +575,9 @@ end;
procedure TMessagesView.CopyMenuItemClick(Sender: TObject);
begin
if MessageView.ItemIndex < 0 then
if MessageListBox.ItemIndex < 0 then
exit;
Clipboard.AsText := MessageView.GetSelectedText;
Clipboard.AsText := MessageListBox.GetSelectedText;
end;
procedure TMessagesView.FormDeactivate(Sender: TObject);
@ -563,7 +603,7 @@ begin
if Msg<>nil then begin
for j:=0 to IDEMsgQuickFixes.Count-1 do begin
QuickFixItem:=IDEMsgQuickFixes[j];
DebugLn('TMessagesView.MainPopupMenuPopup "',Msg.Msg,'" ',QuickFixItem.Name);
//DebugLn('TMessagesView.MainPopupMenuPopup "',Msg.Msg,'" ',QuickFixItem.Name);
if QuickFixItem.IsApplicable(Msg) then begin
FQuickFixItems.Add(QuickFixItem);
end;
@ -610,22 +650,22 @@ const
clMsgNote = clGreen;
cLeftSpacer = 3;
begin
MessageView.Canvas.FillRect(ARect);
TheText := MessageView.Items[Index];
MessageListBox.Canvas.FillRect(ARect);
TheText := MessageListBox.Items[Index];
cl := MessageView.Canvas.Font.Color; // save original color
cl := MessageListBox.Canvas.Font.Color; // save original color
{ Only use custom colors if not selected, otherwise it is difficult to read }
if not (odSelected in State)
then begin
if Pos(cNote, TheText) > 0
then MessageView.Canvas.Font.Color := clMsgNote
then MessageListBox.Canvas.Font.Color := clMsgNote
else if Pos(cHint, TheText) > 0
then MessageView.Canvas.Font.Color := clMsgHint
then MessageListBox.Canvas.Font.Color := clMsgHint
end;
MessageView.Canvas.TextOut(ARect.Left + cLeftSpacer, ARect.Top + 1, TheText);
MessageView.Canvas.Font.Color := cl; // restore original color
MessageListBox.Canvas.TextOut(ARect.Left + cLeftSpacer, ARect.Top + 1, TheText);
MessageListBox.Canvas.Font.Color := cl; // restore original color
end;
//------------------------------------------------------------------------------
@ -637,7 +677,7 @@ begin
SaveDialog := TSaveDialog.Create(nil);
try
InputHistories.ApplyFileDialogSettings(SaveDialog);
SaveDialog.Title := 'Save messages to file (*.txt)';
SaveDialog.Title := lisMVSaveMessagesToFileTxt;
SaveDialog.Options := SaveDialog.Options + [ofPathMustExist];
if SaveDialog.Execute then
begin
@ -659,6 +699,7 @@ var
Msg: TIDEMessageLine;
begin
Msg:=GetMessageLine;
if Msg=nil then exit;
for i:=0 to FQuickFixItems.Count-1 do begin
QuickFixItem:=TIDEMsgQuickFixItem(FQuickFixItems[i]);
if QuickFixItem.Caption=(Sender as TIDEMenuItem).Caption then begin
@ -687,9 +728,9 @@ var
I: integer;
begin
Result := -1;
if (MessageView.Items.Count > 0) and (MessageView.SelCount > 0) then
for i := 0 to MessageView.Items.Count - 1 do
if MessageView.Selected[I] then
if (MessageListBox.Items.Count > 0) and (MessageListBox.SelCount > 0) then
for i := 0 to MessageListBox.Items.Count - 1 do
if MessageListBox.Selected[I] then
begin
Result := I;
Break;
@ -701,7 +742,7 @@ begin
if FLastLineIsProgress = AValue then
exit;
if FLastLineIsProgress then
MessageView.Items.Delete(MessageView.Items.Count - 1);
MessageListBox.Items.Delete(MessageListBox.Items.Count - 1);
FLastLineIsProgress := AValue;
end;
@ -709,7 +750,7 @@ procedure TMessagesView.DoSelectionChange;
var
NewSelectedIndex: LongInt;
begin
if (MessageView.Items.Count > 0) and (MessageView.SelCount > 0) then begin
if (MessageListBox.Items.Count > 0) and (MessageListBox.SelCount > 0) then begin
NewSelectedIndex:=GetSelectedLineIndex;
if NewSelectedIndex<>FLastSelectedIndex then begin
FLastSelectedIndex:=NewSelectedIndex;
@ -721,8 +762,8 @@ end;
procedure TMessagesView.SetSelectedLineIndex(const AValue: integer);
begin
MessageView.ItemIndex := AValue;
MessageView.TopIndex := MessageView.ItemIndex;
MessageListBox.ItemIndex := AValue;
MessageListBox.TopIndex := MessageListBox.ItemIndex;
end;
initialization

24
ide/outputfilter.pas
View File

@ -328,12 +328,12 @@ var i, j, FilenameEndPos: integer;
CurFilenameLen: Integer;
CurCompHistLen: Integer;
MainSrcFilename: String;
NewFilename: String;
LineNumberStartPos: LongInt;
ColumnNumberStartPos: LongInt;
ColumnNumberEndPos: LongInt;
MessageStartPos: Integer;
LineNumberEndPos: LongInt;
AbsFilename: String;
function CheckForCompilingState: boolean;
var
@ -687,12 +687,18 @@ begin
// make filenames absolute if wanted
Filename:=copy(Msg,1,FilenameEndPos);
if FilenameIsAbsolute(Filename) then begin
AbsFilename:=Filename;
end else begin
AbsFilename:=TrimFilename(fCurrentDirectory+Filename);
if not FileExists(AbsFilename) then begin
AbsFilename:='';
end;
end;
if (ofoMakeFilenamesAbsolute in Options) then begin
if not FilenameIsAbsolute(Filename) then begin
NewFilename:=TrimFilename(fCurrentDirectory+Filename);
if FileExists(NewFilename) then
Msg:=NewFilename
+copy(Msg,FilenameEndPos+1,length(Msg)-FilenameEndPos);
if (AbsFilename<>'') and (AbsFilename<>Filename) then begin
Filename:=AbsFilename;
Msg:=Filename+copy(Msg,FilenameEndPos+1,length(Msg)-FilenameEndPos);
end;
end else begin
if FileIsInPath(Filename,fCurrentDirectory) then begin
@ -700,7 +706,11 @@ begin
Msg:=Filename+copy(Msg,FilenameEndPos+1,length(Msg)-FilenameEndPos);
end;
end;
CurrentMessageParts.Values['Filename']:=Filename;
//DebugLn('TOutputFilter.ReadFPCompilerLine AbsFilename=',AbsFilename,' Filename=',Filename,' Dir=',fCurrentDirectory);
if AbsFilename<>'' then
CurrentMessageParts.Values['Filename']:=AbsFilename
else
CurrentMessageParts.Values['Filename']:=Filename;
// add line
if not SkipMessage then

11
ideintf/msgintf.pas
View File

@ -52,6 +52,7 @@ type
Creates the following lines in Parts:
Stage=FPC
Type=Warning
Filename=/path/unit1.pas
Line=21
Column=3
Message=unit buttons not used
@ -124,6 +125,7 @@ type
procedure SetRegExpression(const AValue: string);
procedure SetRegExprModifiers(const AValue: string);
public
constructor Create;
procedure Execute(const Msg: TIDEMessageLine); virtual;
function IsApplicable(Line: TIDEMessageLine): boolean; virtual;
public
@ -218,6 +220,11 @@ begin
FRegExprModifiers:=AValue;
end;
constructor TIDEMsgQuickFixItem.Create;
begin
FRegExprModifiers:='I';
end;
procedure TIDEMsgQuickFixItem.Execute(const Msg: TIDEMessageLine);
begin
if Assigned(OnExecuteMethod) then
@ -230,6 +237,7 @@ function TIDEMsgQuickFixItem.IsApplicable(Line: TIDEMessageLine): boolean;
begin
Result:=false;
if RegExpression='' then exit;
//DebugLn('TIDEMsgQuickFixItem.IsApplicable Line.Msg="',Line.Msg,'" RegExpression="',RegExpression,'"');
Result:=REMatches(Line.Msg,RegExpression,RegExprModifiers);
end;
@ -296,7 +304,10 @@ end;
function TIDEMsgQuickFixItems.NewName(const StartValue: string): string;
begin
Result:=StartValue;
if IndexOfName(Result)<0 then exit;
Result:=CreateFirstIdentifier(StartValue);
//DebugLn('TIDEMsgQuickFixItems.NewName Result="',Result,'" StartValue="',StartValue,'"');
while IndexOfName(Result)>=0 do
Result:=CreateNextIdentifier(Result);
end;

2
ideintf/texttools.pas
View File

@ -71,7 +71,7 @@ var
function REMatches(const TheText, RegExpr: string;
const ModifierStr: string = ''): boolean;
function REVar(Index: Integer): string;
function REVar(Index: Integer): string; // 1 is the first
procedure REVarPos(Index: Integer; var MatchStart, MatchLength: integer);
function REVarCount: Integer;
function REReplace(const TheText, FindRegExpr, ReplaceRegExpr: string;

2
lcl/asyncprocess.pp
View File

@ -140,7 +140,7 @@ end;
procedure TAsyncProcess.Execute;
begin
inherited;
inherited Execute;
if poUsePipes in Options then
FPipeHandler := AddPipeEventHandler(Output.Handle, @HandlePipeInput, 0);