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
|
|
Command2.Name = "Command2"
|
|
Edit1.Name = "Edit1"
|
|
Label1.Caption = "LISTBOX NORMAL"
|
|
Label1.Name = "Label1"
|
|
Label2.Caption = "LISTBOX SUBCLASADOS"
|
|
Label2.Name = "Label2"
|
|
Label3.Name = "Label3"
|
|
|
|
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
|