rsgimagelist.pas

p2pdbanywhere 可以通过之udp方式远程连接数据库的组件,这个组件非常好,是Delphi7,9,2006能够使用,包含源码.

unit RsgImageList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,ExtDlgs;

type
  TRsgImageList = class(TComponent)
  private
    { Private declarations }
    FOverPict: TPicture;
    FDownPict: TPicture;
    FUpPict:   TPicture;
    FDisPict:  TPicture;
    procedure SetOverPict(Value: TPicture);
    procedure SetDownPict(Value: TPicture);
    procedure SetUpPict(Value: TPicture);
    procedure SetDisPict(Value: TPicture);
  public
    { Public declarations }
    destructor Destroy; override;
    constructor Create(AOwner: TComponent); override;      
  published
    { Published declarations }
    property picover: TPicture read FOverPict write SetOverPict;
    property picdown: TPicture read FDownPict write SetDownPict;
    property picup: TPicture read FUpPict write SetUpPict;
    property picdis: TPicture read FDisPict write SetDisPict;
  end;

procedure Register;

implementation
 
procedure Register;
begin
  RegisterComponents('DbAnyWhere', [TRsgImageList]);
end;

constructor TRsgImageList.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FOverPict:= TPicture.Create;
  FDownPict:= TPicture.Create;
  FUpPict := TPicture.Create;
  FDisPict := TPicture.Create;
end;
procedure TRsgImageList.SetOverPict(Value: TPicture);
begin
  FOverPict.Assign(Value);
end;

procedure TRsgImageList.SetDownPict(Value: TPicture);
begin
  FDownPict.Assign(Value);
end;

procedure TRsgImageList.SetDisPict(Value: TPicture);
begin
  FDisPict.Assign(Value);
end;

procedure TRsgImageList.SetUpPict(Value: TPicture);
begin
  FUpPict.Assign(Value);
end;
destructor TRsgImageList.Destroy;
begin
  FOverPict.Free;
  FDownPict.Free;
  FUpPict.Free;
  FDisPict.Free;
  inherited Destroy;
end;

end.