moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-28 03:52:23 -05:00
Code Issues Releases Wiki Activity

Extension: Paster Update

Browse Source
This commit is contained in:
John P (Dgby714) 2011-05-07 17:11:08 -04:00
parent ed621254dd
commit a05281804b
1 changed files with 77 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
Extensions/paster.sex
View File

@ -35,6 +35,7 @@ var
Paster_MenuItems: array[1..2] of TMenuItem; Paster_MenuItems: array[1..2] of TMenuItem;
Divider_MenuItems: array[1..3] of TMenuItem; Divider_MenuItems: array[1..3] of TMenuItem;
AltHost_Menus: TAltHost_Menus; AltHost_Menus: TAltHost_Menus;
AltHost_Top: integer;
function EncodeString(Data: string): string; function EncodeString(Data: string): string;
var var
@ -172,8 +173,11 @@ var
begin begin
Settings.setKeyValue('DefaultHost', IntToStr(Index)); Settings.setKeyValue('DefaultHost', IntToStr(Index));
for I := 0 to High(AltHost_Menus) do for I := 0 to High(AltHost_Menus) do
AltHost_Menus[I].Default_MenuItem.Checked := False; AltHost_Menus[I].Default_MenuItem.Checked := (Index = AltHost_Menus[I].Index);
AltHost_Menus[Index].Default_MenuItem.Checked := True
Paster_MenuItems[1].Enabled := (Settings.getKeyValueDef('DefaultHost', '-1') <> '-1');
Paster_MenuItems[2].Enabled := (Settings.getKeyValueDef('DefaultHost', '-1') <> '-1');
GetPaste_MenuItem.Enabled := (Settings.getKeyValueDef('DefaultHost', '-1') <> '-1');
end; end;
procedure UpdateHost(I: integer); procedure UpdateHost(I: integer);
@ -206,8 +210,6 @@ begin
begin begin
Index := I; Index := I;
Divider_MenuItems[3].Visible := (Divider_MenuItems[3].MenuIndex > 0);
Menu := TMenuItem.Create(AltHost_Menu); Menu := TMenuItem.Create(AltHost_Menu);
Menu.Name := 'Host_' + IntToStr(I) + '_Menu' Menu.Name := 'Host_' + IntToStr(I) + '_Menu'
Menu.Caption := Settings.getKeyValueDef('Host' + IntToStr(I), ''); Menu.Caption := Settings.getKeyValueDef('Host' + IntToStr(I), '');
@ -215,7 +217,7 @@ begin
Paste_MenuItem := TMenuItem.Create(Menu); Paste_MenuItem := TMenuItem.Create(Menu);
Paste_MenuItem.Name := Menu.Name + '_Paste'; Paste_MenuItem.Name := Menu.Name + '_Paste';
Paste_MenuItem.Caption := 'Paste'; Paste_MenuItem.Caption := 'Paste Script';
Paste_MenuItem.OnClick := @OnClick; Paste_MenuItem.OnClick := @OnClick;
Menu.Add(Paste_MenuItem); Menu.Add(Paste_MenuItem);
@ -248,11 +250,11 @@ begin
Update_MenuItem.OnClick := @OnClick; Update_MenuItem.OnClick := @OnClick;
Menu.Add(Update_MenuItem); Menu.Add(Update_MenuItem);
{ Delete_MenuItem := TMenuItem.Create(Menu); Delete_MenuItem := TMenuItem.Create(Menu);
Delete_MenuItem.Name := Menu.Name + '_Delete'; Delete_MenuItem.Name := Menu.Name + '_Delete';
Delete_MenuItem.Caption := 'Delete Host'; Delete_MenuItem.Caption := 'Delete Host';
Delete_MenuItem.OnClick := @OnClick; Delete_MenuItem.OnClick := @OnClick;
Menu.Add(Delete_MenuItem); } // This is annoying to do so lets just leave it out for now... Menu.Add(Delete_MenuItem);
end; end;
end; end;
@ -266,10 +268,10 @@ begin;
WriteLn('Sender is '#39 + TMenuItem(Sender).Name + #39'.'); //(Sender as TMenuItem).Name WriteLn('Sender is '#39 + TMenuItem(Sender).Name + #39'.'); //(Sender as TMenuItem).Name
{$ENDIF} {$ENDIF}
case Sender of case Sender of
Paster_MenuItems[1]: Paste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '1')), ScriptText); Paster_MenuItems[1]: Paste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '-1')), ScriptText);
Paster_MenuItems[2]: Paste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '1')), GetSelectedText); Paster_MenuItems[2]: Paste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '-1')), GetSelectedText);
GetPaste_MenuItem: GetPaste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '1'))); GetPaste_MenuItem: GetPaste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '-1')));
AltHostAdd_MenuItem: begin AltHostAdd_MenuItem: begin
I := 1; I := 1;
@ -287,6 +289,11 @@ begin;
Settings.setKeyValue('Host' + IntToStr(I), Data); Settings.setKeyValue('Host' + IntToStr(I), Data);
CreateAltMenu(I); CreateAltMenu(I);
Inc(AltHost_Top);
Divider_MenuItems[3].Visible := (Divider_MenuItems[3].MenuIndex > 0);
if (I = 1) then
UpdateDefault(I);
end; end;
end; end;
@ -308,8 +315,35 @@ begin;
Paste_MenuItem: Paste(Settings.getKeyValue('Host' + IntToStr(Index)), ScriptText); Paste_MenuItem: Paste(Settings.getKeyValue('Host' + IntToStr(Index)), ScriptText);
PasteS_MenuItem: Paste(Settings.getKeyValue('Host' + IntToStr(Index)), GetSelectedText); PasteS_MenuItem: Paste(Settings.getKeyValue('Host' + IntToStr(Index)), GetSelectedText);
GetPaste_MenuItem: GetPaste(Settings.getKeyValue('Host' + IntToStr(Index))); GetPaste_MenuItem: GetPaste(Settings.getKeyValue('Host' + IntToStr(Index)));
Default_MenuItem: UpdateDefault(I); Default_MenuItem: UpdateDefault(Index);
Update_MenuItem: UpdateHost(I); Update_MenuItem: UpdateHost(I);
Delete_MenuItem: begin
if (not (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Are you sure you would like to delete the "' + Settings.getKeyValue('Host' + IntToStr(Index)) + '" host?', mtConfirmation, [mbYes, mbCancel], 0) = mrYes)) then
Exit;
if (Settings.getKeyValueDef('DefaultHost', '-1') = IntToStr(Index)) then
UpdateDefault(-1);
Menu.Free;
if (not (Index = AltHost_Top)) then
begin
for K := I to High(AltHost_Menus) - 1 do
begin
AltHost_Menus[K] := AltHost_Menus[K + 1];
Dec(AltHost_Menus[K].Index);
end;
for K := Index to AltHost_Top - 1 do
Settings.setKeyValue('Host' + IntToStr(K), Settings.getKeyValue('Host' + IntToStr(K + 1)));
Settings.deleteKey('Host' + IntToStr(AltHost_Top));
end else
Settings.deleteKey('Host' + IntToStr(Index));
SetLength(AltHost_Menus, Length(AltHost_Menus) - 1);
Dec(AltHost_Top);
Divider_MenuItems[3].Visible := (Divider_MenuItems[3].MenuIndex > 0);
Exit;
end;
end; end;
end; end;
@ -339,9 +373,11 @@ begin
case V of case V of
'-1', '0.4a': begin '-1', '0.4a': begin
SetLength(SA, 2); SetLength(SA, 1);
SA[1] := HOSTDef; SA[0] := HOSTDef;
for I := 2 to 5 do for I := 1 to 5 do
begin
if (Settings.isKey('Host' + IntToStr(I))) then
begin begin
S := Settings.getKeyValueDef('Host' + IntToStr(I), 'Host' + IntToStr(I)); S := Settings.getKeyValueDef('Host' + IntToStr(I), 'Host' + IntToStr(I));
if (S <> 'Host' + IntToStr(I)) then if (S <> 'Host' + IntToStr(I)) then
@ -351,8 +387,9 @@ begin
end; end;
Settings.DeleteKey('Host' + IntToStr(I)); Settings.DeleteKey('Host' + IntToStr(I));
end; end;
for I := 1 to High(SA) do end;
Settings.setKeyValue('Host' + IntToStr(I), SA[I]); for I := 0 to High(SA) do
Settings.setKeyValue('Host' + IntToStr(I + 1), SA[I]);
end; end;
end; end;
@ -373,7 +410,7 @@ begin;
with Paster_MenuItems[1] do with Paster_MenuItems[1] do
begin begin
Name := 'Default_Paste'; Name := 'Default_Paste';
Caption := 'Paste It!'; Caption := 'Paste Script';
OnClick := @OnClick; OnClick := @OnClick;
end; end;
Paster_Menu.Add(Paster_MenuItems[1]); Paster_Menu.Add(Paster_MenuItems[1]);
@ -382,7 +419,7 @@ begin;
with Paster_MenuItems[2] do with Paster_MenuItems[2] do
begin begin
Name := 'Default_PasteS'; Name := 'Default_PasteS';
Caption := 'Paste Selection!'; Caption := 'Paste Selection';
OnClick := @OnClick; OnClick := @OnClick;
end; end;
Paster_Menu.Add(Paster_MenuItems[2]); Paster_Menu.Add(Paster_MenuItems[2]);
@ -391,7 +428,7 @@ begin;
with GetPaste_MenuItem do with GetPaste_MenuItem do
begin begin
Name := 'Default_GetPaste'; Name := 'Default_GetPaste';
Caption := 'Get Paste!'; Caption := 'Get Paste';
OnClick := @OnClick; OnClick := @OnClick;
end; end;
Paster_Menu.Add(GetPaste_MenuItem); Paster_Menu.Add(GetPaste_MenuItem);
@ -442,16 +479,24 @@ begin;
AltHost_Menu.Add(AltHostAdd_MenuItem); AltHost_Menu.Add(AltHostAdd_MenuItem);
if (not (Settings.IsKey('Host1'))) then if (not (Settings.IsKey('Host1'))) then
Settings.setKeyValue('Host1', HOSTDef);
I := 1;
while (Settings.IsKey('Host' + IntToStr(I))) do
begin begin
if (Settings.GetKeyValue('Host' + IntToStr(I)) = 'Host ' + IntToStr(I)) then if (Settings.getKeyValueDef('DefaultHost', '-1') = '-1') then
Continue; Settings.setKeyValue('DefaultHost', '1');
CreateAltMenu(I); Settings.setKeyValue('Host1', HOSTDef);
Inc(I);
end; end;
AltHost_Top := 1;
while (Settings.IsKey('Host' + IntToStr(AltHost_Top))) do
begin
if (Settings.GetKeyValue('Host' + IntToStr(AltHost_Top)) = 'Host ' + IntToStr(AltHost_Top)) then
Continue;
CreateAltMenu(AltHost_Top);
Inc(AltHost_Top);
end;
Dec(AltHost_Top);
Divider_MenuItems[3].Visible := (Divider_MenuItems[3].MenuIndex > 0);
UpdateDefault(StrToInt(Settings.getKeyValueDef('DefaultHost', '-1')));
end; end;
{$ENDIF} {$ENDIF}