Hot Fox: RE: [usuarios_fox] Programar Metodo click

sexta-feira, 4 de setembro de 2009

RE: [usuarios_fox] Programar Metodo click

Hola Roberto:

Puedes hacerlo en forma programática, esto es con código,
aqui te muestro un ejemplo de una clase que usa un grid y
tiene código en el init y en el valid. Por cierto tambien se
puede hacer en forma gráfica usando tu formulario.

Aqui esta el código:

**************************************************
*-- Class: dumygrid (c:\intinfguad_des2\ejemplo.vcx)
*-- ParentClass: grid
*-- BaseClass: grid
*-- Time Stamp: 09/04/09 11:24:07 AM
*-- ejemplo programático
*
DEFINE CLASS dumygrid AS grid

ColumnCount = 2
Height = 193
Left = 24
RecordSource = "temp_rep1"
Top = 24
Width = 325
Name = "Grid1"
Column1.ControlSource = "temp_rep1.concepto"
Column1.Width = 75
Column1.Name = "Column1"
Column2.ControlSource = "temp_rep1.detalle"
Column2.Width = 75
Column2.Name = "Column2"

ADD OBJECT dumygrid.column1.header1 AS header WITH ;
Caption = "Concepto", ;
Name = "Header1"

ADD OBJECT dumygrid.column1.textoconcepto AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "TextoConcepto"

ADD OBJECT dumygrid.column2.header1 AS header WITH ;
Caption = "Detalle", ;
Name = "Header1"

ADD OBJECT dumygrid.column2.textodetalle AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "TextoDetalle"

PROCEDURE textoconcepto.Valid
*otro evento para el campo concepto
replace concepto WITH this.Value * 1.15
ENDPROC

PROCEDURE textoconcepto.Init
*Init
replace concepto WITH this.Value * 1.15
ENDPROC

PROCEDURE textodetalle.Valid
*valid texto detalle
IF this.Value = 1245
*bla bla
a=1+2
endif
ENDPROC

ENDDEFINE
*
*-- EndDefine: dumygrid
**************************************************

Saludos Cordiales,

José Alfonso

To: usuarios_fox@yahoogrupos.com.mx
From: beto_sysfox@yahoo.es
Date: Thu, 3 Sep 2009 17:30:34 +0000
Subject: [usuarios_fox] Programar Metodo click

Hola Amigos:

Usa la siguiente instruccion para cargar el Cursor Cliente el cual se muestra en un Grid

ThisFormSet.Lista.GrdLista.RecordSourceType=1

ThisFormSet.Lista.GrdLista.RecordSource="Clientes"

ThisFormSet.Lista.GrdLista.ColumnCount=8

ThisFormSet.Lista.GrdLista.Column1.Name="ColTipo"

ThisFormSet.Lista.GrdLista.ColTipo.Alignment=2

ThisFormSet.Lista.GrdLista.ColTipo.ControlSource="Tipo"

ThisFormSet.Lista.GrdLista.ColTipo.Width=40

ThisFormSet.Lista.GrdLista.ColTipo.Header1.Alignment=2

ThisFormSet.Lista.GrdLista.ColTipo.Header1.Caption="Tipo"

ThisFormSet.Lista.GrdLista.ColTipo.Header1.FontBold=.T.

ThisFormSet.Lista.GrdLista.ColTipo.Header1.ForeColor=RGB(0,0,150)

En que parte ingrese los datos para acceder al metodo Click de unas determinadas columnas?

[Se han eliminado los trozos de este mensaje que no contenían texto]

__________________________________________________________
Gracias Messenger por estos 10 años
www.aniversariomessenger.com.mx

[Se han eliminado los trozos de este mensaje que no contenían texto]