WebSVN – spacemission – Diff – /VCL_DELPHIX_D6/DXReg.pas


unit DXReg;
 
interface
 
{$I DelphiXcfg.inc}
{$WARNINGS OFF}
uses
  Windows, SysUtils, Classes, Forms, Dialogs, Graphics, TypInfo,
  Controls, StdCtrls, ExtCtrls, Buttons,
{$IFDEF D3DRM}Colli3DX, {$ENDIF}
{$IFNDEF VER6UP}DsgnIntf,
{$ELSE}Designintf, DesignEditors, VCLEditors, PropertyCategories,
{$ENDIF}
  DXDraws, DXSounds, DIB, DXWave, DXInput, DXPlay, DXSprite, DXClass;
 
type
 
  {  TDXDrawDisplayProperty  }
 
  TDXDrawDisplayProperty = class(TClassProperty)
  public
    function GetAttributes: TPropertyAttributes; override;
    function GetValue: string; override;
    procedure GetValues(Proc: TGetStrProc); override;
    procedure SetValue(const Value: string); override;
  end;
 
  {  TDIBProperty  }
 
  TDIBProperty = class(TPropertyEditor)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 
  {  TDXDIBEditor  }
 
  TDXDIBEditor = class(TComponentEditor)
  public
    procedure Edit; override;
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
  {  TPictureCollectionItem_PictureProperty  }
 
  TPictureCollectionItem_PictureProperty = class(TPropertyEditor)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 
  {  TDXImageListEditor  }
 
  TDXImageListEditor = class(TComponentEditor)
  private
    procedure ListBox1DblClick(Sender: TObject);
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
  { TDXSpriteEngineEditor}
 
  TDXSpriteEngineEditor = class(TComponentEditor)
  private
    procedure ListBox1DblClick(Sender: TObject);
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
  {  TWaveProperty  }
 
  TWaveProperty = class(TPropertyEditor)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 
  {  TDXWaveEditor  }
 
  TDXWaveEditor = class(TComponentEditor)
  public
    procedure Edit; override;
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
  {  TDXWaveListEditor  }
 
  TDXWaveListEditor = class(TComponentEditor)
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
  {  TForceFeedbackEffectsProperty  }
 
  TForceFeedbackEffectsProperty = class(TClassProperty)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 
  {  TDXInputEditor  }
 
  TDXInputEditor = class(TComponentEditor)
  public
    procedure Edit; override;
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
  {  TGUIDProperty  }
 
  TGUIDProperty = class(TStringProperty)
  public
    procedure Edit; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 
  {  TSpriteProperty  }
 
  TSpriteProperty = class(TClassProperty)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 
  {  TMidiProperty  }
 
  TMidiProperty = class(TClassProperty)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 
  TMidiEditor = class(TDefaultEditor)
  public
{$IFDEF VER6UP}
    procedure EditProperty(const Prop: IProperty; var Continue: Boolean); override;
{$ELSE}
    procedure EditProperty(PropertyEditor: TPropertyEditor;
      var continue, FreeEditor: Boolean); override;
{$ENDIF}
  end;
 
  {  TDXMidiListEditor  }
 
  TDXMidiListEditor = class(TComponentEditor)
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
  {  Trace editor}
 
  TDXDrawEditor = class(TComponentEditor)
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;
 
procedure Register;
 
implementation
 
uses DXPictEdit, DXWaveEdit, DXFFBEdit, DXInptEdit, DXGUIDEdit, DXSpriteEdit,
  DXMidiEdit, DXDIBEffectEdit, {$IFDEF VER4UP}DXGlueItEdit,{$ENDIF} DXPathEdit;
 
const
  SNone = '(None)';
 
  SSettingImage = '&Image...';
  SSettingWave = '&Wave...';
  SDXGFileFilter = 'DXG file(*.dxg)|*.dxg|All files(*.*)|*.*';
  SDXGOpenFileFilter = 'DXG file(*.dxg)|*.dxg|Bitmap file(*.bmp)|*.bmp|All files(*.*)|*.*';
  SDXWFileFilter = 'DXW file(*.dxw)|*.dxg|All files(*.*)|*.*';
  SDXWOpenFileFilter = 'DXW file(*.dxw)|*.dxw|Wave file(*.wav)|*.wav|All files(*.*)|*.*';
  SDXMFileFilter = 'DXM file(*.dxm)|*.dxm|All files(*.*)|*.*';
  SDXMOpenFileFilter = 'DXM file(*.dxm)|*.dxm|Midi file(*.mid)|*.mid|All files(*.*)|*.*';
 
  SSinglePlayer = '&Single player';
  SMultiPlayer1 = 'Multi player &1';
  SMultiPlayer2 = 'Multi player &2';
 
  SOpen = '&Open...';
  SSave = '&Save...';
 
procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TDXDrawDisplay), nil, '',
    TDXDrawDisplayProperty);
 
  RegisterPropertyEditor(TypeInfo(TDIB), nil, '', TDIBProperty);
  RegisterComponentEditor(TCustomDXDIB, TDXDIBEditor);
 
  RegisterPropertyEditor(TypeInfo(TPicture), TPictureCollectionItem, 'Picture', TPictureCollectionItem_PictureProperty);
  RegisterComponentEditor(TCustomDXImageList, TDXImageListEditor);
 
  RegisterPropertyEditor(TypeInfo(TWave), nil, '', TWaveProperty);
  RegisterComponentEditor(TCustomDXWave, TDXWaveEditor);
 
  RegisterComponentEditor(TCustomDXWaveList, TDXWaveListEditor);
 
  RegisterPropertyEditor(TypeInfo(TForceFeedbackEffects), nil, '', TForceFeedbackEffectsProperty);
 
  RegisterComponentEditor(TCustomDXInput, TDXInputEditor);
 
  {$IFDEF UseDirectPlay}
  RegisterPropertyEditor(TypeInfo(string), TCustomDXPlay, 'GUID', TGUIDProperty);
  {$ENDIF} // UseDirectPlay
 
  RegisterPropertyEditor(TypeInfo(TImageSprite), NIL, '', TSpriteProperty);
  RegisterPropertyEditor(TypeInfo(TImageSpriteEx), NIL, '', TSpriteProperty);
  RegisterPropertyEditor(TypeInfo(TSprite), NIL, '', TSpriteProperty);
  RegisterPropertyEditor(TypeInfo(TBackgroundSprite), NIL, '', TSpriteProperty);
 
  RegisterPropertyEditor(TypeInfo(TMusicDataProp), nil, 'MIDI', TMidiProperty);
  RegisterComponentEditor(TDXMusic, TDXMidiListEditor);
  RegisterComponentEditor(TDXSpriteEngine, TDXSpriteEngineEditor);
 
  RegisterComponents('DelphiX',
    [TDXDraw,
     TDXDIB,
     TDXImageList,
{$IFDEF DX3D_deprecated}
     TDX3D,
{$ENDIF}
     TDXSound,
     TDXWave,
     TDXWaveList,
     TDXInput,
     {$IFDEF UseDirectPlay}
     TDXPlay,
     {$ENDIF} // UseDirectPlay
     TDXSpriteEngine,
     TDXTimer,
     TDXPaintBox,
     TDXFont,
     TDXPowerFont,
     TDXMusic
    ]);
  RegisterComponentEditor(TCustomDXDraw, TDXDrawEditor);
end;
 
{ TDXDrawDisplayProperty }
 
function TDXDrawDisplayProperty.GetAttributes: TPropertyAttributes;
begin
  Result := inherited GetAttributes + [paValueList] - [paReadOnly];
end;
 
const
  SDisplayMode = '%dx%dx%d';
 
function TDXDrawDisplayProperty.GetValue: string;
begin
  with TDXDrawDisplay(GetOrdValue) do
    Result := Format(SDisplayMode, [Width, Height, BitCount]);
end;
 
procedure TDXDrawDisplayProperty.GetValues(Proc: TGetStrProc);
const
  List: array[0..2] of TPoint = (
    (X: 640; Y: 480),
    (X: 800; Y: 600),
    (X: 1024; Y: 768));
var
  BitCount, i: Integer;
begin
  for i := Low(List) to High(List) do
    for BitCount := 1 to 3 do
      Proc(Format(SDisplayMode, [List[i].x, List[i].y, BitCount * 8]));
end;
 
procedure TDXDrawDisplayProperty.SetValue(const Value: string);
var
  s: string;
  i, AWidth, AHeight, ABitCount: Integer;
begin
  s := Value;
 
  i := Pos('x', s);
  AWidth := StrToInt(Copy(s, 1, i - 1));
  s := Copy(s, i + 1, Length(s));
 
  i := Pos('x', s);
  AHeight := StrToInt(Copy(s, 1, i - 1));
  s := Copy(s, i + 1, Length(s));
 
  ABitCount := StrToInt(s);
 
  with TDXDrawDisplay(GetOrdValue) do
  begin
    Width := AWidth;
    Height := AHeight;
    BitCount := ABitCount;
  end;
 
  SetOrdValue(GetOrdValue);
