DELPHI / Open Source Ahmdialogs

Türkçe Mirc , type
TAHMAboutDlgsStr = String[30];
TAHMExecDlgStr = String[30];
TAHMBeeptype = (bNone,bDefault,bAsterix,bExclamation,bQuestion,bCriticalStop);
TAHMDialogComponent = class(TComponent)
private
FBeepType : TAHMBeeptype;
FAHMAboutStr : TAHMAboutDlgsStr;
FAHMExecDlgStr : TAHMExecDlgStr;
protected
public
Function Execute : Boolean; virtual;
published
property About : TAHMAboutDlgsStr read FAHMAboutStr write FAHMAboutStr stored False;
property DesignExecute : TAHMExecDlgStr read FAHMExecDlgStr write FAHMExecDlgStr stored False;
Property Sound : TAHMBeeptype read FBeepType write FBeepType default bNone;
end;
TAHMAdvDialogComponent = class(TAHMDialogComponent)
private
FFormCaption : String;
FWidth, FHeight : Integer;
FFormLeft, FFormTop : Integer;
FPosition : TPosition;
FBorderStyle : TFormBorderStyle;
FHelpContext : THelpContext;
FHelpFile : String;
protected
public
procedure SetFormProperties(AForm : TForm);
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
published
property FormCaption : String read FFormCaption write FFormCaption;
property FormWidth : Integer read FWidth write FWidth default 500;
property FormHeight : Integer read FHeight write FHeight default 350;
property Position : TPosition read FPosition write FPosition default poDesigned;
property FormTop : Integer read FFormTop write FFormTop default 0;
property FormLeft : Integer read FFormLeft write FFormLeft default 0;
property HelpContext : THelpContext read FHelpContext write FHelpContext default 0;
property Helpfile : String read FHelpFile write FHelpFile;
prop

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir