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

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1 MajorVer=1
MinorVer=4 MinorVer=4
Release=2 Release=2
Build=1 Build=2
Debug=0 Debug=0
PreRelease=0 PreRelease=0
Special=0 Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=AMX Mod X Dev Team CompanyName=AMX Mod X Dev Team
FileDescription= FileDescription=
FileVersion=1.4.2.1 FileVersion=1.4.2.2
InternalName=gaben InternalName=gaben
LegalCopyright=AMX Mod X Dev Team LegalCopyright=AMX Mod X Dev Team
LegalTrademarks= LegalTrademarks=

Binary file not shown.

Binary file not shown.

View File

@ -24,6 +24,7 @@ type TDocument = class(TCollectionItem)
FKeywords: String; FKeywords: String;
FCallTips: String; FCallTips: String;
procedure SetFileName(const Value: String); procedure SetFileName(const Value: String);
procedure SetModified(const Value: Boolean);
published published
property FileName: String read FFileName write SetFileName; property FileName: String read FFileName write SetFileName;
property Title: String read FTitle write FTitle; property Title: String read FTitle write FTitle;
@ -33,7 +34,7 @@ type TDocument = class(TCollectionItem)
property Highlighter: String read FHighlighter write FHighlighter; property Highlighter: String read FHighlighter write FHighlighter;
property ReadOnly: Boolean read FReadOnly write FReadOnly; property ReadOnly: Boolean read FReadOnly write FReadOnly;
property TopLine: Integer read FTopLine write FTopLine; property TopLine: Integer read FTopLine write FTopLine;
property Modified: Boolean read FModified write FModified; property Modified: Boolean read FModified write SetModified;
property NotesText: String read FNotesText write FNotesText; property NotesText: String read FNotesText write FNotesText;
property Keywords: String read FKeywords write FKeywords; property Keywords: String read FKeywords write FKeywords;
property CallTips: String read FCallTips write FCallTips; property CallTips: String read FCallTips write FCallTips;
@ -586,7 +587,7 @@ begin
tbDocs.Tabs.Clear; tbDocs.Tabs.Clear;
for i := 0 to Collection.Count -1 do for i := 0 to Collection.Count -1 do
tbDocs.AddTab(TDocument(Collection.Items[i]).Title); tbDocs.AddTab(TDocument(Collection.Items[i]).Title).Modified := TDocument(Collection.Items[i]).Modified;
Started := True; Started := True;
if JumpToLastDoc then begin if JumpToLastDoc then begin
@ -935,6 +936,22 @@ begin
FTitle := '< ' + IntToStr(Index +1) + #32 + ExtractFileName(Value) + ' >'; FTitle := '< ' + IntToStr(Index +1) + #32 + ExtractFileName(Value) + ' >';
end; end;
procedure TDocument.SetModified(const Value: Boolean);
var Collection: TCollection;
begin
FModified := Value;
if not Started then exit;
case CurrProjects of
0: Collection := PawnProjects; // Pawn
1: Collection := CPPProjects; // C++
else Collection := OtherProjects; // Other
end;
if Collection = Self.Collection then
frmMain.tbDocs.Tabs[Index].Modified := Value;
end;
function TDocument.Untitled: Boolean; function TDocument.Untitled: Boolean;
begin begin
Result := Pos('\', FFilename) = 0; Result := Pos('\', FFilename) = 0;
@ -1094,8 +1111,10 @@ begin
if (Collection = Self) then begin if (Collection = Self) then begin
try try
for i := 0 to frmMain.tbDocs.Tabs.Count -1 do for i := 0 to frmMain.tbDocs.Tabs.Count -1 do begin
TJvTabBarItem(frmMain.tbDocs.Tabs[i]).Caption := TDocument(Items[i]).Title; TJvTabBarItem(frmMain.tbDocs.Tabs[i]).Caption := TDocument(Items[i]).Title;
TJvTabBarItem(frmMain.tbDocs.Tabs[i]).Modified := TDocument(Items[i]).Modified;
end;
except except
// no idea how to fix this // no idea how to fix this
end; end;

View File

@ -417,6 +417,7 @@ procedure TfrmMain.FormConstrainedResize(Sender: TObject; var MinWidth,
begin begin
pnlLoading.Left := sciEditor.Left + 3 + (sciEditor.Width div 2) - (pnlLoading.Width div 2); 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.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 if (Canvas.TextWidth(ActiveDoc.FileName) + 10 > mnuFilename.CustomWidth) then
mnuFilename.Caption := ExtractFileName(ActiveDoc.FileName) mnuFilename.Caption := ExtractFileName(ActiveDoc.FileName)