added cursor management

Author: rdeioris

Source/LuaMachine/LuaMachine.Build.cs

@@ -38,7 +38,8 @@ public LuaMachine(ReadOnlyTargetRules Target) : base(Target)
                 "Engine",
                 "Slate",
                 "SlateCore",
-                "UMG"
+                "UMG",
+                "InputCore"
 				// ... add private dependencies that you statically link with here ...	
 			}
             );

Source/LuaMachine/Private/LuaMultiLineEditableTextBox.cpp

@@ -19,6 +19,7 @@ ULuaMultiLineEditableTextBox::ULuaMultiLineEditableTextBox()
 
 	bIsReadonly = false;
 	bHandleTab = true;
+	bHandleArrows = true;
 
 	CodeStyle = FTextBlockStyle()
 		.SetFont(WidgetStyle.Font)
@@ -70,13 +71,86 @@ FReply ULuaMultiLineEditableTextBox::OnKeyChar(const FGeometry& InGeometry, cons
 
 FReply ULuaMultiLineEditableTextBox::OnKeyDown(const FGeometry& InGeometry, const FKeyEvent& InKeyEvent)
 {
-	if (bHandleTab && InKeyEvent.GetKeyCode() == 9)
+	FKey Key = InKeyEvent.GetKey();
+	if (bHandleTab && Key == EKeys::Tab)
 	{
 		return FReply::Handled();
 	}
+
+	if (bHandleArrows)
+	{
+		if (Key == EKeys::Up)
+		{
+			MoveCursorUp();
+			return FReply::Handled();
+		}
+
+		if (Key == EKeys::Down)
+		{
+			MoveCursorDown();
+			return FReply::Handled();
+		}
+
+		if (Key == EKeys::Right)
+		{
+			MoveCursorRight();
+			return FReply::Handled();
+		}
+
+		if (Key == EKeys::Left)
+		{
+			MoveCursorLeft();
+			return FReply::Handled();
+		}
+	}
+
 	return EditableTextBoxPtr->SMultiLineEditableTextBox::OnKeyDown(InGeometry, InKeyEvent);
 }
 
+void ULuaMultiLineEditableTextBox::OnCursorMoved(const FTextLocation& Location)
+{
+	CursorLocation = Location;
+}
+
+int32 ULuaMultiLineEditableTextBox::GetCursorLine() const
+{
+	return CursorLocation.GetLineIndex();
+}
+
+int32 ULuaMultiLineEditableTextBox::GetCursorColumn() const
+{
+	return CursorLocation.GetOffset();
+}
+
+void ULuaMultiLineEditableTextBox::CursorGoTo(int32 Line, int32 Column)
+{
+	if (Line < 0)
+		Line = 0;
+	if (Column < 0)
+		Column = 0;
+	return EditableTextBoxPtr->GoTo(FTextLocation(Line, Column));
+}
+
+void ULuaMultiLineEditableTextBox::MoveCursorUp()
+{
+	return CursorGoTo(CursorLocation.GetLineIndex() - 1, 0);
+}
+
+void ULuaMultiLineEditableTextBox::MoveCursorDown()
+{
+	return CursorGoTo(CursorLocation.GetLineIndex() + 1, 0);
+}
+
+void ULuaMultiLineEditableTextBox::MoveCursorRight()
+{
+	return CursorGoTo(CursorLocation.GetLineIndex(), CursorLocation.GetOffset() + 1);
+}
+
+void ULuaMultiLineEditableTextBox::MoveCursorLeft()
+{
+	return CursorGoTo(CursorLocation.GetLineIndex(), CursorLocation.GetOffset() - 1);
+}
+
 void ULuaMultiLineEditableTextBox::SynchronizeProperties()
 {
 	Super::SynchronizeProperties();
@@ -110,6 +184,8 @@ TSharedRef<SWidget> ULuaMultiLineEditableTextBox::RebuildWidget()
 		.OnKeyCharHandler_UObject(this, &ULuaMultiLineEditableTextBox::OnKeyChar)
 		.OnKeyDownHandler_UObject(this, &ULuaMultiLineEditableTextBox::OnKeyDown)
 		.IsReadOnly(bIsReadonly)
+		.AllowContextMenu(false)
+		.OnCursorMoved_UObject(this, &ULuaMultiLineEditableTextBox::OnCursorMoved)
 		.Style(&WidgetStyle);
 
 	return EditableTextBoxPtr.ToSharedRef();

Source/LuaMachine/Public/LuaMultiLineEditableTextBox.h

@@ -51,16 +51,42 @@ class LUAMACHINE_API ULuaMultiLineEditableTextBox : public UTextLayoutWidget
 	UPROPERTY(EditAnywhere, BlueprintReadWrite, Category = "Lua Code")
 	bool bHandleTab;
 
-	UFUNCTION(BlueprintCallable, Category = "Widget", meta = (DisplayName = "GetText (Lua Code Box)"))
+	UPROPERTY(EditAnywhere, BlueprintReadWrite, Category = "Lua Code")
+	bool bHandleArrows;
+
+	UFUNCTION(BlueprintPure, Category = "Widget", meta = (DisplayName = "GetText (Lua Code Box)"))
 	FText GetText() const;
 
 	UFUNCTION(BlueprintCallable, Category = "Widget", meta = (DisplayName = "SetText (Lua Code Box)"))
 	void SetText(FText InText);
 
+	UFUNCTION(BlueprintPure, Category = "Widget", meta = (DisplayName = "GetCursorLine (Lua Code Box)"))
+	int32 GetCursorLine() const;
+
+	UFUNCTION(BlueprintPure, Category = "Widget", meta = (DisplayName = "GetCursorColumn (Lua Code Box)"))
+	int32 GetCursorColumn() const;
+
+	UFUNCTION(BlueprintCallable, Category = "Widget", meta = (DisplayName = "MoveCursorUp (Lua Code Box)"))
+	void MoveCursorUp();
+
+	UFUNCTION(BlueprintCallable, Category = "Widget", meta = (DisplayName = "MoveCursorDown (Lua Code Box)"))
+	void MoveCursorDown();
+
+	UFUNCTION(BlueprintCallable, Category = "Widget", meta = (DisplayName = "MoveCursorRight (Lua Code Box)"))
+	void MoveCursorRight();
+
+	UFUNCTION(BlueprintCallable, Category = "Widget", meta = (DisplayName = "MoveCursorLeft (Lua Code Box)"))
+	void MoveCursorLeft();
+
+	UFUNCTION(BlueprintCallable, Category = "Widget", meta = (DisplayName = "CursorGoTo (Lua Code Box)"))
+	void CursorGoTo(int32 Line, int32 Column);
+
 	virtual FReply OnKeyChar(const FGeometry& InGeometry, const FCharacterEvent& InCharacterEvent);
 
 	virtual FReply OnKeyDown(const FGeometry& InGeometry, const FKeyEvent& InKeyEvent);
 
+	virtual void OnCursorMoved(const FTextLocation& Location);
+
 	virtual void SynchronizeProperties() override;
 
 #if WITH_EDITOR
@@ -71,4 +97,6 @@ class LUAMACHINE_API ULuaMultiLineEditableTextBox : public UTextLayoutWidget
 	virtual TSharedRef<SWidget> RebuildWidget() override;
 
 	TSharedPtr<SMultiLineEditableTextBox> EditableTextBoxPtr;
+
+	FTextLocation CursorLocation;
 };