end;
 
{  TDIBProperty  }
 
procedure TDIBProperty.Edit;
var
  Form: TDelphiXPictureEditForm;
begin
  Form := TDelphiXPictureEditForm.Create(nil);
  try
    Form.ViewBox.Picture.Assign(TDIB(GetOrdValue));
    Form.DIBClassOnly := True;
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      SetOrdValue(Integer(Form.ViewBox.Picture.Graphic));
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
function TDIBProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog, paReadOnly];
end;
 
function TDIBProperty.GetValue: string;
begin
  if TDIB(GetOrdValue).Size = 0 then
    Result := SNone
  else
    Result := Format('(%s)', [TObject(GetOrdValue).ClassName]);
end;
 
{  TDXDIBEditor  }
 
procedure TDXDIBEditor.Edit;
var
  Form: TDelphiXPictureEditForm;
begin
  Form := TDelphiXPictureEditForm.Create(nil);
  try
    Form.ViewBox.Picture.Assign(TCustomDXDIB(Component).DIB);
    Form.DIBClassOnly := True;
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      TCustomDXDIB(Component).DIB.Assign(TGraphic(Form.ViewBox.Picture.Graphic));
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
procedure TDXDIBEditor.ExecuteVerb(Index: Integer);
begin
  case Index of
    0: Edit;
  end;
end;
 
function TDXDIBEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := SSettingImage;
  end;
end;
 
function TDXDIBEditor.GetVerbCount: Integer;
begin
  Result := 1;
end;
 
{  TPictureCollectionItem_PictureProperty  }
 
procedure TPictureCollectionItem_PictureProperty.Edit;
var
  Form: TDelphiXPictureEditForm;
  Item: TPictureCollectionItem;
  TempDIB: TDIB;
begin
  Form := TDelphiXPictureEditForm.Create(nil);
  try
    Form.ViewBox.Picture := TPicture(GetOrdValue);
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      SetOrdValue(Integer(Form.ViewBox.Picture));
 
      Item := GetComponent(0) as TPictureCollectionItem;
      if Item.Picture.Graphic <> nil then
      begin
        TempDIB := TDIB.Create;
        try
          TempDIB.SetSize(1, 1, 24);
          TempDIB.Canvas.Draw(0, 0, Item.Picture.Graphic);
          Item.TransparentColor := TempDIB.Pixels[0, 0];
        finally
          TempDIB.Free;
        end;
      end;
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
function TPictureCollectionItem_PictureProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog, paReadOnly];
end;
 
function TPictureCollectionItem_PictureProperty.GetValue: string;
begin
  if (TPicture(GetOrdValue).Graphic = nil) or (TPicture(GetOrdValue).Graphic.Empty) then
    Result := SNone
  else
    Result := Format('(%s)', [TPicture(GetOrdValue).Graphic.ClassName]);
end;
 
{  dialog  }
function CreateListBox(DblClck: TNotifyEvent; out lstbx: TListBox): TForm;
var
  Panel1: TPanel;
  Panel2: TPanel;
  BitBtn1: TBitBtn;
  BitBtn2: TBitBtn;
begin
  Result := TForm.Create(nil);
  Panel1 := TPanel.Create(Result);
  lstbx := TListBox.Create(Result);
  Panel2 := TPanel.Create(Result);
  BitBtn1 := TBitBtn.Create(Result);
  BitBtn2 := TBitBtn.Create(Result);
  with Result do
  begin
    Name := 'Form12';
    Left := 0;
    Top := 0;
    BorderStyle := bsDialog;
    Caption := 'Select Item';
    ClientHeight := 206;
    ClientWidth := 228;
    Color := clBtnFace;
    Font.Charset := DEFAULT_CHARSET;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'Tahoma';
    Font.Style := [];
    Position := poScreenCenter;
    PixelsPerInch := 96;
  end;
  with Panel1 do
  begin
    Name := 'Panel1';
    Parent := Result;
    Left := 0;
    Top := 0;
    Width := 228;
    Height := 165;
    Align := alClient;
    BevelOuter := bvNone;
    BorderWidth := 4;
    Caption := '';
    TabOrder := 0;
  end;
  with lstbx do
  begin
    Name := 'ListBox1';
    Parent := Panel1;
    Left := 4;
    Top := 4;
    Width := 220;
    Height := 157;
    Align := alClient;
    ItemHeight := 13;
    TabOrder := 0;
    OnDblClick := DblClck;
  end;
  with Panel2 do
  begin
    Name := 'Panel2';
    Parent := Result;
    Left := 0;
    Top := 165;
    Width := 228;
    Height := 41;
    Align := alBottom;
    BevelOuter := bvNone;
    Caption := '';
    TabOrder := 1;
  end;
  with BitBtn1 do
  begin
    Name := 'BitBtn1';
    Parent := Panel2;
    Left := 24;
    Top := 8;
    Width := 75;
    Height := 25;
    TabOrder := 0;
    Kind := bkOK;
  end;
  with BitBtn2 do
  begin
    Name := 'BitBtn2';
    Parent := Panel2;
    Left := 128;
    Top := 8;
    Width := 75;
    Height := 25;
    TabOrder := 1;
    Kind := bkCancel;
  end;
end;
function Alter(const str, altstr: string): string;
begin
  if str = '' then Result := altstr
  else Result := str;
end;
 
{  TDXImageListEditor  }
 
procedure TDXImageListEditor.ExecuteVerb(Index: Integer);
var
  OpenDialog: TOpenDialog;
  SaveDialog: TSaveDialog;
  DelphiXDIBEffectEditForm: TTDelphiXDIBEffectEditForm;
  {$IFDEF VER4UP}
  DXGlueItEditForm: TDXGlueItEditor;
  {$ENDIF}
  Q: TPictureCollectionItem;
  I, N: Integer;
  S, Z: string;
  {$IFDEF VER4UP}
  QQ: TCustomDXImageList;
  FrmListBox: TForm;
  ListBox1: TListBox;
  {$ENDIF}
begin
  case Index of
    0: begin
        OpenDialog := TOpenDialog.Create(nil);
        try
          OpenDialog.DefaultExt := 'dxg';
          OpenDialog.Filter := SDXGOpenFileFilter;
          OpenDialog.Options := [ofPathMustExist, ofFileMustExist, ofAllowMultiSelect];
          if OpenDialog.Execute then
          begin
            if OpenDialog.FilterIndex = 2 then
            begin
              for i := 0 to OpenDialog.Files.Count - 1 do
                with TPictureCollectionItem.Create(TCustomDXImageList(Component).Items) do
                begin
                  try
                    Picture.LoadFromFile(OpenDialog.Files[i]);
                    Name := ExtractFileName(OpenDialog.Files[i]);
                  except
                    Free;
                    raise;
                  end;
                end;
            end else
              TCustomDXImageList(Component).Items.LoadFromFile(OpenDialog.FileName);
            Designer.Modified;
          end;
        finally
          OpenDialog.Free;
        end;
      end;
    1: begin
        SaveDialog := TSaveDialog.Create(nil);
        try
          SaveDialog.DefaultExt := 'dxg';
          SaveDialog.Filter := SDXGFileFilter;
          SaveDialog.Options := [ofOverwritePrompt, ofPathMustExist];
          if SaveDialog.Execute then
            TCustomDXImageList(Component).Items.SaveToFile(SaveDialog.FileName);
        finally
          SaveDialog.Free;
        end;
      end;
    2:
      begin {Create shine effect...}
        {special effect}
        DelphiXDIBEffectEditForm := TTDelphiXDIBEffectEditForm.Create(nil);
        try
          DelphiXDIBEffectEditForm.ShowModal;
          if DelphiXDIBEffectEditForm.Tag = 1 then begin
            {check all names in list of images}
            N := 0;
            Z := DelphiXDIBEffectEditForm.eName.Text; S := Z;
            I := TCustomDXImageList(Component).Items.IndexOf(Z);
            {hleda jmeno}
            while I <> -1 do begin
              S := Format('%s_%d', [Z, N]); {new name}
              I := TCustomDXImageList(Component).Items.IndexOf(S);
              Inc(N);
            end;
            {add item}
            Q := TPictureCollectionItem(TCustomDXImageList(Component).Items.Add);
            Q.Picture.Assign(DelphiXDIBEffectEditForm.ResultDIB);
            Q.Name := S; {it has to name!}
            Q.Transparent := False; {transparend will be set in future}
            Designer.Modified;
          end;
        finally
          DelphiXDIBEffectEditForm.Free;
        end;
      end;
    {$IFDEF VER4UP}
    3:  {Glue-it editor}
      begin
        DXGlueItEditForm := TDXGlueItEditor.Create(nil);
        try
          QQ := TCustomDXImageList(Component); Q := nil;
 
          if QQ.Items.Count > 0 then begin
            FrmListBox := CreateListBox(ListBox1DblClick, ListBox1);
            try
              for I := 0 to QQ.Items.Count - 1 do begin
                S := QQ.Items[I].Name;
                ListBox1.Items.Add(Alter(S, '(unnamed).' + IntToStr(I)));
              end;
 
              case FrmListBox.ShowModal of
              mrOk: //when select one
                begin
                  //when image selected
                  if ListBox1.ItemIndex <> -1 then begin
                    Q := QQ.Items[ListBox1.ItemIndex];
                    //load one image into editor
                    DXGlueItEditForm.LoadImageFromList(Q.Name, Q.Picture, Q.Width,
                      Q.Height, Q.Transparent, Q.TransparentColor);
                    //image loadet, noe se up edit mode
                    DXGlueItEditForm.Operation := ogiEdit;
                  end;
                end;
              mrCancel: DXGlueItEditForm.Operation := ogiNew;
              else
                Exit
              end {case};
            finally
              FrmListBox.Free;
            end;
          end
          else
            DXGlueItEditForm.Operation := ogiNew;
          DXGlueItEditForm.ShowModal;
          if DXGlueItEditForm.Tag = 1 then begin
            //when image as new. it has to create new item
            if DXGlueItEditForm.Operation = ogiNew then
              Q := TPictureCollectionItem(TCustomDXImageList(Component).Items.Add);
            //and store edited image into
            if Assigned(Q) then
              DXGlueItEditForm.SaveImageIntoList(Q);
            //signal to designer that anything was changed;
            Designer.Modified;
          end;
        finally
          DXGlueItEditForm.Free;
        end;
      end;
    {$ENDIF}  
  end;
