Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Визуальное программирование / Cоздание _компонента_2 / BtnSound1
.pas unit BtnSound1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TWeekDay=(wdMonday, wdTuesday, wdWednesday, wdThursday,wdFriday,
wdSaturday, wdSunday);
TFrame=Set of (frTop, frBottom, frLeft, frRight);
TMyObject = class(TPersistent)
private
{ Private declarations }
FObjectNumber: integer;
FObjectAttrib: boolean;
FObjectName: string;
protected
{ Protected declarations }
public
{ Public declarations }
published
property ObjectNumber: integer read FObjectNumber write FObjectNumber;
property ObjectAttrib: boolean read FObjectAttrib write FObjectAttrib;
property ObjectName: string write FObjectName;
end;
TBtnSound1 = class(TButton)
private
{ Private declarations }
FCode: integer;
FSign: Char;
FNote: string;
FWeekday: TWeekDay;
FFrame: TFrame;
FMyCursor: TCursor;
FMyAnchors: TAnchors;
FMyObject: TMyObject;
FCode2: integer;
function GetCode2 : integer;
procedure SetCode2 (pCode2: integer);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create (AOwner: TComponent); override;
destructor Destroy; override;
property Sign: Char read FSign write FSign;
property MyAnchors: TAnchors read FMyAnchors write FMyAnchors;
published
{ Published declarations }
property Code: integer read FCode write FCode;
property Weekday: TWeekday read FWeekday write FWeekday;
property Note: string read FNote write FNote;
property MyCursor: TCursor read FMyCursor write FMyCursor;
property Frame: TFrame read FFrame write FFrame;
property MyObject: TMyObject read FMyObject write FMyObject;
property Code2: integer read GetCode2 write SetCode2;
end;
procedure Register;
implementation
constructor TBtnSound1.Create (AOwner : TComponent);
Begin
inherited;
FMyObject:= TMyObject.Create
End;
destructor TBtnSound1.Destroy;
Begin
FreeAndNil(FMyObject);
inherited;
End;
function TBtnSound1.GetCode2 : integer;
begin
If FCode2>0 Then Result:=FCode2 else Result:=0;
end;
procedure TBtnSound1.SetCode2 (pCode2: integer);
begin
If FCode2<>pCode2 then FCode2:=pCode2;
end;
procedure Register;
begin
RegisterComponents('Samples', [TBtnSound1]);
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TWeekDay=(wdMonday, wdTuesday, wdWednesday, wdThursday,wdFriday,
wdSaturday, wdSunday);
TFrame=Set of (frTop, frBottom, frLeft, frRight);
TMyObject = class(TPersistent)
private
{ Private declarations }
FObjectNumber: integer;
FObjectAttrib: boolean;
FObjectName: string;
protected
{ Protected declarations }
public
{ Public declarations }
published
property ObjectNumber: integer read FObjectNumber write FObjectNumber;
property ObjectAttrib: boolean read FObjectAttrib write FObjectAttrib;
property ObjectName: string write FObjectName;
end;
TBtnSound1 = class(TButton)
private
{ Private declarations }
FCode: integer;
FSign: Char;
FNote: string;
FWeekday: TWeekDay;
FFrame: TFrame;
FMyCursor: TCursor;
FMyAnchors: TAnchors;
FMyObject: TMyObject;
FCode2: integer;
function GetCode2 : integer;
procedure SetCode2 (pCode2: integer);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create (AOwner: TComponent); override;
destructor Destroy; override;
property Sign: Char read FSign write FSign;
property MyAnchors: TAnchors read FMyAnchors write FMyAnchors;
published
{ Published declarations }
property Code: integer read FCode write FCode;
property Weekday: TWeekday read FWeekday write FWeekday;
property Note: string read FNote write FNote;
property MyCursor: TCursor read FMyCursor write FMyCursor;
property Frame: TFrame read FFrame write FFrame;
property MyObject: TMyObject read FMyObject write FMyObject;
property Code2: integer read GetCode2 write SetCode2;
end;
procedure Register;
implementation
constructor TBtnSound1.Create (AOwner : TComponent);
Begin
inherited;
FMyObject:= TMyObject.Create
End;
destructor TBtnSound1.Destroy;
Begin
FreeAndNil(FMyObject);
inherited;
End;
function TBtnSound1.GetCode2 : integer;
begin
If FCode2>0 Then Result:=FCode2 else Result:=0;
end;
procedure TBtnSound1.SetCode2 (pCode2: integer);
begin
If FCode2<>pCode2 then FCode2:=pCode2;
end;
procedure Register;
begin
RegisterComponents('Samples', [TBtnSound1]);
end;
end.