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

9
Extensions/srl.sex
View File

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