moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-14 05:15:16 -05:00
Code Issues Releases Wiki Activity

Extension: Paster Update

Browse Source
This commit is contained in:
John P (Dgby714) 2011-05-06 18:08:36 -04:00
parent 3a7e6841c5
commit 0ba8287468
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
Extensions/paster.sex
View File

@ -317,10 +317,47 @@ begin
Paster_Menu.Visible := False; Paster_Menu.Visible := False;
end; end;
procedure UpdateCheck;
var
V, S: string;
I: integer;
SA: TStringArray;
begin
if (not (Settings.isKey('Version'))) then
Settings.setKeyValue('Version', '-1');
V := Settings.getKeyValue('Version');
if (V = GetVersion) then
Exit;
case V of
'-1', '0.4a': begin
SetLength(SA, 2);
SA[1] := HOSTDef;
for I := 2 to 5 do
begin
S := Settings.getKeyValueDef('Host' + IntToStr(I), 'Host' + IntToStr(I));
if (S <> 'Host' + IntToStr(I)) then
begin
SetLength(SA, Length(SA) + 1);
SA[High(SA)] := S;
end;
Settings.DeleteKey('Host' + IntToStr(I));
end;
for I := 1 to High(SA) do
Settings.setKeyValue('Host' + IntToStr(I), SA[I]);
end;
end;
Settings.setKeyValue('Version', GetVersion);
end;
procedure Init; procedure Init;
var var
I, K: integer; I, K: integer;
begin; begin;
UpdateCheck;
Paster_Menu := TMenuItem.Create(Simba_MainMenu); Paster_Menu := TMenuItem.Create(Simba_MainMenu);
Paster_Menu.Caption := GetName; Paster_Menu.Caption := GetName;
Simba_MainMenu.Items.Add(Paster_Menu); Simba_MainMenu.Items.Add(Paster_Menu);