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.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;

.