Решение проблемы: Пользовательский контролл: процедура write не вызывается при изменении свойств шрифта

Delphi , Компоненты и Классы , Кнопки

В этом руководстве мы рассмотрим проблему, возникающую при работе с пользовательскими контроллами в Delphi и Lazarus. Если вы создали пользовательский контролл и установили для него свойство MyFont, то обнаружили, что процедура SetMyFont не вызывается при изменении отдельных свойств шрифта, таких как размер, имя и т.д. В этом руководстве мы рассмотрим возможные причины этой проблемы и предложим решения.

Причина проблемы

Проблема заключается в том, что при изменении отдельных свойств шрифта (например, размера или имени) событие OnChange шрифта не вызывается, и, следовательно, процедура SetMyFont не срабатывает.

Решение проблемы

Вот несколько способов решения этой проблемы:

1. Использование встроенного свойства Font

Самым простым и эффективным способом решения проблемы является использование встроенного свойства Font, которое уже есть в каждом компоненте, наследующем от TControl. Вместо создания собственного свойства MyFont, вы можете просто опубликовать встроенное свойство Font и обработать изменения шрифта в методе FontChanged.

type
  TMyCustomControl = class(TCustomControl)
  protected
    procedure FontChanged(Sender: TObject); override;
  published
    property Font;
  end;

procedure TMyCustomControl.FontChanged(Sender: TObject);
begin
  inherited;
  // Здесь вы можете добавить код для обработки изменения шрифта
  Invalidate;  // Например, перерисовка контролла
end;

Этот метод имеет несколько преимуществ: - Унаследование: Вы наследуете все функции и поведение встроенного свойства Font, включая поддержку ParentFont, автоматическое изменение размера и другие. - Простота: Не нужно создавать и управлять отдельным экземпляром TFont.

2. Использование собственного свойства Font с обработкой событий

Если вам необходимо использовать собственное свойство MyFont, вы можете создать его и обработать события изменения шрифта. Для этого нужно создать отдельный класс, наследующий от TPersistent, и использовать его в качестве типа свойства MyFont.

type
  TMyFont = class(TPersistent)
  private
    FFont: TFont;
    FOnChange: TNotifyEvent;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
    property Font: TFont read FFont write FFont;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;

  TMyCustomControl = class(TCustomControl)
  private
    fMyFont: TMyFont;
    procedure SetMyFont(aValue: TMyFont);
  protected
    procedure MyFontChanged(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Left;
    property Top;
    property Height;
    property Width;
    property MyFont: TMyFont read fMyFont write SetMyFont;
  end;

constructor TMyFont.Create;
begin
  inherited;
  FFont := TFont.Create;
  FFont.OnChange := @MyFontChanged;
end;

destructor TMyFont.Destroy;
begin
  FFont.Free;
  inherited;
end;

procedure TMyFont.Assign(Source: TPersistent);
begin
  if Source is TMyFont then
  begin
    FFont.Assign(TMyFont(Source).Font);
    if Assigned(FOnChange) then
      FOnChange(Self);
  end
  else
    inherited;
end;

procedure TMyFont.MyFontChanged(Sender: TObject);
begin
  if Assigned(FOnChange) then
    FOnChange(Self);
end;

constructor TMyCustomControl.Create(AOwner: TComponent);
begin
  inherited;
  fMyFont := TMyFont.Create;
  fMyFont.OnChange := @MyFontChanged;
end;

destructor TMyCustomControl.Destroy;
begin
  fMyFont.Free;
  inherited;
end;

procedure TMyCustomControl.SetMyFont(aValue: TMyFont);
begin
  if fMyFont <> aValue then
  begin
    fMyFont.Assign(aValue);
    if Assigned(fMyFont.OnChange) then
      fMyFont.OnChange(Self);
  end;
end;

procedure TMyCustomControl.MyFontChanged(Sender: TObject);
begin
  // Здесь вы можете добавить код для обработки изменения шрифта
  Invalidate;  // Например, перерисовка контролла
end;

Этот метод позволяет вам использовать собственное свойство MyFont и обрабатывать изменения шрифта, но требует больше кода и управления.

Альтернативные решения

3. Использование свойства Font в TPersistent

Если вы используете свойство Font в классе, наследующем от TPersistent, вы можете создать собственный класс, наследующий от TPersistent, и использовать его в качестве типа свойства MyFont.

type
  TMyPersistentFont = class(TPersistent)
  private
    FFont: TFont;
    FOnChange: TNotifyEvent;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
    property Font: TFont read FFont write FFont;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;

  TMyCustomControl = class(TCustomControl)
  private
    fMyPersistentFont: TMyPersistentFont;
    procedure SetMyPersistentFont(aValue: TMyPersistentFont);
  protected
    procedure MyPersistentFontChanged(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Left;
    property Top;
    property Height;
    property Width;
    property MyPersistentFont: TMyPersistentFont read fMyPersistentFont write SetMyPersistentFont;
  end;

constructor TMyPersistentFont.Create;
begin
  inherited;
  FFont := TFont.Create;
  FFont.OnChange := @MyPersistentFontChanged;
end;

destructor TMyPersistentFont.Destroy;
begin
  FFont.Free;
  inherited;
end;

procedure TMyPersistentFont.Assign(Source: TPersistent);
begin
  if Source is TMyPersistentFont then
  begin
    FFont.Assign(TMyPersistentFont(Source).Font);
    if Assigned(FOnChange) then
      FOnChange(Self);
  end
  else
    inherited;
end;

procedure TMyPersistentFont.MyPersistentFontChanged(Sender: TObject);
begin
  if Assigned(FOnChange) then
    FOnChange(Self);
end;

constructor TMyCustomControl.Create(AOwner: TComponent);
begin
  inherited;
  fMyPersistentFont := TMyPersistentFont.Create;
  fMyPersistentFont.OnChange := @MyPersistentFontChanged;
end;

destructor TMyCustomControl.Destroy;
begin
  fMyPersistentFont.Free;
  inherited;
end;

procedure TMyCustomControl.SetMyPersistentFont(aValue: TMyPersistentFont);
begin
  if fMyPersistentFont <> aValue then
  begin
    fMyPersistentFont.Assign(aValue);
    if Assigned(fMyPersistentFont.OnChange) then
      fMyPersistentFont.OnChange(Self);
  end;
end;

procedure TMyCustomControl.MyPersistentFontChanged(Sender: TObject);
begin
  // Здесь вы можете добавить код для обработки изменения шрифта
  Invalidate;  // Например, перерисовка контролла
end;

Этот метод позволяет вам использовать собственное свойство MyPersistentFont и обрабатывать изменения шрифта, но требует больше кода и управления.

Заключение

В этом руководстве мы рассмотрели несколько способов решения проблемы, возникающей при изменении свойств шрифта в пользовательском контролле. Наиболее простым и эффективным методом является использование встроенного свойства Font и обработка изменений в методе FontChanged. Если вам необходимо использовать собственное свойство MyFont, вы можете создать собственный класс, наследующий от TPersistent, и обработать события изменения шрифта. Эти методы помогут вам решить проблему и улучшить функциональность вашего пользовательского контролла.

Создано по материалам из источника по ссылке.

В руководстве рассматриваются решения проблемы, когда изменения отдельных свойств шрифта в пользовательском контролле Delphi или Lazarus не вызывают срабатывание процедуры SetMyFont, предлагая использование встроенного свойства Font или создание собствен

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

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

:: Главная :: Кнопки ::