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
» TourD Version 2
par Minibug Aujourd'hui à 1:50

» La métamatière et le peuple
par JL35 Hier à 21:18

» Capture d'une zone de l'écran total
par JL35 Hier à 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Hier à 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

» KGF_dll - nouvelles versions
par Klaus Mer 15 Nov 2017 - 2:08

» Analyser un code Panoramic
par JL35 Lun 13 Nov 2017 - 18:38

» Un bonjour en passant...
par Minibug Dim 12 Nov 2017 - 19:57

» mise a jour calculatrice
par joeeee2017 Dim 12 Nov 2017 - 4:20

» comment accèder à l'heure et à la date d'un fichier
par Klaus Sam 11 Nov 2017 - 0:53

» Compilateur FBPano
par Jicehel Mer 8 Nov 2017 - 15:22

» Mon adresse e-mail
par treehouse Mer 8 Nov 2017 - 14:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
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 : 5859
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 : 10112
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 : 10112
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 : 7997
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

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: