Создание свойств-множеств в компоненте , Создание свойств-множеств в компоненте

[SkAndriy]

Добрый день!

Создаю свойства-множества в моем компоненте по такой схеме:

Код:

unit MyComponent;
 
interface
 
uses
  SysUtils, Types, Classes;
 
type
TMyEnumType = (eFirst, eSecond, eThird);
TMySetTypeFirst = (poFirst1, poSecond1, poThird1);
TMySetTypeSecond = (poFirst2, poSecond2, poThird2);
TMySetTypeThird = (poFirst3, poSecond3, poThird3);
 
TMySetType = set of TMySetTypeFirst; // TMySetTypeSecond? TMySetTypeThird?
 
type
TMyComponent = class(TComponent)
private
{ Private declarations }
FMyEnum: TMyEnumType;
FMyOptions: TMySetType;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property MyEnumProp: TMyEnumType read FMyEnum write FMyEnum;
property MyOptions: TMySetType read FMyOptions write FMyOptions;
end;
 
procedure Register;
 
implementation
 
procedure Register;
 
begin
RegisterComponents('Samples', [TMyComponent])
end;
 
end.

С TMySetType все понятно, создается выбор из множества первого типа (TMySetTypeFirst) от TMyEnumType = eFirst, а как динамично подключать (или переключать) к TMySetType множества TMySetTypeSecond (если TMyEnumType = eSecond) и TMySetTypeThird (если TMyEnumType = eThird), чтобы MyOptions показывали нужные мне типы множеств (TMySetTypeFirst или TMySetTypeSecond или TMySetTypeThird)?

Спасибо

Сообщение отредактировано: SkAndriy - 19.08.10, 11:18

[ViktorXP]

обычным способом никак. Так как с точки зрения компилятора это разные типы. Но можно подменять визуально (если я правильно понял и тебе это нужно выбирать через дизайнер)

uses DesignIntf, Classes, DesignEditors, TypInfo;
 
type
  TMyEnumType = (eFirst, eSecond, eThird);
  TMySetTypeFirst = (poFirst1, poSecond1, poThird1);
  TMySetTypeSecond = (poFirst2, poSecond2, poThird2);
  TMySetTypeThird = (poFirst3, poSecond3, poThird3);
 
  TMyComponent = class(TComponent)
  private
  { Private declarations }
    FMyEnum: TMyEnumType;
    FMyOptions: Integer;
  published
    property MyEnumProp: TMyEnumType read FMyEnum write FMyEnum;
    property MyOptions: Integer read FMyOptions write FMyOptions;
  end;
 
  TMySetTypeProperty = class(TEnumProperty)
  private
    function GetTypeInfo: PTypeInfo;
  public
    function GetValue: string; override;
    procedure GetValues(Proc: TGetStrProc); override;
    procedure SetValue(const Value: string); override;
  end;
 
 
procedure Register;
 
 
implementation
 
uses SysUtils;
 
procedure Register;
begin
  RegisterComponents('test', [TMyComponent]);
  RegisterPropertyEditor(TypeInfo(Integer), TMyComponent, 'MyOptions', TMySetTypeProperty);
end;        
 
function TMySetTypeProperty.GetTypeInfo: PTypeInfo;
var
  Obj: TPersistent;
begin
  Obj := GetComponent(0);
  if Assigned(Obj) and (Obj is TMyComponent) then
    with TMyComponent(Obj) do
    begin
      case MyEnumProp of
        eFirst:  Result := TypeInfo(TMySetTypeFirst);
        eSecond: Result := TypeInfo(TMySetTypeSecond);
        eThird:  Result := TypeInfo(TMySetTypeThird);
      end;    
    end
  else
    Result := GetPropType;
end;
 
function TMySetTypeProperty.GetValue: string;
var
  L: Longint;
begin
  L := GetOrdValue;
  with GetTypeData(GetTypeInfo)^ do
    if (L < MinValue) or (L > MaxValue) then L := MaxValue;
  Result := GetEnumName(GetTypeInfo, L);
end;
 