end;
 
function TDXImageListEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := SOpen;
    1: Result := SSave;
    2: Result := 'Shine effect...';
    {$IFDEF VER4UP}
    //fix bug by Pásztor Károly [fenistil@hu.hu]
    3: Result := 'Glue it...';
    {$ENDIF}
  end;
end;
 
function TDXImageListEditor.GetVerbCount: Integer;
begin
  Result := {$IFDEF VER4UP}4{$ELSE}3{$ENDIF};
end;
 
procedure TDXImageListEditor.ListBox1DblClick(Sender: TObject);
begin
  if Sender is TListBox then with (Sender as TListBox) do
    if ItemIndex <> -1 then
      (Owner as TForm).ModalResult := mrOk;
end;
 
{  TWaveProperty  }
 
procedure TWaveProperty.Edit;
var
  Form: TDelphiXWaveEditForm;
begin
  Form := TDelphiXWaveEditForm.Create(nil);
  try
    Form.Wave := TWave(GetOrdValue);
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      SetOrdValue(Integer(Form.Wave));
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
function TWaveProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog, paReadOnly];
end;
 
function TWaveProperty.GetValue: string;
begin
  if TWave(GetOrdValue).Size = 0 then
    Result := SNone
  else
    Result := Format('(%s)', [TObject(GetOrdValue).ClassName]);
end;
 
{  TDXWaveEditor  }
 
procedure TDXWaveEditor.Edit;
var
  Form: TDelphiXWaveEditForm;
begin
  Form := TDelphiXWaveEditForm.Create(nil);
  try
    Form.Wave := TCustomDXWave(Component).Wave;
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      TCustomDXWave(Component).Wave := Form.Wave;
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
procedure TDXWaveEditor.ExecuteVerb(Index: Integer);
begin
  case Index of
    0: Edit;
  end;
end;
 
function TDXWaveEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := SSettingWave;
  end;
end;
 
function TDXWaveEditor.GetVerbCount: Integer;
begin
  Result := 1;
end;
 
{  TDXWaveListEditor  }
 
procedure TDXWaveListEditor.ExecuteVerb(Index: Integer);
var
  OpenDialog: TOpenDialog;
  SaveDialog: TSaveDialog;
  i: Integer;
begin
  case Index of
    0: begin
        OpenDialog := TOpenDialog.Create(nil);
        try
          OpenDialog.DefaultExt := 'dxw';
          OpenDialog.Filter := SDXWOpenFileFilter;
          OpenDialog.Options := [ofPathMustExist, ofFileMustExist, ofAllowMultiSelect];
          if OpenDialog.Execute then
          begin
            if OpenDialog.FilterIndex = 2 then
            begin
              for i := 0 to OpenDialog.Files.Count - 1 do
                with TWaveCollectionItem.Create(TCustomDXWaveList(Component).Items) do
                begin
                  try
                    Wave.LoadFromFile(OpenDialog.Files[i]);
                    Name := ExtractFileName(OpenDialog.Files[i]);
                  except
                    Free;
                    raise;
                  end;
                end;
            end else
              TCustomDXWaveList(Component).Items.LoadFromFile(OpenDialog.FileName);
            Designer.Modified;
          end;
        finally
          OpenDialog.Free;
        end;
      end;
    1: begin
        SaveDialog := TSaveDialog.Create(nil);
        try
          SaveDialog.DefaultExt := 'dxw';
          SaveDialog.Filter := SDXWFileFilter;
          SaveDialog.Options := [ofOverwritePrompt, ofPathMustExist];
          if SaveDialog.Execute then
            TCustomDXWaveList(Component).Items.SaveToFile(SaveDialog.FileName);
        finally
          SaveDialog.Free;
        end;
      end;
  end;
end;
 
function TDXWaveListEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := SOpen;
    1: Result := SSave;
  end;
end;
 
function TDXWaveListEditor.GetVerbCount: Integer;
begin
  Result := 2;
end;
 
{  TForceFeedbackEffectsProperty  }
 
procedure TForceFeedbackEffectsProperty.Edit;
var
  Form: TDelphiXFFEditForm;
  Effects: TForceFeedbackEffects;
begin
  Effects := TForceFeedbackEffects(GetOrdValue);
 
  Form := TDelphiXFFEditForm.Create(nil);
  try
    if Effects.Input is TJoystick then
      Form.Effects := Form.DXInput.Joystick.Effects
    else if Effects.Input is TKeyboard then
      Form.Effects := Form.DXInput.Keyboard.Effects
    else if Effects.Input is TMouse then
      Form.Effects := Form.DXInput.Mouse.Effects
    else Exit;
 
    Form.Effects.Assign(TForceFeedbackEffects(GetOrdValue));
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      SetOrdValue(Integer(Form.Effects));
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
function TForceFeedbackEffectsProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog, paReadOnly];
end;
 
function TForceFeedbackEffectsProperty.GetValue: string;
begin
  if TForceFeedbackEffects(GetOrdValue).Count = 0 then
    Result := SNone
  else
    Result := Format('(%s)', [TObject(GetOrdValue).ClassName]);
end;
 
{  TDXInputEditor  }
 
procedure TDXInputEditor.Edit;
var
  Form: TDelphiXInputEditForm;
begin
  Form := TDelphiXInputEditForm.Create(nil);
  try
    Form.DXInput := TCustomDXInput(Component);
    Form.ShowModal;
    if Form.Tag <> 0 then
      Designer.Modified;
  finally
    Form.Free;
  end;
end;
 
procedure TDXInputEditor.ExecuteVerb(Index: Integer);
begin
  case Index of
    0: begin
        with TCustomDXInput(Component) do
        begin
          Joystick.ID := 0;
          Keyboard.KeyAssigns := DefKeyAssign;
        end;
        Designer.Modified;
      end;
    1: begin
        with TCustomDXInput(Component) do
        begin
          Joystick.ID := 0;
          Keyboard.KeyAssigns := DefKeyAssign2_1;
        end;
        Designer.Modified;
      end;
    2: begin
        with TCustomDXInput(Component) do
        begin
          Joystick.ID := 1;
          Keyboard.KeyAssigns := DefKeyAssign2_2;
        end;
        Designer.Modified;
      end;
  end;
end;
 
function TDXInputEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := SSinglePlayer;
    1: Result := SMultiPlayer1;
    2: Result := SMultiPlayer2;
  end;
end;
 
function TDXInputEditor.GetVerbCount: Integer;
begin
  Result := 3;
end;
 
{  TGUIDProperty  }
 
procedure TGUIDProperty.Edit;
var
  Form: TDelphiXGUIDEditForm;
begin
  Form := TDelphiXGUIDEditForm.Create(nil);
  try
    Form.GUID := GetStrValue;
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      SetStrValue(Form.GUID);
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
function TGUIDProperty.GetAttributes: TPropertyAttributes;
begin
  Result := inherited GetAttributes + [paDialog];
end;
 
{ TSpriteProperty }
 
procedure TSpriteProperty.Edit;
var
  DirectAccessToSprite: TSprite;
  Form: TDelphiXSpriteEditForm;
  //FormDesigner: IDesigner;
