FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 22:44

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Aujourd'hui à 16:52

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 14:16

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 StringGrid mon cauchemard...

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: StringGrid mon cauchemard...   Lun 16 Mai 2016 - 17:56

Pourquoi j' ai ma colonne 1 avec le texte alignée à droite
alors que je n' ai passé que la taille du texte ?

Code:
sub InitStringGrid(obj%,Nl%)
  if variable("police$")=0 then dim police$
  if variable("colorcol1%")=0 then dim colorcol1%
  if variable("colorcol2%")=0 then dim colorcol2%
  if variable("colorcol3%")=0 then dim colorcol3%
  if variable("colorpol%") =0 then dim colorpol%
 
  dim_local res%,null%,sepcel$,seplin$,txt$,i%

'  definition de -1
  null%  = 0-1
 
'  definition des separateurs
  sepcel$ = ";"
  seplin$ = chr$(13)+chr$(10)

'  definition de la couleur des colonnes
  DefineColor(255,255,255)
  colorcol1% = RetColor%

  DefineColor(253,213,187)
  colorcol2% = RetColor%

  DefineColor(217,248,174)
  colorcol3% = RetColor%
 
'  definition de la couleur des polices
  DefineColor(0,0,0)
  colorpol% = RetColor%
 
  res% = dll_call2("SetGridSeparators",adr(sepcel$),adr(seplin$))

  res% = DLL_call6("GridFunction",obj%,17,0,20,0,0)
  res% = DLL_call6("GridFunction",obj%,18,1,355,0,0)
  res% = DLL_call6("GridFunction",obj%,18,2,100,0,0)

  police$ = "Courier New"
  res% = DLL_call6("GridFunction",obj%,9,1*65536+0,10,adr(police$),0)
  res% = DLL_call6("GridFunction",obj%,9,2*65536+0,8202,adr(police$),0)

  res% = DLL_call6("GridFunction",obj%,4,1,null%,colorcol1%,colorpol%)
  if obj%=SG%(1)
      res% = DLL_call6("GridFunction",obj%,4,2,null%,colorcol2%,colorpol%)
  else
      res% = DLL_call6("GridFunction",obj%,4,2,null%,colorcol3%,colorpol%)
  end_if
 
  res% = DLL_call6("GridFunction",obj%,31,2,0,0,0)
  res% = DLL_call6("GridFunction",obj%,30,1,0,0,0)
 
  res% = DLL_call6("GridFunction",obj%,8,1,0,0,0)

  txt$ = string$(5," ")+"Rubriques"
  res% = DLL_call4("WriteGridCell",obj%,1,1,adr(txt$))

  txt$ = string$(7," ")+"Montants"
  res% = DLL_call4("WriteGridCell",obj%,2,1,adr(txt$))

end_sub

' ------------------------------------------------------------------------------

sub AddCatInStringGrid(Obj%)
  dim_local i%,c%,txt$,res%,null%,file$
 
  if obj%=SG%(1)
      file$ = DepCatFile$
  else
      file$ = RecCatFile$
  end_if

  clear DLtemp%
  if file_exists(file$)=1
      file_load DLtemp%,file$
      if count(DLtemp%)>0
        c% = count(DLtemp%)
        for i%= c% to 1 step -1
            txt$=item_read$(DLtemp%,i%)

            res% = DLL_call6("GridFunction",Obj%,19,2,0,0,0)
            res% = DLL_call6("GridFunction",Obj%,17,0,20,0,0)

            res% = DLL_call4("WriteGridCell",Obj%,1,2,adr(txt$))

            if obj%=SG%(1)
              NbreRow1% = NbreRow1%+1
            else
              NbreRow2% = NbreRow2%+1
            end_if
        next i%
      end_if
  end_if
end_sub

' ------------------------------------------------------------------------------

sub AddLineDep(t1$,t2$)
  dim_local i%,c%,txt$,res%,null%,txt1$,txt2$,line%

  txt1$ = string$(4," ")+t1$
  txt2$ = t2$
  line% = DepCatLine%+1
 
  res% = DLL_call6("GridFunction",SG%(1),19,line%,0,0,0)
  res% = DLL_call6("GridFunction",SG%(1),17,0,20,0,0)

  res% = DLL_call4("WriteGridCell",SG%(1),1,line%,adr(txt1$))
  res% = DLL_call4("WriteGridCell",SG%(1),2,line%,adr(txt2$))
  NbreRow1% = NbreRow1%+1

end_sub


J' ai mis un zip sur mon webdav.
PanoBudget.zip

Ps : il faudra adapter le chemin de KGF ligne 30, je ne l' ai pas ajouté dans le zip.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Lun 16 Mai 2016 - 19:17

S'il te plait, poste un petit code de quelques lignes, même si ce code appelle tes SUBs, pour qu'on puisse l'exécuter directement pour voir ce que ça donne. Juste la form 0, un StrinGrid sur la form, ta configuration comme dans ton programme, puis le chargement d'une ligne de données.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 16 Mai 2016 - 20:34

J' ai raccourci au max

Code:
   dim kgf$ : kgf$ = "KGF.dll"
   dim SG%
   dim NbreRow1%,NbreRow2%
  
   label clic,change
  
   dll_on kgf$
  
   dlist 3
   item_add 3,"HABITATION"
   item_add 3,"FRAIS FINANCIERS"
   item_add 3,"SANTE-LOISIRS"
   item_add 3,"ENFANTS"
   item_add 3,"TRANSPORTS"
   item_add 3,"IMPOTS"
  
   edit 1 : hide 1 : on_change 1,change

   memo 2  : hide 2
   item_add 2,"left=5"
   item_add 2,"top=0"
   item_add 2,"Width=455"
   item_add 2,"Height=350"
   item_add 2,"Rows=2"
   item_add 2,"Columns=2"
   item_add 2,"FixedRows=1"
   item_add 2,"FixedColumns=0"

   SG% = dll_call3("CreateStringGrid",handle(0),handle(2),handle(1))
   NbreRow1% = 2
   InitStringGrid(SG%,NbreRow1%)
   AddCatInStringGrid(SG%)
  
   end
  
' ------------------------------------------------------------------------------
  
   sub InitStringGrid(obj%,Nl%)
   if variable("police$")=0 then dim police$
   if variable("colorcol1%")=0 then dim colorcol1%
   if variable("colorcol2%")=0 then dim colorcol2%
   if variable("colorcol3%")=0 then dim colorcol3%
   if variable("colorpol%") =0 then dim colorpol%

   dim_local res%,null%,sepcel$,seplin$,txt$,i%

'  definition de -1
   null%   = 0-1
'  definition des separateurs
   sepcel$ = ";"
   seplin$ = chr$(13)+chr$(10)
'  definition de la couleur des colonnes
   colorcol1% = 16777215
   colorcol2% = 12310013
   colorcol3% = 11466969
'  definition de la couleur des polices
   colorpol% = 0

   res% = dll_call2("SetGridSeparators",adr(sepcel$),adr(seplin$))

   res% = DLL_call6("GridFunction",obj%,17,0,20,0,0)
   res% = DLL_call6("GridFunction",obj%,18,1,355,0,0)
   res% = DLL_call6("GridFunction",obj%,18,2,100,0,0)

   police$ = "Courier New"
   res% = DLL_call6("GridFunction",obj%,9,1*65536+0,10,adr(police$),0)
   res% = DLL_call6("GridFunction",obj%,9,2*65536+0,8202,adr(police$),0)

   res% = DLL_call6("GridFunction",obj%,4,1,null%,colorcol1%,colorpol%)
   if obj%=SG%
      res% = DLL_call6("GridFunction",obj%,4,2,null%,colorcol2%,colorpol%)
   else
      res% = DLL_call6("GridFunction",obj%,4,2,null%,colorcol3%,colorpol%)
   end_if

   res% = DLL_call6("GridFunction",obj%,31,2,0,0,0)
   res% = DLL_call6("GridFunction",obj%,30,1,0,0,0)

   res% = DLL_call6("GridFunction",obj%,8,1,0,0,0)

   txt$ = string$(5," ")+"Rubriques"
   res% = DLL_call4("WriteGridCell",obj%,1,1,adr(txt$))

   txt$ = string$(7," ")+"Montants"
   res% = DLL_call4("WriteGridCell",obj%,2,1,adr(txt$))
end_sub

' ------------------------------------------------------------------------------

sub AddCatInStringGrid(Obj%)
   dim_local i%,c%,txt$,res%,null%,file$

      if count(3)>0
         c% = count(3)
         for i%= c% to 1 step -1
            txt$=item_read$(3,i%)

            res% = DLL_call6("GridFunction",Obj%,19,2,0,0,0)
            res% = DLL_call6("GridFunction",Obj%,17,0,20,0,0)

            res% = DLL_call4("WriteGridCell",Obj%,1,2,adr(txt$))

            if obj%=SG%
               NbreRow1% = NbreRow1%+1
            else
               NbreRow2% = NbreRow2%+1
            end_if
         next i%
      end_if
end_sub

' ------------------------------------------------------------------------------

sub AddLineDep(t1$,t2$)
   dim_local i%,c%,txt$,res%,null%,txt1$,txt2$,line%

   txt1$ = string$(4," ")+t1$
   txt2$ = t2$
   line% = DepCatLine%+1

   res% = DLL_call6("GridFunction",SG%(1),19,line%,0,0,0)
   res% = DLL_call6("GridFunction",SG%(1),17,0,20,0,0)

   res% = DLL_call4("WriteGridCell",SG%(1),1,line%,adr(txt1$))
   res% = DLL_call4("WriteGridCell",SG%(1),2,line%,adr(txt2$))
   NbreRow1% = NbreRow1%+1
   TTlDep = TTlDep+val(txt2$)
end_sub

' ------------------------------------------------------------------------------

sub DefineColor(R%,G%,B%)
   if variable("RetColor%")=0 then dim RetColor%
   RetColor% = (B%*256+G%)*256+R%
end_sub

' ------------------------------------------------------------------------------

clic:
return

change:
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Lun 16 Mai 2016 - 20:35

Ok. Je vais regarder cela.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Lun 16 Mai 2016 - 20:46

Premier constat:
la ligne 67*
Code:
  res% = DLL_call6("GridFunction",obj%,9,2*65536+0,8202,adr(police$),0)  : ' colonne 2 toutes lignes: police taille 10 nom courier new couleur noire cadré à droite
impose le cadrage à droite (8192+10=8202) pour toutes les colonnes de la ligne 2.

Je continue...

EDIT

Je te conseille de déclarer des variables du genre:
Code:
dim attr_gras% : attr_gras% = 256
dim attr_italique% : attr_italique% = 512
dim attr_souligne% : attr_souligne% =  1024
dim attr_barre% : attr_italique% =  2048
dim attr_centre% : attr_centre% =  4096=centré
dim attr_cadrage_droite% : attr_cadrage_droite% =  8192
et d'utiliser ces variables dans l'appel de la DLL:
Code:
  res% = DLL_call6("GridFunction",obj%,9,2*65536+0,10+attr_cadrage_droite%,adr(police$),0)  : ' colonne 2 toutes lignes: police taille 10 nom courier new couleur noire cadré à droite

Tu verras beaucoup plus facilement ce que le résultat devrait être...


Dernière édition par Klaus le Lun 16 Mai 2016 - 20:51, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 16 Mai 2016 - 20:48

Dans l' initialisation du grid, je me sers de la fonction 9 pour l' alignement du texte dans les colonnes.

J' ai écris cela :
Code:
  res% = DLL_call6("GridFunction",obj%,9,1*65536+0,10,adr(police$),0)
  res% = DLL_call6("GridFunction",obj%,9,2*65536+0,8202,adr(police$),0)
en pensant que la colonne 1 aurait des caractères de taille 10 avec un alignement à gauche
et que la colonne 2 aurait des caractères de taille 10 avec un alignement à droite.

et...tout le monde est à droite.
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 16 Mai 2016 - 20:50

On s' est croisé.

un inversement entre les x et les y devrait résoudre ce souci alors.
et ben non, j' ai une belle ligne toute noire en entete et rien ne change.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 17 Mai 2016 - 14:36

hum... le problème à l' air d' être complexe...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Mar 17 Mai 2016 - 19:20

Tu ne voudrais pas me poster un petit code qui crée le grid et qui utilise ensuite tes subs pour configurer et charger le grid. Ainsi, je pourrais tester et voir ce qui ne va pas. Ces choses sont trop complexes pour être mises au point dans une application qui est grosse et complexe elle-même.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 17 Mai 2016 - 20:48

j' en ai posté un, un peu plus haut, il utilise l' initialisation et le chargement de quelques lignes.

