PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

**************************************************
*-- Form: form1 (c:\datfire\prueba2\pruebaform.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 05/19/05 09:02:03 AM
*
DEFINE CLASS form1 AS form


Top = 0
Left = 0
Height = 332
Width = 721
DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 5, ;
FontName = "MS Sans Serif", ;
DeleteMark = .F., ;
HeaderHeight = 26, ;
Height = 262, ;
Left = 7, ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "", ;
RowHeight = 40, ;
ScrollBars = 2, ;
SplitBar = .F., ;
Top = 36, ;
Width = 693, ;
Name = "Grid1", ;
Column1.FontName = "MS Sans Serif", ;
Column1.ControlSource = "", ;
Column1.Name = "Column1", ;
Column2.FontName = "MS Sans Serif", ;
Column2.ControlSource = "", ;
Column2.Width = 156, ;
Column2.Name = "Column2", ;
Column3.FontName = "MS Sans Serif", ;
Column3.ControlSource = "", ;
Column3.Width = 146, ;
Column3.Name = "Column3", ;
Column4.FontName = "MS Sans Serif", ;
Column4.ControlSource = "", ;
Column4.Width = 149, ;
Column4.Name = "Column4", ;
Column5.FontName = "MS Sans Serif", ;
Column5.ControlSource = "", ;
Column5.CurrentControl = "Image1", ;
Column5.Sparse = .F., ;
Column5.DynamicCurrentControl = ['IIF(Datos.Activo= 0,"Image1", iiF(Datos.Activo=1,"Image2","Image3"))'], ;
Column5.Name = "Column5"


ADD OBJECT form1.grid1.column1.header1 AS header WITH ;
FontName = "MS Sans Serif", ;
Alignment = 2, ;
Caption = "ID", ;
Name = "Header1"


ADD OBJECT form1.grid1.column1.text1 AS textbox WITH ;
FontName = "MS Sans Serif", ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"


ADD OBJECT form1.grid1.column2.header1 AS header WITH ;
FontName = "MS Sans Serif", ;
Alignment = 2, ;
Caption = "Nombre", ;
Name = "Header1"


ADD OBJECT form1.grid1.column2.text1 AS textbox WITH ;
FontName = "MS Sans Serif", ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"


ADD OBJECT form1.grid1.column3.header1 AS header WITH ;
FontName = "MS Sans Serif", ;
Alignment = 2, ;
Caption = "Apellido", ;
Name = "Header1"


ADD OBJECT form1.grid1.column3.text1 AS textbox WITH ;
FontName = "MS Sans Serif", ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"


ADD OBJECT form1.grid1.column4.header1 AS header WITH ;
FontName = "MS Sans Serif", ;
Alignment = 2, ;
Caption = "Cargo", ;
Name = "Header1"


ADD OBJECT form1.grid1.column4.text1 AS textbox WITH ;
FontName = "MS Sans Serif", ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"


ADD OBJECT form1.grid1.column5.header1 AS header WITH ;
FontName = "MS Sans Serif", ;
Alignment = 2, ;
Caption = "Estado", ;
Name = "Header1"


ADD OBJECT form1.grid1.column5.image1 AS image WITH ;
Picture = "face01.ico", ;
Height = 32, ;
Left = 21, ;
Top = 35, ;
Width = 32, ;
Name = "Image1"


ADD OBJECT form1.grid1.column5.image2 AS image WITH ;
Picture = "face02.ico", ;
Height = 32, ;
Left = 21, ;
Top = 47, ;
Width = 32, ;
Name = "Image2"


ADD OBJECT form1.grid1.column5.image3 AS image WITH ;
Picture = "face03.ico", ;
Height = 32, ;
Left = 21, ;
Top = 47, ;
Width = 32, ;
Name = "Image3"


PROCEDURE Init
USE datos Shared

Thisform.Grid1.RecordSource = "Datos"
ENDPROC


PROCEDURE Unload
USE In Datos
ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************