Now shows if a document has been modified in the documents tab bar

This commit is contained in:
Christian Hammacher
2006-04-25 13:16:43 +00:00
parent 9dccde4567
commit 2c541f338c
5 changed files with 25 additions and 5 deletions

View File

@@ -417,6 +417,7 @@ procedure TfrmMain.FormConstrainedResize(Sender: TObject; var MinWidth,
begin
pnlLoading.Left := sciEditor.Left + 3 + (sciEditor.Width div 2) - (pnlLoading.Width div 2);
pnlLoading.Top := tbDocs.Top + sciEditor.Top + ((sciEditor.Height * 5) div 6) - (pnlLoading.Height div 2);
pnlLoading.BringToFront;
if (Canvas.TextWidth(ActiveDoc.FileName) + 10 > mnuFilename.CustomWidth) then
mnuFilename.Caption := ExtractFileName(ActiveDoc.FileName)