Constantes en el IDE. ¿Alguien sabe hacer ésto de otra forma?

Shell 10-03-2023, 23:46

Algo así ?.

[Imagen: 3ObJiUH.png]

Código:
Export

Inherits TextArea

'Public Const _Properties As String = "*,Type{TextTypes.*}=Nota"

Public Const _Properties As String = "*,Type{Nota.Nota;Aviso;Memo;Confidential}=Nota"

Public Const _Group As String = "Form"

Public Const _Similar As String = "TextArea"

Public Const _DrawWith As String = "TextArea"

Public Const Nota As Integer = 0

Public Const Aviso As Integer = 1

Public Const Memo As Integer = 2

Public Const Confidential As Integer = 3

Property Type As Integer Use $type = 0

Ahora con Enum.

Código:
Export

Inherits TextArea

Public Enum Nota, Aviso, Memo, Confidential

'Public Const _Properties As String = "*,Type{TextTypes.*}=Nota"

Public Const _Properties As String = "*,Type{Nota.Nota;Aviso;Memo;Confidential}=Nota"

Public Const _Group As String = "Form"

Public Const _Similar As String = "TextArea"

Public Const _DrawWith As String = "TextArea"

'Public Const Nota As Integer = 0

'Public Const Aviso As Integer = 1

'Public Const Memo As Integer = 2

'Public Const Confidential As Integer = 3

Property Type As Integer Use $type = 0

Última modificación: 11-03-2023, 00:00 por Shell.

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln