PHP DM Gate v0.9 » Досуп к методу родительского контрола <span class="vd">[D7]</span>

dViper © (16.11.12 10:12) [0]

Доброго времени суток!

Помогите, пожалуйста, новичку в разработке компонента!
Вопрос: Как с класса-потомка запустить метод invalidate в родительском классе?

Например, как написать

procedure TTitle.SetCaption(Value: string);
begin
FCaption := Value;
TDNCommentaryButton.Invalidate -- ?
end;

Листинг компонента приведен ниже

unit DNCommentaryButton;

interface

uses
SysUtils, Classes, Controls, Messages, Graphics, Windows, ExtCtrls;

type
TTextAligment = (caLeft, caRight, caMiddle);
TTextVAligment = (caTop, caBottom, caCentre);

TPaddingCaption = class(TPersistent)
private
FpcLeft, FpcRight, FpcTop, FpcBottom: Integer;
procedure SetpsLeft(Value: Integer);
procedure SetpsRight(Value: Integer);
procedure SetpsTop(Value: Integer);
procedure SetpsBottom(Value: Integer);
published
property pcLeft: Integer read FpcLeft write SetpsLeft;
property pcRight: Integer read FpcRight write SetpsRight;
property pcTop: Integer read FpcTop write SetpsTop;
property pcBottom: Integer read FpcBottom write SetpsBottom;
end;

{ -- Title -- Заголовок -- }
TTitle = class(TPersistent)
private
FFont: TFont;
FCaption: string;
FTextAligment: TTextAligment;
FTextVAligment: TTextVAligment;
procedure SetCaption(Value: string);
published
{ Published declarations }
property Font: TFont read FFont write FFont;
property Caption: string read FCaption write SetCaption;
property TextAligment: TTextAligment read FTextAligment write FTextAligment;
property TextVAligment: TTextVAligment read FTextVAligment write FTextVAligment;
end;

// { -- Commentary -- Примечание -- }
// TCommentary = class(TPersistent)
// private
// published
// end;

// { -- BackgroundImage -- Фоновый рисунок -- }
// TBackgroundImage = class(TPersistent)
// private
// { Private declarations }

// public
// published
// { Published declarations }

// end;

{ -- TDNCommentaryButton -- }
TDNCommentaryButton = class(TCustomControl)
private
{ Private declarations }
FTitle: TTitle;
FPaddingCaption: TPaddingCaption;
protected
{ Protected declarations }
r: TRect;
procedure SetTitle(Value: TTitle);
procedure SetPaddingCaption(Value: TPaddingCaption);
public
{ Public declarations }
procedure Paint; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
property Align;
property ParentFont;
property ParentShowHint;
property ShowHint;
property Visible;
property OnClick;
property Title: TTitle read FTitle write SetTitle;
property PaddingCaption: TPaddingCaption read FPaddingCaption write SetPaddingCaption;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('DNControls', [TDNCommentaryButton]);
end;

{ TDNCommentaryButton }

constructor TDNCommentaryButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csOpaque];

FPaddingCaption := TPaddingCaption.Create;
FTitle := TTitle.Create;
end;

destructor TDNCommentaryButton.Destroy;
begin
inherited Destroy;
end;

procedure TDNCommentaryButton.Paint;
var
X: Integer;
Y: Integer;
begin
inherited Paint;
r := ClientRect;

SetBkMode(Canvas.Handle, TRANSPARENT);

// Caption -- Заголовок
Canvas.Font := Font;
case FTitle.TextAligment of
caLeft:
X := FPaddingCaption.FpcLeft;
caRight:
X := Self.Width - Canvas.TextWidth(FTitle.FCaption) - FPaddingCaption.FpcRight;
caMiddle:
X := (Width div 2) - (Canvas.TextWidth(FTitle.FCaption) div 2);
end;

case FTitle.FTextVAligment of
caTop:
Y := FPaddingCaption.FpcTop;
caBottom:
Y := Self.Height - Canvas.TextHeight(FTitle.FCaption) - FPaddingCaption.FpcBottom;
caCentre:
Y := (Height div 2) - (Canvas.TextHeight(FTitle.FCaption) div 2);
end;

