Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: 2.25 du 30 avril 2013: ajout fonction MirrorPicture Mar 30 Avr 2013 - 0:35 | |
| Nouvelle version: KGF.dll V2.25 du 30/04/2013Nouveauté: nouvelle fonction MirrorPicture(dir%)Cette fonction applique un effet miroir sur l'image interne. dir%=1 ==> symétrie selon un axe horizontal dir%=2 ==> symétrie selon un axe vertical La doc est à jour. Modules modifiés: KGF.dll KGF_SUB.bas KGF.chm, KGF.doc, KGF.pdfEt voici un programme de démo. Chargez n'importe quelle image. Elle s'affichera à gauche. Puis, utilisez un des boutons de droite vertical ou horizontal, et dans le picture de droite, le résultat s'affiche. Cliquez à nouveau sur le même bouton et l'image d'origine réapparaît. Cliquez vertical-horizontal-vertical_horizontal et l'image d'origine réapparaît. La fonction est très rapide. Voici le code: - Code:
-
' test_symetrie.bas
label charger, vert, horz, close
dim s$, open%
full_space 0 : on_close 0,close picture 1 : top 1,10 : left 1,10 width 1,500 : height 1,400 : stretch_on 1 picture 2 : top 2,10 : left 2,520 width 2,500 : height 2,400 : stretch_on 2 button 11 : top 11,430 : left 11,200 caption 11,"Charger" : on_click 11,charger button 12 : top 12,430 : left 12,600 caption 12,"Vertical" : on_click 12,vert button 13 : top 13,430 : left 13,720 caption 13,"Horizontal" : on_click 13,horz open_dialog 21
KGF_initialize("KGF.dll") SetImmediateMode(1)
end
close: if open%=1 then SavePicture() dll_off return
charger: s$ = file_name$(21) if s$="_" then return file_load 1,s$ clipboard_copy 1 LoadPicture() open% = 1 return vert: MirrorPicture(2) clipboard_paste 2 return horz: MirrorPicture(1) clipboard_paste 2 return #INCLUDE "KGF_SUB.bas"
| |
|
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Mar 30 Avr 2013 - 1:27 | |
| @ Klaus, les changements de couleurs sont ils normaux ? Peut-être cela vient il de mon image, du moins du format "Jpg" ? Encore plus drôle ... sur certaines images chaque 2ème clic sur "vertical" l' image remonte... Moins drôle
Dernière édition par ygeronimi le Mar 30 Avr 2013 - 1:38, édité 1 fois | |
|
Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture Mar 30 Avr 2013 - 1:38 | |
| Oups... Je vais regarder ça ! | |
|
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Mar 30 Avr 2013 - 1:40 | |
| Ne t' affoles pas, j'ai bien réussi à créer une fenêtre qui se déplace toute seule .... | |
|
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Mar 30 Avr 2013 - 1:53 | |
| @ Klaus, Je t'ai mis sur mon webdav une serie de six clic sur vertical de ma photo1 "Pour Klaus.zip"( cela ne passe pas chez skydrive ) Je pense que les couleurs sont inversées en me^me temps que les coordonnées des pixels. Par contre je n'explique pas les deux autres cas... | |
|
Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture Mar 30 Avr 2013 - 2:07 | |
| Merci. Je l'ai pris et vais l'analyser. | |
|
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Mar 30 Avr 2013 - 2:22 | |
| De rien, tu passes assez de temps sur nos programmes et à nous confectionner de nouvelles fonctions pour que l'on en prenne pour t'aider un peu...
J'ai mis une deuxième série " Pour Klaus2" qui illustre le deuxième cas ( image qui monte ) | |
|
Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture Mar 30 Avr 2013 - 9:52 | |
| C'est corrigé ! KGF.dll passe à la version 2.26. Merci à toi pour cette aide au diagnostic efficace ! | |
|
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Mar 30 Avr 2013 - 10:08 | |
| Heureux d'avoir pu t'aider !
| |
|
Contenu sponsorisé
| Sujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture | |
| |
|