DLL 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.iss'));
  
  { 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 ;