Innerfuse Pascal Script
Back to Libraries
ifsctrlstd
procedure RegisterStdControlsLibrary(p: TIfPasScript);
This function will register some standard controls.
Before registering this, you must also register the forms library.
`type
TMemo = class(TControl)
private
function GetText: string;
procedure SetText(S: String);
function GetReadonly: Boolean;
procedure SetReadonly(B: Boolean);
public
Constructor Create(AParent: TControl);
property Text: string read GetText write SetText;
property readonly: Boolean read GetReadonly write SetReadonly;
end;
TButton = class(TControl)
private
function GetDefault: Boolean;
procedure SetDefault(b: Boolean);
function GetCancel: Boolean;
procedure SetCancel(b: Boolean);
function GetCaption: string;
procedure SetCaption(s: string);
public
Constructor Create(AParent: TControl);
property Caption: string read GetCaption write SetCaption;
property Cancel: Boolean read GetCancel write SetCancel;
property Default: Boolean read GetDefault write SetDefault;
end;
TEdit = class(TControl)
private
function GetReadonly: Boolean;
procedure SetReadonly(B: Boolean);
funtion GetText: string;
procedure SetText(s: string);
public
constructor Create(AParent: TControl);
property Text: string read GetText write SetText;
property readonly: Boolean read GetReadonly write SetReadonly;
end;
TLabel = class(TControl)
private
function GetCaption: string;
procedure SetCaption(s: string);
public
constructory Create(Aparent: TControl);
property Caption: string read GetCaption write SetCaption;
end;
`
Copyright (c) 2001 by Carlo Kok
last update: 24-11-01