diff --git a/editor/studio/AMXX_Studio.dof b/editor/studio/AMXX_Studio.dof index 2a241008..ee70d72b 100755 --- a/editor/studio/AMXX_Studio.dof +++ b/editor/studio/AMXX_Studio.dof @@ -115,7 +115,7 @@ AutoIncBuild=1 MajorVer=1 MinorVer=0 Release=0 -Build=9 +Build=10 Debug=0 PreRelease=1 Special=0 @@ -126,7 +126,7 @@ CodePage=1252 [Version Info Keys] CompanyName=AMX Mod X Dev Team FileDescription= -FileVersion=1.0.0.9 +FileVersion=1.0.0.10 InternalName= LegalCopyright= LegalTrademarks= diff --git a/editor/studio/AMXX_Studio.exe b/editor/studio/AMXX_Studio.exe index 05bbe59c..47d4c850 100755 Binary files a/editor/studio/AMXX_Studio.exe and b/editor/studio/AMXX_Studio.exe differ diff --git a/editor/studio/AMXX_Studio.res b/editor/studio/AMXX_Studio.res index 91288bc6..8134d309 100755 Binary files a/editor/studio/AMXX_Studio.res and b/editor/studio/AMXX_Studio.res differ diff --git a/editor/studio/UnitPlugins.pas b/editor/studio/UnitPlugins.pas index ded76021..9cc863c1 100755 --- a/editor/studio/UnitPlugins.pas +++ b/editor/studio/UnitPlugins.pas @@ -34,7 +34,7 @@ type TCodeSnippetClick = function (pTitle, pCategory: PChar; pCode: PChar): Inte type TIntegerArray = array of Integer; type TLoadInfo = record - { Plugin Values } + { Plugin values } sPluginName: PChar; sPluginDescription: PChar; { Form Handles } @@ -66,7 +66,7 @@ type TLoadInfo = record end; type PLoadInfo = ^TLoadInfo; - TLoadPlugin = procedure (var LoadInfo: PLoadInfo); cdecl; + TLoadPlugin = procedure (LoadInfo: PLoadInfo); cdecl; TUnloadPlugin = procedure; cdecl; procedure SendToMainApp(eData: String); @@ -188,12 +188,17 @@ begin if @eFunc2 <> nil then begin if @eFunc <> nil then begin - ListItem.Data := Pointer(eHandle); - ListItem.SubItems[2] := 'Loaded'; - LoadInfo := @eLoadInfo; - eFunc(LoadInfo); - ListItem.Caption := eLoadInfo.sPluginName; - ListItem.SubItems[1] := eLoadInfo.sPluginDescription; + try + LoadInfo := @eLoadInfo; + eFunc(LoadInfo); + ListItem.Data := Pointer(eHandle); + ListItem.Caption := eLoadInfo.sPluginName; + ListItem.SubItems[1] := eLoadInfo.sPluginDescription; + ListItem.SubItems[2] := 'Loaded'; + except + on E: Exception do + Application.MessageBox(PChar(E.Message), PChar(Application.Title), MB_ICONERROR); + end; end else MessageBox(Application.Handle, PChar('Error loading plugin:' + #13 + 'pftPluginLoad function not found.'), PChar(ExtractFileName(ExtractFilePath(ParamStr(0)) + 'plugins\' + ListItem.SubItems[0])), MB_ICONERROR);