{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{       Using maximize or restore source editor window  }
{       Writed by Kend                                  }
{                                                       }
{*******************************************************}

program SwitchSourceEditorMaximize;

uses
  CnWizUtils;

var
  srcEditor: IOTASourceEditor;
  editView: IOTAEditView;
  editWindow: TCustomForm;
begin
  srcEditor := CnOtaGetCurrentSourceEditor;
  editView := CnOtaGetTopMostEditView(srcEditor);
  editWindow := editView.GetEditWindow.GetForm;

  if IsIdeEditorForm(editWindow) then
    if editWindow.WindowState <> wsMaximized then
      editWindow.WindowState := wsMaximized
    else
      editWindow.WindowState := wsNormal;
end.