just another bug fix (or two)

This commit is contained in:
Christian Hammacher 2005-11-09 16:48:21 +00:00
parent 38178ea9fa
commit c4d120082b
7 changed files with 7 additions and 5 deletions

View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1
MinorVer=3
Release=0
Build=26
Build=28
Debug=0
PreRelease=0
Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=AMX Mod X Dev Team
FileDescription=
FileVersion=1.3.0.26
FileVersion=1.3.0.28
InternalName=
LegalCopyright=
LegalTrademarks=

Binary file not shown.

Binary file not shown.

View File

@ -1093,8 +1093,8 @@ begin
if Count = 0 then
Add('', '');
if (AIndex < Count) then
Activate(AIndex, True, False)
if (AIndex -1 < Count) and (AIndex <> 0) then
Activate(AIndex -1, True, False)
else
Activate(0, True, False);
end;

Binary file not shown.

View File

@ -11,6 +11,7 @@ type
txtMOTD: TmxFlatMemo;
cmdClose: TSpTBXButton;
cmdCopy: TSpTBXButton;
lblLength: TLabel;
procedure cmdCopyClick(Sender: TObject);
end;

View File

@ -1489,7 +1489,7 @@ begin
else
eRoot.Expand(False);
{ Other Projects }
eRoot := frmClose.trvFiles.Items.Add(nil, tsMain.Items[1].Caption);
eRoot := frmClose.trvFiles.Items.Add(nil, tsMain.Items[2].Caption);
for i := 0 to OtherProjects.Count - 1 do begin
if TDocument(OtherProjects.Items[i]).Modified then
frmClose.trvFiles.Items.AddChild(eRoot, IntToStr(i + 1) + '. ' + ExtractFileName(TDocument(OtherProjects.Items[i]).FileName));
@ -1992,6 +1992,7 @@ begin
eStr[i] := '"' + eStr[i] + '^n" +';
end;
frmMOTDGen.txtMOTD.Lines.Assign(eStr);
frmMOTDGen.lblLength.Caption := 'Length: ' + IntToStr(Length(eStr.Text));
eStr.Destroy;
frmMOTDGen.ShowModal;