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
» Détection connexion internet
par JL35 Aujourd'hui à 18:39

» Le parcours du cavalier sur un échiquier 8 x 8
par pascal10000 Hier à 13:26

» Casse-tête : Echanger les positions des cavaliers
par papydall Sam 22 Juil 2017 - 19:42

» Compilateur FBPano
par jean_debord Sam 22 Juil 2017 - 10:54

» demande pour recuperer un text speciale
par pascal10000 Ven 21 Juil 2017 - 22:04

» KGF_dll - nouvelles versions
par Klaus Ven 21 Juil 2017 - 14:29

» Amélioration de la commande HINT
par papydall Mer 19 Juil 2017 - 3:30

» TEST SUR SHAPE
par papydall Mer 19 Juil 2017 - 1:17

» Un challenge à relever
par papydall Mar 18 Juil 2017 - 21:25

» Astuce : Indenter plusieurs lignes de code à la fois
par papydall Mar 18 Juil 2017 - 1:32

» Suggestion pour le forum
par papydall Lun 17 Juil 2017 - 20:28

» Truver les handles des onglets de Panoramic Editor
par Klaus Lun 17 Juil 2017 - 18:20

» Synedit_Editor - nouvelles versions
par Klaus Lun 17 Juil 2017 - 13:46

» Détermine si oui ou non un objet est PARENT d'un autre objet
par Klaus Dim 16 Juil 2017 - 11:58

» Une autre façon de terminer une application.
par papydall Dim 16 Juil 2017 - 3:53

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
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  Suivant
AuteurMessage
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 1:48

Vous avez dit "texte sur une courbe" ? Voilà qui est fait...

On peut maintenant, au choix, écrire le texte en ligne droite selon n'importe quel angle, ou le long d'une courbe qui est déterminée par un cercle (ou arc de cercle) o alors une spirale rétrécissante ou grandissante.

Pour cela, une nouvelle fonction
Code:
res% = dll_call4("ConfigureCurveWToP",xcentre%,ycentre%,delta%,facteur%)
permet de choisir les coordonnées du centre du cercle ou de la spirale, l'incrément d'angle à utiliser pour chaque lettre, et le pourcentage de changement du rayon. Le dernier paramètre est bien exprimé en pourcent: 100 signifie "aucun changement", inférieur à 100 signifie réduction (Rnouveau = Ractuel * facteur% / 100) et supérieur à 199 signifie augmentation. Cas spécial: 0 est traité comme 100.

Et voici ce que ça donne:


Ceci est produit par ce programme de démo:
Code:
' text WriteTextOverPicture.bas

dim i%, hnd%, f$, r%, g%, b%, degre%
dim coul%, font$, text$, attrib%, pos%
dim aBold% : aBold% = 1
dim aItalic% : aItalic% = 2
dim aUnder% : aUnder% = 4
dim aStrike% : aStrike% = 8
dim aSize% : aSize% = 16
dim aCurve% : aCurve% = 32768
dim aRotate% : aRotate% = 65536
dim pX% : pX% = 1
dim pY% : pY% = 65536

dll_on "KGF.dll"

open_dialog 2
f$ = file_name$(2)
picture 1 : full_space 1 : ' stretch_on 1
file_load 1,f$

hnd% = handle_canvas(1)
font$ = "Times New Roman"
text$ = "Mon message 12345 azertyuiop"
degre% = 30
pos% = pX%*90 + pY%*140

' écrire le texte une première fois en rouge en ligne droite
r% = 255
g% = 0
b% = 0
coul% = (b%*256+g%)*256+r%
attrib% = aBold% + aUnder% + aItalic% + aSize%*36 + aCurve%*0 + aRotate%*degre%
i% = dll_call6("WriteTextOverPicture",hnd%,pos%,adr(text$),adr(font$),attrib%,coul%)

' écrire le texte une première fois en bleu en spirale
i% = dll_call4("ConfigureCurveWToP",300,285,10,95)
r% = 0
g% = 0
b% = 255
coul% = (b%*256+g%)*256+r%
attrib% = aBold% + aUnder% + aItalic% + aSize%*36 + aCurve%*1 + aRotate%*degre%
i% = dll_call6("WriteTextOverPicture",hnd%,pos%,adr(text$),adr(font$),attrib%,coul%)
end

C'est pas beau, ça ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

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

MessageSujet: re   Ven 31 Aoû 2012 - 2:03

Incroyable !!!!
cheers cheers cheers cheers
Cosmos70 l'a demandé, Klaus l'a réalisé !!!

Même si la spirale rétrécie l'espace entre les lettres, çà ouvre plein de possibité d'effets sur nos textes !
Encore un grand bravo pour cette réalisation.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 2:11

Bravo, Klaus qui va être le prochain à te faire relever un défit ? Ygeronimi as-tu utilisé ton chrono pour calculer le temps entre l'expression du besoin et la livraison de la solution ? Tu es un tueur de problème Klaus... Félicitations.
Qui se souvient d'un vieux truc insoluble pendant que Klaus est chaud ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Ven 31 Aoû 2012 - 2:42

Mon chrono s'arrête au centième de seconde...
Klaus est trop rapide pour lui... Laughing Laughing Laughing

Je me demandais si Klaus pouvait nous faire une dll
pour la fabrication des billets de 500...

lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 3:23

Bravo.
J'ai pensé que ce serait intéressant d'avoir cette possibilité, même si pour l'instant j'en ai pas besoin.
J'ai dit que j'attendrais que tu sois endormi pour télécharger. Mais je ne sais pas à quelle heure où tu te couches. Donc je pense qu'il faut encore attendre un peu.
Tu vas finir par faire peur à Jack! Shocked
J'y pense à l'instant avec KGF. On peut positionner la souris, cliquer, mais je ne sais pas si on peut savoir où elle est sur l'écran, en dehors des objets (sur la form évidemment), mais tu là surement fait. C'est une parenthèse, hors de ce sujet, mais je me suis aperçu que j'avais besoin de cette fonction.Je vais consulter KGF.
Bonne nuit.
Revenir en haut Aller en bas
papydall

avatar

Nombre de messages : 5456
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 6:47

Klaus, tu es quoi au juste Question
Un génie Question Un géant Question Un surhomme Question Un SUPERHOMME Exclamation Exclamation
Ou simplement un être au-dessous de nous?

Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven

J’ai modifié ton code-exemple et même le mot BRAVO n’a plus de sens !

Code:

' WriteTextOverPicture.bas

dim i%, hnd%, degre%
dim coul%, font$, text$, attrib%, pos%
dim aBold% : aBold% = 1
dim aItalic% : aItalic% = 2
dim aUnder% : aUnder% = 4
dim aSize% : aSize% = 16
dim aCurve% : aCurve% = 32768
dim aRotate% : aRotate% = 65536
dim pX% : pX% = 5
dim pY% : pY% = 65536

dll_on "KGF.dll"

width 0, 900 : height 0,700
picture 1 : full_space 1 : color 1,255,255,0
hnd% = handle_canvas(1)
font$ = "Times New Roman"
text$ = "BRAVO  Klaus docteur es DLL"
for degre% = 0 to 360 step 12
    pos% = pX%*90 + pY%*300
  coul% = 255
    attrib% = aBold% + aUnder% + aItalic% + aSize%*36 + aCurve%*0 + aRotate%*degre%
    i% = dll_call6("WriteTextOverPicture",hnd%,pos%,adr(text$),adr(font$),attrib%,coul%)
next degre%

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Invité
Invité



MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 9:31

Jicehel a écrit:
Qui se souvient d'un vieux truc insoluble pendant que Klaus est chaud ?
J'ai trouvé!
Faire des lettres qui dansent en cercle en sautillant Very Happy
Moi la seul question que je me pose, est de savoir combien d'heures Klaus programme par jour. Moi j'ai modifié 3 objets sur une forme cette nuit, quand je me suis réveillé. J'ai le résultat devant moi, mais je ferme pour faire ma journée (de travail et non de dormir).


Dernière édition par cosmos70 le Ven 31 Aoû 2012 - 10:30, édité 1 fois
Revenir en haut Aller en bas
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 9:51

Waouooooooh ! Impressionnant, Papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 10:11

@Cosmos70:
J'ai deux fonctions dans KGF.dll qui retournent la position de la souris:

GetMousePosition retourne la position (x,y) relative à la form active ou (-1,-1) si en-dehors

GetAbsoluteMousePosition retourne la position (x,y) en absolu par rapport à l'écran

Ces deux fonctions se trouvent dans la catégorie de gestion de la souris.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 14:24

Je ne sais plus quoi te demander Klaus, je crois que tu as répondu à tous les problèmes que nous avions en latence (à part sur la 3D et sur l’exécution de procédure/ fonctions avec variables locales mais là, je pense que c'est plus à Jack de répondre car c'est trop proche du langage et je ne vois pas comment ça pourrait être DLLisé).
J'aurais bien des idées de fonctions (genre calculer le nombre de points d'un mouvement aux dames pour savoir quoi jouer en calculant x possibilités de mouvement, mais là, c'est clairement personnelle et en dehors de l'usage de KGF qui regroupe pleins de fonctions pouvant servir à de multiples usages) .
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 15:00

@Klaus,
Merci pour l'info, j'ai même pas eu le temps d'aller voir. Et certainement pas aujourd'hui, vu que demain je pars de bonne heure pour mes deux fils qui entrent au Crous (place oblige)

Curiosité: Est-ce qu'avec les autres navigateurs, on peut répondre avec le mode privé de celui-ci? Ce n'est pas le cas avec QtWeb.
Revenir en haut Aller en bas
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 15:07

Pas à ma connaissance Cosmos, mais bon, je ne sais pas tout ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 17:29

En attendant que Jack ne rajoute les formats d'images demandé par Nardo, je crois que c'est un sujet qui pourrait intéresser Klaus ça: pouvoir ouvrir les format d'image GIF, PSD, ... et les récupérer dans un objet Panoramic (Image, je pense ou Picture)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 19:10

Oui, ça peut se faire - je sais déjà charger de tels fichiers dans un picture en Delphi. Je vais simplement les charger dans l'image interne de mes fonctions de gestion d'image, et le tour sera joué.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

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

MessageSujet: Re   Ven 31 Aoû 2012 - 19:16

Pour la transparence, on pourra, peut être, jouer avec la couleur de fond du picture... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 19:48

Jicehel a écrit:
Pas à ma connaissance Cosmos, mais bon, je ne sais pas tout ...
Ok merci.
Revenir en haut Aller en bas
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Ven 31 Aoû 2012 - 23:55

Il y a une nouvelle fonction dans KGF.dll qui passe du coup à la version V1.42:
Code:

res% = dll_call1("LoadAnyImageFile",adr(nom$))

Elle charge des fichiers image dans le presse-papier, d'où on peut les utiliser comme on veut, par CLIPBOARD_COPY par exemple.

Pour le moment, les extensions suivantes sont gérées:
BMP
JPG et JPEG
GIF

Pour d'autres formats, si le besoin se fait sentir, je peux étudier la question.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

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

MessageSujet: re   Ven 31 Aoû 2012 - 23:58

Bon...ben...je retourne faire chauffer le serveur de "mydrive.ch"... Laughing Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Sam 1 Sep 2012 - 0:10

Même les PNG pour Nardo ? Super Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Sam 1 Sep 2012 - 0:20

Je n'ai pas mentionné les PNG...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Sam 1 Sep 2012 - 0:30

Bon, comme ça tu peux encore faire une amélioration si ça ne passe pas. Non, je plaisante, c'est toi qui voit, mais comme Nardo en a parlé dans les formats intéressants...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Sam 1 Sep 2012 - 0:54

Eh bien, la fonction digère maintenant aussi les PNG ...

Mais attention: les PNG sont codés sur 32 bits en format RGBA avec A représentant 8 bits de canal alpha. Or, Panoramic ne gère de façon interne que des bitmap 24 bits en format RGB. Donc, l'information du canal alpha est perdu - on n'a bien sûr pas de transparence.

Mais cette réserve étant faite, l'image contenue dans le PNG se trouve dans le presse-papier comme les autres...

KGF.dll passe à la version V1.43.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

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

MessageSujet: re   Sam 1 Sep 2012 - 1:08

bouhouhouhou Sad


Je venais juste de télécharger la 1.42... Laughing

Bon..ben...j' y retourne !.... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Nouvelle fonction WriteTextOverPicture   Sam 1 Sep 2012 - 1:21

Tiens bon ygeronimi, je ne pense pas de Klaus arrête de faire des améliorations Wink
Bravo Klaus, je pense que même si ce n'est pas parfait, cela peut répondre à la demande de Nardo
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 - 15:09

Merci Klaus ! Very Happy
Oui ça répond tout à fait à ma demande !!

Quand au problème de transparence, c'est un autre sujet...
je ne crois pas qu'on puisse y faire grand chose... Neutral
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
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 2 sur 3Aller à la page : Précédent  1, 2, 3  Suivant
 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: