demo pour un grid

Sujet: demo pour un grid Sam 30 Mar 2013 - 14:08

bjr a tous

je vous propose une petite démo pour inscrire dans un grid

peut être que parmi vous aviez cette technique

mais elle fonctionne a merveille

Code:

Code:: ' Demo pour inscrir dans un grid
dim strin$,line,y
label selection

grid 1
width 1,190
height 1,400
grid_column 1,2
grid_row 1,10
grid_row_height 1,17
grid_column_width 1,92
grid_write 1,2,1,"Dimention:"
grid_write 1,3,1,string$(18," ")+"X:"
grid_write 1,4,1,string$(18," ")+"Y:"
grid_write 1,5,1,string$(11," ")+"Width:"
grid_write 1,6,1,string$(9," ")+"Height:"
grid_write 1,1,2,"Selectionner!"

on_click 1,selection
on_key_down 1,selection

edit 2:hide 2
font_size 2,9
end

selection:

strin$=text$(2)
if len(strin$)>0 then grid_write 1,line,2,strin$

line=int(mouse_y_left_down(1)/18)+1
y=(18*(line))-18

left 2,93:top 2,y
height 2,18:width 2,94

show 2
set_focus 2
text 2,""

return

c'est simple mais il fallait y pensé sans vouloir me donné des fleurs

allez bonne programation! a+

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 15:37

Très belle idée ! Et extensible: il est facile d'y introduire des tests de validité etc. Bravo !

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 15:49

klaus petit hic que je vient de m'appercevoir

une foi que le grid est termine la commande edit
reste actif et je cherche la parade pour l'éteindre
j'en ai trouvé une mais il faut reclicker sur la case
pour faire apparaitre le contenu du grid ou se trouvait
l’édit est-ce-que tu voit ce que je veut dire?
si tu la trouve sa serai chouette

merci beaucoup

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 16:12

Tu peux faire un double_click comme ci-dessous, mais c'est pas le mieux.

Code:: ' Demo pour inscrir dans un grid
dim strin$,line,y
label selection,fin_selection

grid 1
width 1,190
height 1,400
grid_column 1,2
grid_row 1,10
grid_row_height 1,17
grid_column_width 1,92
grid_write 1,2,1,"Dimention:"
grid_write 1,3,1,string$(18," ")+"X:"
grid_write 1,4,1,string$(18," ")+"Y:"
grid_write 1,5,1,string$(11," ")+"Width:"
grid_write 1,6,1,string$(9," ")+"Height:"
grid_write 1,1,2,"Selectionner!"
on_double_click 1,fin_selection
on_click 1,selection
on_key_down 1,selection

edit 2:hide 2
font_size 2,9
end

selection:
strin$=text$(2)
if len(strin$)>0 then grid_write 1,line,2,strin$
line=int(mouse_y_left_down(1)/18)+1
y=(18*(line))-18
left 2,93:top 2,y
height 2,18:width 2,94
show 2
set_focus 2
text 2,""
return

fin_selection:
hide 2:off_click 1
return

Regarde plutôt les commandes GRID_X_TO_COLUMN(N,X) et GRID_Y_TO_ROW(N,Y)

A+

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 16:30

J'ai apporté 3 modifications:
1. selon la suggestion de Jean-Claude, j'ai utilisé GRID_Y_TO_ROW pour convertir directement l'ordonnée du clic en numéro de ligne. La même chose est possible pour la détermination de la colonne en cas d'un grid multi-colonne.
2. J'ai ajouté un ON_CLICK 0,deselection, ce qui permet de vider et cacher le edit lorsqu'on clique dans la form 0. On aurait aussi bien pu ajouter un bouton "Valider GRID" qui aurait fait la même chose.
3. j'ai fait de sorte que le edit soit préchargé avec le contenu de la case du grid dans laquelle on avait cliqué. Ceci permet, non seulement de saisir des informations, mais également de modifier des informations existantes déjà dans la cellule. Pense à un nom de famille, de ville, une adresse - c'est plus simple comme ça.

Voici le code:

Code:: ' Demo pour inscrir dans un grid
dim strin$,line,y
label selection, deselection

on_click 0,deselection

grid 1
width 1,190
height 1,400
grid_column 1,2
grid_row 1,10
grid_row_height 1,17
grid_column_width 1,92
grid_write 1,2,1,"Dimention:"
grid_write 1,3,1,string$(18," ")+"X:"
grid_write 1,4,1,string$(18," ")+"Y:"
grid_write 1,5,1,string$(11," ")+"Width:"
grid_write 1,6,1,string$(9," ")+"Height:"
grid_write 1,1,2,"Selectionner!"

on_click 1,selection
on_key_down 1,selection

edit 2:hide 2
font_size 2,9
end

deselection:

strin$=text$(2)
if len(strin$)>0 then grid_write 1,line,2,strin$
hide 2 :text 2,""

return

selection:

strin$=text$(2)
if len(strin$)>0 then grid_write 1,line,2,strin$

' line=int(mouse_y_left_down(1)/18)+1
line = GRID_Y_TO_ROW(1,mouse_y_position(1))
text 2,grid_read$(1,line,2)
y=(18*(line))-18

left 2,93:top 2,y
height 2,18:width 2,94

show 2
set_focus 2
' text 2,""

return

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 17:27

@klaus
j'avais commencé a réfléchir sur ton idée avant
que tu me le présente mais une foit que l'edit se
cache la case prédit reste bleu et il manque le string
dans le grid
merci

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 17:31

J'ai corrigé cela dans le code posté ci-dessus.

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 17:44

dsl klaus

mais ton idée abouti au même résulta que le mien
par contre je voudrai te demande une chose

avec panoramic comment peut on ouvrir le dialog des couleur
et de reversé le code couleur au code web

rouge=255,0,0
au code web=#FF0000

merci

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 18:00

La réponse est 2 fois non.

Ce serait possible par l'intermédiaire d'une fonction DLL, et je peux ajouter ces fonctions à KGF.dll si c'est utile.

En attendant, tu calcules la valeur RGB à partir des valeurs individuelles des couleurs, par exemple par une procédure du genre:

Code:: dim RGB1%, RGB2%

sub calculer_RGB(R%,G%,B%)
RGB1% =( (R%*256+G%)*256+B%
RGB2% =( (B%*256+G%)*256+R%
end_sub

et tu utilises, soir RGB1%, soit RBG2%, selon tes besoins.

Sujet: Re: demo pour un grid Sam 30 Mar 2013 - 18:17

merci bcp pour tes réponses et bon w-end
je vais essayé trouvé quelque chose en trifouillant
je trouverai bien quelque chose même dans les autres
forum de programation

Sujet: re Sam 30 Mar 2013 - 19:30

tu peux jeter un oeil, si tu le récupères après Smile

, sur mon webdav

"\Sources\Chevaux\Gestion Planning Ecurie"

C'est en attente de nouvelles fonctions/commandes Panoramic
mais je m'étais bien pris le choux avec "The Grid" ... Laughing

Si cela peut te donner des idées et des infos...

» Un petit programme pour GRID
» Pas de limites pour GRID !
» Fonctions pour GRID
» Autres possibilités pour GRID
» pour contourner le bug GRID ligne fixe