LGram16
dd97ddec92
Move git root from Client/ to src/ to track all source code: - Client: Game client source (moved to Client/Client/) - Server: Game server source - GameTools: Development tools - CryptoSource: Encryption utilities - database: Database scripts - Script: Game scripts - rylCoder_16.02.2008_src: Legacy coder tools - GMFont, Game: Additional resources 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
55 lines
1.9 KiB
VB.net
55 lines
1.9 KiB
VB.net
Public Class cntTextEditItem
|
|
Private iTextitem As CNpcParser.NPCTextItem
|
|
Public Event NPCTextChanged(ByRef sender As cntTextEditItem, ByVal line As CNpcParser.NPCTextItem, ByVal newText As String)
|
|
Public Property NPCText() As String
|
|
Get
|
|
If Me.txtText.Lines.Length > 0 Then
|
|
Dim lines() As String = Me.txtText.Lines
|
|
If Trim(lines(UBound(lines))) = vbNewLine Then Array.Resize(lines, lines.Length - 1)
|
|
Return String.Join("\\", lines)
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
Set(ByVal value As String)
|
|
Dim lines() As String = value.Split(New String() {"\\"}, StringSplitOptions.None)
|
|
Me.txtText.Lines = lines
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Command() As String
|
|
Get
|
|
Return Me.lblCommand.Text
|
|
End Get
|
|
Set(ByVal value As String)
|
|
Me.lblCommand.Text = Trim(value)
|
|
End Set
|
|
End Property
|
|
|
|
Public Property TextItem() As CNpcParser.NPCTextItem
|
|
Get
|
|
Return iTextitem
|
|
End Get
|
|
Set(ByVal value As CNpcParser.NPCTextItem)
|
|
NPCText() = value.text
|
|
iTextitem = value
|
|
End Set
|
|
End Property
|
|
Public Property Small() As Boolean
|
|
Get
|
|
Return Not Me.txtText.Multiline
|
|
End Get
|
|
Set(ByVal value As Boolean)
|
|
If value Then
|
|
Dim txtheight As Integer = Me.txtText.Size.Height
|
|
Me.txtText.Multiline = False
|
|
Me.txtText.ScrollBars = ScrollBars.None
|
|
Me.Size = New Size(Me.Size.Width, Me.Size.Height - (txtheight - Me.txtText.Size.Height))
|
|
End If
|
|
End Set
|
|
End Property
|
|
Private Sub txtText_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtText.TextChanged
|
|
RaiseEvent NPCTextChanged(Me, TextItem, NPCText)
|
|
End Sub
|
|
End Class
|