Apus.Engine.UIScript.pas

// This unit published all UI elements so makes them accessible from scripts
//
// Copyright (C) 2020 Ivan Polyacov, Apus Software (ivan@apus-software.com)
// This file is licensed under the terms of BSD-3 license (see license.txt)
// This file is a part of the Apus Game Engine (http://apus-software.com/engine/)
unit Apus.Engine.UIScript;
interface
uses Apus.Core, Apus.Publics;

 function GetVarTypeFor(typeName:string8):TVarClass;

implementation
uses SysUtils, Apus.EventMan, Apus.Engine.CmdProc, Apus.Engine.Types,
   Apus.Engine.API, Apus.Engine.UI, Apus.Engine.UIWidgets, Apus.Engine.UITypes,
   Apus.Engine.UIShapes, Apus.Engine.UIRender, Apus.Geom2d,
  Apus.Conv,
  Apus.Strings,
  Apus.Threads;

type
 TDefaults=record
  parentObj:TUIElement; // parent element used for creating new elements
  x,y,width,height,hintDelay,hintDuration:integer;
  color,backgnd:cardinal;
  font,style,cursor:integer;
  caption:string8;
  align:TTextAlignment;
 end;
// TVarType=(vtNone,vtInt,vtByte,vtStr,vtBool,vtSendSignals,vtAlignment,vtBtnStyle,vtTranspMode);

 TVarTypeAlignment=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeUIElement=class(TVarTypeStruct)
  class function GetValue(variable:pointer):string8; override;
  class function GetField(variable:pointer;fieldName:string8;out varClass:TVarClass):pointer; override;
  class function ListFields:string8; override;
 end;

 TVarTypeStyleInfo=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeClientWidth=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeElements=class(TVarType) // array of TUIElement
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeClientHeight=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeElementColor=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeElementFont=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeElementScale=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeElementName=class(TVarType)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeTranspMode=class(TVarTypeEnum)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypeSendSignals=class(TVarTypeEnum)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;

 TVarTypePivot=class(TVarTypeEnum)
  class procedure SetValue(variable:pointer;v:string8); override;
  class function GetValue(variable:pointer):string8; override;
 end;


var
 defaults:TDefaults; // default values used when new element is created
 curobjname:string8; // current element name in upper case

procedure onItemCreated(event:TEventStr;tag:TTag);
var
 c:TUIElement;
begin
 c:=TUIElement(tag);
 if (c.name<>'') and (c.name[1]<>'_') then // elements named '_XXX' aren't published, their names don't have to be unique
  PublishVar(c,c.name,TVarTypeUIElement);
end;

procedure onItemRenamed(event:TEventStr;tag:TTag);
var
 c:TUIElement;
begin
 c:=TUIElement(tag);
 UnpublishVar(c);
 if c.name<>'' then
  PublishVar(c,c.name,TVarTypeUIElement);
end;

procedure UseParentCmd(cmd:string8);
 var
  c:TUIElement;
 begin
  window.LockState;
  try
  delete(cmd,1,10);
  cmd:=UpperCase {TODO: use st.ToUpper}(cmd);
  if (defaults.parentObj<>nil) and (UpperCase {TODO: use st.ToUpper}(defaults.parentObj.name)=cmd) then exit;
  c:=FindElement(cmd,false);
  if c=nil then
   raise EWarning.Create('Object not found - '+cmd);
  defaults.parentObj:=c;
  finally
   window.UnlockState;
  end;
 end;

procedure SetFocusCmd(cmd:string8);
 var
  c:TUIElement;
 begin
  window.LockState;
  try
   if length(cmd)=8 then c:=curobj
   else begin
    if cmd[length(cmd)-8]<>'.' then
     raise EError.Create('Syntax error, object not specified!');
    setLength(cmd,length(cmd)-9);
    c:=FindElement(cmd,false);
   end;
   if c=nil then raise EError.Create('No object!');
   if not c.flags.canHaveFocus then raise EError.Create('This object can''t have focus!');
   c.SetFocus;
  finally
   window.UnlockState;
  end;
 end;

