Помогите!

← →
devol (2002-09-30 17:05) [0]

Скачал листинг программы, которая использует DesignIntf и DesignEditors. Все бы хорошо, но это DesignEditors использует у себя юнит Proxies, который я никак не могу найти.
Может кто знает как решить эту проблемку!

Заранее благодарен!

← →
Юрий Федоров (2002-09-30 17:27) [1]

unit Proxies;

interface

function IsProxyClass(ComponentClass: TClass): Boolean;

implementation

function IsProxyClass(ComponentClass: TClass): Boolean;
begin
Result := True;
end;

end.

← →
Юрий Федоров (2002-09-30 17:29) [2]

сохрани в Source\toolsApi

← →
devol (2002-09-30 17:44) [3]

спасибо большое!

← →
Григорий Ситнин (2002-09-30 17:49) [4]

Ага и прибили изначальный Proxies.dcu

Всего-то надо было подключить к проекту библиотеку designide60.bpl, в которой есть этот модуль.

← →
kva (2002-10-02 09:29) [5]

Привет!
> Юрий Федоров & Григорий Ситнин

А у меня (D5) только
..\Delphi5\Doc\proxies.int
и
..\Delphi5\lib\Debug\proxies.dcu
..\Delphi5\lib\proxies.dcu
и ни design60.bpl ни design50.bpl вообще нет.
Так ваши ответы относятся к Delphi 6 или и к 5 то же?

Сам текст proxies.int:
========= начало ========

{*******************************************************}
{ }
{ Borland Delphi Visual Component Library }
{ }
{ Utilities procedures to help a form designer }
{ constructor psuedo classes and methods to help }
{ correctly stream instances. }
{ }
{ Copyright (c) 1995,99 Inprise Corporation }
{ }
{*******************************************************}

unit Proxies;

interface

procedure CreateSubClass(Instance: TObject; const ClassName, UnitName: string;
Ancestor: TClass); overload;
procedure CreateSubClass(Instance: TObject; const ClassName: string;
Ancestor: TClass); overload;
procedure DestroySubClass(Instance: TObject);
procedure RenameSubClass(Instance: TObject; const ClassName: string;
const UnitName: string = "");
function CreateSubClassMethod(Instance: TObject;
const MethodName: string): Pointer;
procedure ChangeToProxyClass(Instance: TObject; Proxy: TClass);
procedure RenameSubClassMethod(Instance: TObject; Method: Pointer;
const MethodName: string);
procedure DestroySubClassMethod(Instance: TObject; Method: Pointer);
function IsProxyClass(ClassType: TClass): Boolean;

implementation

========= конец ======

Помогите! Найти похожие ветки