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
» Calculus
par JL35 Aujourd'hui à 15:43

» plus de caractères avec chr$()
par Marc Aujourd'hui à 14:59

» Animations : Livres et leçons sur le français
par papydall Aujourd'hui à 3:22

» Animations FLASH pour différentes branches de la Science
par papydall Aujourd'hui à 2:54

» @ Jack : lapsus clavis
par Marc Hier à 19:19

» Question ?
par papydall Hier à 14:00

» Quelques nouvelles ...
par Ouf_ca_passe Ven 19 Jan 2018 - 18:07

» Mah-Jong français
par Jicehel Ven 19 Jan 2018 - 11:10

» Rotation d'une image d'un angle quelconque
par JL35 Jeu 18 Jan 2018 - 16:09

» StratégoV8 et V9
par Jean Claude Jeu 18 Jan 2018 - 14:22

» GRID_LOAD
par Jean Claude Mer 17 Jan 2018 - 21:04

» HVIEWER
par Yannick Mer 17 Jan 2018 - 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Nouvelle fonction WriteTextOverPicture

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

avatar

Nombre de messages : 5877
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Sam 1 Sep 2012 - 15:13

tu peux tricher puisque dans les fonctions, Klaus gère la transparence sur une couleur à définir Wink
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: Nouvelle fonction WriteTextOverPicture   Sam 1 Sep 2012 - 16:15

@Klaus,
Une petite question après je t'embête plus :
Comme tu as fait la commande "LoadAnyImageFile"
Est-ce que cela te serait difficile de faire dans le même style "SaveAnyImageFile" ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Dim 2 Sep 2012 - 0:44

Non, ce ne serait pas vraiment difficile à réaliser. Tout dépend des format souhaités en sortie. Les mêmes qu'en entrée ?

EDIT

KGF.dll passe à la version V1.44 avec 3 nouveaux formats gérés par LoadAnyImageFile: EMF ICO WMF
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Dim 2 Sep 2012 - 17:21

Nouvelle version:
V1.46 02/09/2012 ajout fonction SaveAnyImageFile formats comme LoadAnyImageFile

La nouvelle fonction

Code:
res% = dll_call1("SaveAnyImageFile",adr(nom$))
permet de sauvegarder l'image contenue dans le presse-papier sous les mêmes formats que ceux acceptés par la routine LoadAnyImageFile, SAUF EMF/WMF. C'est l'extension du nom de fichier qui détermine le format de sortie.

Attention: les formats GIF et PNG fonctionnent, mais c'est relativement long !

Voici la démo:
Code:
' test_SaveAnyImageFiles.bas

label open, save

dim f$, res%

dll_on "KGF.dll"

open_dialog 11
save_dialog 12

button 1 : top 1,10 : left 1,10
  caption 1,"Open" : on_click 1,open
 
button 2 : top 2,10 : left 2,110
  caption 2,"Save" : on_click 2,save
 
picture 3 : top 3,40 : left 3,10 : width 3,450
  height 3,300 : stretch_on 3

end

open:
  f$ = file_name$(11)
  if f$="_" then return
  res% = dll_call1("LoadAnyImageFile",adr(f$))
  clipboard_paste 3
  display
  return

 
save:
  f$ = file_name$(12)
  if f$="_" then return
  inactive 1 : inactive 2
  res% = dll_call1("SaveAnyImageFile",adr(f$))
  active 1 : active 2
  return
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8011
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 2 Sep 2012 - 17:48

Très bien !

Les *.ico çà peut être très utile surtout avec ton générateur de boutons .... Laughing

Je chargerai ce soir vers la version 1.50... Laughing

Je suis sûr que d'ici là tu vas nous rajouter quelques fonctions de plus... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   

Revenir en haut Aller en bas
 
Nouvelle fonction WriteTextOverPicture
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 3 sur 3Aller à la page : Précédent  1, 2, 3
 Sujets similaires
-
» Nouvelle de Numericable (Mobile / Free)
» Bonne nouvelle pour les non-dégroupés de FREE !!!!
» Nouvelle animation .....[résolu merci]
» nouvelle commande
» Nouvelle voiture pour Kit dans la suite de K2000

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: