FileForums - InnoSetup - Embedded InnoSetup IDE

Embedded InnoSetup IDE

Code:

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:

Code:

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;