MutanteKey 2

[Ar-S]

Avertir l'utilisateur lorsqu'il a oublié de mettre un MDP
- Arrête le Franglais

[SPH]

Avertir l'utilisateur lorsqu'il a oublié de mettre un MDP
- Arrête le Franglais

le franglais ?

A propos, savez-vous comment on change la largeur d'une colonne dans un ExplorerListGadget ?

thx

[Ar-S]

Oui tu mets ton interface en français ou en anglais mais tu ne mélanges pas les deux.
pour la largeur je l'avais mais je n'arrives pas à remettre la main dessus. De toute façon c'est de l'API

[SPH]

De toute façon c'est de l'API

Il me la faut

Si quelqu'un a ca

Sinon, pour le franglais, j'ai aimé melanger

[Ollivier]

Dans le doute, https://www.purebasic.fr/english/viewto ... 13&t=73381, pour supprimer une colonne d'un gadget et gérer le header (en-tête) car, qui supprime...

[Ar-S]

Code : Tout sélectionner

EnableExplicit

Procedure SetColWidth(Gadget,ColNum,Size)
  ; Ar-S
  SendMessage_(GadgetID(Gadget),#LVM_SETCOLUMNWIDTH,ColNum,Size)
EndProcedure


If OpenWindow(0,0,0,500,250,"Fenêtre ",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  ExplorerListGadget(1,10,10,480,230,"C:\",0)
  
  SetColWidth(1,0,50)   ; 1ere colonne (la 0) à 50 de large
  SetColWidth(1,1,300)  ; 2eme colonne (la 1) à 300 de large
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[SPH]

Code : Tout sélectionner

EnableExplicit

Procedure SetColWidth(Gadget,ColNum,Size)
  ; Ar-S
  SendMessage_(GadgetID(Gadget),#LVM_SETCOLUMNWIDTH,ColNum,Size)
EndProcedure


If OpenWindow(0,0,0,500,250,"Fenêtre ",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  ExplorerListGadget(1,10,10,480,230,"C:\",0)
  
  SetColWidth(1,0,50)   ; 1ere colonne (la 0) à 50 de large
  SetColWidth(1,1,300)  ; 2eme colonne (la 1) à 300 de large
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Je quote car je ne veux pas que qqun l'efface. Grand merci

[Ollivier]

Pour savoir et modifier la largeur d'une colonne, il y a une solution native :

Code : Tout sélectionner

GetGadgetItemAttribute()
SetGadgetItemAttribute()

Syntaxe :

Code : Tout sélectionner

Valeur = GetGadgetItemAttribute(Gadget, 0, #PB_Explorer_ColumnWidth, Colonne)
SetGadgetItemAttribute(Gadget, 0, #PB_Explorer_ColumnWidth, Valeur, Colonne)

Mais, perso, je n'avais bêtement pas fait le lien entre camoufler une colonne et modifier sa largeur. La modif étant aussi manuelle, je n'ai jamais utilisé cette option.

@ArS

Merci pour la méga-simplification. En fait, dans le sujet anglais, ils discutent aussi de "Comment faire une fois que les colonnes sont cachées ?", problème persistant, qu'il y ait API ou pas. Bref, ils se sont étalés sur des problèmes que, peut-être SPH ne rencontre pas.

[SPH]

VOILA : Version beta 4 (finale)

Je n'ai trouvé aucun bug dans cette beta. Aussi, je vous la laisse tester et s'il n'y a pas de reclamations je la passerais en V1.0


GRAND merci à Marc56, falsam, Ar-S et KCC (pour son test)

[Ar-S]

Code : Tout sélectionner

GetGadgetItemAttribute()/SetGadgetItemAttribute() #PB_Explorer_ColumnWidth

J'ai pourtant recherché hier soir avant de poser l'API je suis passé à coté. Merci pour ce rafraichissement.

[SPH]

Marche bien ici W10 X64 / v5.70 X86

1/ Ce qui serait cool c'est de rajouter un champ avec le chemin entier du dossier ou est le fichier à crypter

2/ Tu devrais contrôler que le chemin que l'on rentre dans le champs "Crypter/Décrypter ici" se termine avec un antislash et au besoin en rajouter un, car si on en met pas...bah ça marche pas correctement

3/ Il manque l'icone dans le zip

4/ Ce serait bien si on pouvait réduire la fenêtre principale dans la barre des taches

La totalité de ce que tu as dis sera fait (par contre, bye bye le drag&drop)

[Kwai chang caine]

Je te remercie SPH
En fait j'ai été surpris de voir que je n'étais pas le seul à utiliser le presse-papier pour accéder aux longues arborescences
Faut dire que comme j'aime bien retrouver rapidement, je structure vachement mes données
Exemple :

Code : Tout sélectionner

C:\Kcc\Informatique\Applications\Donnees\Images\Gif\Animes\Femmes\

Et ça c'est dans les plus courts

Donc chaque fichier est dans whatmilles dossiers imbriqués, mais c'est le panard pour retrouver, je ne perds jamais un fichier si il a été rangé correctement auparavant
Et c'est pas dur pour les retrouver rapidement car je fait un raccourcis, et aussi un programme qui m'ouvre le dossier ou est le fichier recherché.
Une fois ce dossier ouvert, je copie le chemin de l'explorateur et le colle dans le champs du logiciel qui doit le traiter (quasi tous les giciels ont un champs comme ça, ou alors dans le sélecteur de dossier il y a parfois ce champs)

Le seul hic de cette méthode c'est la longueur des chemins que windows a du mal à gérer
Donc une idée m'est venue, c'est de ne mettre qu'une lettre par catégorie
L'équivalent du chemin du dessus donne par exemple (Cet exemple est bidon)

Code : Tout sélectionner

C:\A\B\A\C\L\I\A\D\

Et depuis je me tripote car j'ai plus les problème de longueur, donc le beurre et l'argent du beurre, la seule chose c'est qu'il a fallu que je retienne la correspondance de chaque lettre

[Micoute]

Bonjour KCC,

pourquoi, ne fais-tu pas un programme qui fabrique des acronymes ?

Exemple : Acronyme("Fédération Lamentable des Imbéciles en Casquette") donne FLIC, car le programme ne prend que la première lettre majuscule de chaque mot.

[venom]

Bonjour KCC,

pourquoi, ne fais-tu pas un programme qui fabrique des acronymes ?

Exemple : Acronyme("Fédération Lamentable des Imbéciles en Casquette") donne FLIC, car le programme ne prend que la première lettre majuscule de chaque mot.

Code : Tout sélectionner

Texte$ = "Bonjour micoute voici un exemple"
Resultat = CountString(Texte$, " ")

Debug Texte$ 
Debug "---"
For k=1 To Resultat+1
 Debug UCase(Left(StringField(Texte$, k, " "), 1))
Next

Pour Micoute et KCC






@++

[SPH]

Voila, la beta 7 est sortie

(1er post)