le re voilà :
Code:
   dim kgf$ : kgf$ = "KGF.dll"[size=11][/size]
   dim SG%[size=11][/size]
   dim NbreRow1%,NbreRow2%[size=11][/size]
   [size=11][/size]
   label clic,change[size=11][/size]
   [size=11][/size]
   dll_on kgf$[size=11][/size]
   [size=11][/size]
   dlist 3[size=11][/size]
   item_add 3,"HABITATION"[size=11][/size]
   item_add 3,"FRAIS FINANCIERS"[size=11][/size]
   item_add 3,"SANTE-LOISIRS"[size=11][/size]
   item_add 3,"ENFANTS"[size=11][/size]
   item_add 3,"TRANSPORTS"[size=11][/size]
   item_add 3,"IMPOTS"[size=11][/size]
   [size=11][/size]
   edit 1 : hide 1 : on_change 1,change[size=11][/size]
[size=11][/size]
   memo 2  : hide 2[size=11][/size]
   item_add 2,"left=5"[size=11][/size]
   item_add 2,"top=0"[size=11][/size]
   item_add 2,"Width=455"[size=11][/size]
   item_add 2,"Height=350"[size=11][/size]
   item_add 2,"Rows=2"[size=11][/size]
   item_add 2,"Columns=2"[size=11][/size]
   item_add 2,"FixedRows=1"[size=11][/size]
   item_add 2,"FixedColumns=0"[size=11][/size]
[size=11][/size]
   SG% = dll_call3("CreateStringGrid",handle(0),handle(2),handle(1))[size=11][/size]
   NbreRow1% = 2[size=11][/size]
   InitStringGrid(SG%,NbreRow1%)[size=11][/size]
   AddCatInStringGrid(SG%)[size=11][/size]
   [size=11][/size]
   end[size=11][/size]
   [size=11][/size]
' ------------------------------------------------------------------------------[size=11][/size]
   [size=11][/size]
   sub InitStringGrid(obj%,Nl%)[size=11][/size]
   if variable("police$")=0 then dim police$[size=11][/size]
   if variable("colorcol1%")=0 then dim colorcol1%[size=11][/size]
   if variable("colorcol2%")=0 then dim colorcol2%[size=11][/size]
   if variable("colorcol3%")=0 then dim colorcol3%[size=11][/size]
   if variable("colorpol%") =0 then dim colorpol%[size=11][/size]
[size=11][/size]
   dim_local res%,null%,sepcel$,seplin$,txt$,i%[size=11][/size]
[size=11][/size]
'  definition de -1[size=11][/size]
   null%   = 0-1[size=11][/size]
'  definition des separateurs[size=11][/size]
   sepcel$ = ";"[size=11][/size]
   seplin$ = chr$(13)+chr$(10)[size=11][/size]
'  definition de la couleur des colonnes[size=11][/size]
   colorcol1% = 16777215[size=11][/size]
   colorcol2% = 12310013[size=11][/size]
   colorcol3% = 11466969[size=11][/size]
'  definition de la couleur des polices[size=11][/size]
   colorpol% = 0[size=11][/size]
[size=11][/size]
   res% = dll_call2("SetGridSeparators",adr(sepcel$),adr(seplin$))[size=11][/size]
[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,17,0,20,0,0)[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,18,1,355,0,0)[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,18,2,100,0,0)[size=11][/size]
[size=11][/size]
   police$ = "Courier New"[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,9,1*65536+0,10,adr(police$),0)[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,9,2*65536+0,8202,adr(police$),0)[size=11][/size]
[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,4,1,null%,colorcol1%,colorpol%)[size=11][/size]
   if obj%=SG%[size=11][/size]
      res% = DLL_call6("GridFunction",obj%,4,2,null%,colorcol2%,colorpol%)[size=11][/size]
   else[size=11][/size]
      res% = DLL_call6("GridFunction",obj%,4,2,null%,colorcol3%,colorpol%)[size=11][/size]
   end_if[size=11][/size]
[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,31,2,0,0,0)[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,30,1,0,0,0)[size=11][/size]
[size=11][/size]
   res% = DLL_call6("GridFunction",obj%,8,1,0,0,0)[size=11][/size]
