jvinterpreter_jveditor.pas

East make Tray Icon in delphi

begin
  TJvCustomEditor(Args.Obj).Rows := Value;
end;

{ property Read CaretX: Integer }

procedure TRACustomEditor_Read_CaretX(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).CaretX;
end;

{ property Write CaretX(Value: Integer) }

procedure TRACustomEditor_Write_CaretX(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).CaretX := Value;
end;

{ property Read CaretY: Integer }

procedure TRACustomEditor_Read_CaretY(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).CaretY;
end;

{ property Write CaretY(Value: Integer) }

procedure TRACustomEditor_Write_CaretY(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).CaretY := Value;
end;

{ property Read Modified: Boolean }

procedure TRACustomEditor_Read_Modified(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).Modified;
end;

{ property Write Modified(Value: Boolean) }

procedure TRACustomEditor_Write_Modified(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).Modified := Value;
end;

{ property Read SelStart: Integer }

procedure TRACustomEditor_Read_SelStart(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).SelStart;
end;

{ property Write SelStart(Value: Integer) }

procedure TRACustomEditor_Write_SelStart(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).SelStart := Value;
end;

{ property Read SelLength: Integer }

procedure TRACustomEditor_Read_SelLength(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).SelLength;
end;

{ property Write SelLength(Value: Integer) }

procedure TRACustomEditor_Write_SelLength(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).SelLength := Value;
end;

{ property Read SelText: string }

procedure TRACustomEditor_Read_SelText(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).SelText;
end;

{ property Write SelText(Value: string) }

procedure TRACustomEditor_Write_SelText(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).SelText := Value;
end;

(*
{ property Read BookMarks: TBookMarks }
procedure TRACustomEditor_Read_BookMarks(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).BookMarks;
end;
*)

{ property Read Keyboard: TJvKeyboard  }

procedure TRACustomEditor_Read_Keyboard(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TJvCustomEditor(Args.Obj).Keyboard);
end;

(*
{ property Read CellRect: TCellRect }
procedure TRACustomEditor_Read_CellRect(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).CellRect;
end;
*)

{ property Read UndoBuffer: TUndoBuffer }

procedure TRACustomEditor_Read_UndoBuffer(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TJvCustomEditor(Args.Obj).UndoBuffer);
end;

{ property Read Recording: Boolean }

procedure TRACustomEditor_Read_Recording(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).Recording;
end;

procedure TRACustomEditor_Read_BookMarkX(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).BookMarks[Integer(Args.Values[0])].X;
end;

procedure TRACustomEditor_Read_BookMarkY(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).BookMarks[Integer(Args.Values[0])].Y;
end;

procedure TRACustomEditor_Read_BookMarkValid(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TJvCustomEditor(Args.Obj).BookMarks[Integer(Args.Values[0])].Valid;
end;

procedure TRACustomEditor_Write_BookMarkX(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).BookMarks[Integer(Args.Values[0])].X := Value;
end;

procedure TRACustomEditor_Write_BookMarkY(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).BookMarks[Integer(Args.Values[0])].Y := Value;
end;

procedure TRACustomEditor_Write_BookMarkValid(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TJvCustomEditor(Args.Obj).BookMarks[Integer(Args.Values[0])].Valid := Value;
end;

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter);
const
  cJvEditor = 'JvEditor';
begin
  with JvInterpreterAdapter do
  begin
    { TModifiedAction }
    AddConst(cJvEditor, 'maInsert', Ord(maInsert));
    AddConst(cJvEditor, 'maDelete', Ord(maDelete));
    { TJvKeyboard  }
    AddClass(cJvEditor, TJvKeyboard, 'TJvKeyboard ');
    AddGet(TJvKeyboard, 'Create', TKeyboard_Create, 0, [varEmpty], varEmpty);
    AddGet(TJvKeyboard, 'Add', TKeyboard_Add, 3, [varEmpty, varEmpty, varEmpty], varEmpty);
    AddGet(TJvKeyboard, 'Add2', TKeyboard_Add2, 5, [varEmpty, varEmpty, varEmpty, varEmpty, varEmpty], varEmpty);
    AddGet(TJvKeyboard, 'Clear', TKeyboard_Clear, 0, [varEmpty], varEmpty);
    AddGet(TJvKeyboard, 'SetDefLayout', TKeyboard_SetDefLayout, 0, [varEmpty], varEmpty);
    { EJvEditorError  }
    AddClass(cJvEditor, EJvEditorError, 'EJvEditorError ');
    { TTabStop }
//    AddConst(cJvEditor, 'tsTabStop', Ord(tsTabStop));
//    AddConst(cJvEditor, 'tsAutoIndent', Ord(tsAutoIndent));
    { TJvCustomEditor }
    AddClass(cJvEditor, TJvCustomEditor, 'TJvCustomEditor');
    AddGet(TJvCustomEditor, 'Create', TRACustomEditor_Create, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'SetLeftTop', TRACustomEditor_SetLeftTop, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'ClipBoardCopy', TRACustomEditor_ClipBoardCopy, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'ClipBoardPaste', TRACustomEditor_ClipBoardPaste, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'ClipBoardCut', TRACustomEditor_ClipBoardCut, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'DeleteSelected', TRACustomEditor_DeleteSelected, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'CalcCellRect', TRACustomEditor_CalcCellRect, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'SetCaret', TRACustomEditor_SetCaret, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'CaretFromPos', TRACustomEditor_CaretFromPos, 3, [varEmpty, varByRef, varByRef], varEmpty);
    AddGet(TJvCustomEditor, 'PosFromCaret', TRACustomEditor_PosFromCaret, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'PaintCaret', TRACustomEditor_PaintCaret, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'GetTextLen', TRACustomEditor_GetTextLen, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'GetSelText', TRACustomEditor_GetSelText, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'SetSelText', TRACustomEditor_SetSelText, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'GetWordOnCaret', TRACustomEditor_GetWordOnCaret, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'BeginUpdate', TRACustomEditor_BeginUpdate, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'EndUpdate', TRACustomEditor_EndUpdate, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'MakeRowVisible', TRACustomEditor_MakeRowVisible, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'Command', TRACustomEditor_Command, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'PostCommand', TRACustomEditor_PostCommand, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'InsertText', TRACustomEditor_InsertText, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'ReplaceWord', TRACustomEditor_ReplaceWord, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'ReplaceWord2', TRACustomEditor_ReplaceWord2, 1, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'BeginCompound', TRACustomEditor_BeginCompound, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'EndCompound', TRACustomEditor_EndCompound, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'LeftCol', TRACustomEditor_Read_LeftCol, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'TopRow', TRACustomEditor_Read_TopRow, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'VisibleColCount', TRACustomEditor_Read_VisibleColCount, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'VisibleRowCount', TRACustomEditor_Read_VisibleRowCount, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'LastVisibleCol', TRACustomEditor_Read_LastVisibleCol, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'LastVisibleRow', TRACustomEditor_Read_LastVisibleRow, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'Cols', TRACustomEditor_Read_Cols, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'Cols', TRACustomEditor_Write_Cols, 0, [varEmpty]);
    AddGet(TJvCustomEditor, 'Rows', TRACustomEditor_Read_Rows, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'Rows', TRACustomEditor_Write_Rows, 0, [varEmpty]);
    AddGet(TJvCustomEditor, 'CaretX', TRACustomEditor_Read_CaretX, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'CaretX', TRACustomEditor_Write_CaretX, 0, [varEmpty]);
    AddGet(TJvCustomEditor, 'CaretY', TRACustomEditor_Read_CaretY, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'CaretY', TRACustomEditor_Write_CaretY, 0, [varEmpty]);
    AddGet(TJvCustomEditor, 'Modified', TRACustomEditor_Read_Modified, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'Modified', TRACustomEditor_Write_Modified, 0, [varEmpty]);
    AddGet(TJvCustomEditor, 'SelStart', TRACustomEditor_Read_SelStart, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'SelStart', TRACustomEditor_Write_SelStart, 0, [varEmpty]);
    AddGet(TJvCustomEditor, 'SelLength', TRACustomEditor_Read_SelLength, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'SelLength', TRACustomEditor_Write_SelLength, 0, [varEmpty]);
    AddGet(TJvCustomEditor, 'SelText', TRACustomEditor_Read_SelText, 0, [varEmpty], varEmpty);
    AddSet(TJvCustomEditor, 'SelText', TRACustomEditor_Write_SelText, 0, [varEmpty]);
    // AddGet(TJvCustomEditor, 'BookMarks', TRACustomEditor_Read_BookMarks, 0, [varEmpty], nil);
    AddGet(TJvCustomEditor, 'Keyboard', TRACustomEditor_Read_Keyboard, 0, [varEmpty], varEmpty);
    // AddGet(TJvCustomEditor, 'CellRect', TRACustomEditor_Read_CellRect, 0, [varEmpty], nil);
    AddGet(TJvCustomEditor, 'UndoBuffer', TRACustomEditor_Read_UndoBuffer, 0, [varEmpty], varEmpty);
    AddGet(TJvCustomEditor, 'Recording', TRACustomEditor_Read_Recording, 0, [varEmpty], varEmpty);

    AddIGet(TJvCustomEditor, 'BookMarkX', TRACustomEditor_Read_BookMarkX, 1, [varInteger], varEmpty);
    AddIGet(TJvCustomEditor, 'BookMarkY', TRACustomEditor_Read_BookMarkY, 1, [varInteger], varEmpty);
    AddIGet(TJvCustomEditor, 'BookMarkValid', TRACustomEditor_Read_BookMarkValid, 1, [varInteger], varEmpty);
    AddISet(TJvCustomEditor, 'BookMarkX', TRACustomEditor_Write_BookMarkX, 1, [varInteger]);
    AddISet(TJvCustomEditor, 'BookMarkY', TRACustomEditor_Write_BookMarkY, 1, [varInteger]);
    AddISet(TJvCustomEditor, 'BookMarkValid', TRACustomEditor_Write_BookMarkValid, 1, [varInteger]);

    { TCompletionList }
    AddConst(cJvEditor, 'cmIdentifiers', Ord(cmIdentifiers));
    AddConst(cJvEditor, 'cmTemplates', Ord(cmTemplates));

    AddConst(cJvEditor, 'ecCharFirst', Ord(ecCharFirst));
    AddConst(cJvEditor, 'ecCharLast', Ord(ecCharLast));
    AddConst(cJvEditor, 'ecCommandFirst', Ord(ecCommandFirst));
    AddConst(cJvEditor, 'ecUser', Ord(ecUser));
    AddConst(cJvEditor, 'ecLeft', Ord(ecLeft));
    AddConst(cJvEditor, 'ecUp', Ord(ecUp));
    AddConst(cJvEditor, 'ecRight', Ord(ecRight));
    AddConst(cJvEditor, 'ecDown', Ord(ecDown));
    AddConst(cJvEditor, 'ecSelLeft', Ord(ecSelLeft));
    AddConst(cJvEditor, 'ecSelUp', Ord(ecSelUp));
    AddConst(cJvEditor, 'ecSelRight', Ord(ecSelRight));
    AddConst(cJvEditor, 'ecSelDown', Ord(ecSelDown));
    AddConst(cJvEditor, 'ecPrevWord', Ord(ecPrevWord));
    AddConst(cJvEditor, 'ecNextWord', Ord(ecNextWord));
    AddConst(cJvEditor, 'ecSelPrevWord', Ord(ecSelPrevWord));
    AddConst(cJvEditor, 'ecSelNextWord', Ord(ecSelNextWord));
    AddConst(cJvEditor, 'ecSelWord', Ord(ecSelWord));
    AddConst(cJvEditor, 'ecWindowTop', Ord(ecWindowTop));
    AddConst(cJvEditor, 'ecWindowBottom', Ord(ecWindowBottom));
    AddConst(cJvEditor, 'ecPrevPage', Ord(ecPrevPage));
    AddConst(cJvEditor, 'ecNextPage', Ord(ecNextPage));
    AddConst(cJvEditor, 'ecSelPrevPage', Ord(ecSelPrevPage));
    AddConst(cJvEditor, 'ecSelNextPage', Ord(ecSelNextPage));
    AddConst(cJvEditor, 'ecBeginLine', Ord(ecBeginLine));
    AddConst(cJvEditor, 'ecEndLine', Ord(ecEndLine));
    AddConst(cJvEditor, 'ecBeginDoc', Ord(ecBeginDoc));
    AddConst(cJvEditor, 'ecEndDoc', Ord(ecEndDoc));
    AddConst(cJvEditor, 'ecSelBeginLine', Ord(ecSelBeginLine));
    AddConst(cJvEditor, 'ecSelEndLine', Ord(ecSelEndLine));
    AddConst(cJvEditor, 'ecSelBeginDoc', Ord(ecSelBeginDoc));
    AddConst(cJvEditor, 'ecSelEndDoc', Ord(ecSelEndDoc));
    AddConst(cJvEditor, 'ecSelAll', Ord(ecSelAll));
    AddConst(cJvEditor, 'ecScrollLineUp', Ord(ecScrollLineUp));
    AddConst(cJvEditor, 'ecScrollLineDown', Ord(ecScrollLineDown));
    AddConst(cJvEditor, 'ecInsertPara', Ord(ecInsertPara));
    AddConst(cJvEditor, 'ecBackspace', Ord(ecBackspace));
    AddConst(cJvEditor, 'ecDelete', Ord(ecDelete));
    AddConst(cJvEditor, 'ecChangeInsertMode', Ord(ecChangeInsertMode));
    AddConst(cJvEditor, 'ecTab', Ord(ecTab));
    AddConst(cJvEditor, 'ecBackTab', Ord(ecBackTab));
    AddConst(cJvEditor, 'ecIndent', Ord(ecIndent));
    AddConst(cJvEditor, 'ecUnindent', Ord(ecUnindent));
    AddConst(cJvEditor, 'ecDeleteSelected', Ord(ecDeleteSelected));
    AddConst(cJvEditor, 'ecClipboardCopy', Ord(ecClipboardCopy));
    AddConst(cJvEditor, 'ecClipboardCut', Ord(ecClipboardCut));
    AddConst(cJvEditor, 'ecClipBoardPaste', Ord(ecClipBoardPaste));
    AddConst(cJvEditor, 'ecDeleteLine', Ord(ecDeleteLine));
    AddConst(cJvEditor, 'ecDeleteWord', Ord(ecDeleteWord));
    AddConst(cJvEditor, 'ecToUpperCase', Ord(ecToUpperCase));
    AddConst(cJvEditor, 'ecToLowerCase', Ord(ecToLowerCase));
    AddConst(cJvEditor, 'ecChangeCase', Ord(ecChangeCase));
    AddConst(cJvEditor, 'ecUndo', Ord(ecUndo));
    AddConst(cJvEditor, 'ecRedo', Ord(ecRedo));
    AddConst(cJvEditor, 'ecBeginCompound', Ord(ecBeginCompound));
    AddConst(cJvEditor, 'ecEndCompound', Ord(ecEndCompound));
    AddConst(cJvEditor, 'ecBeginUpdate', Ord(ecBeginUpdate));
    AddConst(cJvEditor, 'ecEndUpdate', Ord(ecEndUpdate));
    AddConst(cJvEditor, 'ecSetBookmark0', Ord(ecSetBookmark0));
    AddConst(cJvEditor, 'ecSetBookmark1', Ord(ecSetBookmark1));
    AddConst(cJvEditor, 'ecSetBookmark2', Ord(ecSetBookmark2));
    AddConst(cJvEditor, 'ecSetBookmark3', Ord(ecSetBookmark3));
    AddConst(cJvEditor, 'ecSetBookmark4', Ord(ecSetBookmark4));
    AddConst(cJvEditor, 'ecSetBookmark5', Ord(ecSetBookmark5));
    AddConst(cJvEditor, 'ecSetBookmark6', Ord(ecSetBookmark6));
    AddConst(cJvEditor, 'ecSetBookmark7', Ord(ecSetBookmark7));
    AddConst(cJvEditor, 'ecSetBookmark8', Ord(ecSetBookmark8));
    AddConst(cJvEditor, 'ecSetBookmark9', Ord(ecSetBookmark9));
    AddConst(cJvEditor, 'ecGotoBookmark0', Ord(ecGotoBookmark0));
    AddConst(cJvEditor, 'ecGotoBookmark1', Ord(ecGotoBookmark1));
    AddConst(cJvEditor, 'ecGotoBookmark2', Ord(ecGotoBookmark2));
    AddConst(cJvEditor, 'ecGotoBookmark3', Ord(ecGotoBookmark3));
    AddConst(cJvEditor, 'ecGotoBookmark4', Ord(ecGotoBookmark4));
    AddConst(cJvEditor, 'ecGotoBookmark5', Ord(ecGotoBookmark5));
    AddConst(cJvEditor, 'ecGotoBookmark6', Ord(ecGotoBookmark6));
    AddConst(cJvEditor, 'ecGotoBookmark7', Ord(ecGotoBookmark7));
    AddConst(cJvEditor, 'ecGotoBookmark8', Ord(ecGotoBookmark8));
    AddConst(cJvEditor, 'ecGotoBookmark9', Ord(ecGotoBookmark9));
    AddConst(cJvEditor, 'ecCompletionIdentifiers', Ord(ecCompletionIdentifiers));
    AddConst(cJvEditor, 'ecCompletionTemplates', Ord(ecCompletionTemplates));
    AddConst(cJvEditor, 'ecRecordMacro', Ord(ecRecordMacro));
    AddConst(cJvEditor, 'ecPlayMacro', Ord(ecPlayMacro));
    AddConst(cJvEditor, 'ecBeginRecord', Ord(ecBeginRecord));
    AddConst(cJvEditor, 'ecEndRecord', Ord(ecEndRecord));
  end;
  RegisterClasses([TJvEditor, TJvHLEditor]);
end;

{$IFDEF UNITVERSIONING}
initialization
  RegisterUnitVersion(HInstance, UnitVersioning);

finalization
  UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}

end.