procedure TMySetTypeProperty.GetValues(Proc: TGetStrProc);
var
  I: Integer;
  EnumType: PTypeInfo;
begin
  EnumType := GetTypeInfo;
  with GetTypeData(EnumType)^ do
  begin
    for I := MinValue to MaxValue do Proc(GetEnumName(EnumType, I));
  end;
end;
 
procedure TMySetTypeProperty.SetValue(const Value: string);
var
  I: Integer;
begin
  I := GetEnumValue(GetTypeInfo, Value);
  with GetTypeData(GetPropType)^ do
    if (I < MinValue) or (I > MaxValue) then
      raise Exception.Create('');
  SetOrdValue(I);
end;

Но в рантайм режиме пройдется работать с свойством TMySetTypeXXXX(MyComponent.MyOptions)

[SkAndriy]

два вопроса:

1. delphi 2010 не находит DesignIntf и DesignEditors. как быть?
2. где прописан тип TEnumProperty?

спасибо

Сообщение отредактировано: SkAndriy - 19.08.10, 12:09

[DimaBr]

Код компонента и код редактора свойств нужно разделить на два модуля. А в инсталяционный пакет добавить DesignIde

[ViktorXP]

офтоп:
SkAndriy, редактировать сообщение не есть гуд. ибо уведомление подписчикам на тему не приходит.

[SkAndriy]

спасибо. замечание учтено.

[SkAndriy]

при компилировании в функции:

function TSetTypeProperty.GetTypeInfo: PTypeInfo;
var
  Obj: TPersistent;
begin
  Obj := GetComponent(0);
  if Assigned(Obj) and (Obj is TEphemeridae) then
    with TEphemeridae(Obj) do
    begin
      case CelestialObject of
        oPlanets : Result := TypeInfo(TSetTypePlanets);
        oAsteroids : Result := TypeInfo(TSetTypeAsteroids);
       // oStars : Result := TypeInfo(TMySetTypeStars);
       // oComets : Result := TypeInfo(TMySetTypeComets);
      end;
    end
  else
    Result := GetPropType;
end;

выдается такое сообщение:

[DCC Warning] MyComponent.pas(79): W1035 Return value of function 'TSetTypeProperty.GetTypeInfo' might be undefined

как это можно исправить?

спасибо

[SkAndriy]

функция пдправил так:

function TSetTypeProperty.GetTypeInfo: PTypeInfo;
var
  Obj: TPersistent;
begin
  Obj := GetComponent(0);
  if Assigned(Obj) and (Obj is TEphemeridae) then
    with TEphemeridae(Obj) do
    begin
      case CelestialObject of
        oPlanets : Result := TypeInfo(TSetTypePlanets);
        oAsteroids : Result := TypeInfo(TSetTypeAsteroids);
        oStars : Result := TypeInfo(TSetTypeStars);
        oComets : Result := TypeInfo(TSetTypeComets);
             else Result := TypeInfo(TSetTypePlanets);
      end;
    end
  else
    Result := GetPropType;
end;

компонент компилируется и инсталируется.
но когда я кладу его на форму нового проекта и запускаю на компилирование, то получаю ошибку:

при компилировании проекта с этим тестируемым компонентом выдается ошибка: [DCC Fatal Error] Unit1.pas(7): F1026 File not found: 'DesignEditors.dcu',
у меня проект на делфи 2010 - как найти или включить DesignEditors.dcu.
В секцию Requires компонента я включил и скомпилировал уже ранее designide.dcp
Проблема остается.

В делфи статьях есть такой ответ:

Using the Delphi DesignIntf and DesignEditors Tools
If you are creating a C++ package that contains a Delphi unit that uses the DesignIntf and DesignEditors tools, you must choose Project > Options > Delphi Compiler > Other Options. In Use these packages when compiling, add DesignIDE in the combo box.

Но в Делфи 2010 Project > Options > Delphi Compiler > Other Options - отсуствет такой раздел, как и "Use these packages when compiling" или где их найти и установить нужные опции.

если можно подробный ответ как можно исправить это.

спасибо

[SkAndriy]