begin
  DirectAccessToSprite := TSprite(GetOrdValue);
  //FormDesigner := Designer;
  Form := TDelphiXSpriteEditForm.Create(nil);
  {FormDesigner.GetComponentNames(GetTypeData(GetPropType), Proc);}
  try
    Form.LoadDataToForm(DirectAccessToSprite);
    //Form.Sprite.AsSign(TPersistent(GetOrdValue));
    Form.ShowModal;
    if Form.Tag <> 0 then
    begin
      DirectAccessToSprite := TSprite(Form.SaveDataFromForm);
      SetOrdValue(Integer(DirectAccessToSprite));
      Designer.Modified;
    end;
  finally
    Form.Free;
  end;
end;
 
function TSpriteProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog];
end;
 
function TSpriteProperty.GetValue: string;
begin
  Result := Format('(%s)', [TObject(GetOrdValue).ClassName]);
end;
 
{  TMidiProperty  }
 
procedure TMidiProperty.Edit;
var
  DelphiXMidiEditForm: TDelphiXMidiEditForm;
  DirectAccessToMidiData: TMusicDataProp;
  S: string; I: Integer;
begin
  DirectAccessToMidiData := TMusicDataProp(GetOrdValue);
  DelphiXMidiEditForm := TDelphiXMidiEditForm.Create(nil);
  try
    DelphiXMidiEditForm.MidiData := DirectAccessToMidiData.MusicData;
    DelphiXMidiEditForm.MidiFileName := DirectAccessToMidiData.MidiName;
    DelphiXMidiEditForm.Showmodal;
    if DelphiXMidiEditForm.Tag = 1 then begin
      DirectAccessToMidiData.MusicData := DelphiXMidiEditForm.MidiData;
      S := '';
      if DelphiXMidiEditForm.MidiFileName <> '' then begin
        S := ExtractFileName(DelphiXMidiEditForm.MidiFileName);
        I := Pos(ExtractFileExt(S), S);
        if I > 0 then S := Copy(S, 1, I - 1);
      end;
      DirectAccessToMidiData.MidiName := S;
      Designer.Modified;
    end;
  finally
    DelphiXMidiEditForm.Free;
  end;
end;
 
function TMidiProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog];
end;
 
function TMidiProperty.GetValue: string;
var
  S: string;
begin
  S := TMusicDataProp(GetOrdValue).MusicData;
  if Length(S) = 0 then
    Result := SNone
  else
    Result := '(Midi)';
end;
 
{$IFDEF VER6UP}
procedure TMidiEditor.EditProperty(const Prop: IProperty; var Continue: Boolean);
{$ELSE}
procedure TMidiEditor.EditProperty(PropertyEditor: TPropertyEditor;
  var continue, FreeEditor: Boolean);
{$ENDIF}
var
  PropName: string;
begin
  PropName := {$IFDEF VER6UP}Prop{$ELSE}PropertyEditor{$ENDIF}.GetName;
  if (CompareText(PropName, 'Midi') = 0) then
  begin
{$IFDEF VER6UP}Prop{$ELSE}PropertyEditor{$ENDIF}.edit;
    continue := false;
  end;
end;
 
{ TDXMidiListEditor }
 
procedure TDXMidiListEditor.ExecuteVerb(Index: Integer);
var
  OpenDialog: TOpenDialog;
  SaveDialog: TSaveDialog;
  i: Integer;
begin
  case Index of
    0: begin
        OpenDialog := TOpenDialog.Create(nil);
        try
          OpenDialog.DefaultExt := 'dxm';
          OpenDialog.Filter := SDXMOpenFileFilter;
          OpenDialog.Options := [ofPathMustExist, ofFileMustExist, ofAllowMultiSelect];
          if OpenDialog.Execute then
          begin
            if OpenDialog.FilterIndex = 2 then
            begin
              for i := 0 to OpenDialog.Files.Count - 1 do
                with TMusicListCollectionItem.Create(TDXMusic(Component).Midis) do
                begin
                  try
                    LoadFromFile(OpenDialog.Files[i]);
                    Name := ExtractFileName(OpenDialog.Files[i]);
                  except
                    Free;
                    raise;
                  end;
                end;
            end
            else
              TDXMusic(Component).Midis.LoadFromFile(OpenDialog.FileName);
            Designer.Modified;
          end;
        finally
          OpenDialog.Free;
        end;
      end;
    1: begin
        SaveDialog := TSaveDialog.Create(nil);
        try
          SaveDialog.DefaultExt := 'dxm';
          SaveDialog.Filter := SDXMFileFilter;
          SaveDialog.Options := [ofOverwritePrompt, ofPathMustExist];
          if SaveDialog.Execute then
            TCustomDXWaveList(Component).Items.SaveToFile(SaveDialog.FileName);
        finally
          SaveDialog.Free;
        end;
      end;
  end;
end;
 
function TDXMidiListEditor.GetVerbCount: Integer;
begin
  Result := 2;
end;
 
function TDXMidiListEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := SOpen;
    1: Result := SSave;
  end;
end;
 
{ TDXSpriteEngineEditor }
 
procedure TDXSpriteEngineEditor.ListBox1DblClick(Sender: TObject);
begin
  if Sender is TListBox then with (Sender as TListBox) do
    if ItemIndex <> -1 then
      (Owner as TForm).ModalResult := mrOk;
end;
 
procedure TDXSpriteEngineEditor.ExecuteVerb(Index: Integer);
var
  FrmListBox: TForm;
  ListBox1: TListBox;
  DelphiXSpriteEditForm: TDelphiXSpriteEditForm;
  ASprite: TSprite;
  I, Z: Integer;
  S: string;
  Q: TCustomDXSpriteEngine;
begin
  case Index of
    0: begin
        FrmListBox := nil;
        Z := 0; //default value
        DelphiXSpriteEditForm := TDelphiXSpriteEditForm.Create(nil);
        try
          Q := TCustomDXSpriteEngine(Component);
          case Q.Items.Count of
            0: begin
              ShowMessage('You must create any item of sprite first!');
              Exit;
            end;
            1: ASprite := Q.Items[Z].Sprite;
          else
            FrmListBox := CreateListBox(ListBox1DblClick, ListBox1);
            for I := 0 to Q.Items.Count - 1 do begin
              S := Q.Items[I].Name;
              ListBox1.Items.Add(Alter(S, '(unnamed).' + IntToStr(I)));
            end;
            if FrmListBox.ShowModal <> mrOk then Exit;
            Z := ListBox1.ItemIndex;
            if Z = -1 then Exit;
            ASprite := Q.Items[Z].Sprite;
            {synchronize of names}
            if ASprite.Caption = '' then
              if Q.Items[ListBox1.ItemIndex].Name <> '' then
                ASprite.Caption := Q.Items[Z].Name;
          end {case};
          DelphiXSpriteEditForm.LoadDataToForm(ASprite);
          DelphiXSpriteEditForm.ShowModal;
          if DelphiXSpriteEditForm.Tag <> 0 then begin
            ASprite := TSprite(DelphiXSpriteEditForm.SaveDataFromForm);
            if Q.Items[Z].Name = '' then
              if ASprite.Caption <> '' then
                Q.Items[Z].Name := ASprite.Caption;
            Designer.Modified;
          end;
        finally
          if Assigned(FrmListBox) then FrmListBox.Free;
          DelphiXSpriteEditForm.Free;
        end;
      end;
  end;
end;
 
function TDXSpriteEngineEditor.GetVerbCount: Integer;
begin
  Result := 1;
end;
 
function TDXSpriteEngineEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := 'Sprite Editor';
  end;
end;
 
{ TDXDrawEditor }
 
procedure TDXDrawEditor.ExecuteVerb(Index: Integer);
var
  ediform: TDelphiXPathsEditForm;
  Q: TCustomDXDraw;
  I: Integer;
  S: string;
  T: TTrace;
  {$IFNDEF VER4UP}
  H: TTrace;
  J: Integer;
  {$ENDIF}
begin
  case Index of
    0: begin
      Q := TCustomDXDraw(Component);
      {paths editor}
      ediform := TDelphiXPathsEditForm.Create(nil);
      try
        ediform.Pane.Width := Q.Display.Width;
        ediform.Pane.Height := Q.Display.Width;
        for I := 0 to Q.Traces.Count - 1 do begin
          S := Q.Traces.Items[I].Name;
          T := ediform.PrivateTraces.Add;
          T.Name := S;
          {$IFDEF VER4UP}
          T.Assign(Q.Traces.Items[I]);
          {$ELSE}
          T.Blit := Q.Traces.Items[I].Blit;
          {$ENDIF}
          if Trim(S) = '' then S := Format('(unnamed[%d])', [I]);
          ediform.cbListOfTraces.Items.Add(S);
        end;
        ediform.ShowTracesOnPane;
 
        ediform.ShowModal;
 
        if ediform.Tag = 1 then begin
          {clear traces}
          Q.Traces.Clear;
          {rewrite backward}
          for i := 0 to ediform.PrivateTraces.Count -1 do begin
            T := Q.Traces.Add;
            T.Name := ediform.PrivateTraces.Items[I].Name;
            {$IFDEF VER4UP}
            T.Assign(ediform.PrivateTraces.Items[i]);
            {$ELSE}
            H := ediform.PrivateTraces.Items[i];
            T.Blit := H.Blit;
            T.Blit.SetPathLen(H.Blit.GetPathCount);
            for J := 0 to H.Blit.GetPathCount - 1 do begin
              T.Blit.Path[J] := H.Blit.Path[J]
            end
            {$ENDIF}
          end;
          {prepis zmeny}
          Designer.Modified;
        end;
      finally
        ediform.Free;
      end;
    end;
  end;
