Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Interdire le dimensionnement d'une colonne
Message
From
02/02/2002 15:04:50
 
 
To
02/02/2002 13:06:24
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00614418
Message ID:
00614449
Views:
34
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
Map
View

Click here to load this message in the networking platform