CnPack Forum » 技术板块灌水区 » 如何使用脚本专家控制代码编辑器的最大化


2008-7-17 14:32 kendling
如何使用脚本专家控制代码编辑器的最大化

把下面的代码保存成SwitchSourceEditorMaximize.pas,然后在脚本专家里添加进去。
给个热键,我使用的是Ctrl+Alt+-。
把“手动执行脚本时需要确认”去掉,对于这个脚本非常的烦。
最后试试你刚设的热键,爽吧?再也不需要去双击标题了。

代码非常简单,所以就没有写注释了。
[code]{*******************************************************}
{                                                       }
{       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.[/code]

2008-7-18 09:37 jAmEs_
good

页: [1]


Powered by Discuz! Archiver 5.0.0  © 2001-2006 Comsenz Inc.