{*************************************************************************}
{ TMSTileListRegDE                                                        }
{ for Delphi & C++Builder                                                 }
{                                                                         }
{ written by TMS Software                                                 }
{           copyright ©  2013                                             }
{           Email : info@tmssoftware.com                                  }
{           Web : http://www.tmssoftware.com                              }
{                                                                         }
{ The source code is given as is. The author is not responsible           }
{ for any possible damage done due to the use of this code.               }
{ The component can be freely used in any application. The complete       }
{ source code remains property of the author and may not be distributed,  }
{ published, given or sold in any form as such. No parts of the source    }
{ code can be included in any other component or application without      }
{ written authorization of the author.                                    }
{*************************************************************************}


unit FMX.TMSTileListRegDE;

interface

{$I TMSDEFS.INC}

uses
  Classes, FMX.TMSTileListDE, FMX.TMSTileList
  {$IFDEF WIN32}
  ,SysUtils,DesignEditors, DesignIntf
  {$ENDIF}
  ;

{$IFDEF WIN32}
type
  TTMSFMXTileListEditor = class(TDefaultEditor)
  protected
    procedure EditProperty(const PropertyEditor: IProperty; var Continue: Boolean); override;
  end;
{$ENDIF}

procedure Register;

implementation

{$IFDEF WIN32}
procedure TTMSFMXTileListEditor.EditProperty(const PropertyEditor: IProperty; var Continue: Boolean);
var
  PropName: string;
begin
  PropName := PropertyEditor.GetName;
  if (CompareText(PropName, 'ITEMS') = 0) then
    begin
      PropertyEditor.Edit;
      Continue := False;
    end;
end;
{$ENDIF}

procedure Register;
begin
  {$IFDEF WIN32}
  RegisterComponentEditor(TTMSFMXTileList, TTMSFMXTileListEditor);
  RegisterPropertyEditor(TypeInfo(string),TTMSFMXTile,'StyleLookup', TStyleTextProperty);
  {$ENDIF}
end;



end.