В секцию Requires компонента я включил и скомпилировал уже ранее designide.dcp; прописал путь к папке ToolsAPI, где находятся искомые файлы (DesignIntf.pas и DesignEditors.pas); перекомпилировал и файлы DesignIntf.dcu и DesignEditors.dcu появились в папке ToolsAPI, но теперь при компилировании нового проекта с моим компонентом выдается ошибка:

[DCC Fatal Error] ToolsAPI.pas(17): F1026 File not found: 'DockForm.dcu'

что еще надо внести в секцию Requires, чтобы скомпилировать все модули в папке ToolsAPI?

Спасибо.

[ViktorXP]

Цитата SkAndriy @ 19.08.10, 14:50

если можно подробный ответ как можно исправить это.

Это легко исправляется способом который описал DimaBr

[SkAndriy]

1. в инсталяционный пакет уже добавил DesignIde

2. модули разделил, модуль редактора свойств выглядит так:

unit PropertyEditor;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, DesignIntf, DesignEditors, TypInfo;
 
type
  TMySetTypeProperty = class(TEnumProperty)
  private
    function GetTypeInfo: PTypeInfo;
  public
    function GetValue: string; override;
    procedure GetValues(Proc: TGetStrProc); override;
    procedure SetValue(const Value: string); override;
  end;
 
  procedure Register;
 
implementation
 
uses UnitMyComponent;
 
function TMySetTypeProperty.GetTypeInfo: PTypeInfo;
var
  Obj: TPersistent;
begin
  Obj := GetComponent(0);
  if Assigned(Obj) and (Obj is TMyComponent) then
    with TMyComponent(Obj) do
    begin
      case MyEnumProp of
        eFirst:  Result := TypeInfo(TMySetTypeFirst);
        eSecond: Result := TypeInfo(TMySetTypeSecond);
        eThird:  Result := TypeInfo(TMySetTypeThird);
      end;    
    end
  else
    Result := GetPropType;
end;
 
function TMySetTypeProperty.GetValue: string;
var
  L: Longint;
begin
  L := GetOrdValue;
  with GetTypeData(GetTypeInfo)^ do
    if (L < MinValue) or (L > MaxValue) then L := MaxValue;
  Result := GetEnumName(GetTypeInfo, L);
end;
 
procedure TMySetTypeProperty.GetValues(Proc: TGetStrProc);
var
  I: Integer;
  EnumType: PTypeInfo;
begin
  EnumType := GetTypeInfo;
  with GetTypeData(EnumType)^ do
  begin
    for I := MinValue to MaxValue do Proc(GetEnumName(EnumType, I));
  end;
end;
 
procedure TMySetTypeProperty.SetValue(const Value: string);
var
  I: Integer;
begin
  I := GetEnumValue(GetTypeInfo, Value);
  with GetTypeData(GetPropType)^ do
    if (I < MinValue) or (I > MaxValue) then
      raise Exception.Create('');
  SetOrdValue(I);
end;
 
procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(Integer), TMyComponent, 'MyOptions', TMySetTypeProperty)
end;
 
end.

Результат прежний, при компилировании нового проекта с этим компонентом все время ошибки с разными dcu

спасибо.

Сообщение отредактировано: SkAndriy - 19.08.10, 19:07

[ViktorXP]

ну не знаю. только что набросал проектddddd.rar (8,35 Кбайт, скачиваний: 209) и все отработало как часики.

[SkAndriy]

Спасибо все компилируется, а что действительно другого пути чем в райнтайм обращаться к свойствам только так: TMySetTypeXXXX(MyComponent.MyOptions) или можно как-то иначе, прописав в самом компоненте. спасибо за помощь.

[ViktorXP]

Без явного приведения типа ты с им работать не сможешь. или же работай с цифровым типом. разница от этого не поменяется.

[SkAndriy]

например,

private
FTypeFirst : TMySetTypeFirst;

строка в тестовом приложении :

в процедуре FormCreate, например,

if FTypeFirst = TMySetTypeFirst(MyComponent1.MyOptions).poSecond1 then
Caption := 'It is Second1';

не компилирется, а выскакивает ошибка.

Почему?

Спасибо.