paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 21:23:11 +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
tempEditor : TSourceEditor;
begin
if not Visible then exit;
TempEditor := GetActiveSE;
if TempEditor = nil then Exit;
if (TempEditor.EditorComponent.CaretY<>TempEditor.ErrorLine)
or (TempEditor.EditorComponent.CaretX<>TempEditor.fErrorColumn) then
TempEditor.ErrorLine:=-1;
Statusbar.Panels[3].Text := TempEditor.Filename;
if not Visible then exit;
TempEditor := GetActiveSE;
if TempEditor = nil then Exit;
if (TempEditor.EditorComponent.CaretY<>TempEditor.ErrorLine)
or (TempEditor.EditorComponent.CaretX<>TempEditor.fErrorColumn) then
TempEditor.ErrorLine:=-1;
Statusbar.Panels[3].Text := TempEditor.Filename;
If TempEditor.Modified then
StatusBar.Panels[1].Text := 'Modified'
else
StatusBar.Panels[1].Text := '';
If TempEditor.Modified then
StatusBar.Panels[1].Text := 'Modified'
else
StatusBar.Panels[1].Text := '';
If TempEditor.ReadOnly then
if StatusBar.Panels[1].Text <> '' then
StatusBar.Panels[1].Text := StatusBar.Panels[1].Text + '/ReadOnly'
else
StatusBar.Panels[1].Text := 'Readonly';
If TempEditor.ReadOnly then
if StatusBar.Panels[1].Text <> '' then
StatusBar.Panels[1].Text := StatusBar.Panels[1].Text + '/ReadOnly'
else
StatusBar.Panels[1].Text := 'Readonly';
Statusbar.Panels[0].Text :=
Format(' %6d:%4d',[TempEditor.CurrentCursorYLine,TempEditor.CurrentCursorXLine]);
Statusbar.Panels[0].Text :=
Format(' %6d:%4d',[TempEditor.CurrentCursorYLine,TempEditor.CurrentCursorXLine]);
if GetActiveSE.InsertMode then
Statusbar.Panels[2].Text := 'INS'
else
Statusbar.Panels[2].Text := 'OVR';
if GetActiveSE.InsertMode then
Statusbar.Panels[2].Text := 'INS'
else
Statusbar.Panels[2].Text := 'OVR';
End;
function TSourceNotebook.FindBookmark(BookmarkID: integer): TSourceEditor;