end;
 
function TDXDrawEditor.GetVerbCount: Integer;
begin
  Result := 1;
end;
 
function TDXDrawEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := 'Traces Editor';
  end;
end;
 
end.

Rev 16	Rev 57
1	unit DXReg;	1	unit DXReg;
2		2
3	interface	3	interface
4		4
5	{$I DelphiXcfg.inc}	5	{$I DelphiXcfg.inc}
6	{$WARNINGS OFF}	6	{$WARNINGS OFF}
7	uses	7	uses
8	Windows, SysUtils, Classes, Forms, Dialogs, Graphics, TypInfo,	8	Windows, SysUtils, Classes, Forms, Dialogs, Graphics, TypInfo,
9	Controls, StdCtrls, ExtCtrls, Buttons,	9	Controls, StdCtrls, ExtCtrls, Buttons,
10	{$IFDEF D3DRM}Colli3DX, {$ENDIF}	10	{$IFDEF D3DRM}Colli3DX, {$ENDIF}
11	{$IFNDEF VER6UP}DsgnIntf,	11	{$IFNDEF VER6UP}DsgnIntf,
12	{$ELSE}Designintf, DesignEditors, VCLEditors, PropertyCategories,	12	{$ELSE}Designintf, DesignEditors, VCLEditors, PropertyCategories,
13	{$ENDIF}	13	{$ENDIF}
14	DXDraws, DXSounds, DIB, DXWave, DXInput, DXPlay, DXSprite, DXClass;	14	DXDraws, DXSounds, DIB, DXWave, DXInput, DXPlay, DXSprite, DXClass;
15		15
16	type	16	type
17		17
18	{ TDXDrawDisplayProperty }	18	{ TDXDrawDisplayProperty }
19		19
20	TDXDrawDisplayProperty = class(TClassProperty)	20	TDXDrawDisplayProperty = class(TClassProperty)
21	public	21	public
22	function GetAttributes: TPropertyAttributes; override;	22	function GetAttributes: TPropertyAttributes; override;
23	function GetValue: string; override;	23	function GetValue: string; override;
24	procedure GetValues(Proc: TGetStrProc); override;	24	procedure GetValues(Proc: TGetStrProc); override;
25	procedure SetValue(const Value: string); override;	25	procedure SetValue(const Value: string); override;
26	end;	26	end;
27		27
28	{ TDIBProperty }	28	{ TDIBProperty }
29		29
30	TDIBProperty = class(TPropertyEditor)	30	TDIBProperty = class(TPropertyEditor)
31	public	31	public
32	procedure Edit; override;	32	procedure Edit; override;
33	function GetValue: string; override;	33	function GetValue: string; override;
34	function GetAttributes: TPropertyAttributes; override;	34	function GetAttributes: TPropertyAttributes; override;
35	end;	35	end;
36		36
37	{ TDXDIBEditor }	37	{ TDXDIBEditor }
38		38
39	TDXDIBEditor = class(TComponentEditor)	39	TDXDIBEditor = class(TComponentEditor)
40	public	40	public
41	procedure Edit; override;	41	procedure Edit; override;
42	procedure ExecuteVerb(Index: Integer); override;	42	procedure ExecuteVerb(Index: Integer); override;
43	function GetVerb(Index: Integer): string; override;	43	function GetVerb(Index: Integer): string; override;
44	function GetVerbCount: Integer; override;	44	function GetVerbCount: Integer; override;
45	end;	45	end;
46		46
47	{ TPictureCollectionItem_PictureProperty }	47	{ TPictureCollectionItem_PictureProperty }
48		48
49	TPictureCollectionItem_PictureProperty = class(TPropertyEditor)	49	TPictureCollectionItem_PictureProperty = class(TPropertyEditor)
50	public	50	public
51	procedure Edit; override;	51	procedure Edit; override;
52	function GetValue: string; override;	52	function GetValue: string; override;
53	function GetAttributes: TPropertyAttributes; override;	53	function GetAttributes: TPropertyAttributes; override;
54	end;	54	end;
55		55
56	{ TDXImageListEditor }	56	{ TDXImageListEditor }
57		57
58	TDXImageListEditor = class(TComponentEditor)	58	TDXImageListEditor = class(TComponentEditor)
59	private	59	private
60	procedure ListBox1DblClick(Sender: TObject);	60	procedure ListBox1DblClick(Sender: TObject);
61	public	61	public
62	procedure ExecuteVerb(Index: Integer); override;	62	procedure ExecuteVerb(Index: Integer); override;
63	function GetVerb(Index: Integer): string; override;	63	function GetVerb(Index: Integer): string; override;
64	function GetVerbCount: Integer; override;	64	function GetVerbCount: Integer; override;
65	end;	65	end;
66		66
67	{ TDXSpriteEngineEditor}	67	{ TDXSpriteEngineEditor}
68		68
69	TDXSpriteEngineEditor = class(TComponentEditor)	69	TDXSpriteEngineEditor = class(TComponentEditor)
70	private	70	private
71	procedure ListBox1DblClick(Sender: TObject);	71	procedure ListBox1DblClick(Sender: TObject);
72	public	72	public
73	procedure ExecuteVerb(Index: Integer); override;	73	procedure ExecuteVerb(Index: Integer); override;
74	function GetVerb(Index: Integer): string; override;	74	function GetVerb(Index: Integer): string; override;
75	function GetVerbCount: Integer; override;	75	function GetVerbCount: Integer; override;
76	end;	76	end;
77		77
78	{ TWaveProperty }	78	{ TWaveProperty }
79		79
80	TWaveProperty = class(TPropertyEditor)	80	TWaveProperty = class(TPropertyEditor)
81	public	81	public
82	procedure Edit; override;	82	procedure Edit; override;
83	function GetValue: string; override;	83	function GetValue: string; override;
84	function GetAttributes: TPropertyAttributes; override;	84	function GetAttributes: TPropertyAttributes; override;
85	end;	85	end;
86		86
87	{ TDXWaveEditor }	87	{ TDXWaveEditor }
88		88
89	TDXWaveEditor = class(TComponentEditor)	89	TDXWaveEditor = class(TComponentEditor)
90	public	90	public
91	procedure Edit; override;	91	procedure Edit; override;
92	procedure ExecuteVerb(Index: Integer); override;	92	procedure ExecuteVerb(Index: Integer); override;
93	function GetVerb(Index: Integer): string; override;	93	function GetVerb(Index: Integer): string; override;
94	function GetVerbCount: Integer; override;	94	function GetVerbCount: Integer; override;
95	end;	95	end;
96		96
97	{ TDXWaveListEditor }	97	{ TDXWaveListEditor }
98		98
99	TDXWaveListEditor = class(TComponentEditor)	99	TDXWaveListEditor = class(TComponentEditor)
100	public	100	public
101	procedure ExecuteVerb(Index: Integer); override;	101	procedure ExecuteVerb(Index: Integer); override;
102	function GetVerb(Index: Integer): string; override;	102	function GetVerb(Index: Integer): string; override;
103	function GetVerbCount: Integer; override;	103	function GetVerbCount: Integer; override;
104	end;	104	end;
105		105
106	{ TForceFeedbackEffectsProperty }	106	{ TForceFeedbackEffectsProperty }
107		107
108	TForceFeedbackEffectsProperty = class(TClassProperty)	108	TForceFeedbackEffectsProperty = class(TClassProperty)
109	public	109	public
110	procedure Edit; override;	110	procedure Edit; override;
111	function GetValue: string; override;	111	function GetValue: string; override;
112	function GetAttributes: TPropertyAttributes; override;	112	function GetAttributes: TPropertyAttributes; override;
113	end;	113	end;
114		114
115	{ TDXInputEditor }	115	{ TDXInputEditor }
116		116
117	TDXInputEditor = class(TComponentEditor)	117	TDXInputEditor = class(TComponentEditor)
118	public	118	public
119	procedure Edit; override;	119	procedure Edit; override;
120	procedure ExecuteVerb(Index: Integer); override;	120	procedure ExecuteVerb(Index: Integer); override;
121	function GetVerb(Index: Integer): string; override;	121	function GetVerb(Index: Integer): string; override;
122	function GetVerbCount: Integer; override;	122	function GetVerbCount: Integer; override;
123	end;	123	end;
124		124
125	{ TGUIDProperty }	125	{ TGUIDProperty }
126		126
127	TGUIDProperty = class(TStringProperty)	127	TGUIDProperty = class(TStringProperty)
128	public	128	public
129	procedure Edit; override;	129	procedure Edit; override;
130	function GetAttributes: TPropertyAttributes; override;	130	function GetAttributes: TPropertyAttributes; override;
131	end;	131	end;
132		132
133	{ TSpriteProperty }	133	{ TSpriteProperty }
134		134
135	TSpriteProperty = class(TClassProperty)	135	TSpriteProperty = class(TClassProperty)
136	public	136	public
137	procedure Edit; override;	137	procedure Edit; override;
138	function GetValue: string; override;	138	function GetValue: string; override;
139	function GetAttributes: TPropertyAttributes; override;	139	function GetAttributes: TPropertyAttributes; override;
140	end;	140	end;
141		141
142	{ TMidiProperty }	142	{ TMidiProperty }
143		143
144	TMidiProperty = class(TClassProperty)	144	TMidiProperty = class(TClassProperty)
145	public	145	public
146	procedure Edit; override;	146	procedure Edit; override;
147	function GetValue: string; override;	147	function GetValue: string; override;
148	function GetAttributes: TPropertyAttributes; override;	148	function GetAttributes: TPropertyAttributes; override;
149	end;	149	end;
150		150
151	TMidiEditor = class(TDefaultEditor)	151	TMidiEditor = class(TDefaultEditor)
152	public	152	public
153	{$IFDEF VER6UP}	153	{$IFDEF VER6UP}
154	procedure EditProperty(const Prop: IProperty; var Continue: Boolean); override;	154	procedure EditProperty(const Prop: IProperty; var Continue: Boolean); override;
155	{$ELSE}	155	{$ELSE}
156	procedure EditProperty(PropertyEditor: TPropertyEditor;	156	procedure EditProperty(PropertyEditor: TPropertyEditor;
157	var continue, FreeEditor: Boolean); override;	157	var continue, FreeEditor: Boolean); override;
158	{$ENDIF}	158	{$ENDIF}
159	end;	159	end;
160		160
161	{ TDXMidiListEditor }	161	{ TDXMidiListEditor }
162		162
163	TDXMidiListEditor = class(TComponentEditor)	163	TDXMidiListEditor = class(TComponentEditor)
164	public	164	public
165	procedure ExecuteVerb(Index: Integer); override;	165	procedure ExecuteVerb(Index: Integer); override;
166	function GetVerb(Index: Integer): string; override;	166	function GetVerb(Index: Integer): string; override;
167	function GetVerbCount: Integer; override;	167	function GetVerbCount: Integer; override;
168	end;	168	end;
169		169
170	{ Trace editor}	170	{ Trace editor}
171		171
172	TDXDrawEditor = class(TComponentEditor)	172	TDXDrawEditor = class(TComponentEditor)
173	public	173	public
174	procedure ExecuteVerb(Index: Integer); override;	174	procedure ExecuteVerb(Index: Integer); override;
175	function GetVerb(Index: Integer): string; override;	175	function GetVerb(Index: Integer): string; override;
176	function GetVerbCount: Integer; override;	176	function GetVerbCount: Integer; override;
177	end;	177	end;
178		178
179	procedure Register;	179	procedure Register;
180		180
181	implementation	181	implementation
182		182
183	uses DXPictEdit, DXWaveEdit, DXFFBEdit, DXInptEdit, DXGUIDEdit, DXSpriteEdit,	183	uses DXPictEdit, DXWaveEdit, DXFFBEdit, DXInptEdit, DXGUIDEdit, DXSpriteEdit,
184	DXMidiEdit, DXDIBEffectEdit, {$IFDEF VER4UP}DXGlueItEdit,{$ENDIF} DXPathEdit;	184	DXMidiEdit, DXDIBEffectEdit, {$IFDEF VER4UP}DXGlueItEdit,{$ENDIF} DXPathEdit;
185		185
186	const	186	const
187	SNone = '(None)';	187	SNone = '(None)';
188		188
189	SSettingImage = '&Image...';	189	SSettingImage = '&Image...';
190	SSettingWave = '&Wave...';	190	SSettingWave = '&Wave...';
191	SDXGFileFilter = 'DXG file(.dxg)\|.dxg\|All files(.)\|.';	191	SDXGFileFilter = 'DXG file(.dxg)\|.dxg\|All files(.)\|.';
192	SDXGOpenFileFilter = 'DXG file(.dxg)\|.dxg\|Bitmap file(.bmp)\|.bmp\|All files(.)\|.';	192	SDXGOpenFileFilter = 'DXG file(.dxg)\|.dxg\|Bitmap file(.bmp)\|.bmp\|All files(.)\|.';
193	SDXWFileFilter = 'DXW file(.dxw)\|.dxg\|All files(.)\|.';	193	SDXWFileFilter = 'DXW file(.dxw)\|.dxg\|All files(.)\|.';
194	SDXWOpenFileFilter = 'DXW file(.dxw)\|.dxw\|Wave file(.wav)\|.wav\|All files(.)\|.';	194	SDXWOpenFileFilter = 'DXW file(.dxw)\|.dxw\|Wave file(.wav)\|.wav\|All files(.)\|.';
195	SDXMFileFilter = 'DXM file(.dxm)\|.dxm\|All files(.)\|.';	195	SDXMFileFilter = 'DXM file(.dxm)\|.dxm\|All files(.)\|.';
196	SDXMOpenFileFilter = 'DXM file(.dxm)\|.dxm\|Midi file(.mid)\|.mid\|All files(.)\|.';	196	SDXMOpenFileFilter = 'DXM file(.dxm)\|.dxm\|Midi file(.mid)\|.mid\|All files(.)\|.';
197		197
198	SSinglePlayer = '&Single player';	198	SSinglePlayer = '&Single player';
199	SMultiPlayer1 = 'Multi player &1';	199	SMultiPlayer1 = 'Multi player &1';
200	SMultiPlayer2 = 'Multi player &2';	200	SMultiPlayer2 = 'Multi player &2';
201		201
202	SOpen = '&Open...';	202	SOpen = '&Open...';
203	SSave = '&Save...';	203	SSave = '&Save...';
204		204
205	procedure Register;	205	procedure Register;
206	begin	206	begin
207	RegisterPropertyEditor(TypeInfo(TDXDrawDisplay), nil, '',	207	RegisterPropertyEditor(TypeInfo(TDXDrawDisplay), nil, '',
208	TDXDrawDisplayProperty);	208	TDXDrawDisplayProperty);
209		209
210	RegisterPropertyEditor(TypeInfo(TDIB), nil, '', TDIBProperty);	210	RegisterPropertyEditor(TypeInfo(TDIB), nil, '', TDIBProperty);
211	RegisterComponentEditor(TCustomDXDIB, TDXDIBEditor);	211	RegisterComponentEditor(TCustomDXDIB, TDXDIBEditor);
212		212
213	RegisterPropertyEditor(TypeInfo(TPicture), TPictureCollectionItem, 'Picture', TPictureCollectionItem_PictureProperty);	213	RegisterPropertyEditor(TypeInfo(TPicture), TPictureCollectionItem, 'Picture', TPictureCollectionItem_PictureProperty);
214	RegisterComponentEditor(TCustomDXImageList, TDXImageListEditor);	214	RegisterComponentEditor(TCustomDXImageList, TDXImageListEditor);
215		215
216	RegisterPropertyEditor(TypeInfo(TWave), nil, '', TWaveProperty);	216	RegisterPropertyEditor(TypeInfo(TWave), nil, '', TWaveProperty);
217	RegisterComponentEditor(TCustomDXWave, TDXWaveEditor);	217	RegisterComponentEditor(TCustomDXWave, TDXWaveEditor);
218		218
219	RegisterComponentEditor(TCustomDXWaveList, TDXWaveListEditor);	219	RegisterComponentEditor(TCustomDXWaveList, TDXWaveListEditor);
220		220
221	RegisterPropertyEditor(TypeInfo(TForceFeedbackEffects), nil, '', TForceFeedbackEffectsProperty);	221	RegisterPropertyEditor(TypeInfo(TForceFeedbackEffects), nil, '', TForceFeedbackEffectsProperty);
222		222
223	RegisterComponentEditor(TCustomDXInput, TDXInputEditor);	223	RegisterComponentEditor(TCustomDXInput, TDXInputEditor);
224		224
-		225	{$IFDEF UseDirectPlay}
225	RegisterPropertyEditor(TypeInfo(string), TCustomDXPlay, 'GUID', TGUIDProperty);	226	RegisterPropertyEditor(TypeInfo(string), TCustomDXPlay, 'GUID', TGUIDProperty);
-		227	{$ENDIF} // UseDirectPlay
226		228
227	RegisterPropertyEditor(TypeInfo(TImageSprite), NIL, '', TSpriteProperty);	229	RegisterPropertyEditor(TypeInfo(TImageSprite), NIL, '', TSpriteProperty);
228	RegisterPropertyEditor(TypeInfo(TImageSpriteEx), NIL, '', TSpriteProperty);	230	RegisterPropertyEditor(TypeInfo(TImageSpriteEx), NIL, '', TSpriteProperty);
229	RegisterPropertyEditor(TypeInfo(TSprite), NIL, '', TSpriteProperty);	231	RegisterPropertyEditor(TypeInfo(TSprite), NIL, '', TSpriteProperty);
230	RegisterPropertyEditor(TypeInfo(TBackgroundSprite), NIL, '', TSpriteProperty);	232	RegisterPropertyEditor(TypeInfo(TBackgroundSprite), NIL, '', TSpriteProperty);
231		233
232	RegisterPropertyEditor(TypeInfo(TMusicDataProp), nil, 'MIDI', TMidiProperty);	234	RegisterPropertyEditor(TypeInfo(TMusicDataProp), nil, 'MIDI', TMidiProperty);
233	RegisterComponentEditor(TDXMusic, TDXMidiListEditor);	235	RegisterComponentEditor(TDXMusic, TDXMidiListEditor);
234	RegisterComponentEditor(TDXSpriteEngine, TDXSpriteEngineEditor);	236	RegisterComponentEditor(TDXSpriteEngine, TDXSpriteEngineEditor);
235		237
236	RegisterComponents('DelphiX',	238	RegisterComponents('DelphiX',
237	[TDXDraw,	239	[TDXDraw,
238	TDXDIB,	240	TDXDIB,
239	TDXImageList,	241	TDXImageList,
240	{$IFDEF DX3D_deprecated}	242	{$IFDEF DX3D_deprecated}
241	TDX3D,	243	TDX3D,
242	{$ENDIF}	244	{$ENDIF}
243	TDXSound,	245	TDXSound,
244	TDXWave,	246	TDXWave,
245	TDXWaveList,	247	TDXWaveList,
246	TDXInput,	248	TDXInput,
-		249	{$IFDEF UseDirectPlay}
247	TDXPlay,	250	TDXPlay,
-		251	{$ENDIF} // UseDirectPlay
248	TDXSpriteEngine,	252	TDXSpriteEngine,
249	TDXTimer,	253	TDXTimer,
250	TDXPaintBox,	254	TDXPaintBox,
251	TDXFont,	255	TDXFont,
252	TDXPowerFont,	256	TDXPowerFont,
253	TDXMusic	257	TDXMusic
254	]);	258	]);
255	RegisterComponentEditor(TCustomDXDraw, TDXDrawEditor);	259	RegisterComponentEditor(TCustomDXDraw, TDXDrawEditor);
256	end;	260	end;
257		261
258	{ TDXDrawDisplayProperty }	262	{ TDXDrawDisplayProperty }
259		263
260	function TDXDrawDisplayProperty.GetAttributes: TPropertyAttributes;	264	function TDXDrawDisplayProperty.GetAttributes: TPropertyAttributes;
261	begin	265	begin
262	Result := inherited GetAttributes + [paValueList] - [paReadOnly];	266	Result := inherited GetAttributes + [paValueList] - [paReadOnly];
263	end;	267	end;
264		268
265	const	269	const
266	SDisplayMode = '%dx%dx%d';	270	SDisplayMode = '%dx%dx%d';
267		271
268	function TDXDrawDisplayProperty.GetValue: string;	272	function TDXDrawDisplayProperty.GetValue: string;
269	begin	273	begin
270	with TDXDrawDisplay(GetOrdValue) do	274	with TDXDrawDisplay(GetOrdValue) do
271	Result := Format(SDisplayMode, [Width, Height, BitCount]);	275	Result := Format(SDisplayMode, [Width, Height, BitCount]);
272	end;	276	end;
273		277
274	procedure TDXDrawDisplayProperty.GetValues(Proc: TGetStrProc);	278	procedure TDXDrawDisplayProperty.GetValues(Proc: TGetStrProc);
275	const	279	const
276	List: array[0..2] of TPoint = (	280	List: array[0..2] of TPoint = (
277	(X: 640; Y: 480),	281	(X: 640; Y: 480),
278	(X: 800; Y: 600),	282	(X: 800; Y: 600),
279	(X: 1024; Y: 768));	283	(X: 1024; Y: 768));
280	var	284	var
281	BitCount, i: Integer;	285	BitCount, i: Integer;
282	begin	286	begin
283	for i := Low(List) to High(List) do	287	for i := Low(List) to High(List) do
284	for BitCount := 1 to 3 do	288	for BitCount := 1 to 3 do
285	Proc(Format(SDisplayMode, [List[i].x, List[i].y, BitCount * 8]));	289	Proc(Format(SDisplayMode, [List[i].x, List[i].y, BitCount * 8]));
286	end;	290	end;
287		291
288	procedure TDXDrawDisplayProperty.SetValue(const Value: string);	292	procedure TDXDrawDisplayProperty.SetValue(const Value: string);
289	var	293	var
290	s: string;	294	s: string;
291	i, AWidth, AHeight, ABitCount: Integer;	295	i, AWidth, AHeight, ABitCount: Integer;
292	begin	296	begin
293	s := Value;	297	s := Value;
294		298
295	i := Pos('x', s);	299	i := Pos('x', s);
296	AWidth := StrToInt(Copy(s, 1, i - 1));	300	AWidth := StrToInt(Copy(s, 1, i - 1));
297	s := Copy(s, i + 1, Length(s));	301	s := Copy(s, i + 1, Length(s));
298		302
299	i := Pos('x', s);	303	i := Pos('x', s);
300	AHeight := StrToInt(Copy(s, 1, i - 1));	304	AHeight := StrToInt(Copy(s, 1, i - 1));
301	s := Copy(s, i + 1, Length(s));	305	s := Copy(s, i + 1, Length(s));
302		306
303	ABitCount := StrToInt(s);	307	ABitCount := StrToInt(s);
304		308
305	with TDXDrawDisplay(GetOrdValue) do	309	with TDXDrawDisplay(GetOrdValue) do
306	begin	310	begin
307	Width := AWidth;	311	Width := AWidth;
308	Height := AHeight;	312	Height := AHeight;
309	BitCount := ABitCount;	313	BitCount := ABitCount;
310	end;	314	end;
311		315
312	SetOrdValue(GetOrdValue);	316	SetOrdValue(GetOrdValue);
313	end;	317	end;
314		318
315	{ TDIBProperty }	319	{ TDIBProperty }
316		320
317	procedure TDIBProperty.Edit;	321	procedure TDIBProperty.Edit;
318	var	322	var
319	Form: TDelphiXPictureEditForm;	323	Form: TDelphiXPictureEditForm;
320	begin	324	begin
321	Form := TDelphiXPictureEditForm.Create(nil);	325	Form := TDelphiXPictureEditForm.Create(nil);
322	try	326	try
323	Form.ViewBox.Picture.Assign(TDIB(GetOrdValue));	327	Form.ViewBox.Picture.Assign(TDIB(GetOrdValue));
324	Form.DIBClassOnly := True;	328	Form.DIBClassOnly := True;
325	Form.ShowModal;	329	Form.ShowModal;
326	if Form.Tag <> 0 then	330	if Form.Tag <> 0 then
327	begin	331	begin
328	SetOrdValue(Integer(Form.ViewBox.Picture.Graphic));	332	SetOrdValue(Integer(Form.ViewBox.Picture.Graphic));
329	Designer.Modified;	333	Designer.Modified;
330	end;	334	end;
331	finally	335	finally
332	Form.Free;	336	Form.Free;
333	end;	337	end;
334	end;	338	end;
335		339
336	function TDIBProperty.GetAttributes: TPropertyAttributes;	340	function TDIBProperty.GetAttributes: TPropertyAttributes;
337	begin	341	begin
338	Result := [paDialog, paReadOnly];	342	Result := [paDialog, paReadOnly];
339	end;	343	end;
340		344
341	function TDIBProperty.GetValue: string;	345	function TDIBProperty.GetValue: string;
342	begin	346	begin
343	if TDIB(GetOrdValue).Size = 0 then	347	if TDIB(GetOrdValue).Size = 0 then
344	Result := SNone	348	Result := SNone
345	else	349	else
346	Result := Format('(%s)', [TObject(GetOrdValue).ClassName]);	350	Result := Format('(%s)', [TObject(GetOrdValue).ClassName]);
347	end;	351	end;
348		352
349	{ TDXDIBEditor }	353	{ TDXDIBEditor }
350		354
351	procedure TDXDIBEditor.Edit;	355	procedure TDXDIBEditor.Edit;
352	var	356	var
353	Form: TDelphiXPictureEditForm;	357	Form: TDelphiXPictureEditForm;
354	begin	358	begin
355	Form := TDelphiXPictureEditForm.Create(nil);	359	Form := TDelphiXPictureEditForm.Create(nil);
356	try	360	try
357	Form.ViewBox.Picture.Assign(TCustomDXDIB(Component).DIB);	361	Form.ViewBox.Picture.Assign(TCustomDXDIB(Component).DIB);
358	Form.DIBClassOnly := True;	362	Form.DIBClassOnly := True;
359	Form.ShowModal;	363	Form.ShowModal;
360	if Form.Tag <> 0 then	364	if Form.Tag <> 0 then
361	begin	365	begin
362	TCustomDXDIB(Component).DIB.Assign(TGraphic(Form.ViewBox.Picture.Graphic));	366	TCustomDXDIB(Component).DIB.Assign(TGraphic(Form.ViewBox.Picture.Graphic));
363	Designer.Modified;	367	Designer.Modified;
364	end;	368	end;
365	finally	369	finally
366	Form.Free;	370	Form.Free;
367	end;	371	end;
368	end;	372	end;
369		373
370	procedure TDXDIBEditor.ExecuteVerb(Index: Integer);	374	procedure TDXDIBEditor.ExecuteVerb(Index: Integer);
371	begin	375	begin
372	case Index of	376	case Index of
373	0: Edit;	377	0: Edit;
374	end;	378	end;
375	end;	379	end;
376		380
377	function TDXDIBEditor.GetVerb(Index: Integer): string;	381	function TDXDIBEditor.GetVerb(Index: Integer): string;
378	begin	382	begin
379	case Index of	383	case Index of
380	0: Result := SSettingImage;	384	0: Result := SSettingImage;
381	end;	385	end;
382	end;	386	end;
383		387
384	function TDXDIBEditor.GetVerbCount: Integer;	388	function TDXDIBEditor.GetVerbCount: Integer;
385	begin	389	begin
386	Result := 1;	390	Result := 1;
387	end;	391	end;
388		392
389	{ TPictureCollectionItem_PictureProperty }	393	{ TPictureCollectionItem_PictureProperty }
390		394
391	procedure TPictureCollectionItem_PictureProperty.Edit;	395	procedure TPictureCollectionItem_PictureProperty.Edit;
392	var	396	var
393	Form: TDelphiXPictureEditForm;	397	Form: TDelphiXPictureEditForm;
394	Item: TPictureCollectionItem;	398	Item: TPictureCollectionItem;
395	TempDIB: TDIB;	399	TempDIB: TDIB;
396	begin	400	begin
397	Form := TDelphiXPictureEditForm.Create(nil);	401	Form := TDelphiXPictureEditForm.Create(nil);
398	try	402	try
399	Form.ViewBox.Picture := TPicture(GetOrdValue);	403	Form.ViewBox.Picture := TPicture(GetOrdValue);
400	Form.ShowModal;	404	Form.ShowModal;
401	if Form.Tag <> 0 then	405	if Form.Tag <> 0 then
402	begin	406	begin
403	SetOrdValue(Integer(Form.ViewBox.Picture));	407	SetOrdValue(Integer(Form.ViewBox.Picture));
404		408
405	Item := GetComponent(0) as TPictureCollectionItem;	409	Item := GetComponent(0) as TPictureCollectionItem;
406	if Item.Picture.Graphic <> nil then	410	if Item.Picture.Graphic <> nil then
407	begin	411	begin
408	TempDIB := TDIB.Create;	412	TempDIB := TDIB.Create;
409	try	413	try
410	TempDIB.SetSize(1, 1, 24);	414	TempDIB.SetSize(1, 1, 24);
411	TempDIB.Canvas.Draw(0, 0, Item.Picture.Graphic);	415	TempDIB.Canvas.Draw(0, 0, Item.Picture.Graphic);
412	Item.TransparentColor := TempDIB.Pixels[0, 0];	416	Item.TransparentColor := TempDIB.Pixels[0, 0];
413	finally	417	finally
414	TempDIB.Free;	418	TempDIB.Free;
415	end;	419	end;
416	end;	420	end;
417	Designer.Modified;	421	Designer.Modified;
418	end;	422	end;
419	finally	423	finally
420	Form.Free;	424	Form.Free;
421	end;	425	end;
422	end;	426	end;
423		427
424	function TPictureCollectionItem_PictureProperty.GetAttributes: TPropertyAttributes;	428	function TPictureCollectionItem_PictureProperty.GetAttributes: TPropertyAttributes;
425	begin	429	begin
426	Result := [paDialog, paReadOnly];	430	Result := [paDialog, paReadOnly];
427	end;	431	end;
428		432
429	function TPictureCollectionItem_PictureProperty.GetValue: string;	433	function TPictureCollectionItem_PictureProperty.GetValue: string;
430	begin	434	begin
431	if (TPicture(GetOrdValue).Graphic = nil) or (TPicture(GetOrdValue).Graphic.Empty) then	435	if (TPicture(GetOrdValue).Graphic = nil) or (TPicture(GetOrdValue).Graphic.Empty) then
432	Result := SNone	436	Result := SNone
433	else	437	else
434	Result := Format('(%s)', [TPicture(GetOrdValue).Graphic.ClassName]);	438	Result := Format('(%s)', [TPicture(GetOrdValue).Graphic.ClassName]);
435	end;	439	end;
436		440
437	{ dialog }	441	{ dialog }
438	function CreateListBox(DblClck: TNotifyEvent; out lstbx: TListBox): TForm;	442	function CreateListBox(DblClck: TNotifyEvent; out lstbx: TListBox): TForm;
439	var	443	var
440	Panel1: TPanel;	444	Panel1: TPanel;
441	Panel2: TPanel;	445	Panel2: TPanel;
442	BitBtn1: TBitBtn;	446	BitBtn1: TBitBtn;
443	BitBtn2: TBitBtn;	447	BitBtn2: TBitBtn;
444	begin	448	begin
445	Result := TForm.Create(nil);	449	Result := TForm.Create(nil);
446	Panel1 := TPanel.Create(Result);	450	Panel1 := TPanel.Create(Result);
447	lstbx := TListBox.Create(Result);	451	lstbx := TListBox.Create(Result);
448	Panel2 := TPanel.Create(Result);	452	Panel2 := TPanel.Create(Result);
449	BitBtn1 := TBitBtn.Create(Result);	453	BitBtn1 := TBitBtn.Create(Result);
450	BitBtn2 := TBitBtn.Create(Result);	454	BitBtn2 := TBitBtn.Create(Result);
451	with Result do	455	with Result do
452	begin	456	begin
453	Name := 'Form12';	457	Name := 'Form12';
454	Left := 0;	458	Left := 0;
455	Top := 0;	459	Top := 0;
456	BorderStyle := bsDialog;	460	BorderStyle := bsDialog;
457	Caption := 'Select Item';	461	Caption := 'Select Item';
458	ClientHeight := 206;	462	ClientHeight := 206;
459	ClientWidth := 228;	463	ClientWidth := 228;
460	Color := clBtnFace;	464	Color := clBtnFace;
461	Font.Charset := DEFAULT_CHARSET;	465	Font.Charset := DEFAULT_CHARSET;
462	Font.Color := clWindowText;	466	Font.Color := clWindowText;
463	Font.Height := -11;	467	Font.Height := -11;
464	Font.Name := 'Tahoma';	468	Font.Name := 'Tahoma';
465	Font.Style := [];	469	Font.Style := [];
466	Position := poScreenCenter;	470	Position := poScreenCenter;
467	PixelsPerInch := 96;	471	PixelsPerInch := 96;
468	end;	472	end;
469	with Panel1 do	473	with Panel1 do
470	begin	474	begin
471	Name := 'Panel1';	475	Name := 'Panel1';
472	Parent := Result;	476	Parent := Result;
473	Left := 0;	477	Left := 0;
474	Top := 0;	478	Top := 0;
475	Width := 228;	479	Width := 228;
476	Height := 165;	480	Height := 165;
477	Align := alClient;	481	Align := alClient;
478	BevelOuter := bvNone;	482	BevelOuter := bvNone;
479	BorderWidth := 4;	483	BorderWidth := 4;
480	Caption := '';	484	Caption := '';
481	TabOrder := 0;	485	TabOrder := 0;
482	end;	486	end;
483	with lstbx do	487	with lstbx do
484	begin	488	begin
485	Name := 'ListBox1';	489	Name := 'ListBox1';
486	Parent := Panel1;	490	Parent := Panel1;
487	Left := 4;	491	Left := 4;
488	Top := 4;	492	Top := 4;
489	Width := 220;	493	Width := 220;
490	Height := 157;	494	Height := 157;
491	Align := alClient;	495	Align := alClient;
492	ItemHeight := 13;	496	ItemHeight := 13;
493	TabOrder := 0;	497	TabOrder := 0;
494	OnDblClick := DblClck;	498	OnDblClick := DblClck;
495	end;	499	end;
496	with Panel2 do	500	with Panel2 do

Subversion Repositories spacemission

spacemission/VCL_DELPHIX_D6/DXReg.pas @ 4 – Rev 16 → 57