GitHub/amxmodx
2
0
Fork 0
mirror of https://github.com/alliedmodders/amxmodx.git synced 2024-10-16 23:37:04 +03:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
editor/studio/AMXX_Studio.dof
View File

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

BIN
editor/studio/AMXX_Studio.exe
View File

Binary file not shown.

BIN
editor/studio/AMXX_Studio.res
View File

Binary file not shown.

25
editor/studio/UnitMainTools.pas
View File

@ -24,6 +24,7 @@ type TDocument = class(TCollectionItem)
FKeywords: String;
FCallTips: String;
procedure SetFileName(const Value: String);
procedure SetModified(const Value: Boolean);
published
property FileName: String read FFileName write SetFileName;
property Title: String read FTitle write FTitle;
@ -33,7 +34,7 @@ type TDocument = class(TCollectionItem)
property Highlighter: String read FHighlighter write FHighlighter;
property ReadOnly: Boolean read FReadOnly write FReadOnly;
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 Keywords: String read FKeywords write FKeywords;
property CallTips: String read FCallTips write FCallTips;
@ -586,7 +587,7 @@ begin
tbDocs.Tabs.Clear;
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;
if JumpToLastDoc then begin
@ -935,6 +936,22 @@ begin
FTitle := '< ' + IntToStr(Index +1) + #32 + ExtractFileName(Value) + ' >';
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;
begin
Result := Pos('\', FFilename) = 0;
@ -1094,8 +1111,10 @@ begin
if (Collection = Self) then begin
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]).Modified := TDocument(Items[i]).Modified;
end;
except
// no idea how to fix this
end;

1
editor/studio/UnitfrmMain.pas
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)