removed binary sources (FoxBin2Prg)

This commit is contained in:
Lutz
2023-08-26 21:49:42 +02:00
parent 607c6120a5
commit 4c7589c927
166 changed files with 48386 additions and 37119 deletions

View File

@@ -4,575 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< 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" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="f_listbox_test" Baseclass="form" />
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
*