main.pas

bject Inspector is a component suite that contains inspectors allowing you to change anything in y

(*  GREATIS OBJECT INSPECTOR EXAMPLES         *)
(*  Copyright (C) 2002-2003 Greatis Software  *)
(*  http://www.greatis.com/objinsp.htm        *)
(*  [e-mail]                        *)

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, InspCtrl, CompInsp, PropList;

type

  // new type for the custom property
  TColorScheme = (Normal,Flame,Grass,Sun,Moon);

  TMainForm = class(TForm)
    ComponentInspector: TComponentInspector;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure ComponentInspectorFilter(Sender: TObject; Prop: TProperty;
      var Result: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

function GetPropValue(AInstance: TPersistent; Prop: TProperty): string;
begin
  with Prop do
    case (AInstance as TForm).Color of
      clRed: Result:=Names[Integer(Flame)];
      clGreen: Result:=Names[Integer(Grass)];
      clYellow: Result:=Names[Integer(Sun)];
      clNavy: Result:=Names[Integer(Moon)];
    else Result:=Names[Integer(Normal)];
    end;
end;

procedure SetPropValue(AInstance: TPersistent; Prop: TProperty; Value: string);
begin
  with (AInstance as TForm) do
    case TColorScheme(Prop.Values[Value]) of
      Normal:
      begin
        Color:=clBtnFace;
        Font.Color:=clBlack;
      end;
      Flame:
      begin
        Color:=clRed;
        Font.Color:=clYellow;
      end;
      Grass:
      begin
        Color:=clGreen;
        Font.Color:=clLime;
      end;
      Sun:
      begin
        Color:=clYellow;
        Font.Color:=clBlack;
      end;
      Moon:
      begin
        Color:=clNavy;
        Font.Color:=clAqua;
      end;
    end;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  RegisterCustomProperty(TForm,'ColorScheme',TypeInfo(TColorScheme),True,GetPropValue,SetPropValue);
  ComponentInspector.RefreshList;
end;

procedure TMainForm.ComponentInspectorFilter(Sender: TObject;
  Prop: TProperty; var Result: Boolean);
begin
  Result:=Result and (Prop.PropType<>TypeInfo(TColor));
end;

end.