General information
Category:
Forms & Form designer
En creant le formulaire directement a partir , ".resizable" fonctionne normalement, mais je suis confronte a deux problemes :
1°/ la generation du code a partir de "Class Browser" entraine ssytematiquement une erreur au niveau de "form1.grid1.column1.header1 as header".
2°/ lorsque l'ecris le code, ".resizable" a un fonctionnement aleatoire
Vous trouverez ci-apres un exemple code ecrit.
****************************************
********* RESIZABLE *****************
****************************************
* dbf teste champs1 c(10), champs2 c(10)
close all
use teste
oform=createobject("teste")
with oform.grid1
.column1.header1.Caption = "ColA"
.column1.header1.Name = "Header1"
.column1.text1.Name = "Text1"
.column2.header1.Caption = "ColB"
.column2.header1.Name = "Header1"
.column2.text1.Name = "Text1"
endwith
oform.show()
i=inkey(0)
close all
DEFINE CLASS teste AS form
Caption = "Form1"
Name = "Form1"
ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 2, ;
Height = 169, ;
Left = 48, ;
RecordSource = "teste", ;
RecordSourceType = 0, ;
Top = 24, ;
View = 0, ;
Visible = .T., ;
Width = 253, ;
Name = "Grid1", ;
Scrollbars =2,;
Column1.ControlSource = "teste.champs1", ;
Column1.Width = 75, ;
Column1.Resizable = .T., ;
Column1.Name = "Column1", ;
Column2.ControlSource = "teste.champs2", ;
Column2.Width = 100, ;
Column2.Resizable = .F., ;
Column2.Name = "Column2"
ENDDEFINE
******* FIN ********
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only