InnoSetup - Embedded InnoSetup IDE

[BLACKFIRE69]

Embedded InnoSetup IDE


const
IDCC_CONFIRM_CLOSE_FILE = $83;
IDCC_ENABLE_MAIN_MENU = $86;
IDCC_ENABLE_TOOLBAR = $87;
IDCC_ENABLE_STATUSBAR = $88;
IDCC_SHOW = $75;
IDCC_HIDE = $76;
IDCC_RUN = $7D;
IDCC_PAUSE = $7E;
IDCC_TERMINATE = $7F;
IDCC_COMPILE = $80;
IDCC_STOP_COMPILE = $81;
IDCC_HIDE_BOTTOM_PANEL = $6F;
IDCC_OPEN_OUTPUT_DIR = $70;

type
TIdeTheme = (ide_light, ide_dark, ide_classic);

procedure is_ide_create(hParent: HWND; hLeft, hTop, hWidth, hHeight: Integer; BinDir: WideString);
procedure is_ide_change_theme(iTheme: TIdeTheme);
procedure is_ide_open_script(const sScript: WideString);
procedure is_ide_read_only(Value: Boolean);
procedure is_ide_call(const idcc: Cardinal);

* Example:

procedure InitializeWizard;
begin
is_ide_create(WizardForm.Handle, 15, 5, 700, 550, ExpandConstant('{src}\Bin'));
is_ide_open_script(ExpandConstant('{src}\Sample.is s'));

{ Enable MainMenu }
is_ide_call(IDCC_ENABLE_MAIN_MENU);

{ Enable Toolbar }
is_ide_call(IDCC_ENABLE_TOOLBAR);

{ Enable Statusbar }
is_ide_call(IDCC_ENABLE_STATUSBAR);

{ Show IDE }
is_ide_call(IDCC_SHOW);
end;

procedure DeinitializeSetup;
begin
{ Confirm that the script file has been closed properly. }
is_ide_call(IDCC_CONFIRM_CLOSE_FILE);
end;


.