这里真的就没有高手吗?看来高手从来不需要交流啊!高手进来!只会up的别来啊!

Question

http://expert.csdn.net/Expert/topic/1337/1337709.xml?temp=.6562311
这个贴子怎么就没人给点有价值的意见哪!就会up!up!也不知道up在这当什么讲!

Answer 1

不是我的代码啊!
URL http://www.hktk.com:8080/cgi-bin/dl.pl?url=ftp://ftp.cq.hktk.com/soft/soft_con_image/PICSHOW25.ZIP引用页 http://software.chinese.com/soft/soft_con_image/picshow_2.html
好心人去下一个研究研究!

Answer 2

Randomize;
  // Updates controls by PicShow properties
  Style.MaxValue := High(TShowStyle);
  Style.Value := PicShow.Style;
  Threaded.Checked := PicShow.Threaded;
  Step.Value := PicShow.Step;
  Delay.Value := PicShow.Delay;
  ManualStyle.Checked := PicShow.Manual;PicShow 类没有实例可以这样用吗 ？   var 
   k : TPicShow ;   K := TPicShow.Create ;楼主写得挺好的，别的还没有看到

Answer 3

加上
type
  TGetPropEditProc = procedure (Editor: TPropertyEditor) of object;

Answer 4

加上
type
  TGetPropEditProc = procedure (Editor: TPropertyEditor) of object;
可以通过但是到了
GetComponentProperties(List, [tkClass], Designer, Proc);这个函数就又会有相同的问题了!

Answer 5

unit PSReg;interfaceuses
  Windows, Classes, {$IFDEF DELPHI6_UP} DesignIntf, DesignEditors {$ELSE} DsgnIntf {$ENDIF};type  {$IFDEF DELPHI6_UP}
  TGetPropEditProc = procedure(const Prop: IProperty) of object;
  {$ENDIF}{ TPicShowComponentEditor }  TPicShowComponentEditor = class(TComponentEditor)
  protected
    procedure CallPropertyEditor(Proc: TGetPropEditProc);
    {$IFDEF DELPHI6_UP}
    procedure PictureEditor(const Prop: IProperty);
    procedure BackgroundEditor(const Prop: IProperty);
    {$ELSE}
    procedure PictureEditor(Prop: TPropertyEditor);
    procedure BackgroundEditor(Prop: TPropertyEditor);
    {$ENDIF}
  public
    function GetVerbCount: Integer; override;
    function GetVerb(Index: Integer): string; override;
    procedure ExecuteVerb(Index: Integer); override;
    procedure Edit; override;
  end;{ TStyleNamePropertyEditor }  TStyleNamePropertyEditor = class(TEnumProperty)
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
    function GetValue: string; override;
    procedure SetValue(const Value: string); override;
  end;{ TAboutPropertyEditor }  TAboutPropertyEditor = class(TStringProperty)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;procedure Register;implementationuses
  PicShow, TypInfo, Dialogs;procedure ShowAboutBox(const ClassName: String);
const
  AboutStr = ' v2.812'                                     + #10#13
           + 'Copyright(C) 1999-2002 Kambiz R. Khojasteh'  + #10#13
           + 'All rights reserved.'                        + #10#13
           +                                                 #10#13
           + '[email protected]'                       + #10#13
           + 'http://www.delphiarea.com';
begin
  MessageDlg(ClassName + AboutStr, mtInformation, [mbOK], 0);
end;{ TPicShowComponentEditor }function TPicShowComponentEditor.GetVerbCount: Integer;
begin
  Result := 7;
end;function TPicShowComponentEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := 'About ' + Component.ClassName + '...';
    1: Result := '-';
    2: Result := 'Picture Editor...';
    3: Result := 'Background Editor...';
    4: Result := '-';
    5: if TCustomPicShow(Component).Busy then
         Result := 'Stop Transition'
       else
         Result := 'Start Transition';
    6: if TCustomPicShow(Component).Busy then
         Result := 'Can''t Clear Screen'
       else
         Result := 'Clear Screen';
  else
    Result := '';
  end;
end;procedure TPicShowComponentEditor.ExecuteVerb(Index: Integer);
begin
  case Index of
    0: ShowAboutBox(Component.ClassName);
    1: {Nothing to do};
    2: CallPropertyEditor(PictureEditor);
    3: CallPropertyEditor(BackgroundEditor);
    4: {Nothing to do};
    5: if TCustomPicShow(Component).Busy then
         TCustomPicShow(Component).Stop
       else
         TCustomPicShow(Component).Execute;
    6: if not TCustomPicShow(Component).Busy then
         TCustomPicShow(Component).Clear;
  else
    inherited ExecuteVerb(Index);
  end;
end;procedure TPicShowComponentEditor.Edit;
begin
  ExecuteVerb(2);
end;procedure TPicShowComponentEditor.CallPropertyEditor(Proc: TGetPropEditProc);
var
  {$IFDEF DELPHI6_UP}
  List: IDesignerSelections;
  {$ELSE}
  {$IFDEF DELPHI5_UP}
  List: TDesignerSelectionList;
  {$ELSE}
  List: TComponentList;
  {$ENDIF}
  {$ENDIF}
begin
  {$IFDEF DELPHI6_UP}
  List := TDesignerSelections.Create;
  {$ELSE}
  {$IFDEF DELPHI5_UP}
  List := TDesignerSelectionList.Create;
  {$ELSE}
  List := TComponentList.Create;
  {$ENDIF}
  {$ENDIF}
  try
    List.Add(Component);
    GetComponentProperties(List, [tkClass], Designer, Proc);
  finally
    {$IFNDEF DELPHI6_UP}
    List.Free;
    {$ENDIF}
  end;
end;{$IFDEF DELPHI6_UP}
procedure TPicShowComponentEditor.PictureEditor(const Prop: IProperty);
{$ELSE}
procedure TPicShowComponentEditor.PictureEditor(Prop: TPropertyEditor);
{$ENDIF}
begin
  if Prop.GetName = 'Picture' then
    Prop.Edit;
end;{$IFDEF DELPHI6_UP}
procedure TPicShowComponentEditor.BackgroundEditor(const Prop: IProperty);
{$ELSE}
procedure TPicShowComponentEditor.BackgroundEditor(Prop: TPropertyEditor);
{$ENDIF}
begin
  if Prop.GetName = 'BgPicture' then
    Prop.Edit;
end;{ TStyleNamePropertyEditor }function TStyleNamePropertyEditor.GetAttributes: TPropertyAttributes;
begin
  Result := [paMultiSelect, paValueList, paSortList, paRevertable];
end;procedure TStyleNamePropertyEditor.GetValues(Proc: TGetStrProc);
var
  Style: TShowStyle;
begin
  for Style := Low(TShowStyle) to High(TShowStyle) do
    Proc(PSTransitionNames[Style]);
end;function TStyleNamePropertyEditor.GetValue: string;
begin
  Result := GetStrValue;
end;procedure TStyleNamePropertyEditor.SetValue(const Value: string);
begin
  SetStrValue(Value);
end;{ TAboutPropertyEditor }function TAboutPropertyEditor.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog, paReadOnly, paMultiSelect];
end;function TAboutPropertyEditor.GetValue: string;
begin
  Result := '(About)'
end;procedure TAboutPropertyEditor.Edit;
begin
  ShowAboutBox(GetComponent(0).ClassName);
end;procedure Register;
begin
  RegisterComponents('Delphi Area', [TPicShow, TDBPicShow]);
  RegisterComponentEditor(TPicShow, TPicShowComponentEditor);
  RegisterPropertyEditor(TypeInfo(String), TCustomPicShow, 'StyleName', TStyleNamePropertyEditor);
  RegisterPropertyEditor(TypeInfo(TAbout), TCustomPicShow, 'About', TAboutPropertyEditor);
end;end.