Here is the original plugin: (.pas file)
procedure SaveMouseSettings;
var ini:TRegistryInifile;
begin
ini:=nil;
try
ini:=TRegistryInifile.create('Software\Chaosplugin');
ini.WriteInteger('Mouse','SavedSpeed',GetMouseSpeed);
finally
ini.free;
end;
end;
var activate:boolean;
begin
Activate:=ScActive and Settings.DifferentMousesettings and (Settings.Mousespeed>0);
if Settings.MousesettingsFullscreenOnly and (Screen.Width>640)and(Screen.Height>480)
then Activate:=false;
if active=activate then exit;
RestoreMouseSettings;
if Activate
then begin
SaveMouseSettings;
SetMouseSpeed(Settings.MouseSpeed);
end;
active:=activate;
end;
procedure MouseSettingsTimer;
begin
UpdateMouseSettings;
end;
procedure MouseSettingsFinish;
begin
MouseSettingsTimer;
end;
initialization
RestoreMouseSettings;
AddTimerHandler(MouseSettingsTimer,[pmLauncher]);
AddFinishHandler(MouseSettingsFinish,[pmLauncher]);
finalization
RestoreMouseSettings;
end.
Edited by WingedPanther, 18 May 2010 - 07:00 AM.
add code tags (the # button)


Sign In
Create Account

Back to top