[size=11][/size]
   txt$ = string$(5," ")+"Rubriques"[size=11][/size]
   res% = DLL_call4("WriteGridCell",obj%,1,1,adr(txt$))[size=11][/size]
[size=11][/size]
   txt$ = string$(7," ")+"Montants"[size=11][/size]
   res% = DLL_call4("WriteGridCell",obj%,2,1,adr(txt$))[size=11][/size]
end_sub[size=11][/size]
[size=11][/size]
' ------------------------------------------------------------------------------[size=11][/size]
[size=11][/size]
sub AddCatInStringGrid(Obj%)[size=11][/size]
   dim_local i%,c%,txt$,res%,null%,file$[size=11][/size]
[size=11][/size]
      if count(3)>0[size=11][/size]
         c% = count(3)[size=11][/size]
         for i%= c% to 1 step -1[size=11][/size]
            txt$=item_read$(3,i%)[size=11][/size]
[size=11][/size]
            res% = DLL_call6("GridFunction",Obj%,19,2,0,0,0)[size=11][/size]
            res% = DLL_call6("GridFunction",Obj%,17,0,20,0,0)[size=11][/size]
[size=11][/size]
            res% = DLL_call4("WriteGridCell",Obj%,1,2,adr(txt$))[size=11][/size]
[size=11][/size]
            if obj%=SG%[size=11][/size]
               NbreRow1% = NbreRow1%+1[size=11][/size]
            else[size=11][/size]
               NbreRow2% = NbreRow2%+1[size=11][/size]
            end_if[size=11][/size]
         next i%[size=11][/size]
      end_if[size=11][/size]
end_sub[size=11][/size]
[size=11][/size]
' ------------------------------------------------------------------------------[size=11][/size]
[size=11][/size]
sub AddLineDep(t1$,t2$)[size=11][/size]
   dim_local i%,c%,txt$,res%,null%,txt1$,txt2$,line%[size=11][/size]
[size=11][/size]
   txt1$ = string$(4," ")+t1$[size=11][/size]
   txt2$ = t2$[size=11][/size]
   line% = DepCatLine%+1[size=11][/size]
[size=11][/size]
   res% = DLL_call6("GridFunction",SG%(1),19,line%,0,0,0)[size=11][/size]
   res% = DLL_call6("GridFunction",SG%(1),17,0,20,0,0)[size=11][/size]
[size=11][/size]
   res% = DLL_call4("WriteGridCell",SG%(1),1,line%,adr(txt1$))[size=11][/size]
   res% = DLL_call4("WriteGridCell",SG%(1),2,line%,adr(txt2$))[size=11][/size]
   NbreRow1% = NbreRow1%+1[size=11][/size]
   TTlDep = TTlDep+val(txt2$)[size=11][/size]
end_sub[size=11][/size]
[size=11][/size]
' ------------------------------------------------------------------------------[size=11][/size]
[size=11][/size]
sub DefineColor(R%,G%,B%)[size=11][/size]
   if variable("RetColor%")=0 then dim RetColor%[size=11][/size]
   RetColor% = (B%*256+G%)*256+R%[size=11][/size]
end_sub[size=11][/size]
[size=11][/size]
' ------------------------------------------------------------------------------[size=11][/size]
[size=11][/size]
clic:[size=11][/size]
return[size=11][/size]
[size=11][/size]
change:[size=11][/size]
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 17 Mai 2016 - 20:58

Je viens de faire une curieuse expérience.

Dans le code posté juste au dessus :

Si je déplace les lignes 65 à 67 après les lignes 69 à 74, j' ai droit à un message : "<" n' est pas une valeur entière correcte
ce message ne bloque rien mais je n' ai pas de formatage. 

Si je déplace la ligne 69 entre les lignes 66 et 67 !!!!

MIRACLE !!!!!
J' ai le formatage que je souhaite !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Mer 18 Mai 2016 - 0:57

C'est très intéressant, tout ça, Ygeronimi, mais ça ne me permet toujours pas de comprendre ce qui se passe. Fais quelques lignes qui comprennent la création du Grid, sa mise en forme via tes SUBs, puis le chargement des données. Puis, signale par des commentaires ce que tu constates dans le source. Il y a peut-être un bug dans certaines circonstances, et il faudra bien que je le corrige. Il y a peut-être une erreir ou omission dans la doc, et il faudra bien que je rectifie. Mais là, je suis en peu dans la position du chat qui voit la souris de l'autre côté de la vitre...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 18 Mai 2016 - 2:06

