paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 00:59:30 +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.TopLine:=NewUnitInfo.TopLine;
NewSrcEdit.EditorComponent.LeftChar:=1;
NewSrcEdit.Filename:=NewUnitInfo.Filename;
NewUnitInfo.Loaded:=true;
// read form data
@ -2270,8 +2271,9 @@ begin
end;
end;
end;
SourceNoteBook.UpdateStatusBar;
Result:=mrOk;
//writeln('TMainIDE.DoOpenEditorFile END "',AFilename,'"');
//writeln('TMainIDE.DoOpenEditorFile END "',AFilename,'" NewSrcEdit.Filename=',NewSrcEdit.Filename);
end;
function TMainIDE.DoOpenMainUnit(ProjectLoading: boolean): TModalResult;
@ -3721,8 +3723,8 @@ end.
{ =============================================================================
$Log$
Revision 1.112 2001/07/31 18:40:23 lazarus
MG: added unit info, arrow xpms, and many changes from jens arm
Revision 1.113 2001/07/31 18:57:48 lazarus
MG: fixed source ediotr statusbar filename
Revision 1.111 2001/07/29 20:33:23 lazarus
MG: bugfixed event propeditor, DoJumpToMethod with searchpath

5
ide/uniteditor.pp
View File

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