各位bcb弟兄,能否把下列的pas源程序表达为bcb,100分
unit uasglink;
interface
uses
windows,classes,controls,stdctrls,graphics,forms,sysutils,
moneyedit,advedit,clisted,advgrid,colorcombo;
type
TAdvEditEditLink = class(TEditLink)
private
fEdit:TAdvEdit;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
function GetEditControl:TWinControl; override;
end;
TColorComboEditLink = class(TEditLink)
private
fEdit:TColorComboBox;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
procedure SetRect(r:trect); override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
function GetEditControl:TWinControl; override;
end;
TMemoEditLink = class(TEditLink)
private
fEdit:TMemo;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
function GetEditControl:TWinControl; override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
end;
TMoneyEditLink = class(TEditLink)
private
fEdit:TMoneyEdit;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
function GetEditControl:TWinControl; override;
end;
TCheckEditLink = class(TEditLink)
private
fEdit:TCheckListEdit;
protected
procedure EditExit(sender:TObject);
public
procedure CreateEditor(aParent:TWinCo