Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
 | | Sujet: Re: Nouvelle fonction WriteTextOverPicture Sam 1 Sep 2012 - 14:13 | |
| tu peux tricher puisque dans les fonctions, Klaus gère la transparence sur une couleur à définir  | |
|
Nardo26
Nombre de messages : 2294
Age : 56
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: Nouvelle fonction WriteTextOverPicture Sam 1 Sep 2012 - 15: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" ?
| |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Nouvelle fonction WriteTextOverPicture Sam 1 Sep 2012 - 23: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
| |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Nouvelle fonction WriteTextOverPicture Dim 2 Sep 2012 - 16: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
| |
|
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Dim 2 Sep 2012 - 16:48 | |
| Très bien ! Les *.ico çà peut être très utile surtout avec ton générateur de boutons ....  Je chargerai ce soir vers la version 1.50... Je suis sûr que d'ici là tu vas nous rajouter quelques fonctions de plus... | |
|
Contenu sponsorisé
| | Sujet: Re: Nouvelle fonction WriteTextOverPicture | |
| |
|
Calendrier