FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Logiciel de planétarium.
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Pedro Sam 23 Nov 2024 - 15:50

» Un autre pense-bête...
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
2.25 du 30 avril 2013: ajout fonction MirrorPicture Emptypar leclode Ven 20 Sep 2024 - 19:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier
Le deal à ne pas rater :
Code promo Nike : -25% dès 50€ d’achats sur tout le site Nike
Voir le deal

 

 2.25 du 30 avril 2013: ajout fonction MirrorPicture

Aller en bas 
2 participants
AuteurMessage
Klaus

Klaus


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

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: 2.25 du 30 avril 2013: ajout fonction MirrorPicture   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 30 Avr 2013 - 0:35

Nouvelle version:
KGF.dll V2.25 du 30/04/2013

Nouveauté:
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.pdf


Et 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"
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: re   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 30 Avr 2013 - 1:27

@ Klaus, les changements de couleurs sont ils normaux ?
2.25 du 30 avril 2013: ajout fonction MirrorPicture Captur14

Peut-être cela vient il de mon image, du moins du format "Jpg" ?

Encore plus drôle ... Laughing

sur certaines images chaque 2ème clic sur "vertical" l' image remonte... Laughing
2.25 du 30 avril 2013: ajout fonction MirrorPicture Captur15

Moins drôle No
2.25 du 30 avril 2013: ajout fonction MirrorPicture Captur16


Dernière édition par ygeronimi le Mar 30 Avr 2013 - 1:38, édité 1 fois
Revenir en haut Aller en bas
Klaus

Klaus


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

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 30 Avr 2013 - 1:38

Oups... Je vais regarder ça !
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: re   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 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 ....
lol!
Revenir en haut Aller en bas
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: re   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 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... scratch
Revenir en haut Aller en bas
Klaus

Klaus


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

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 30 Avr 2013 - 2:07

Merci. Je l'ai pris et vais l'analyser.
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: re   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 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 )
Revenir en haut Aller en bas
Klaus

Klaus


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

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 30 Avr 2013 - 9:52

C'est corrigé ! KGF.dll passe à la version 2.26. Merci à toi pour cette aide au diagnostic efficace !
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: re   2.25 du 30 avril 2013: ajout fonction MirrorPicture EmptyMar 30 Avr 2013 - 10:08

Heureux d'avoir pu t'aider !
Revenir en haut Aller en bas
Contenu sponsorisé





2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty
MessageSujet: Re: 2.25 du 30 avril 2013: ajout fonction MirrorPicture   2.25 du 30 avril 2013: ajout fonction MirrorPicture Empty

Revenir en haut Aller en bas
 
2.25 du 30 avril 2013: ajout fonction MirrorPicture
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» 2.24 du 29 avril 2013: ajout fonction ReplacePictureColor
» 2.10/2.11 du 2 Avril 2013: ajout fonction ClickDefineRect
» 2.14 du 16 Avril 2013: ajout fonction ExecuteProgram
» 2.26 du 30 acril 2013: correction bug dans MirrorPicture
» 2.46 du 13/10/2013: ajout function SendSingleCharAsVKCode

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: