Delphi VCL

Development Platform:

Delphi

IntfColSel.pas：Code Content

							unit IntfColSel;
interface
uses
  Graphics, Contnrs;
type
  IColorSelect = interface
  ['{3F961395-71F6-4822-BD02-3B475FF516D4}']
    function Display (Modal: Boolean = True): Boolean;
    procedure SetSelColor (Col: TColor);
    function GetSelColor: TColor;
    property SelColor: TColor
      read GetSelColor write SetSelColor;
  end;
procedure RegisterColorSelect (AClass: TClass);
var
  ClassesColorSelect: TClassList;
implementation
procedure RegisterColorSelect (AClass: TClass);
begin
  if ClassesColorSelect.IndexOf (AClass) < 0 then
    ClassesColorSelect.Add (AClass);
end;
initialization
  ClassesColorSelect := TClassList.Create;
finalization
  ClassesColorSelect.Free;
end.

						