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

MG: fixed source ediotr statusbar filename

Browse Source 
git-svn-id: trunk@323 -
This commit is contained in:
lazarus 2001-07-31 18:57:49 +00:00
parent 1d13fae63c
commit 891500728f
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -2190,6 +2190,7 @@ begin
NewSrcEdit.EditorComponent.CaretXY:=NewUnitInfo.CursorPos; NewSrcEdit.EditorComponent.CaretXY:=NewUnitInfo.CursorPos;
NewSrcEdit.EditorComponent.TopLine:=NewUnitInfo.TopLine; NewSrcEdit.EditorComponent.TopLine:=NewUnitInfo.TopLine;
NewSrcEdit.EditorComponent.LeftChar:=1; NewSrcEdit.EditorComponent.LeftChar:=1;
NewSrcEdit.Filename:=NewUnitInfo.Filename;
NewUnitInfo.Loaded:=true; NewUnitInfo.Loaded:=true;
// read form data // read form data
@ -2270,8 +2271,9 @@ begin
end; end;
end; end;
end; end;
SourceNoteBook.UpdateStatusBar;
Result:=mrOk; Result:=mrOk;
//writeln('TMainIDE.DoOpenEditorFile END "',AFilename,'"'); //writeln('TMainIDE.DoOpenEditorFile END "',AFilename,'" NewSrcEdit.Filename=',NewSrcEdit.Filename);
end; end;
function TMainIDE.DoOpenMainUnit(ProjectLoading: boolean): TModalResult; function TMainIDE.DoOpenMainUnit(ProjectLoading: boolean): TModalResult;
@ -3721,8 +3723,8 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.112 2001/07/31 18:40:23 lazarus Revision 1.113 2001/07/31 18:57:48 lazarus
MG: added unit info, arrow xpms, and many changes from jens arm MG: fixed source ediotr statusbar filename
Revision 1.111 2001/07/29 20:33:23 lazarus Revision 1.111 2001/07/29 20:33:23 lazarus
MG: bugfixed event propeditor, DoJumpToMethod with searchpath MG: bugfixed event propeditor, DoJumpToMethod with searchpath

5
ide/uniteditor.pp
View File

@ -250,7 +250,6 @@ type
Procedure NextEditor; Procedure NextEditor;
Procedure PrevEditor; Procedure PrevEditor;
procedure UpdateStatusBar;
MarksImgList : TImageList; MarksImgList : TImageList;
Procedure ProcessParentCommand(Sender: TObject; Procedure ProcessParentCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: char; Data: pointer); var Command: TSynEditorCommand; var AChar: char; Data: pointer);
@ -275,6 +274,7 @@ type
Function SetSourceForUnit(UnitName : String; NewSource : TStrings) : Boolean; Function SetSourceForUnit(UnitName : String; NewSource : TStrings) : Boolean;
Function FindUniquePageName(FileName:string; IgnorePageIndex:integer):string; Function FindUniquePageName(FileName:string; IgnorePageIndex:integer):string;
function SomethingModified: boolean; function SomethingModified: boolean;
procedure UpdateStatusBar;
Procedure DisplayFormforActivePage; Procedure DisplayFormforActivePage;
Procedure DisplayCodeforControl(Control : TObject); Procedure DisplayCodeforControl(Control : TObject);
@ -2357,7 +2357,8 @@ begin
TempEditor := GetActiveSE; TempEditor := GetActiveSE;
if TempEditor = nil then Exit; if TempEditor = nil then Exit;
TempEditor.ErrorLine:=-1; TempEditor.ErrorLine:=-1;
Statusbar.Panels[3].Text := ExtractFileName(TempEditor.Filename); writeln('TSourceNotebook.UpdateStatusBar ',TempEditor.Filename);
Statusbar.Panels[3].Text := TempEditor.Filename;
If TempEditor.Modified then If TempEditor.Modified then
StatusBar.Panels[1].Text := 'Modified' StatusBar.Panels[1].Text := 'Modified'