procedure CreateCmd(cmd:string8);
 var
  sa:Strings8;
  c:TUIElement;
 begin
  window.LockState;
  try
   if defaults.parentObj=nil then raise EError.Create('No object selected, use "UseParent" to select parent object first!');
   delete(cmd,1,7);
   sa:=cmd.Split(' ','"');
   if length(sa)<>2 then raise EError.Create('Must have 2 parameters');
   sa[0]:=sa[0].Trim.ToUpper;
   c:=FindElement(sa[1],false);
   if c<>nil then begin
    curObj:=c;
    curObjClass:=TVarTypeUIElement;
    curObjName:=UpperCase {TODO: use st.ToUpper}(c.name);
    exit;
   end;
   with defaults do begin
    if sa[0]='UIBUTTON' then c:=TUIButton.Create(width,height,parentobj,sa[1]).Setup(caption) else
    if sa[0]='UITOGGLEBUTTON' then c:=TUIToggleButton.Create(width,height,parentobj,sa[1]).Setup(caption) else
    if sa[0]='UIIMAGE' then c:=TUIImage.Create(width,height,parentobj,sa[1]) else
    if sa[0]='UIEDITBOX' then c:=TUIEditBox.Create(width,height,parentobj,sa[1]) else
    if sa[0]='UILABEL' then begin
     c:=TUILabel.Create(width,height,parentobj,sa[1]).Setup(caption);
     (c as TUILabel).align:=align;
     c.shape:=shapeEmpty;
    end else
    if sa[0]='UICONTROL' then begin
     c:=TUIElement.Create(width,height,parentobj,sa[1]);
    end else
    if sa[0]='UILISTBOX' then c:=TUIListBox.Create(width,height,parentobj,sa[1],20) else
    if sa[0]='UICOMBOBOX' then c:=TUIComboBox.Create(width,height,parentobj,sa[1]);


    if c=nil then raise EError.Create('Unknown class - '+sa[0]);
    // ���. ��-��
    if style<>0 then c.drawer:=GetUIStyle(style);
    if cursor<>0 then c.cursor:=cursor;
    if HintDelay<>0 then c.attributes.Item['hintDelay']:=Conv.ToStr(hintDelay);
    if HintDuration<>0 then c.attributes.Item['hintDuration']:=Conv.ToStr(hintDuration);
   end;
   curobj:=c;
   curObjClass:=TVarTypeUIElement;
   curobjname:=c.name;
  finally
   window.UnlockState;
  end;
 end;

function StrToAlign(s:string8):TTextAlignment;
 begin
  s:=s.ToUpper;
  result:=taLeft;
  if s='RIGHT' then result:=taRight;
  if s='CENTER' then result:=taCenter;
  if s='JUSTIFY' then result:=taJustify;
 end;

function EvalInt(st:string8):int64;
 begin
  result:=round(EvalFloat(st,nil,curObj,curObjClass));
 end;

{$IFDEF FPC}{$PUSH}{$R-}{$ENDIF}
procedure DefaultCmd(cmd:string8);
 var
  sa:Strings8;
 begin
   delete(cmd,1,7);
   sa:=cmd.Split(' ','"');
   sa[0]:=UpperCase {TODO: use st.ToUpper}(sa[0]);
   if sa[0]='X' then defaults.X:=EvalInt(sa[1]) else
   if sa[0]='Y' then defaults.Y:=EvalInt(sa[1]) else
   if sa[0]='WIDTH' then defaults.Width:=EvalInt(sa[1]) else
   if sa[0]='HEIGHT' then defaults.Height:=EvalInt(sa[1]) else
   if sa[0]='HINTDELAY' then defaults.hintDelay:=EvalInt(sa[1]) else
   if sa[0]='HINTDURATION' then defaults.hintDuration:=EvalInt(sa[1]) else
   if sa[0]='COLOR' then defaults.Color:=EvalInt(sa[1]) else
   if sa[0]='BACKGND' then defaults.Backgnd:=EvalInt(sa[1]) else
   if sa[0]='FONT' then defaults.Font:=EvalInt(sa[1]) else
   if sa[0]='CURSOR' then defaults.Cursor:=EvalInt(sa[1]) else
   if sa[0]='STYLE' then defaults.Style:=EvalInt(sa[1]) else
   if sa[0]='CAPTION' then defaults.caption:=sa[1] else
   if sa[0]='ALIGN' then defaults.align:=StrToAlign(sa[1]) else
    raise EWarning.Create('Incorrect command - '+cmd);
 end;
{$IFDEF FPC}{$POP}{$ENDIF}