Canvas.TextOut(X, Y, FTitle.Caption);
end;

procedure TDNCommentaryButton.SetPaddingCaption(Value: TPaddingCaption);
begin
FPaddingCaption := Value;
Invalidate;
end;

procedure TDNCommentaryButton.SetTitle(Value: TTitle);
begin
FTitle := Value;
Invalidate;
end;

{ TPaddingCaption }

procedure TPaddingCaption.SetpsBottom(Value: Integer);
begin
FpcBottom := Value;
end;

procedure TPaddingCaption.SetpsLeft(Value: Integer);
begin
FpcLeft := Value;
end;

procedure TPaddingCaption.SetpsRight(Value: Integer);
begin
FpcRight := Value;
end;

procedure TPaddingCaption.SetpsTop(Value: Integer);
begin
FpcTop := Value;
end;

{ TTitle }

procedure TTitle.SetCaption(Value: string);
begin
FCaption := Value;
end;

end.

<Цитата>
RWolf © (16.11.12 10:20) [1]

inherited Invalidate;

<Цитата>
dViper © (16.11.12 10:51) [2]

Спасибо за Вашу активность и туповатый ответ, но я разобрался! Тема закрыта! Если кому интересно, то вот рабочий код:

unit DNCommentaryButton;

interface

uses
SysUtils, Classes, Controls, Messages, Graphics, Windows, ExtCtrls;

type
TTextAligment = (caLeft, caRight, caMiddle);
TTextVAligment = (caTop, caBottom, caCentre);

TPaddingCaption = class(TPersistent)
private
FpcLeft, FpcRight, FpcTop, FpcBottom: Integer;
procedure SetpsLeft(Value: Integer);
procedure SetpsRight(Value: Integer);
procedure SetpsTop(Value: Integer);
procedure SetpsBottom(Value: Integer);
published
property pcLeft: Integer read FpcLeft write SetpsLeft;
property pcRight: Integer read FpcRight write SetpsRight;
property pcTop: Integer read FpcTop write SetpsTop;
property pcBottom: Integer read FpcBottom write SetpsBottom;
end;

{ -- Title -- Заголовок -- }
TTitle = class(TPersistent)
private
FFont: TFont;
FCaption: string;
FParent: TWinControl;
FTextAligment: TTextAligment;
FTextVAligment: TTextVAligment;
public
procedure SetCaption(Value: string);
constructor Create(AParent: TWinControl);
published
{ Published declarations }
property Font: TFont read FFont write FFont;
property Caption: string read FCaption write SetCaption;
property TextAligment: TTextAligment read FTextAligment write FTextAligment;
property TextVAligment: TTextVAligment read FTextVAligment write FTextVAligment;
end;

// { -- Commentary -- Примечание -- }
// TCommentary = class(TPersistent)
// private
// published
// end;

// { -- BackgroundImage -- Фоновый рисунок -- }
// TBackgroundImage = class(TPersistent)
// private
// { Private declarations }

// public
// published
// { Published declarations }

// end;

{ -- TDNCommentaryButton -- }
TDNCommentaryButton = class(TCustomControl)
private
{ Private declarations }
FTitle: TTitle;
FPaddingCaption: TPaddingCaption;
protected
{ Protected declarations }
r: TRect;
procedure SetTitle(Value: TTitle);
procedure SetPaddingCaption(Value: TPaddingCaption);
public
{ Public declarations }
procedure Paint; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
property Align;
property ParentFont;
property ParentShowHint;
property ShowHint;
property Visible;
property OnClick;
property Title: TTitle read FTitle write SetTitle;
property PaddingCaption: TPaddingCaption read FPaddingCaption write SetPaddingCaption;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('DNControls', [TDNCommentaryButton]);
end;

{ TDNCommentaryButton }

constructor TDNCommentaryButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csOpaque];

FPaddingCaption := TPaddingCaption.Create;
FTitle := TTitle.Create(Self);
end;

destructor TDNCommentaryButton.Destroy;
begin
inherited Destroy;
end;

procedure TDNCommentaryButton.Paint;
var
X: Integer;
Y: Integer;
begin
inherited Paint;
r := ClientRect;

SetBkMode(Canvas.Handle, TRANSPARENT);

// Caption -- Заголовок
Canvas.Font := Font;
case FTitle.TextAligment of
caLeft:
X := FPaddingCaption.FpcLeft;
caRight:
X := Self.Width - Canvas.TextWidth(FTitle.FCaption) - FPaddingCaption.FpcRight;
caMiddle:
X := (Width div 2) - (Canvas.TextWidth(FTitle.FCaption) div 2);
end;

case FTitle.FTextVAligment of
caTop:
Y := FPaddingCaption.FpcTop;
caBottom:
Y := Self.Height - Canvas.TextHeight(FTitle.FCaption) - FPaddingCaption.FpcBottom;
caCentre:
Y := (Height div 2) - (Canvas.TextHeight(FTitle.FCaption) div 2);
end;

Canvas.TextOut(X, Y, FTitle.Caption);
end;

procedure TDNCommentaryButton.SetPaddingCaption(Value: TPaddingCaption);
begin
FPaddingCaption := Value;
Invalidate;
end;

procedure TDNCommentaryButton.SetTitle(Value: TTitle);
begin
FTitle := Value;
Invalidate;
end;

{ TPaddingCaption }

procedure TPaddingCaption.SetpsBottom(Value: Integer);
begin
FpcBottom := Value;
end;

procedure TPaddingCaption.SetpsLeft(Value: Integer);
begin
FpcLeft := Value;
end;

procedure TPaddingCaption.SetpsRight(Value: Integer);
begin
FpcRight := Value;
end;

procedure TPaddingCaption.SetpsTop(Value: Integer);
begin
FpcTop := Value;
end;

{ TTitle }

constructor TTitle.Create(AParent: TWinControl);
begin
inherited Create;
FParent := AParent;
end;

procedure TTitle.SetCaption(Value: string);
begin
FCaption := Value;
FParent.Invalidate;
end;

end.

Просто надо было создать у TTitle поле FParent и передать его в конструкторе. В SetCaption вызвать нужный у FParent.

Огромный Респект NumLock-у!!!

<Цитата>
DimaBr © (17.11.12 13:38) [3]

Если вы создаёте, то и уничтожайте

constructor TDNCommentaryButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csOpaque];

FPaddingCaption := TPaddingCaption.Create;
FTitle := TTitle.Create(Self);
end;

destructor TDNCommentaryButton.Destroy;
begin
inherited Destroy;
end;

Методы, которые ничего не делают бессмыленны
procedure TPaddingCaption.SetpsBottom(Value: Integer);
begin
FpcBottom := Value;
end;

Вы уверены что FParent есть ?
procedure TTitle.SetCaption(Value: string);
begin
FCaption := Value;
FParent.Invalidate;
end;

Вот здесь вы на 100% получите "Control has not parent Window"
X := Self.Width - Canvas.TextWidth(FTitle.FCaption) - FPaddingCaption.FpcRight;

<Цитата>
Юрий Зотов © (18.11.12 16:00) [4]

> dViper © (16.11.12 10:51) [2]
> Спасибо за Вашу активность и туповатый ответ

RWolf ответил на Ваш вопрос абсолютно точно. Поэтому туповат явно не он. И, судя по Вашему коду, даже можно догадаться, кто именно.

<Цитата>
icWasya © (20.11.12 14:12) [5]

Кроме того
procedure TDNCommentaryButton.SetTitle(Value: TTitle);
begin
FTitle := Value; /*<<==-- а куда девается тот, что был создан в конструкторе?
и чему равен FParent у нового FTitle ?
*/
Invalidate;
end;

Соответственно и SetPaddingCaption

<Цитата>