moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 10:42:20 -05:00
Code Issues Releases Wiki Activity

Extension changes

Browse Source
This commit is contained in:
Merlijn Wajer 2010-07-16 02:10:01 +02:00
parent 8160f7c0fa
commit 6e08942bed
2 changed files with 35 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Extensions/reflection.sex
View File

@ -77,9 +77,6 @@ begin
Exit; Exit;
Updating := True; Updating := True;
GetLocalVersion(LocalR);
GetOnlineVersion(OnlineR);
if (LocalR < OnlineR) then if (LocalR < OnlineR) then
begin begin
case MessageDlg('Reflection Updater', 'Updates are available. '+ case MessageDlg('Reflection Updater', 'Updates are available. '+
@ -98,7 +95,6 @@ begin
f.ShowModal; f.ShowModal;
end else end else
begin begin
MessageDlg('Reflection Updater', 'No Reflection update' ,mtConfirmation, [mbYes],0);
writeln('No Reflection update'); writeln('No Reflection update');
end; end;
@ -132,6 +128,12 @@ end;
procedure OnReflectionUpdateClick(Sender: TObject); procedure OnReflectionUpdateClick(Sender: TObject);
begin begin
GetLocalVersion(LocalR);
GetOnlineVersion(OnlineR);
if (OnlineR <= LocalR) then
MessageDlg('Reflection Updater', 'No Reflection update' ,mtConfirmation, [mbYes],0);
else
Update; Update;
end; end;

9
Extensions/srl.sex
View File

@ -132,8 +132,6 @@ begin
Exit; Exit;
Updating := True; Updating := True;
GetLocalVersion(LocalP,LocalS);
GetOnlineVersion(OnlineP,OnlineS);
if (LocalP < OnlineP) or (LocalS < OnlineS) then if (LocalP < OnlineP) or (LocalS < OnlineS) then
begin begin
@ -153,7 +151,6 @@ begin
f.ShowModal; f.ShowModal;
end else end else
begin begin
MessageDlg('SRL Updater', 'No SRL update / Plugins update available!' ,mtConfirmation, [mbYes],0);
writeln('No SRL update / Plugins update available!'); writeln('No SRL update / Plugins update available!');
end; end;
@ -183,8 +180,14 @@ begin
else else
Settings.SetKeyValue('AutoUpdate', 'True'); Settings.SetKeyValue('AutoUpdate', 'True');
end; end;
procedure OnSRLUpdateClick(Sender: TObject); procedure OnSRLUpdateClick(Sender: TObject);
begin begin
GetLocalVersion(LocalP,LocalS);
GetOnlineVersion(OnlineP,OnlineS);
if (OnlineP <= LocalP) and (OnlineS <= LocalS) then
MessageDlg('SRL Updater', 'No SRL update / Plugins update available!', mtConfirmation, [mbYes], 0);
else
Update; Update;
end; end;