recherche de ville francaise

Flype · Message par **Flype** » mar. 27/avr./2004 9:17

coucou à tous ceux que je connais et autres

je developpe en ce moment pour ma boite un progiciel qui n'est censé servir qu'aux gens qui partage actuellement mon métier ( la monétique )
mais une fonction pourrait peut etre vous interesser !

j'ai inclus dans le prog de quoi rechercher une ville par son nom ou par son code postal. il y a aussi les prefectures, les departements, les regions...

A qui puis-je balancer un zip pour que vous puissiez y jeter un oeil ?

-----------

Merci au Soldat Inconnu pour l'hebergement sur son serveur des ScreenShots et de l'archive :

http://perso.wanadoo.fr/lesoldatinconnu ... panel1.jpg
http://perso.wanadoo.fr/lesoldatinconnu ... panel2.jpg

et le fichier zip :
http://perso.wanadoo.fr/lesoldatinconnu ... uerite.zip (500ko)

Le Soldat Inconnu

salut Flype,

ça fait plaisir de te voir

tu peux me l'envoyer, je le mettrai sur mon ftp

Flype · Message par **Flype** » mar. 27/avr./2004 10:10

ha, regis, quelqu'un sur qui on peut compter

ok envoyé

Anonyme2 · Message par **Anonyme2** » mar. 27/avr./2004 10:20

Salut Flype !

Content, très content de te relire sur le Forum !

Flype · Message par **Flype** » mar. 27/avr./2004 10:24

oui moi aussi...
ya des choses qui changent pas, je suis toujours aussi mordu de pb
mais parfois g internet parfois pas alors je me suis peu a peu detaché du forum d'autant qu'il y a (eu) des hauts et des bas.
mais c pas grave zetes toujours mes pb user favoris

en tout cas merci denis pour ta lib listicon qui ne m'a jamais autant servit que dans ce prog qui fait la joie de mes collegues et de mon patron...

Anonyme2 · Message par **Anonyme2** » mar. 27/avr./2004 10:45

Merci,

la version 1.31 a encore un bug sur la gestion des couleur des lignes/colonnes/cellules lorque on utilise plusieurs ListIcon, et dans des cas particuliers, corrigé avec la prochaine version mais vraiment, les thèmes XP me font c... et j'ai quelques problèmes avec la taille du header.

Normalement la prochaine version permettra d'utiliser les polices dans les cellules sauf que de la manière dont c'est fait, les lignes ne sont pas redimensionnées