Je crois que le souci vient du fait de la numérotation des fonctions.
Je m' explique.

La logique de mon esprit veut que j' utilise la fonction n°1 avant d' utiliser la n°10
or là, je dois utiliser les fonctions dans cet ordre :

17
18
18
9
4
9
4
31
30
8

ce qui induit mon petit cerveau en erreur et à tous les coups ca marche.

si je fais ne serait ce que :

17 
18
18
9
9
4
4
31
30


ca bug

il faudrait un ordre d' utilisation ou les séparer en fonction de leur utilisation :

Formatage
Récup de données
etc...

Je ne pense pas qu' il y ait un problème avec les fonctions en elle même.


Le problème, et nous l' avons tous un peu, c' est quand nous sommes concepteurs les choses nous paraissent évidente
alors que cela ne l' ai pas forcemment pour l' utilisateur.
D' où toute la difficulté de faire une doc... Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Mer 18 Mai 2016 - 2:15

Merci. Je comprends mieux ce que tu veux dire. Je vais regarder ce qu'il en est, et compléter la doc en fonction de cela.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Mer 18 Mai 2016 - 2:37

As-tu essayé:
17
18
18
4
4
9
9
31
30
8


J'aimerais connaître le résultat...

Petit complément d'information, pour GridFunction:
- le code 9 remplace les valeurs par défaut pour justification, attributs graphiques, nom et couleur de la police, tout en appliquant cela aux cellules adressées par le paramètre par1%.
- Les codes 2,3,4,6 et 7 utilisent ces valeurs par défaut, à priori sans les changer.
- Les défauts initiaux sont:
Police arial, couleur noire, cadré à gauche, sans gras ni italique ni souligné ni barré.

Dès que le code 9 change l'une ou l'autre de ces valeurs, cela reste et sera utilisé pour les codes 2,3,4,6 et 7, jusqu'au code 9 suivant.

C'est du moins l'intention. Reste à savoir si tu constates un fonctionnement conforme à cela.


Dernière édition par Klaus le Mer 18 Mai 2016 - 2:58, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 18 Mai 2016 - 2:56

Une horreur !
Laughing
c' est là que j' ai le message.
"<" n' est pas une valeur entière correcte


Dernière édition par ygeronimi le Mer 18 Mai 2016 - 3:01, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Mer 18 Mai 2016 - 3:00

On s'est croisé avec ma modification. Merci pour cette précision. Cela confirme ce que je dis ci-dessus, et cela explique pourquoi il faut d'abord utiliser 9 avant 2,3,4,6 et 7.

Je vais revoir la doc pour cela.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 18 Mai 2016 - 3:09

D' après mes divers déboire.

l' ordre d' utilisation correct en clair :

17 / 18 formatage dimensions de tout le tableau (on crée les cellules du grid)

9 formatage texte ( on formate le texte d' une colonne ou ligne )
4 formatage couleurs ( on place les couleurs en fonction que l' on vienne de formater un colonne ou une ligne )

puis on passe à ligne ou colonne suivante avec les fonctions 9 et 4
mais bon, je ne tiens rien pour acquis.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 18 Mai 2016 - 3:17

L' idéal pour la doc, serait de traiter par bloc

Création du StringGrid
Ajout d' une ligne
Ajout d' une colonne
Traitement d' une cellule seule
Traitement d' un lot de cellule (zone)

StringGrid est hyper puissant.
C' est un outils qui me permet de remplacer par prog 
certaine chose que je faisais avec les tableurs de OpenOffice ou Excel quand je l' avais à l' oeil avec le vba.

Là je suis parti sur une appli pour faire un budget mensuel.
Je bute encore avec l' interface. (le reste n' est qu' additions et soustractions )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: StringGrid mon cauchemard...   Mer 18 Mai 2016 - 11:48

J'ai complété la doc de la fonction GridFunction.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: StringGrid mon cauchemard...   

Revenir en haut Aller en bas
 
StringGrid mon cauchemard...
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» StringGrid mon cauchemard...
» Questions diverses
» GRID avec couleur et sélection
» Cmment vivre un cauchemard avc Bouygues et ideo
» Migration d'orange à Bouygues qui vire au cauchemard !!

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: