Fixed a small output bug

This commit is contained in:
Christian Hammacher 2005-11-05 11:20:52 +00:00
parent 6ea52a9a08
commit 1cb99082e2
6 changed files with 17 additions and 17 deletions

View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1 MajorVer=1
MinorVer=3 MinorVer=3
Release=0 Release=0
Build=16 Build=17
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.3.0.16 FileVersion=1.3.0.17
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=

Binary file not shown.

Binary file not shown.

View File

@ -145,7 +145,6 @@ var i, eIndex: integer;
begin begin
if Output.Count > 1 then begin if Output.Count > 1 then begin
eIndex := frmMain.lstOutput.ItemIndex; eIndex := frmMain.lstOutput.ItemIndex;
frmMain.lstOutput.Items.BeginUpdate;
frmMain.lstOutput.Items.Clear; frmMain.lstOutput.Items.Clear;
if Finished then begin if Finished then begin
for i := 0 to Output.Count -1 do for i := 0 to Output.Count -1 do
@ -155,7 +154,6 @@ begin
for i := 0 to Output.Count -2 do for i := 0 to Output.Count -2 do
ProcessItem(Output[i]); ProcessItem(Output[i]);
end; end;
frmMain.lstOutput.Items.EndUpdate;
frmMain.lstOutput.ItemIndex := eIndex; frmMain.lstOutput.ItemIndex := eIndex;
frmMain.Repaint; frmMain.Repaint;
Application.ProcessMessages; Application.ProcessMessages;

View File

@ -1919,6 +1919,7 @@ begin
except except
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
MessageBox(Handle, PChar(lFailedUpdatePluginsIni), PChar(Application.Title), MB_ICONERROR); MessageBox(Handle, PChar(lFailedUpdatePluginsIni), PChar(Application.Title), MB_ICONERROR);
exit;
end; end;
eFound := False; eFound := False;
@ -1953,6 +1954,7 @@ begin
except except
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
MessageBox(Handle, PChar(lFailedUpdatePluginsIni), PChar(Application.Title), MB_ICONERROR); MessageBox(Handle, PChar(lFailedUpdatePluginsIni), PChar(Application.Title), MB_ICONERROR);
exit;
end; end;
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;

View File

@ -61,7 +61,7 @@ object frmSettings: TfrmSettings
Top = 0 Top = 0
Width = 353 Width = 353
Height = 260 Height = 260
ActivePage = jspCTSettings ActivePage = jspFTP
PropagateEnable = False PropagateEnable = False
Align = alClient Align = alClient
OnChange = jplSettingsChange OnChange = jplSettingsChange
@ -107,7 +107,7 @@ object frmSettings: TfrmSettings
Height = 21 Height = 21
Style = csDropDownList Style = csDropDownList
Color = clWindow Color = clWindow
ItemHeight = 13 ItemHeight = 0
TabOrder = 0 TabOrder = 0
ItemIndex = -1 ItemIndex = -1
OnChange = cboLanguageChange OnChange = cboLanguageChange
@ -1077,21 +1077,21 @@ object frmSettings: TfrmSettings
Caption = 'Settings' Caption = 'Settings'
object lblFTPData: TLabel object lblFTPData: TLabel
Left = 8 Left = 8
Top = 6 Top = 26
Width = 48 Width = 48
Height = 13 Height = 13
Caption = 'FTP Data:' Caption = 'FTP Data:'
end end
object lblDefaultDirectory: TLabel object lblDefaultDirectory: TLabel
Left = 10 Left = 8
Top = 94 Top = 108
Width = 282 Width = 282
Height = 13 Height = 13
Caption = 'Plesae select the AMX Mod X directory on your FTP server:' Caption = 'Plesae select the AMX Mod X directory on your FTP server:'
end end
object pnlFTPData: TPanel object pnlFTPData: TPanel
Left = 6 Left = 6
Top = 22 Top = 42
Width = 339 Width = 339
Height = 63 Height = 63
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1186,30 +1186,30 @@ object frmSettings: TfrmSettings
end end
object pnlDefaultPath: TPanel object pnlDefaultPath: TPanel
Left = 8 Left = 8
Top = 110 Top = 124
Width = 339 Width = 339
Height = 119 Height = 105
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object lblDefaultDir: TLabel object lblDefaultDir: TLabel
Left = 4 Left = 4
Top = 96 Top = 84
Width = 104 Width = 104
Height = 13 Height = 13
Caption = 'AMX Mod X Directory:' Caption = 'AMX Mod X Directory:'
end end
object pnlDirectory: TPanel object pnlDirectory: TPanel
Left = 4 Left = 4
Top = 4 Top = 6
Width = 331 Width = 331
Height = 85 Height = 71
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 0 TabOrder = 0
object trvDirectories: TTreeView object trvDirectories: TTreeView
Left = 1 Left = 1
Top = 1 Top = 1
Width = 329 Width = 329
Height = 83 Height = 69
Align = alClient Align = alClient
BorderStyle = bsNone BorderStyle = bsNone
Images = ilImages Images = ilImages
@ -1223,7 +1223,7 @@ object frmSettings: TfrmSettings
end end
object txtDefaultDir: TFlatEdit object txtDefaultDir: TFlatEdit
Left = 112 Left = 112
Top = 94 Top = 82
Width = 223 Width = 223
Height = 19 Height = 19
ColorFlat = clWhite ColorFlat = clWhite