Skip to content

标签:CnWizards

如何在CnWizards中使用脚本专家控制代码编辑器的最大化

    把下面的代码保存成SwitchSourceEditorMaximize.pas,然后在脚本专家里添加进去。

给个热键,我使用的是Ctrl+Alt+-。

把“手动执行脚本时需要确认”去掉,对于这个脚本非常的烦。

最后试试你刚设的热键,爽吧?再也不需要去双击标题了。

代码非常简单,所以就没有写注释了。

[pascal]

{*******************************************************}

{ }

{ 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.[/pascal]

 

Leave a Comment

宣传一下CnPack ;-)

COPY自http://www.CnPack.org
论坛地址:http://bbs.CnPack.org

CnPack 开发组启用新QQ群III,号码 32712412,欢迎 CnPack 开发组成员和 CnPack 用户加入讨论。

 CnPack 简介

  CnPack 是由互联网上一群中国程序员开发的开放源码的自由软件项目,当前主要的工作成果包括 CnPack 组件包、CnWizards 专家包以及 CVSTracNT 错误跟踪系统等。
  CnPack 组件包是一个涵盖不可视工具组件、界面控件、网络通讯组件、多语言处理等多个方面的 Delphi/C++ Builder 组件包。
  CnPack IDE 专家包(CnWizards)是一组集成在 Delphi/C++ Builder 的 IDE 中,用于增强 IDE 功能、提高 IDE 的可用性及开发效率的工具,见 界面截图
  CVSTrac 是由 D. Richard Hipp 为 CVS 开发的基于 WEB 的任务管理及错误跟踪系统,CVSTracNT 为其 Windows 下的移植版,由 CnPack 开发组开发及维护。

Leave a Comment