*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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
