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
» A propos des attributs de fichier
par Oscaribout Aujourd'hui à 1:53

» Problème de math
par Marc37 Hier à 23:04

» Problème de math
par braveen Hier à 21:40

» I Love You
par papydall Hier à 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Hier à 17:06

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 changer vos icone panoramic

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
Klaus

avatar

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

MessageSujet: Re: changer vos icone panoramic   Sam 30 Mai 2015 - 19:30

J'ai trouvé une astuce pas trop complexe pour charger une icône de n'importe quelle taille, dans un picture. Je vais intégrer cela dans la fonction, de façon transparente.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

Nombre de messages : 536
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 8:35

bjr!
merci klaus et nardo pour vos remarque et pour l'aide
je pense que ça vas aidé a tout les panoramiciens
a changer l' icône de leurs projet
bon w.end
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 10:42

Attention, Pascal10000 !

L'icône du projet peut avoir 16, 32, 64,128 ou 256 pixels - tu peux l'installer par RessourceHacker comme tu le fais. C'est l'icône qui s'affiche dans l'explorateur des fichiers, selon l'option choisie dans le volet "Affichage" de l'explorateur.

L'icône affichée en haut à gauche de la barre de titre de la Form 0 du programme est la version 16 pixels de cette icône. On ne peut en aucun cas modifier cette icône par programme, même par les fonctions de KGF.dll.

La fonction LoadAnyImageFile de KGF.dll est destinée à charger une image quelconque dans le presse-papier. Y compris une icône? De là, elle peut être chargée dans un objet PICTURE de Panoramic. Mais c'est devenu une image bitmap, pas une icône !

Donc, pour résumer: si tu veux changer l'icône de l'application, tu as choisi le bon chemin avec le code que tu as publié, et il n'y en a pas d'autre !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

Nombre de messages : 536
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 12:31

ok klaus et merci
je vais essayer ça mais c juste pour faire un aperçu de l’icône
même si il est en bmp dans le picture le principale c'est que l’icône soit
trj dans le dossier pour qu'il soit la suite je cherche comment faire
pour que l’icône apparaisse bien dans l'explrateur parce que dès qu'on lui donne
le nom d’origine par exe: GetIcon_nouveau.exe en GetIcon.exe l’icône de panoramic
réapparais et c un peut dommage une fois ce p'tit défaut résolu il sera au point


Dernière édition par pascal10000 le Dim 31 Mai 2015 - 12:55, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 12:54

Pas encore... c'est en cours. Je signalerai lorsque ce sera prêt.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

Nombre de messages : 536
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 13:29

stooooooooooooop
je suis dsl klaus pour t'avoir dérangé j'ai trouver ce qui c passé
ce matin j'ai rajouté a l'icone un format de 32x32 pixel ce qui fait
que l'icone a deux ico une de 32x32 + 48x48 et là !!la grosse surprise
ça marche a merveille
du coup tu t creuser creusé la tête pour rien je suis vraiment navré
mais bon j'apprend je ne c pas tout sur ce foutu windows je regrette
vraiment mon amiga 1200 punaise
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 13:58

Ah, tu as découvert la capacité de Windows de gérer plusieurs résolutions de la même icône dans un même fichier ICO ! En effect, tu peux intégrer dans le même fichier, autant d'icônes que tu veux. Chacune peut avoir sa résolution, et être en noir et blanc, et avec une couleur codée sur une des palettes de couleur système ou par couleur RGB en 3x8 bits. On peut accéder une icône spécifique par son indice dans le fichier (0,1,2,...) ou par sa résolution (16, 32, 48, ... pixels).

Pour une résolution donnée, Windows affiche systématiquement la première icône (celle avec l'indice le plus faible) pour la résolution en question. Et ma fonction LoadAnyImage affiche la première icône du fichier ayant une résolution de 32 pixels, et à défaut, ma première icône "tronquée" sur cette résolution.

Windows peut même gérer des icônes "animées" en affichant successivement toutes les icônes d'une même résolution, qui devraient alors avoir un dessin variant d'icône en icône.

Voilà, je pense que tu y verras un peu plus clair maintenant dans la jungle des icônes !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

Nombre de messages : 536
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 14:19

klaus
pour ça je connaissais cette particularité à l’icône
mais du fait qu'il y ai qu'un seul c’était un mystère
si tu regarde bien dans panoramic il n'en possède qu'un
seul de 48x48, donc voilà il n'y avais pas de raison pour que ça ne
marche pas
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 14:45

Je sais bien, Pascal10000 ! Mais la DLL est écrite en Delphi 6 qui ne connaît actuellement que les icônes de 32 pixels. Et donc, il prend la première icône disponible (s'il n'y a pas d'icônes de 32 pixels) et tronque l'image à 32 pixels dans chaque sens. C'est aussi simple que ça.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

Nombre de messages : 536
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015 - 22:02

d'accord klaus j'ai pris note bonne soirée!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: changer vos icone panoramic   Lun 1 Juin 2015 - 4:04

Hello !
Je me suis permis de reprendre le programme de Pascal pour montrer les différentes fonctions Panoramic que l'on peut employer.
Cela donne ceci (j’espère que Pascal ne m'en voudra pas) :
Code:
HIDE 0
DIM fichier$,i%,rhacker$
DIM TmpDir$:TmpDir$="C:\TempPano"
LABEL TraiteSelection, Modifier, FinProg

rhacker$="C:\Program Files\Resource Hacker\ResHacker.exe"

' Si le répertoire de travail n'existe pas
IF DIR_EXISTS(TmpDir$)=0
 DIR_MAKE TmpDir$
 ' on mémorise comme quoi il n'existait pas, pour pouvoir le supprimer lors de l'arrêt du programme
 ' et puis cela fera plaisir à ygeronimi ;-)
 DIM DirRemove%
END_IF

' Test pour éviter un message d'erreur
IF FILE_EXISTS("form.dll")=1
  DLL_ON "form.dll"
  i% = DLL_CALL2("SetSize",HANDLE(0),0)
  i% = DLL_CALL2("SetMinimize",HANDLE(0),0)
  i% = DLL_CALL2("SetMaximize",HANDLE(0),0)
  dll_off
END_IF

' Petite "soupe" pour mettre en place l'IHM
caption 0,"GetIcon"
height 0,300 : width 0,600

container 20: Caption 20,"  Cible  "
top 20,16 : Left 20,20 : height 20,88 : width 20,450

ALPHA  21: PARENT 21,20 : TOP 21,18 : LEFT 21,8  : CAPTION 21,"Executable"
EDIT   22: PARENT 22,20 : TOP 22,16 : LEFT 22,80 : WIDTH 22,300 : font_size 22,10 : i%=LEFT(22)+ WIDTH(22)+8
BUTTON 23: PARENT 23,20: TOP 23,16 : LEFT 23,i%: WIDTH 23,32  : CAPTION 23,"..."

ALPHA  31: PARENT 31,20 : TOP 31,50 : LEFT 31,8  : CAPTION 31,"Icône"
EDIT   32: parent 32,20 : TOP 32,48 : LEFT 32,80 : WIDTH 32, WIDTH(22) : font_size 32,10
BUTTON 33: PARENT 33,20: TOP 33,48 : LEFT 33,i%: WIDTH 33,32  : CAPTION 33,"..."

BUTTON 40: TOP 40, TOP(20)+HEIGHT(20)+16: LEFT 40,LEFT(20):CAPTION 40,"Modifier"

HEIGHT 0,TOP(40)+80 : LEFT 0,(SCREEN_X-WIDTH(0))/2 : TOP 0,(SCREEN_Y-HEIGHT(0))/2

open_dialog 50

' On déclare les évènements suivis
ON_CLICK 23,TraiteSelection
ON_CLICK 33,TraiteSelection
ON_CLICK 40,Modifier
ON_CLOSE 0,FinProg

SHOW 0

end

' Sélection d'un fichier (exec / icone)
TraiteSelection:
  SELECT NUMBER_CLICK
    CASE 23
      filter 50,"Executable | *.exe"
    CASE 33
      filter 50,"Icône | *.ico;*.png"
  END_SELECT
  fichier$=file_name$(50)
  if fichier$="_" then return
  TEXT NUMBER_CLICK-1,fichier$ : ' mise à jour du champ d'édition
RETURN

Modifier:
  IF FILE_EXISTS(TEXT$(22))=0 OR FILE_EXISTS(TEXT$(32))=0
    MESSAGE "Veuillez sélectionner l'exécutable et l’icône à associer"
    RETURN
  END_IF

  IF FILE_EXISTS(rhacker$)<>1
    MESSAGE "Selectionnez l'exécutable ResHacker"
    filter 50,"ResHacker.exe"
    rhacker$=file_name$(50)
    if rhacker$="_" then return
  END_IF

  fichier$=FILE_EXTRACT_NAME$(TEXT$(22)) : fichier$=LEFT$(fichier$,LEN(fichier$)-4)
  file_open_write 1,TmpDir$+"\script.scp"
    file_writeln 1,"[FILENAMES]"
    file_writeln 1,"Exe= "+CHR$(34)+TEXT$(22)+CHR$(34)
    file_writeln 1,"SaveAs= "+CHR$(34)+FILE_EXTRACT_PATH$(TEXT$(22))+Fichier$+".new.exe"+CHR$(34)
    file_writeln 1,"[COMMANDS]"
    file_writeln 1,"-addoverwrite "+CHR$(34)+TEXT$(32)+CHR$(34)+", ICONGROUP,MAINICON,0"
  file_close 1
  file_open_write 1,TmpDir$+"\script.bat"
    file_writeln 1,"  "+CHR$(34)+rhacker$+CHR$(34)+" -script "+CHR$(34)+TmpDir$+"\script.scp"+CHR$(34)
  file_close 1
  fichier$= TmpDir$+"\script.bat"
  IF FILE_EXISTS("utils.dll")=1
    DLL_ON "utils.dll"
    i% = DLL_CALL1("ExecuteAndWait", ADR(fichier$))
    DLL_OFF
  ELSE
    execute_wait fichier$
  END_IF
  MESSAGE "Ok : Icône modifiée"
RETURN

FinProg:
  IF VARIABLE("DirRemove%")=1
    IF FILE_EXISTS(TmpDir$+"\script.scp")=1 THEN FILE_DELETE TmpDir$+"\script.scp"
    IF FILE_EXISTS(TmpDir$+"\script.bat")=1 THEN FILE_DELETE TmpDir$+"\script.bat"
    DIR_REMOVE TmpDir$
  END_IF
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
papydall

avatar

Nombre de messages : 5547
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: changer vos icone panoramic   Lun 1 Juin 2015 - 5:20

Salut tout le mode.
Je prends le train en marche.
Bravo Pascal10000 :  c’est un  bel utilitaire.

Je viens d’essayer le dernier code posté par Nardo26  :  c’est OK.
Merci à vous deux (sans oublier les autres !)


NB : Sur mon Webdav, vous trouvez un fichier Icones.zip. Vous pouvez le télécharger.
Il contient plusieurs centaines d’icônes (32 X 32)  classés par thème.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
pascal10000

avatar

Nombre de messages : 536
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Lun 1 Juin 2015 - 8:08

bjr a tous
l'histoire de l’icône dans Windows
c bon c'est résolu
tout simplement une configuration a faire

1: options des dossiers
2: affichage
3: cocher l'option "Toujours afficher des icônes, jamais des miniatures"
4: appliquer
5: ok
et voila
tout rentre dans l'ordre décocher l'option pour revenir à la configuration
précédente
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 536
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Lun 1 Juin 2015 - 8:19

nardo
mais non je t'en veut pas bien au contraire si tu peut l'amélioré
ça serai un plus, je l'ai créé pour nous tous
et j'avais pensé a rajouter d'ouvrir une bibliothèque 'dll'
ou autre et de le télécharger dans le dossier voulus pour
obtenir le même résulta
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: changer vos icone panoramic   

Revenir en haut Aller en bas
 
changer vos icone panoramic
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» comment changer les icônes [résolu]
» Changer l'icone d'une loco
» Comment voir ce qu'il y a dans un fichier GPI
» Est-il possible de changer icône de direction ???
» [Résolu] icone shredder

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: