paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 01:59:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed streaming visible=false

Browse Source 
git-svn-id: trunk@2949 -
This commit is contained in:
lazarus 2002-08-18 08:56:29 +00:00
parent be40a8ae24
commit c46ff1b8b7
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
ide/uniteditor.pp
View File

@ -3046,33 +3046,33 @@ Procedure TSourceNotebook.UpdateStatusBar;
var var
tempEditor : TSourceEditor; tempEditor : TSourceEditor;
begin begin
if not Visible then exit; if not Visible then exit;
TempEditor := GetActiveSE; TempEditor := GetActiveSE;
if TempEditor = nil then Exit; if TempEditor = nil then Exit;
if (TempEditor.EditorComponent.CaretY<>TempEditor.ErrorLine) if (TempEditor.EditorComponent.CaretY<>TempEditor.ErrorLine)
or (TempEditor.EditorComponent.CaretX<>TempEditor.fErrorColumn) then or (TempEditor.EditorComponent.CaretX<>TempEditor.fErrorColumn) then
TempEditor.ErrorLine:=-1; TempEditor.ErrorLine:=-1;
Statusbar.Panels[3].Text := 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'
else else
StatusBar.Panels[1].Text := ''; StatusBar.Panels[1].Text := '';
If TempEditor.ReadOnly then If TempEditor.ReadOnly then
if StatusBar.Panels[1].Text <> '' then if StatusBar.Panels[1].Text <> '' then
StatusBar.Panels[1].Text := StatusBar.Panels[1].Text + '/ReadOnly' StatusBar.Panels[1].Text := StatusBar.Panels[1].Text + '/ReadOnly'
else else
StatusBar.Panels[1].Text := 'Readonly'; StatusBar.Panels[1].Text := 'Readonly';
Statusbar.Panels[0].Text := Statusbar.Panels[0].Text :=
Format(' %6d:%4d',[TempEditor.CurrentCursorYLine,TempEditor.CurrentCursorXLine]); Format(' %6d:%4d',[TempEditor.CurrentCursorYLine,TempEditor.CurrentCursorXLine]);
if GetActiveSE.InsertMode then if GetActiveSE.InsertMode then
Statusbar.Panels[2].Text := 'INS' Statusbar.Panels[2].Text := 'INS'
else else
Statusbar.Panels[2].Text := 'OVR'; Statusbar.Panels[2].Text := 'OVR';
End; End;
function TSourceNotebook.FindBookmark(BookmarkID: integer): TSourceEditor; function TSourceNotebook.FindBookmark(BookmarkID: integer): TSourceEditor;