bbaad331a5
NOTE: This Bug Fix implies that when tx2 files are regenerated, differences will occur almost certainly for the first time, so do not regenerate all tx2 files unnecesarily to keep differences at minimum.
579 lines
16 KiB
Plaintext
579 lines
16 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.19" SourceFile="f_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS dataenvironment AS dataenvironment
|
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
|
|
|
DataSource = .NULL.
|
|
Height = 0
|
|
Left = 0
|
|
Name = "Dataenvironment"
|
|
Top = 0
|
|
Width = 0
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS f_listbox_test AS f_base OF "lib_controles.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Cl_ListBox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Cl_ListBox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.ListBox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ListBox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.ListBox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ListBox1" UniqueID="" Timestamp="" />
|
|
|
|
c_testname = Listbox_Test
|
|
DoCreate = .T.
|
|
Left = 0
|
|
Name = "F_Listbox_Test"
|
|
Top = 0
|
|
Edit1.Name = "Edit1"
|
|
Label3.Name = "Label3"
|
|
Command2.Name = "Command2"
|
|
Label1.Caption = "LISTBOX NORMAL"
|
|
Label1.Name = "Label1"
|
|
Label2.Caption = "LISTBOX SUBCLASADOS"
|
|
Label2.Name = "Label2"
|
|
|
|
ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ;
|
|
Anchor = 0, ;
|
|
AutoHideScrollbar = 0, ;
|
|
BorderColor = 255,255,0, ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "150,150", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DisabledBackColor = 0,128,192, ;
|
|
DisabledForeColor = 128,0,255, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Height = 60, ;
|
|
HelpContextID = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
IntegralHeight = .F., ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = 308, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
MoverBars = .F., ;
|
|
MultiSelect = .F., ;
|
|
Name = "Cl_ListBox1", ;
|
|
NullDisplay = "", ;
|
|
NumberOfElements = 0, ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\sobrepostal.bmp, ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 6, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = 44, ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = 224
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
|
|
|
|
ADD OBJECT 'Container1' AS container WITH ;
|
|
Height = 97, ;
|
|
Left = 28, ;
|
|
Name = "Container1", ;
|
|
TabIndex = 9, ;
|
|
Top = 128, ;
|
|
Width = 512
|
|
*< END OBJECT: BaseClass="container" />
|
|
|
|
ADD OBJECT 'Container1.Cl_ListBox1' AS cl_listbox WITH ;
|
|
Anchor = 0, ;
|
|
AutoHideScrollbar = 0, ;
|
|
BorderColor = 255,255,0, ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "150,150", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DisabledBackColor = 0,128,192, ;
|
|
DisabledForeColor = 128,0,255, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Height = 60, ;
|
|
HelpContextID = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
IntegralHeight = .F., ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = 280, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
MoverBars = .F., ;
|
|
MultiSelect = .F., ;
|
|
Name = "Cl_ListBox1", ;
|
|
NullDisplay = "", ;
|
|
NumberOfElements = 0, ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\sobrepostal.bmp, ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 6, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = 12, ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = 224
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
|
|
|
|
ADD OBJECT 'Container1.ListBox1' AS listbox WITH ;
|
|
Anchor = 0, ;
|
|
AutoHideScrollbar = 0, ;
|
|
BorderColor = 255,255,0, ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "150,150", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DisabledBackColor = 0,128,192, ;
|
|
DisabledForeColor = 128,0,255, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Height = 60, ;
|
|
HelpContextID = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
IntegralHeight = .F., ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = 8, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
MoverBars = .F., ;
|
|
MultiSelect = .F., ;
|
|
Name = "ListBox1", ;
|
|
NullDisplay = "", ;
|
|
NumberOfElements = 0, ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\sobrepostal.bmp, ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 11, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = 12, ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = 224
|
|
*< END OBJECT: BaseClass="listbox" />
|
|
|
|
ADD OBJECT 'ListBox1' AS listbox WITH ;
|
|
Anchor = 0, ;
|
|
AutoHideScrollbar = 0, ;
|
|
BorderColor = 255,255,0, ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "150,150", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DefHeight = , ;
|
|
DefLeft = , ;
|
|
DefTop = , ;
|
|
DefWidth = , ;
|
|
DisabledBackColor = 0,128,192, ;
|
|
DisabledForeColor = 128,0,255, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Height = (60), ;
|
|
HelpContextID = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
IntegralHeight = .F., ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = (36), ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
MoverBars = .F., ;
|
|
MultiSelect = .F., ;
|
|
Name = "ListBox1", ;
|
|
NullDisplay = "", ;
|
|
NumberOfElements = 0, ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\sobrepostal.bmp, ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 11, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = (44), ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = (224)
|
|
*< END OBJECT: BaseClass="listbox" />
|
|
|
|
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
|
|
ErasePage = .T., ;
|
|
Height = 137, ;
|
|
Left = 28, ;
|
|
Name = "Pageframe1", ;
|
|
PageCount = 2, ;
|
|
TabIndex = 10, ;
|
|
Top = 252, ;
|
|
Width = 513, ;
|
|
Page1.Caption = "Page1", ;
|
|
Page1.Name = "Page1", ;
|
|
Page2.Caption = "Page2", ;
|
|
Page2.Name = "Page2"
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Cl_ListBox1' AS cl_listbox WITH ;
|
|
Anchor = 0, ;
|
|
AutoHideScrollbar = 0, ;
|
|
BorderColor = 255,255,0, ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "150,150", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DisabledBackColor = 0,128,192, ;
|
|
DisabledForeColor = 128,0,255, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Height = 60, ;
|
|
HelpContextID = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
IntegralHeight = .F., ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = 279, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
MoverBars = .F., ;
|
|
MultiSelect = .F., ;
|
|
Name = "Cl_ListBox1", ;
|
|
NullDisplay = "", ;
|
|
NumberOfElements = 0, ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\sobrepostal.bmp, ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 6, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = 8, ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = 224
|
|
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.ListBox1' AS listbox WITH ;
|
|
Anchor = 0, ;
|
|
AutoHideScrollbar = 0, ;
|
|
BorderColor = 255,255,0, ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .F., ;
|
|
ColorScheme = 2, ;
|
|
ColorSource = 4, ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .T., ;
|
|
ColumnWidths = "150,150", ;
|
|
Comment = "", ;
|
|
ControlSource = "", ;
|
|
DisabledBackColor = 0,128,192, ;
|
|
DisabledForeColor = 128,0,255, ;
|
|
DisabledItemBackColor = 255,255,255, ;
|
|
DisabledItemForeColor = 109,109,109, ;
|
|
DragIcon = ..\..\, ;
|
|
DragMode = 0, ;
|
|
Enabled = .T., ;
|
|
FirstElement = 1, ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 0, ;
|
|
FontCondense = .F., ;
|
|
FontExtend = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontOutline = .F., ;
|
|
FontShadow = .F., ;
|
|
FontSize = 8, ;
|
|
FontStrikethru = .F., ;
|
|
FontUnderline = .F., ;
|
|
Height = 60, ;
|
|
HelpContextID = 0, ;
|
|
IncrementalSearch = .T., ;
|
|
IntegralHeight = .F., ;
|
|
ItemBackColor = 255,255,255, ;
|
|
ItemForeColor = 0,0,0, ;
|
|
ItemTips = .F., ;
|
|
Left = 7, ;
|
|
MouseIcon = ..\..\, ;
|
|
MousePointer = 0, ;
|
|
MoverBars = .F., ;
|
|
MultiSelect = .F., ;
|
|
Name = "ListBox1", ;
|
|
NullDisplay = "", ;
|
|
NumberOfElements = 0, ;
|
|
OLEDragMode = 0, ;
|
|
OLEDragPicture = ..\..\, ;
|
|
OLEDropEffects = 3, ;
|
|
OLEDropMode = 0, ;
|
|
Picture = bmps\sobrepostal.bmp, ;
|
|
RightToLeft = .F., ;
|
|
RowSource = "", ;
|
|
RowSourceType = 0, ;
|
|
SelectedItemBackColor = 51,153,255, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Sorted = .F., ;
|
|
SpecialEffect = 1, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 11, ;
|
|
TabStop = .T., ;
|
|
Tag = "", ;
|
|
TerminateRead = .F., ;
|
|
Themes = .T., ;
|
|
ToolTipText = "", ;
|
|
Top = 8, ;
|
|
Value = , ;
|
|
Visible = .T., ;
|
|
WhatsThisHelpID = -1, ;
|
|
Width = 224
|
|
*< END OBJECT: BaseClass="listbox" />
|
|
|
|
PROCEDURE Cl_ListBox1.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
this.ListIndex = 2
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Container1.Cl_ListBox1.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
this.ListIndex = 2
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Container1.ListBox1.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
this.ListIndex = 2
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE ListBox1.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
this.ListIndex = 2
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page1.Cl_ListBox1.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
this.ListIndex = 2
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page1.ListBox1.Init
|
|
this.AddListItem('Este es el valor.A1')
|
|
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.B1')
|
|
this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
|
|
this.AddListItem('Este es el valor.C1')
|
|
this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
|
|
this.ListIndex = 2
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|