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

ide: message view: fix opening message source during compilation process (was strange error message)

Browse Source 
git-svn-id: trunk@22993 -
This commit is contained in:
paul 2009-12-06 06:50:26 +00:00
parent 27437b5eaa
commit 714eb90aaa
4 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -11660,10 +11660,12 @@ end;
function GetFPCMessage(ALine: TLazMessageLine; var FileName: String; var CaretPos: TPoint; var ErrType: TFPCErrorType): Boolean; function GetFPCMessage(ALine: TLazMessageLine; var FileName: String; var CaretPos: TPoint; var ErrType: TFPCErrorType): Boolean;
begin begin
Result := Assigned(ALine.Parts);
if Result and (Aline.Filename = '') then
Aline.UpdateSourcePosition;
FileName:=ALine.Filename; FileName:=ALine.Filename;
CaretPos.x:=ALine.Column; CaretPos.x:=ALine.Column;
CaretPos.y:=ALine.LineNumber; CaretPos.y:=ALine.LineNumber;
Result := Assigned(ALine.Parts);
if not Result then if not Result then
Exit; Exit;
ErrType:=FPCErrorTypeNameToType(ALine.Parts.Values['Type']); ErrType:=FPCErrorTypeNameToType(ALine.Parts.Values['Type']);

2
ide/msgview.lfm
View File

@ -17,7 +17,7 @@ inherited MessagesView: TMessagesView
Top = 0 Top = 0
Width = 722 Width = 722
Align = alClient Align = alClient
DefaultItemHeight = 19 DefaultItemHeight = 15
PopupMenu = MainPopupMenu PopupMenu = MainPopupMenu
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth

2
ide/msgview.lrs
View File

@ -7,7 +7,7 @@ LazarusResources.Add('TMessagesView','FORMDATA',[
+'t'#2'O'#11'ClientWidth'#3#210#2#10'KeyPreview'#9#12'OnDeactivate'#7#14'Form' +'t'#2'O'#11'ClientWidth'#3#210#2#10'KeyPreview'#9#12'OnDeactivate'#7#14'Form'
+'Deactivate'#9'OnKeyDown'#7#19'MessagesViewKeyDown'#0#242#2#0#9'TTreeView'#15 +'Deactivate'#9'OnKeyDown'#7#19'MessagesViewKeyDown'#0#242#2#0#9'TTreeView'#15
+'MessageTreeView'#4'Left'#2#0#6'Height'#2'O'#3'Top'#2#0#5'Width'#3#210#2#5'A' +'MessageTreeView'#4'Left'#2#0#6'Height'#2'O'#3'Top'#2#0#5'Width'#3#210#2#5'A'
+'lign'#7#8'alClient'#17'DefaultItemHeight'#2#19#9'PopupMenu'#7#13'MainPopupM' +'lign'#7#8'alClient'#17'DefaultItemHeight'#2#15#9'PopupMenu'#7#13'MainPopupM'
+'enu'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'ShowRoot'#8#8'TabOrder' +'enu'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'ShowRoot'#8#8'TabOrder'
+#2#0#6'OnExit'#7#15'MessageViewExit'#7'Options'#11#19'tvoAllowMultiselect'#17 +#2#0#6'OnExit'#7#15'MessageViewExit'#7'Options'#11#19'tvoAllowMultiselect'#17
+'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoRea' +'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoRea'

2
ide/msgview.pp
View File

@ -491,7 +491,7 @@ end;
procedure TMessagesView.AddProgress(ScanLine: TIDEScanMessageLine); procedure TMessagesView.AddProgress(ScanLine: TIDEScanMessageLine);
begin begin
Add(ScanLine.Line, ScanLine.WorkingDirectory, True, True,ScanLine.LineNumber,nil); Add(ScanLine.Line, ScanLine.WorkingDirectory, True, True, ScanLine.LineNumber, nil);
end; end;
procedure TMessagesView.AddSeparator; procedure TMessagesView.AddSeparator;