Скрыть свойства в IDE

Delphi , Программа и Интерфейс , IDE и Компилятор

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

unit HideAboutProps;

 // Declare a Property-Category-Class 
// Eine Eigenschaftskategorie-Klasse deklarieren 

type
   TAboutPropCategory = class(TPropertyCategory)
     // Give it a name and a description 
    // Namen und Beschreibung vergeben 
    class function Name: string; override;
     class function Description: string; override;
   end;

 procedure Register;

 implementation

 // Register this new Property Category in the Delphi-IDE 
// Diese neue Eigenschaftskategory in Delphi registrieren 
procedure Register;
 begin
   RegisterPropertyInCathegory(TAboutPropCategory, 'About');
 end;

 // Implementation of the two class functions from above 
// Den beiden Klasse-Funktionen noch eine Implementation geben 
class function TAboutPropCategory.Name: string;
 begin
   Result := 'About';
 end;

 class function TAboutPropCategory.Description: string;
 begin
   // As you want it ... 
  Result := 'Gives information about the author.';
   // Wie man's mochte ... 
  Result := 'Enthalt Informationen uber den Autor.';
 end;

 // To use this new category, you only have to include this unit in a package and recompile it. 
// If you want, you now can hide all properties called 'About' from being displayed 
// in the object inspector. 


// Um diese neue Kategorie zu nutzen, muss man die Unit nur in ein Package einbinden 
// und dieses danach neu compilieren. 
// Wenn man mochte, kann man nun alle Eigenschaften, die 'About' hei?en, verbergen. 

Перевод контента на русский язык:

Единица Delphi, позволяющая создавать пользовательскую категорию свойств и скрыть свойства с определенным именем в Инспекторе объектов IDE.

Класс TAboutPropCategory наследуется от TPropertyCategory и переопределяет два класса функции: Name и Description. Функция Name возвращает имя категории свойств, а функция Description возвращает описание категории.

Процедура Register регистрирует новую категорию свойств с IDE Delphi. Она вызывает процедуру RegisterPropertyInCategory, передавая класс категории (TAboutPropCategory) и имя категории ('About') как аргументы.

Для использования этой единицы вам нужно включить ее в пакет и перекомпилировать. После этого вы можете скрыть все свойства с именем 'About' отображения в Инспекторе объектов, используя эту пользовательскую категорию свойств.

Вот некоторые предложения по улучшению:

1. Рассмотрите возможность добавления более функциональности в процедуру RegisterPropertyInCategory. Например, вы можете добавить опцию для регистрации нескольких категорий одновременно.
2. Класс TAboutPropCategory имеет только два свойства: Name и Description. Вам может быть полезно добавить больше свойств или методов, чтобы сделать его более полезным.
3. Единица не содержит документационных комментариев (например, {$DocString "..."}). Добавление этих комментариев поможет другим разработчикам понять, как использовать единицу.
4. Рассмотрите возможность создания отдельного интерфейса для категории свойств вместо наследования от TPropertyCategory. Это позволит вам декуплировать реализацию от интерфейса и сделать ее более тестовой или моковой.

Вот альтернативное решение, использующее интерфейсы:

unit HideAboutProps;
interface
type
  IPropCategory = interface
    ['{...}']
    function GetName: string;
    function GetDescription: string;
  end;

implementation

function TAboutPropCategory.GetName: string;
begin
  Result := 'About';
end;

function TAboutPropCategory.GetDescription: string;
begin
  Result := 'Gives information about the author.';
end;

procedure Register;
begin
  // Регистрируем категорию свойств с IDE
  RegisterPropertyInCategory(TAboutPropCategory, 'About');
end;

initialization
  TAboutPropCategory.Register;

Это решение использует интерфейс IPropCategory для определения свойств категории свойств. Реализация декуплирована от интерфейса, и вы можете легко тестировать или моковать поведение, создавая мок-объект, который реализует интерфейс.

В статье описывается способ скрытия свойств в IDE Delphi с помощью создания собственной категории свойств и регистрации ее в системе.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: IDE и Компилятор ::