ainsi que des commandes pour mettre des images/icônes dans les en-têtes de colonnes avec la gestion de la transparence (j'ai beaucoup ramé pour arriver à un truc qui à l'air d'aller et qui utilise les commandes Catchimage et loadimage de PB et je pense que celà doit marcher avec la gestion des autres formats utilisé par la librairie de El_Choni, mais faut que je fasse encore des tests et j'ai laissé tombé car les problèmes avec les thèmes XP m'ont fatigué...)

Et puis il y a la doc, c'est longgggggggggggggg

Flype · Message par **Flype** » mar. 27/avr./2004 10:57

j'avais remarqué un bug sur XP mais sans thème et concernant la colorisation des items : lorsque le ListIconGadget est imbriqué dans un splitter la colorisation ne faisait pas. genant j'avais du laisser tomber.
pas grave m'en suis sorti autrement

Anonyme2 · Message par **Anonyme2** » mar. 27/avr./2004 11:01

Merci de l'info,

je vais regarder si je trouve ce qui ne va pas.

Flype · Message par **Flype** » mar. 27/avr./2004 11:47

je viens d'essayer et ca marche la preuve avec ce bout de code.
n'empeche avant ca marchait pas. c'est peut etre grace à pb 3.90

Code : Tout sélectionner

OpenWindow(0,50,50,500,500,#pb_window_systemmenu |# PB_Window_SizeGadget,"ListIcon")
CreateGadgetList(WindowID())
ListIconGadget(0,5,5,490,490,"Col1",80,#PB_ListIcon_FullRowSelect | #PB_ListIcon_HeaderDragDrop | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(0,1,"Col2",80)
AddGadgetColumn(0,2,"Col3",80)
ligne$ = "a"+Chr(10)+"b"+Chr(10)+"c"
AddGadgetItem(0,-1,ligne$)
AddGadgetItem(0,-1,ligne$)
AddGadgetItem(0,-1,ligne$)
AddGadgetItem(0,-1,ligne$)
SetColumnColor(0,1,$88FFFF,$AAAAAA)
SetItemColor(0,1,1,$000000,$88FFFF)
TextGadget(1,0,0,0,0,"Essai",#PB_Text_Center|#PB_Text_Border)
SplitterGadget(2,5,5,490,490,0,1)
Procedure CB(WindowID,Message,wParam,lParam)
  result = #PB_ProcessPureBasicEvents
  If Message=#WM_SIZE
    ResizeGadget(2,5,5,WindowWidth()-10,WindowHeight()-10)
  EndIf
  ProcedureReturn result
EndProcedure
SetWindowCallback(@CB())
Repeat : Until WaitWindowEvent()=#pb_event_closewindow

Anonyme2 · Message par **Anonyme2** » mar. 27/avr./2004 13:17

Ouf, ca marche,

car ça voulait dire que les événements gérés dans la callback n'étaitent pas interceptés !

Le Soldat Inconnu

bon, l'oeuvre de notre ami flype

d'abord les captures d'écran :
http://perso.wanadoo.fr/lesoldatinconnu ... panel1.jpg
http://perso.wanadoo.fr/lesoldatinconnu ... panel2.jpg

et le fichier zip :
http://perso.wanadoo.fr/lesoldatinconnu ... uerite.zip (500ko)

Flype · Message par **Flype** » mar. 27/avr./2004 15:10

merci regis

dites moi juste si la partie "france" vous interesse...
parceque pour le reste cà ne concernera presque personne

si oui j'en ferais un prog à part

Anonyme2 · Message par **Anonyme2** » mar. 27/avr./2004 15:16

J'aime beaucoup les couleurs, ça change des fenêtres grises si tristes.

Sinon le boutons couleurs, tu fais comment ? car moi j'utilise un code de François Weil (il est de retour sur le forum Anglais) avec des commandes 2D.

Je ne me suis pas encore penché sur une librairie pour la couleur des boutons mais j'aimerais bien en faire une petite.

Anonyme2 · Message par **Anonyme2** » mar. 27/avr./2004 15:20

Je prend et même le source si t'es d'accord.

Flype · Message par **Flype** » mar. 27/avr./2004 16:04

franchement si tu savais...

pour les boutons du bas ( nouveau, imprimer, ... ) se sont simplement des ButtonImageGadget() LOL et oui pareil, je dessine à la volée des imagettes avec les fonctions 2d

par contre les TextGadget ( en noir dans mon prog ) sont basé sur qqchose que tu doit bien connaitre :

Code : Tout sélectionner


Global FOND_NOIR.l
FOND_NOIR = CreateSolidBrush_($000000)

Procedure APP_CallBack(WindowID,Message,wParam,lParam)
  
  result = #PB_ProcessPureBasicEvents
  
  Select Message
    
    Case #WM_CTLCOLORSTATIC
      If lParam=GadgetID(0)
        SetBkMode_(wParam,#TRANSPARENT)
        SetTextColor_(wParam,$FFFFFF)
        SetBkColor_(wParam,$000000)
        result=FOND_NOIR
      EndIf
  
  EndSelect
  
  ProcedureReturn result
  
EndProcedure

l'important etant de retourner la "brush" qu'on peut ensuite effacer grace à DeleteObject_()

j'utilise le meme principe pour les ComboBox() et les EditorGadget() grace aux Evenements :
#WM_CTLCOLORLISTBOX
#WM_CTLCOLOREDIT

bon j espere ne pas avoir fait de faute - je viens de tapez çà à la volée...