[Lazarus] Obtaining TIDesigner

[Mattias Gaertner]

On Sat, 21 Jun 2008 18:10:04 -0700
"Boian Mitov" <mitov at mitov.com> wrote:

>      Hi folks,
> 
> I am new to Lazarus, and still learning the ropes, so I am probably
> missing something. I am porting a component suite, and I while the
> runtime packages migration went very smooth the design time packages,
> no surprise, have to be largely rewritten from scratch.
> 
> I am trying to figure out how to obtain TIDesigner from TPersistent?
> If the TPersistent is component it is straight forward:
> 
>   Temp := GetPersistentReference;
>   if Temp is TComponent then begin
>     AComponent:=TComponent(Temp);
>     Designer:=FindRootDesigner(AComponent);
> 
> However I am writing editor for a class type property, and need to
> obtain the designer for it. In Delphi the designers are always
> available in the property editor. How to get the designer in Lazarus
> for a TPersistent inherited class properties. How to do that?

Designer:=FindRootDesigner(PropertyHook.LookupRoot);

Keep in mind that there is not always a designer.

Mattias