lazarus-ccr/components/jvcllaz/design/JvMM/jvmmreg.pas

unit JvMMReg;

{$mode objfpc}{$H+}

interface

uses
  SysUtils;

procedure Register;

implementation

{$R ../../resource/jvmmreg.res}

uses
  Classes, Controls, PropEdits, ComponentEditors,
  JvDsgnConsts,
  JvId3v1, JvId3v2Base, JvId3v2, JvGradient, JvId3v2EditorForm,
  JvGradientHeaderPanel, JvSpecialProgress,
  JvFullColorSpaces, JvFullColorCtrls, JvFullColorEditors, JvFullColorSpacesEditors,
  JvFullColorDialogs,
  JvAnimatedImage, JvBmpAnimator, JvPicClip, JvSpecialImage, JvImageTransform;

procedure Register;
begin
  RegisterComponents(RsPaletteJvclVisual, [
    TJvAnimatedImage, TJvBmpAnimator, TJvPicClip,
    TJvSpecialImage, TJvImageTransform,
    TJvGradient, TJvGradientHeaderPanel,
    TJvSpecialProgress,
    TJvFullColorPanel, TJvFullColorTrackBar, TJvFullColorGroup, TJvFullColorLabel,
    TJvFullColorSpaceCombo, TJvFullColorAxisCombo, TJvFullColorCircle,
    TJvFullColorDialog, TJvFullColorCircleDialog
  ]);

  RegisterComponents(RsPaletteJvclNonVisual, [
    TJvId3v1, TJvId3v2
  ]);

  RegisterComponentEditor(TJvID3Controller, TJvID3ControllerEditor);
  RegisterPropertyEditor(TypeInfo(TJvID3FileInfo), nil, '', TJvID3FileInfoEditor);

  RegisterPropertyEditor(TypeInfo(TJvFullColorSpaceID), nil, '', TJvColorIDEditor);
  RegisterPropertyEditor(TypeInfo(TJvFullColor), nil, '', TJvFullColorProperty);
  RegisterPropertyEditor(TypeInfo(TJvFullColorList), nil, '', TJvFullColorListEditor);
  {
  RegisterSelectionEditor(TJvFullColorPanel, TJvFullColorSelection);
  RegisterSelectionEditor(TJvFullColorCircle, TJvFullColorSelection);
  RegisterSelectionEditor(TJvFullColorLabel, TJvFullColorSelection);
  RegisterSelectionEditor(TJvFullColorSpaceCombo, TJvFullColorSelection);
  RegisterSelectionEditor(TJvFullColorAxisCombo, TJvFullColorSelection);
 }
end;

end.