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
» Panoramic et ses curiosités
par Jean Claude Aujourd'hui à 8:48 pm

» Synedit Parameters
par Jean Claude Aujourd'hui à 8:15 pm

» Utilitaire de suppression de fichiers
par Jean Claude Aujourd'hui à 8:11 pm

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Hier à 8:16 pm

» Compilateur FBPano
par jean_debord Hier à 8:56 am

» Bienvenue à Virtualalan !
par UltraVox Hier à 8:18 am

» Concours de Morpions
par jjn4 Mer 21 Juin 2017, 11:04 pm

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017, 3:19 pm

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017, 2:27 pm

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017, 11:44 am

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017, 9:49 pm

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017, 8:06 pm

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017, 5:31 pm

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017, 5:09 pm

» Proposition à la communauté
par Yannick Mar 20 Juin 2017, 2:02 pm

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
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 : 9969
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: changer vos icone panoramic   Sam 30 Mai 2015, 6:30 pm

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 : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 7:35 am

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 : 9969
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 9:42 am

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 : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 11:31 am

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, 11:55 am, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 11:54 am

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 : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 12:29 pm

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 : 9969
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 12:58 pm

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 : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 1:19 pm

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 : 9969
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 1:45 pm

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 : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Dim 31 Mai 2015, 9:02 pm

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 01 Juin 2015, 3:04 am

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 : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: changer vos icone panoramic   Lun 01 Juin 2015, 4:20 am

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/
pascal10000

avatar

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

MessageSujet: Re: changer vos icone panoramic   Lun 01 Juin 2015, 7:08 am

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 : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: changer vos icone panoramic   Lun 01 Juin 2015, 7:19 am

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
-
» changer l'icone a coter de l'url
» Changer des icone
» comment les admin/modérateur font pour changer les icone
» Changer l'icone près de l'adresse
» Icone de sujet différent sur un sous-forum

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