[SOLVED]Custom Component/ Component properties in property editor

[Never]

Code: [Select]

Ttest=class(TPanel)
private
Edit: TEdit;

    function func_GetColor(): TColor;//override;
    procedure proc_SetColor(AColor: TColor);//override;
  public 
property Color:TColor read func_GetColor write proc_SetColor;
end;


function Ttest.func_GetColor: TColor;
begin
  Result:=Edit_.Color;
end;
procedure Register;

implementation
procedure Register;
begin
  RegisterComponents('Standard',[TTest]);
end; 
procedure Ttest.proc_SetColor(AColor: TColor);
begin
 //inherited SetColor(AColor);
 Edit.Color:=AColor;
 
end;
how should i code these properties
((color,font,border etc)properties that are in the TPanel for ex. but will be used on a child control of TPanel) in order to keep the functionality of the lazarus property editor
and apply the value to the desired child control at design time
i tried to set the name to SetColor and override the procedure but no luck

[Blaazen]

If you define property Color this way, it will cover the original Color property defined somewhere in TControl.
You should rather catch the message method CM_COLORCHANGED:

Code: [Select]

procedure CMColorChanged(var {%H-}Message: TLMessage); message CM_COLORCHANGED;Note that {%H-} is there only for the case you dont need the Message parameter, to suppress compiler hint.

[Mike.Cornflake]

Note that {%H-} is there only for the case you dont need the Message parameter, to suppress compiler hint.

Brilliant!   Thanks for the tip, heading off to paste that into a MILLION places :-)

[Fred vS]

procedure CMColorChanged(var {%H-}Message: TLMessage); message CM_COLORCHANGED;
Note that {%H-} is there only for the case you dont need the Message parameter, to suppress compiler hint.

@ Blaazen => Big Wow, one more time... => Super many thanks. 

Fred

[howardpc]

Note that {%H-} is there only for the case you dont need the Message parameter, to suppress compiler hint.
...
Brilliant!   Thanks for the tip, heading off to paste that into a MILLION places :-)

If you use the trunk version of Lazarus, when you see a build/compile message

Code: [Select]

Hint: Parameter "aParam" not used
which you would rather ignore thereafter, you can right click on the message and get an option for the IDE either to automatically insert a (%H-) at the appropriate place; or for that error message to be generally suppressed. Lazarus useability just keeps getting better.
Although this is in trunk, at the rate of recent releases, it won't be long before we see this in the next release version.

[Never]

Thank you very much @Blaazen
this is working fine when the program is running but it is also not working in design time
also what about the other properties? fonts,text,caption etc.
in the above example i added a text property Tcaption
a boolean property and some other using different types int, string, etc.
and expected to see them in the property editor but they are not there.
i'm sure i'm missing something here

[Mike.Cornflake]

If you use the trunk version of Lazarus, when you see a build/compile message

Code: [Select]

Hint: Parameter "aParam" not used
which you would rather ignore thereafter, you can right click on the message and get an option for the IDE either to automatically insert a (%H-) at the appropriate place; or for that error message to be generally suppressed. Lazarus useability just keeps getting better.

Nice   I saw various mails about the new message window functionality - but missed this one.

[Mike.Cornflake]

Thank you very much @Blaazen
this is working fine when the program is running but it is also not working in design time
also what about the other properties? fonts,text,caption etc.
in the above example i added a text property Tcaption
a boolean property and some other using different types int, string, etc.
and expected to see them in the property editor but they are not there.
i'm sure i'm missing something here

Code: [Select]

Ttest=class(TPanel)
private
Edit: TEdit;

    function func_GetColor(): TColor;//override;
    procedure proc_SetColor(AColor: TColor);//override;
  public 
property Color:TColor read func_GetColor write proc_SetColor;
end;

You're declaring the property as Public.  To get it into the Object Inspector, you need to declare it Published

Code: [Select]

Ttest=class(TPanel)
private
Edit: TEdit;

    function func_GetColor(): TColor;//override;
    procedure proc_SetColor(AColor: TColor);//override;
  Published                          // <----  This was Public, now it's Published.... 
property Color:TColor read func_GetColor write proc_SetColor;
end;

[Never]

@Mike.Cornflake thank you
i move them to published also but still are not appearing in the property editor it must be something else i'm missing
and got [SIGSEGV] when i try to override the color procedure

Code: [Select]

Ttest=class(TPanel)
private
Edit: TEdit;
    function func_GetItems: Integer;
    procedure proc_SetItems(param_Items: Integer);
    function func_GetColor(): TColor;//override;
    procedure SetColor(AColor: TColor);override;
  published 
property Color:TColor read func_GetColor write SetColor;
property Items:Integer read func_GetItems write proc_SetItems;
end;

procedure Register;

implementation
procedure Register;
begin
  RegisterComponents('Standard',[TTest]);
end;
 
procedure Ttest.SetColor(AColor: TColor);
begin
 inherited SetColor(AColor);
------------------------------------------------------------------------------------
 Edit.Color:=AColor;<--------------when i add this i got SIGSEGV
 -------------------------------------------------------------------------------------
end;

[engkin]

and got [SIGSEGV] when i try to override the color procedure

You did not create an instance of TEdit. The class variable Edit is not valid, yet.

[Blaazen]

also what about the other properties? fonts,text,caption etc.

You can find relevant message method or override existing implementation.

Code: [Select]

procedure CMBiDiModeChanged(var {%H-}Message: TLMessage); message CM_BIDIMODECHANGED;
procedure CMParentColorChanged(var Message: TLMessage); message CM_PARENTCOLORCHANGED;
procedure FontChanged(Sender: TObject); override;
procedure TextChanged; override;


[Blaazen]

I have to add one warning about message methods: some of them are implemented in ancestor so you have to call inherited method:

Code: [Select]

procedure TDerivedComponent.CMParentColorChanged(var Message: TLMessage);
begin
  inherited CMParentColorChanged(Message);
  //your code
end;Unlike "normal" virtual methods, Lazarus does not add call of inherited automatically. I reported it but it is not easy to implement (see http://bugs.freepascal.org/view.php?id=24792).

[Never]

an update
by setting [ParentColor:=True; ] for the Edit i can achive the goal at runtime

without messup with the Color property

But not at design time

@Blaazen thank you i will read them
Edit:yes Blaazen when overriding i use this its nice because you can call inherited before or after your code
@engkin you are right i have to find a way to prevent this

[Mike.Cornflake]

@Mike.Cornflake thank you
i move them to published also but still are not appearing in the property editor it must be something else i'm missing

You won't see any changes in the OI until you rebuild Lazarus.

If you did rebuild Lazarus, then sorry - no idea.

[Never]

@Mike.Cornflake thank you so much
i removed the color property
just the parent color=true
and the other properties showed up also
and everything works as excpected after rebuilding the ide

how i missed this!?

if possible will you please point me where is this documented?