moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Bump simba version

Browse Source
This commit is contained in:
Merlijn Wajer 2010-07-26 23:47:37 +02:00
parent 4983e9220c
commit eae242b715
1 changed files with 3153 additions and 3128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
Projects/Simba/simbaunit.pas
View File

@ -45,10 +45,10 @@ uses
stringutil,mufasatypesutil,mufasabase, v_ideCodeParser, stringutil,mufasatypesutil,mufasabase, v_ideCodeParser,
about, framefunctionlist, ocr, updateform, Simbasettings, psextension, virtualextension, about, framefunctionlist, ocr, updateform, Simbasettings, psextension, virtualextension,
extensionmanager, settingssandbox, v_ideCodeInsight, CastaliaPasLexTypes, extensionmanager, settingssandbox, v_ideCodeInsight, CastaliaPasLexTypes,
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump; CastaliaSimplePasPar, v_AutoCompleteForm, PSDump, settings_usergui2;
const const
SimbaVersion = 705; SimbaVersion = 706;
type type
@ -107,6 +107,10 @@ type
MenuFile: TMenuItem; MenuFile: TMenuItem;
MenuEdit: TMenuItem; MenuEdit: TMenuItem;
MenuHelp: TMenuItem; MenuHelp: TMenuItem;
MenuItemOpenPluginsFolder: TMenuItem;
MenuItemOpenIncludesFolder: TMenuItem;
MenuItemOpenScriptsFolder: TMenuItem;
MenuItemDivider11: TMenuItem;
MenuItemSaveDef: TMenuItem; MenuItemSaveDef: TMenuItem;
MenuItemBitmapConv: TMenuItem; MenuItemBitmapConv: TMenuItem;
MenuItemExtensions: TMenuItem; MenuItemExtensions: TMenuItem;
@ -287,6 +291,9 @@ type
procedure MenuItemExportHTMLClick(Sender: TObject); procedure MenuItemExportHTMLClick(Sender: TObject);
procedure MenuitemFillFunctionListClick(Sender: TObject); procedure MenuitemFillFunctionListClick(Sender: TObject);
procedure MenuItemHideClick(Sender: TObject); procedure MenuItemHideClick(Sender: TObject);
procedure MenuItemOpenIncludesFolderClick(Sender: TObject);
procedure MenuItemOpenPluginsFolderClick(Sender: TObject);
procedure MenuItemOpenScriptsFolderClick(Sender: TObject);
procedure MenuItemReportBugClick(Sender: TObject); procedure MenuItemReportBugClick(Sender: TObject);
procedure MenuItemSettingsButtonClick(Sender: TObject); procedure MenuItemSettingsButtonClick(Sender: TObject);
procedure MenuItemShowClick(Sender: TObject); procedure MenuItemShowClick(Sender: TObject);
@ -377,7 +384,6 @@ type
procedure SetShowParamHintAuto(const AValue: boolean); procedure SetShowParamHintAuto(const AValue: boolean);
procedure SetShowCodeCompletionAuto(const AValue: boolean); procedure SetShowCodeCompletionAuto(const AValue: boolean);
procedure SetScriptState(const State: TScriptState); procedure SetScriptState(const State: TScriptState);
function LoadSettingDef(const Key, Def : string) : string;
function CreateSetting(const Key, Value : string) : string; function CreateSetting(const Key, Value : string) : string;
procedure SetSetting(const key,Value : string; save : boolean = false); procedure SetSetting(const key,Value : string; save : boolean = false);
function SettingExtists(const key : string) : boolean; function SettingExtists(const key : string) : boolean;
@ -400,6 +406,9 @@ type
ConsoleVisible : boolean; ConsoleVisible : boolean;
procedure ShowConsole( ShowIt : boolean); procedure ShowConsole( ShowIt : boolean);
{$endif} {$endif}
function LoadSettingDef(const Key, Def : string) : string;
procedure FunctionListShown( ShowIt : boolean); procedure FunctionListShown( ShowIt : boolean);
property ScriptState : TScriptState read GetScriptState write SetScriptState; property ScriptState : TScriptState read GetScriptState write SetScriptState;
procedure SafeCallThread; procedure SafeCallThread;
@ -2419,6 +2428,21 @@ begin
Self.Hide; Self.Hide;
end; end;
procedure TSimbaForm.MenuItemOpenIncludesFolderClick(Sender: TObject);
begin
OpenDocument(Self.IncludePath);
end;
procedure TSimbaForm.MenuItemOpenPluginsFolderClick(Sender: TObject);
begin
OpenDocument(Self.PluginPath);
end;
procedure TSimbaForm.MenuItemOpenScriptsFolderClick(Sender: TObject);
begin
OpenDocument(Self.ScriptDir);
end;
procedure TSimbaForm.MenuItemReportBugClick(Sender: TObject); procedure TSimbaForm.MenuItemReportBugClick(Sender: TObject);
begin begin
OpenURL('http://mufasa.villavu.com/mantis/bug_report_page.php'); OpenURL('http://mufasa.villavu.com/mantis/bug_report_page.php');
@ -2426,7 +2450,8 @@ end;
procedure TSimbaForm.MenuItemSettingsButtonClick(Sender: TObject); procedure TSimbaForm.MenuItemSettingsButtonClick(Sender: TObject);
begin begin
SettingsForm.ShowModal; //SettingsForm.ShowModal;
SettingsGUIForm.ShowModal;
end; end;
procedure TSimbaForm.MenuItemShowClick(Sender: TObject); procedure TSimbaForm.MenuItemShowClick(Sender: TObject);