《特尔斐助理》又出新版本--欢迎朋友们下载(0分)

  • 主题发起人 主题发起人 冰凌
  • 开始时间 开始时间

冰凌

Unregistered / Unconfirmed
GUEST, unregistred user!
特尔斐助理 V 2.5.2简介
  特尔斐助理V2.5.2是V1.5.5的更新版本,扩展了DELPHI函数查询和DELPHI编译错误查询等功能。增加了安装程序和卸载程序,不仅可以将其安装到指定目录,可以在桌面、程序菜单上形成快捷方式,而且可以随时卸载。尤其值得一提的是其可以安装到DELPHI的IDE中的TOOL菜单中,极大的方便了用户操作。
  特尔斐助理V2.5.2仍然为自由软件,朋友们可以到天空软件站下载。
 
好像没什么用,我还是喜欢用OpenTools API开发的,比如代码格式专家什么的
下面我转贴一篇使IDE面板分成多行的专家,有兴趣的参考,程序很短哦
unit multi;
//unit MultiLinePaletteExpert;
interface
uses
Forms, Controls, ComCtrls;
implementation
type
TMultiLinePalette = class
public
procedure ResizeComponentPalette(Sender : TObject);
end;
var
MultiLinePalette : TMultiLinePalette;
procedure TMultiLinePalette.ResizeComponentPalette(Sender : TObject);
var
AHeight : integer;
begin
with (Sender as TTabControl)do
begin
AHeight := Height + DisplayRect.Top - DisplayRect.Bottom + 29;
Constraints.MinHeight := AHeight;
Parent.Constraints.MaxHeight := AHeight;
end;
end;
{ResizeMultiLineComponentPalette}
procedure SetMultiLineComponentPalette(MultiLine : boolean);
var
AppBuilder : TForm;
TabControl : TTabControl;
begin
AppBuilder := TForm(Application.FindComponent('AppBuilder'));
if (AppBuilder <> nil) then
begin
TabControl := TTabControl(AppBuilder.FindComponent('TabControl'));
if (TabControl <> nil) then
begin
TabControl.MultiLine := MultiLine;
if MultiLine then
TabControl.OnResize := MultiLinePalette.ResizeComponentPalette
else
TabControl.OnResize := nil;
end;
end;
end;
{SetMultiLineComponentPalette}
initialization
MultiLinePalette := TMultiLinePalette.Create;
SetMultiLineComponentPalette(true);
finalization
SetMultiLineComponentPalette(false);
MultiLinePalette.Free;
end.
安装即可,决无任何副作用
 
各位富翁在编程过程中有没有这样的情况:对有关常量如键码、ASCII码、颜色码等没有记住,对有关函数记不准确,因而不得不查找相关资料,既影响了编程思路,又影响工作效率。特尔斐助理设计的初衷就是为了解决编程过程中出现的这类尴尬,以免除程序员的记忆之苦,将主要精力用于程序构思上。
 
^_^,我原来下载了一个专家,作者也是大富翁的人,功能比他强大多了,
所以,所以。。。。。。。。。。
 
呵呵,不错,希望继续更新
 
楼主,能不能加个数据库功能,类似DataBaseTool 中自动写出 insert,updata,delete 等语句
 
后退
顶部