procedure SetHotKeyCmd(cmd:string8);
 var
  key,shift:byte;
  v,i,d:integer;
  sa:Strings8;
  obj:TUIElement;
 begin
  window.LockState;
  try
   delete(cmd,1,10);
   cmd:=UpperCase {TODO: use st.ToUpper}(cmd);
   obj:=curobj;
   if (obj=nil) or not (obj is TUIElement) then raise EWarning.Create('No UI object selected');
   sa:=cmd.Split('+',#0);
   v:=0;
   for i:=0 to length(sa)-1 do begin
    if sa[i]='ENTER' then d:=13 else
    if sa[i]='SPACE' then d:=32 else
    if sa[i]='ESC' then d:=27 else
    if sa[i]='SHIFT' then d:=$100 else
    if sa[i]='CTRL' then d:=$200 else
    if sa[i]='ALT' then d:=$400 else
     d:=StrToInt(sa[i]);
    v:=v+d;
   end;
   if v=0 then obj.RemoveHotKey(0,0)
   else begin
    key:=v and 255;
    shift:=v shr 8;
    obj.SetHotKey(key,shift);
   end;
  finally
   window.UnlockState;
  end;
 end;


{ TVarTypeUIControl }

class function TVarTypeUIElement.GetField(variable: pointer; fieldName: string8;
  out varClass: TVarClass): pointer;
var
 obj:TUIElement;
 p,index:integer;
begin
 obj:=variable;
 ASSERT(fieldName<>'');
 result:=nil;
 varClass:=nil;
 index:=-1; // not indexed
 if fieldname[high(fieldname)]=']' then begin // indexed element?
  p:=pos('[',fieldname);
  if p>0 then begin
   index:=Conv.ToInt(copy(fieldname,p+1,100));
   SetLength(fieldname,p-1);
  end;
 end;

 case fieldname[1] of
  'a':if (fieldname='align') and (obj is TUILabel) then begin
       result:=@TUILabel(obj).align; varClass:=TVarTypeAlignment;
      end else
      if (fieldname='anchors') then begin
       result:=@obj.anchors; varClass:=TVarTypeRect2s;
      end else
      if (fieldname='autopendingtime') and (obj is TUIButton) then begin
       result:=@TUIButton(obj).autopendingtime; varClass:=TVarTypeInteger;
      end;
  'c':if fieldname='canhavefocus' then begin
       result:=@obj.flags.canHaveFocus;
       varClass:=TVarTypeBool;
      end else
      if fieldname='color' then begin
       result:=obj;
       varClass:=TVarTypeElementColor;
      end else
      if fieldname='caption' then begin
       result:=@obj.caption;
       varClass:=TVarTypeString;
      end else
      if fieldname='cursor' then begin
       result:=@obj.cursor; varClass:=TVarTypeInteger;
      end else
      if fieldname='clipchildren' then begin
       result:=@obj.flags.dontClipChildren; varClass:=TVarTypeBool;
      end else
      if fieldname='customdraw' then begin
       result:=@obj.flags.manualDraw; varClass:=TVarTypeBool;
      end else
      if fieldname='clientwidth' then begin
       result:=obj;
       varClass:=TVarTypeClientWidth;
      end else
      if fieldname='clientheight' then begin
       result:=obj;
       varClass:=TVarTypeClientHeight;
      end else
      if fieldname='children' then begin
       if index>=0 then begin
        if index>high(obj.children) then
         raise EWarning.Create(Format('Index %d out of range %d',[index,high(obj.children)]));
        result:=obj.children[index];
        varClass:=TVarTypeUIElement;
       end else begin
        result:=@obj.children;
        varClass:=TVarTypeElements;
       end;
      end;
  'd':if (fieldname='default') and (obj is TUIButton) then begin
       result:=@TUIButton(obj).default; varClass:=TVarTypeBool;
      end;
  'e':if fieldname='enabled' then begin
       result:=@obj.flags.enabled; varClass:=TVarTypeBool;
      end;
  'f':if fieldname='font' then begin
       result:=obj;
       varClass:=TVarTypeElementFont;
      end;
  'g':if false then begin end else // group field removed (radio behavior via parent TUIGroupBox)
      if fieldname='globalrect' then begin
       result:=@obj.globalRect; varClass:=TVarTypeRect;
      end else
      if fieldname='globalscale' then begin
       result:=obj; varClass:=TVarTypeElementScale;
      end;
  'h':if fieldname='height' then begin
       result:=@obj.size.y; varClass:=TVarTypeSingle;
      end else
      if fieldname='hint' then begin
       result:=@obj.hint; varClass:=TVarTypeString;
      end else
      if false then begin end; // hintifdisabled/hintdelay/hintduration moved to element.attributes
  'l':if (fieldname='lineheight') and (obj is TUIListBox) then begin
       varClass:=TVarTypeInteger; result:=@TUIListBox(obj).lineHeight;
      end;
  'm':if (fieldname='maxlength') and (obj is TUIEditBox) then begin
       varClass:=TVarTypeInteger; result:=@TUIEditBox(obj).maxlength;
      end else
      if (fieldname='min') and (obj is TUIScrollBar) then begin
       varClass:=TVarTypeInteger; result:=@TUIScrollBar(obj).min;
      end else
      if (fieldname='max') and (obj is TUIScrollBar) then begin
       varClass:=TVarTypeInteger; result:=@TUIScrollBar(obj).max;
      end;
  'n':if fieldname='name' then begin
       result:=obj; varClass:=TVarTypeElementName;
      end else
      if false then begin end; // noborder removed from TUIEditBox
  'o':if fieldname='order' then begin
       result:=@obj.order; varClass:=TVarTypeInteger;
      end;
  'p':if fieldname='parentclip' then begin
       result:=@obj.flags.noParentClip; varClass:=TVarTypeBool;
      end else
      if fieldname='parent' then begin
       result:=obj.parent; varClass:=TVarTypeUIElement;
      end else
      if fieldname='pivot' then begin
       result:=@obj.pivot; varClass:=TVarTypePivot;
      end else
      if (fieldname='pressed') and (obj is TUIButton) then begin
       result:=@TUIButton(obj).pressed; varClass:=TVarTypeBool;
      end else
      if (fieldname='pending') and (obj is TUIButton) then begin
       result:=@TUIButton(obj).pending; varClass:=TVarTypeBool;
      end else
      if (fieldname='password') and (obj is TUIEditBox) then begin
       result:=@TUIEditBox(obj).password; varClass:=TVarTypeBool;
      end else
      if fieldname='paddingleft' then begin
       result:=@obj.padding.Left; varClass:=TVarTypeSingle;
      end else
      if fieldname='paddingright' then begin
       result:=@obj.padding.right; varClass:=TVarTypeSingle;
      end else
      if fieldname='paddingtop' then begin
       result:=@obj.padding.top; varClass:=TVarTypeSingle;
      end else
      if fieldname='paddingbottom' then begin
       result:=@obj.padding.bottom; varClass:=TVarTypeSingle;
      end else
      if (fieldname='pagesize') and (obj is TUIScrollBar) then begin
       varClass:=TVarTypeInteger; result:=@TUIScrollBar(obj).pagesize;
      end;
  's':if fieldname='styleinfo' then begin
       result:=obj; varClass:=TVarTypeStyleinfo;
      end else
      if fieldname='scale' then begin
       result:=@obj.scale; varClass:=TVarTypeSingle;
      end else
      if fieldname='signals' then begin
       result:=@obj.sendsignals; varClass:=TVarTypeSendSignals;
      end else
      if (fieldname='src') and (obj is TUIImage) then begin
       result:=@TUIImage(obj).src; varClass:=TVarTypeString;
      end;
  't':if fieldname='transpmode' then begin
       result:=@obj.shape; varClass:=TVarTypeTranspMode;
      end else
      if (fieldname='text') and (obj is TUIEditBox) then begin
       varClass:=TVarTypeWideString; result:=@TUIEditBox(obj).realtext;
      end else
      if (fieldname='topofs') and (obj is TUILabel) then begin
       varClass:=TVarTypeInteger; result:=@TUILabel(obj).verticalOffset;
      end;
  'v':if fieldname='visible' then begin
       result:=@obj.flags.visible; varClass:=TVarTypeBool;
{      end else
      if (fieldname='value') and (obj is TUIScrollBar) then begin
       varClass:=TVarTypeInteger; result:=@TUIScrollBar(obj).value;}
      end;
  'w':if fieldname='width' then begin
       result:=@obj.size.x; varClass:=TVarTypeSingle;
      end;
  'x':if fieldname='x' then begin
       result:=@obj.position.x; varClass:=TVarTypeSingle;
      end;
  'y':if fieldname='y' then begin
       result:=@obj.position.y; varClass:=TVarTypeSingle;
      end;
 end;
end;

class function TVarTypeUIElement.GetValue(variable: pointer): string8;
begin
 result:=TUIElement(variable).ClassName+inherited;
end;

class function TVarTypeUIElement.ListFields: string8;
begin
 result:='name,x,y,width,height,scale,visible,enabled';
end;

class procedure TVarTypeTranspMode.SetValue(variable:pointer;v:string8);
 begin
  v:=lowercase {TODO: use st.ToLower}(v);
  if v='transparent' then TUIShape(variable^):=shapeEmpty else
  if v='opaque' then TUIShape(variable^):=shapeFull else
  raise EWarning.Create('Unknown transparency mode: '+v);
 end;
class function TVarTypeTranspMode.GetValue(variable:pointer):string8;
 var sh:TUIShape;
 begin
  sh:=TUIShape(variable^);
  if sh=shapeEmpty then result:='transparent' else
  if sh=shapeFull then result:='opaque' else
  result:='custom';
 end;

class procedure TVarTypeSendSignals.SetValue(variable:pointer;v:string8);
 begin
  v:=lowercase {TODO: use st.ToLower}(v);
  if v='major' then TSendSignals(variable^):=ssMajor else
  if v='all' then TSendSignals(variable^):=ssAll else
  if v='none' then TSendSignals(variable^):=ssNone else
  raise EWarning.Create('Unknown SendSignals mode: '+v);
 end;
class function TVarTypeSendSignals.GetValue(variable:pointer):string8;
 begin
  case TSendSignals(variable^) of
   ssMajor:result:='major';
   ssAll:result:='all';
   ssNone:result:='none';
  end;
 end;

{ TVarTypePivot }

class function TVarTypePivot.GetValue(variable: pointer): string8;
 var
  p:TVec2;
 begin
  p:=TVec2(variable^);
  result:=Format('(%.2f,%.2f)',[p.x,p.y]);
 end;

class procedure TVarTypePivot.SetValue(variable: pointer; v: string8);
 begin
  if SameText(v,'Center') then TVec2(variable^):=pivotCenter else
  if SameText(v,'TopLeft') then TVec2(variable^):=pivotTopLeft else
  if SameText(v,'TopRight') then TVec2(variable^):=pivotTopRight else
  if SameText(v,'BottomLeft') then TVec2(variable^):=pivotBottomLeft else
  if SameText(v,'BottomRight') then TVec2(variable^):=pivotBottomRight else
  raise EWarning.Create('Invalid pivot value: '+v);
 end;

{ TVarTypeStyleinfo }

class function TVarTypeStyleinfo.GetValue(variable:pointer):string8;
 begin
  result:=TUIElement(variable).styleInfo;
 end;

class procedure TVarTypeStyleinfo.SetValue(variable:pointer; v:string8);
 begin
  TUIElement(variable).styleInfo:=v;
 end;

{ TVarTypeElementFont }

class function TVarTypeElementFont.GetValue(variable:pointer):string8;
 begin
  result:=TUIElement(variable).GetStyleValue('font','');
 end;

class procedure TVarTypeElementFont.SetValue(variable:pointer; v:string8);
 begin
  // font is now style-based; set via element.style.SetAttr('font','name') + 'font-size'
 end;

{ TVarTypeAlignment }

class function TVarTypeAlignment.GetValue(variable:pointer):string8;
 var
  a:TTextAlignment;
 begin
  a:=TTextAlignment(variable^);
  case a of
   taLeft:result:='Left';
   taRight:result:='Right';
   taCenter:result:='Center';
   taJustify:result:='Justify';
  end;
 end;

class procedure TVarTypeAlignment.SetValue(variable:pointer; v:string8);
 var
  a:^TTextAlignment;
 begin
  a:=variable;
  a^:=StrToAlign(v);
 end;

function GetVarTypeFor(typeName:string8):TVarClass;
 begin
   result:=nil;
   if SameText(typeName,'TTextAlignment') then result:=TVarTypeAlignment
   else
   if SameText(typeName,'TUIElement') then result:=TVarTypeUIElement;
 end;

{ TVarTypeElementName }

class function TVarTypeElementName.GetValue(variable:pointer):string8;
 begin
  result:=''''+TUIElement(variable).name+'''';
 end;

class procedure TVarTypeElementName.SetValue(variable:pointer;v:string8);
 begin
  TUIElement(variable).name:=v;
 end;

{ TVarTypeObjColor }

class function TVarTypeElementColor.GetValue(variable:pointer):string8;
 begin
  result:='$'+IntToHex(TUIElement(variable).GetStyleColor('color',0),8);
 end;

class procedure TVarTypeElementColor.SetValue(variable:pointer;v:string8);
 begin
  TUIElement(variable).style.SetAttr('color','$'+v);
 end;

{ TVarTypeElementScale }

class function TVarTypeElementScale.GetValue(variable: pointer): string8;
 begin
  result:=FloatToStr(TUIElement(variable).globalScale);
 end;

class procedure TVarTypeElementScale.SetValue(variable: pointer; v: string8);
 begin
  raise EWarning.Create('GlobalScale is a read-only property');
 end;

{ TVarTypeClientWidth }

class function TVarTypeClientWidth.GetValue(variable: pointer): string8;
 begin
  result:=FloatToStr(TUIElement(variable).clientWidth);
 end;

class procedure TVarTypeClientWidth.SetValue(variable: pointer; v: string8);
 begin
  raise EWarning.Create('ClientWidth is a read-only property');
 end;

{ TVarTypeClientHeight }

class function TVarTypeClientHeight.GetValue(variable: pointer):string8;
 begin
  result:=FloatToStr(TUIElement(variable).clientWidth);
 end;

class procedure TVarTypeClientHeight.SetValue(variable: pointer; v: string8);
 begin
  raise EWarning.Create('ClientHeight is a read-only property');
 end;

{ TVarTypeElements }

class function TVarTypeElements.GetValue(variable: pointer):string8;
 var
  list:^TUIElements;
  i:integer;
 begin
  list:=variable;
  for i:=0 to high(list^) do begin
   if result<>'' then result:=result+', ';
   result:=result+Format('%d:%s(''%s'')',[i,list^[i].className,list^[i].name]);
  end;
  result:='['+result+']';
 end;

class procedure TVarTypeElements.SetValue(variable: pointer; v: string8);
 begin
  raise EWarning.Create('TUIElements is a read-only type');
 end;

initialization
 SetEventHandler('UI\ItemCreated',onItemCreated,emInstant);
 SetEventHandler('UI\ItemRenamed',onItemRenamed,emInstant);
 SetCmdFunc('USEPARENT ',opFirst,UseParentCmd);
 SetCmdFunc('CREATE ',opFirst,CreateCmd);
 SetCmdFunc('DEFAULT',opFirst,DefaultCmd);
 SetCmdFunc('SETFOCUS',opLast,SetFocusCmd);
 SetCmdFunc('SETHOTKEY',opFirst,setHotKeyCmd);
 with defaults do begin
  x:=0; y:=0; width:=100; height:=20;
  color:=$FFFFFFFF; backgnd:=$80000000;
  style:=0; cursor:=CursorID.Default; font:=1;
  caption:='';
  hintDelay:=0; hintDuration:=0;
 end;

finalization

end.