Files
foxbin2prg/TESTS/DATOS_READONLY/lib_controles.f_listbox.vc2
Lutz fea3596fbc Binaries to 1.20
transfered all files to 1.20
added code to create recreate FoxBin2Prg
2023-08-27 20:04:11 +02:00

561 lines
15 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.20" SourceFile="lib_controles.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS f_listbox AS f_base OF "lib_controles.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="" />
*<PropValue>
DoCreate = .T.
Name = "f_listbox"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "LISTBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "LISTBOX SUBCLASADOS"
Label2.Name = "Label2"
*</PropValue>
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 = "", ;
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