un MemoRich greffé sur Panoramic

Invité

Voici un programme écrit en AutoIt qui m'a permis d'avoir un MemoRich pour Panoramic.
Ce programme je l'ai conçu pour moi, car j'en ai besoin. Il n'est pas fini, et j'ai besoin de votre aide pour le finaliser.
Vu que j'ai déjà fait le texte au format RTF avec ce programme, vous le lisez pour vous en servir.
Il faut clier ici: (on ne voit pas le lien lorsqu'on est pas connecté)
fichier zip du programme

Joyeuses fêtes! drunken

Il faut que je rajoute que pour voir la barre d'outil en haut en bas du MemoRich, lorsque la barre est invisible, il y a un bouton très peu visible sur la longueur du memorich en bas de celui-ci. Peut-être rajouter quelques pixels, on ne la voit presque pas.

J'ai oublié de dire que pour mettre en couleur, comme pour les attributs, après sélection, il faut cliquer sur un carré coloré, et ensuite sur A pour le texte, ou le carré en dessous pour le fond du texte.

Je viens de rajouter des scroll_bar pour la couleur, ainsi qu'un zoom
Donc il faut recharger le fichier dont le lien devrait être identique. A tout hazard car j'ai pas contrôlé: ( 1er janvier 2012 )
Voir le Fichier : MEMO_RICH.7z

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Séduisant ton programme cosmos, et à voir de plus près !
Bonnes fêtes à toi également ! cheers

Bonnes fêtes à tous !

Et que l'année qui vient soit meilleure que celle qui se termine !!!
(croisons les doigts.. Wink

)

~~PS: Cosmos, j'ai beau chercher sur ton site, je ne trouve pas ton fichier zip...~~
Oups ! Embarassed

j'avais pas fais gaffe au lien dans ton 1er post....

Invité

Je vous remercie J'ai surtout besoin de savoir, c'est si vous voyez des problèmes sur votre machine Apparemment il y a plusieurs choix pour compiler, et j'ai un vieux XP
J'ai aussi besoin de vos conseils sur le programme En m'en servant un peu plus et sans les messages, par exemple, j'ai vu qu'il fallait que je montre un effet de clic sur le choix des couleurs, du caractère, et du fond De plus j'ai constaté que j'ai oublié de mettre une mémoire sur ceux-ci Ainsi si je clique sur une couleur, et après sur la lettre, la fois suivante en cliquant sur le carré du fond, c'est la couleur qui a été cliqué pour la lettre qui apparaît.

C'est ce type de remarque qui m'intéresse. Il est plus facile d'évoluer dans le bon sens, lorsqu'on est sur le programme, qu'une fois complètement déconnecté de celui-ci. Surtout que j'utilise 2 langages différents, dont l'un je ne maîtrise pas bien encore, et qu'ils soient compatible. Donc merci de me dire ce que vous en pensez, et ce qui ne va pas.

Pour l'instant on ne peut mettre qu'un MemoRich dans le programme, et pour mes besoins c'est suffisant. Mais il faut que je réfléchisse sur la possibilité d'entre mettre plusieurs. Là je regarde pour pouvoir procéder par programme pour mettre les enrichissements. Le but pour moi n'est pas de copier WorPad ou autre, mais d'avoir une sortie avec des attributs, en interaction avec d'autres objets, ou calcul.

Donc merci de m'en dire plus, et je vous renouvelle mes bons voeux, pour Very Happy

finir en apothéose au mois de décembre suivant Embarassed

Désolé cosmos, je ne pourrais pas tester avant le 2 au soir / fêtes obligent ...

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Eh, c'est notre cas à tous !
la trève des confiseurs...

BON RÉVEILLON A TOUS, LES AMIS ! jocolor

Idem pour moi: pas avant le 3... Wink

Invité

Je viens d'apporter les modifications, suite à mes constats.
J'ai rajouté des scroll_bar pour avoir une couleur personnalisée, et également un zoom.
Pour l'instant je laisse les messages, j'en ai besoin pour les commandes qui ne sont pas faite.
Je voudrais mettre les scroll_bar caché pour être mis au devant des carrés de couleur, mais cela je verrais après. Je trouve que la barre d'outils devient trop large, vu que si ce MemoRich se place à côté d'autres objets, il faut que je limite la largeur. Il faut que je fasse les fonctions de commande pour mettre les attributs par programme. Normalement la majorité devrais fonctionner dans AutoIt maintenant mais j'ai rien fait en basic, et pas testé.

Il est à noter que ce programme marche dans les deux sens. Si je mets execute en commentaire, et dans AutoIt: Run en commande, cela fonctionne de la même façon (après avoir faire une compilation du programme Panoramic). Mais je laisse évidemment la priorité à Panoramic.

J'ai oublié une chose importance: il faut utiliser la dernière version de Panoramic, car je me suis servi de l'instruction FREE.

Invité

Je viens de reprendre ce programme.
Jusqu'à présent je faisais le transfert des commandes au moyen d'un EDIT. Mais pour l'envoi de commandes programmées, ce n'est pas l'idéal.
En effet, pour éviter de surcharger le processeur, dans la boucle d'attente, je met un temps d'attente comme wait en Panoramic de 250. C'est à dire que pendant 1 seconde, je ne teste que 4 fois maxi la réception d'une commande. Ceci est nettement suffisent pour sélectionner du texte, et choisir une fonte ou une couleur.
Il en est autrement par programme. Imaginer que j'ai 100 instructions à envoyer. Cela fait 100/4, environ car il y a le traitement 25 secondes pour faire l'enrichissement d'un texte. De plus avec un EDIT, je dois mettre une boucle d'attente sinon une commande peut effacer une commande précédente si elle n'a pas été vu.
Donc j'ai remplacé l'EDIT par un LIST, et j'envoie toutes les commandes d'un coup, et à la réception, chaque fois qu'une commande est exécuté en AutoIt, celui-ci efface le haut de la pile. Et j'ai retiré pour cette série le temps d'attente dans la boucle jusqu'à ce que tout soit traité.

Les messages sont retirés. Je rajouterai certainement d'autre fonctions, mais pendant quelques temps, je dois délaisser un peu la programmation.

Dans le zip, il y a l'include, le programme de préparation au codage, et un petit programme fait à partir de ce dernier pour faire les testes de commandes.
Tous les deux appellent l'include qui lui-même appelle le greffon AutoIt.

Voir le Fichier : MEMO_RICH.7z

N'oubliez pas de modifier les chemins selon votre installation. Ne pas oublier de modifier aussi celui de l'include dont le nom et le chemin doit être écrit en clair. Une variable n'est pas recevable.

Dans le zip, il y a deux fichier RTF, l'un pour les explications, l'autre pour la programmation.

Sujet: Re: un MemoRich greffé sur Panoramic Mer 4 Jan 2012 - 12:10

Bonjour cosmos,
je viens de tester la dernière version et je dois avouer que c'est un peu confus.
Je comprends pas trop comment utiliser ton interface graphique... scratch

Dans le menu des attributs j'ai tout en double, c'est normal ?
par ex:
ITALIC italic GRAS gras SOULIGNE souligne
J'ai essayer de taper du texte qui est resté en noir et blanc, j'ai cliqué à tout hasard sur "teste" et je me retrouve avec du texte centré rouge sur fond bleu.
Comment fait-on pour avoir une justification à gauche ?

Invité

Bonjour
Le teste c'est pour essayer une série de commande d'attribut pré-programmé. C'est à dire sur un texte brut, et là le texte n'a rien à voir avec les attributs. C'est simplement pour voir si ça fonctionne.
Je mettrais un exemple plus concret, j'essayerai de voir cela ce soir. Le but pour moi, est d'avoir des lignes, je vais prendre un sujet qui est apparu plusieurs fois sur le forum, et que je ne connais pas trop: les chevaux.
(je ne connais pas de pronostique, donc je met n'importe quoi:

En regardant cet exemple, il faut repérer les positions, et faire une liste avec ces positions et les attributs.
En suivant cet exemple, dans le list (en réalite MemoEdit et MemoList du programme sont des listes cachées, mais apparent dans le programme que j'ai mis) on met le texte dans le MemoList qu'on envoi et ensuite on envoi les attributs dans le MemoEdit.
J'ai encore des commandes à faire, comme je crois cela possible: faire des taquets de tabulation, mais il faut que je traduise toute une série de commandes que je ne comprend pas bien.

Pour l'instant tu peux taper du texte, faire une sélection, et te servir des combos pour les attributs.
Quand à l'EDIT de la deuxième ligne, j'aurai du le supprimer, c'était pour faire l'essai des commandes avec AutoIt.
Je ferais une mise à jour ce soir, si tout va bien, car je commence à manquer de temps.
Je sais que c'est pas très clair, mais je dois quitter. Donc cette nuit. Par contre si tu as des idées, donnes les! c'est le moment.

Invité

J'ai repris l'include et le fichier d'appel. J'ai essayé de rendre l'appel de l'include plus à propos, je l'ai placé en 1ère ligne, mais là, il faudra regarder dedans et mettre le bon chemin du fichier AutoIt.

L'exemple d'un pronostique turf, que j'avais fait par sélection de texte, et choix des attributs, je l'ai refait par programme.

Je ne suis pas sur que AutoIt version d'hier soit compatible, donc le mieux est de le recharger. Je manque de beaucoup de temps, et je regarderai l'ensemble d'ici la fin de la semaine.

Spoiler:

INCLUDE:

Code:: ' ------------------------------------------------------------------------------
rem INCLUDE

label quite_Memo_Include , LIRE_MemoRich

CAPTION 0,"PanoPano_Autoit" :' titre obligatoire pour être reconnu par Autoit
DIM Memo_fichier_Autoit$ , Memo_objet% , t , l , w , h :' provisoir
DIM MemoForm , caption_F$ : caption_F$ = "PanoPano_Autoit" :' pour le cas où MemoRich est sur la fenêtre 0

Memo_fichier_Autoit$ = "C:\MEMO_RICH\greffon_MemoRich.exe" :' appel du logiciel AutoIt

DIM MemoEdit , MemoList , MemoGroupe , MemoTool , MemoMenu , MemoAttribut , MemoFonte , MemoSize , MemoCouleur
DIM MemoAlpha , MemoColor , MemoFond , MemoShow , MemoHide , Memo_x , Memo_y , Memo_rouge , Memo_vert , Memo_bleu
DIM MemoEnrichi$(25) , Memo_Attribut% , MemoFichier$ ,MemoOuvrir , MemoSauver
DIM Memo_Rouge_Lettre , Memo_Vert_Lettre , Memo_Bleu_Lettre , Memo_Rouge_Fond , Memo_vert_Fond , Memo_Bleu_fond
DIM MemoScrollRouge , MemoScrollVert , MemoScrollBleu , MemoAlphaRouge , MemoAlphaVert , MemoAlphaBleu , MemoCarreColor ,MemoZoom
DIM MemoZoomAlpha
LABEL Memo_Show , Memo_Hide , Memo_Size , Memo_Fonte , Memo_Alpha , Memo_Color , Memo_Fond , Memo_Attribut , Memo_Fichier
LABEL Memo_Copie , Memo_Scroll_color , Memo_Zoom

goto quite_Memo_Include
LIRE_MemoRich:
rem "Les objets du Memo_Rich de contrôle" ' Normalement on cache: MemoEdit et MemoList
MemoEdit = 1 + Memo_objet%
MemoList = 2 + Memo_objet%
MemoGroupe = 3 + Memo_objet%
MemoTool = 4 + Memo_objet%
MemoMenu = 5 + Memo_objet%
MemoAttribut = 6 + Memo_objet%
MemoFonte = 7 + Memo_objet%
MemoSize = 8 + Memo_objet%
MemoAlpha = 9 + Memo_objet%
MemoFond = 10+ Memo_objet%
MemoCouleur = 11+ Memo_objet%
MemoColor = 12+ Memo_objet%
MemoShow = 13+ Memo_objet%
MemoHide = 14+ Memo_objet%
MemoOuvrir = 15+ Memo_objet%
MemoSauver = 16+ Memo_objet%
MemoAlphaRouge = 17+ Memo_objet%
MemoScrollRouge= 18+ Memo_objet%
MemoAlphaVert = 19+ Memo_objet%
MemoScrollVert = 20+ Memo_objet%
MemoAlphaBleu = 21+ Memo_objet%
MemoScrollBleu = 22+ Memo_objet%
MemoCarreColor = 23+ Memo_objet%
MemoZoom = 24+ Memo_objet%
MemoZoomAlpha = 25+ Memo_objet%

LIST MemoList :TOP MemoList,580:width MemoList,500:height MemoList,150 :hint MemoList,"MemoList à mettre à hide, transfert de texte"
LIST MemoEdit :height MemoEdit,50: hint MemoEdit,"MemoEdit à mettre à hide sert de commande":' EDIT de transfert
item_add MemoEdit, caption_F$+"|MemoRich" :' on donne le caption de la forme, et on spécifie qu'il y a 'MemoRich'

rem "Container contenant le memoRich, qui sera rajouté par Autoit
CONTAINER MemoGroupe : LEFT MemoGroupe,l :TOP MemoGroupe,t: WIDTH MemoGroupe,w : HEIGHT MemoGroupe,h : if w<550 then WIDTH MemoGroupe,550
' pour le cas où d'autre objets seraient ajoutés par la suite

button MemoShow:left MemoShow,l:top MemoShow,t+h+3:width MemoShow,w:height MemoShow,8:font_size MemoShow,3:' caption MemoShow,string$(1000,"@")
on_click MemoShow,Memo_Show :' placé ici en bas du contener ( ou memoRich )

OPEN_DIALOG MemoOuvrir
SAVE_DIALOG MemoSauver

rem "Si on met le container sur une autre forme
if MemoForm > 0
if MemoForm < 26 and Memo_objet% = 0 THEN MESSAGE "erreur, le n° de la FORM doit-être supérieur à 24" : TERMINATE
FORM MemoForm: WIDTH MemoForm,w+30 : HEIGHT MemoForm,h+50 : caption MemoForm,caption_F$
PARENT MemoGroupe ,MemoForm :' on met le container dans la forme prévu
Parent MemoShow,MemoForm :' mettre le bouton pour montrer la barre d'outils sur la forme du memoRich
END_IF

rem donc 2 cas: soit on a caption 0, et le container dedans OU caption MemoForm,
rem "Terminé
' ==============================================================================
execute Memo_fichier_Autoit$
' ==============================================================================
wait 500
free caption_F$
free w
free t
free Memo_objet%
' *************************
repeat
wait 10
until count(MemoEdit)>0 or scancode =27
' clear memoEdit
wait 100

rem "Pour le cas où on met les icônes pour les enrichissements

CONTAINER MemoTool :TOP MemoTool, TOP(MemoGroupe)-40:LEFT MemoTool,l:if MemoForm>0 then PARENT MemoTool ,MemoForm
WIDTH MemoTool,865 : HEIGHT MemoTool ,40 :' hide MemoTool
button MemoHide:Parent MemoHide,MemoTool:top MemoHide,-2:width MemoHide,30:height MemoHide,15:font_size MemoHide,4:caption MemoHide,"hide"
on_click MemoHide, Memo_Hide
combo MemoMenu :Parent MemoMenu,MemoTool:top MemoMenu,14:font_size MemoMenu,5:width MemoMenu,90 :height MemoMenu,22:color MemoMenu,239,235,222
item_add MemoMenu,"Nouveau":item_add MemoMenu,"Ouvrir":item_add MemoMenu,"Enregistrer":item_add MemoMenu,"Enreg. sous"
item_add MemoMenu,"Imprime" :on_click MemoMenu,Memo_Fichier :text MemoMenu,"Fichier" :height MemoMenu,300
combo MemoAttribut:Parent MemoAttribut,MemoTool:top MemoAttribut,14:left MemoAttribut,100:font_size MemoAttribut,5:width MemoAttribut,90
color MemoAttribut,239,235,222:height MemoAttribut,22 :on_click MemoAttribut,Memo_Attribut :text MemoAttribut,"Attribut"
item_add MemoAttribut,"GRAS":item_add MemoAttribut,"gras":item_add MemoAttribut,"ITALIC":item_add MemoAttribut,"italic"
item_add MemoAttribut,"SOULIGNÉ":item_add MemoAttribut,"souligné":item_add MemoAttribut,"BARRÉ":item_add MemoAttribut,"barré"
item_add MemoAttribut,"INDICE":item_add MemoAttribut,"no indice":item_add MemoAttribut,"EXPOSANT":item_add MemoAttribut,"no exposant"
item_add MemoAttribut,"Pt CAPITALES":item_add MemoAttribut,"no capitales":item_add MemoAttribut,"OMBRE":item_add MemoAttribut,"no ombre"

item_add MemoAttribut,"Gauche":item_add MemoAttribut,"Centré":item_add MemoAttribut,"Droite"
item_add MemoAttribut,"Justifié":item_add MemoAttribut,"Marge"
MemoEnrichi$(1)="+bo":MemoEnrichi$(2)="-bo":MemoEnrichi$(3)="+it":MemoEnrichi$(4)="-it":MemoEnrichi$(5)="+un"
MemoEnrichi$(6)="-un":MemoEnrichi$(7)= "+st":MemoEnrichi$(8)="-st":MemoEnrichi$(9)="+sb":MemoEnrichi$(10)="-sb":MemoEnrichi$(11)="+sp"
MemoEnrichi$(12)="-sp":MemoEnrichi$(13)="+sm":MemoEnrichi$(14)="-sm":MemoEnrichi$(15)="+sh":MemoEnrichi$(16)="-sh"

MemoEnrichi$(17)="l":MemoEnrichi$(18)="c":MemoEnrichi$(19)="r":MemoEnrichi$(20)="j"

combo MemoFonte:Parent MemoFonte,MemoTool:top MemoFonte,14:left MemoFonte,200:font_size MemoFonte,5:font_names_load MemoFonte:text MemoFonte,"Times New Roman"
color MemoFonte,239,235,222 :width MemoFonte,130 : on_click MemoFonte,Memo_Fonte
spin MemoSize:Parent MemoSize,MemoTool:top MemoSize,7:left MemoSize,340:width MemoSize,40:min MemoSize,3:max MemoSize,100:position MemoSize,10
on_click MemoSize,Memo_Size
Alpha MemoAlpha:Parent MemoAlpha,MemoTool:top MemoAlpha,6:left MemoAlpha,390:font_size MemoAlpha,16:Font_bold MemoAlpha
caption MemoAlpha," A ":font_name MemoAlpha,"Arial Black":font_color MemoAlpha,0,0,0 :hint MemoAlpha,"couleur du texte"
on_click MemoAlpha,Memo_Alpha :' top MemoFond,22:left MemoFond,388 17
Picture MemoFond:Parent MemoFond,MemoTool:top MemoFond,9:left MemoFond,430:width MemoFond,25:height MemoFond,25:color MemoFond,0,0,0
hint MemoFond,"couleur de fond du texte" :on_click MemoFond,Memo_Fond
' left MemoCouleur,410
container MemoCouleur:Parent MemoCouleur,MemoTool:left MemoCouleur,460:width MemoCouleur,350:height MemoCouleur,45
picture MemoColor:parent MemoColor,MemoCouleur:left MemoColor, 3:top MemoColor,8:height MemoColor,31 : width MemoColor,122: color MemoColor,0,0,0
2d_target_is MemoColor :on_click MemoColor,Memo_Color
DIM a ,b ,c ,Memo_Couleur%(20,2)
Memo_Couleur%(1,0)=255 : Memo_Couleur%(1,1 ) =0 : Memo_Couleur%(1,2)=0 :' rouge
Memo_Couleur%(2,0)=255 : Memo_Couleur%(2,1 ) =255 : Memo_Couleur%(2,2)=0 :' jaune
Memo_Couleur%(3,0)=255 : Memo_Couleur%(3,1 ) =255 : Memo_Couleur%(3,2)=255 :' blanc
Memo_Couleur%(4,0)=0 : Memo_Couleur%(4,1 ) =0 : Memo_Couleur%(4,2)=255 :' bleu
Memo_Couleur%(5,0)=0 : Memo_Couleur%(5,1 ) =255 : Memo_Couleur%(5,2)=0 :' vert
Memo_Couleur%(6,0)=0 : Memo_Couleur%(6,1 ) =0 : Memo_Couleur%(6,2)=0 :' noir
Memo_Couleur%(7,0)=255 : Memo_Couleur%(7,1 ) =153 : Memo_Couleur%(7,2)=0 :' orange_marron
Memo_Couleur%(8,0)=239 : Memo_Couleur%(8,1 ) =235 : Memo_Couleur%(8,2)=222 :' fond Pano
Memo_Couleur%(9,0)=255 : Memo_Couleur%(9,1 ) =255 : Memo_Couleur%(9,2)=150 :' jaune moyen
Memo_Couleur%(10,0)=200 : Memo_Couleur%(10,1 ) =200 : Memo_Couleur%(10,2)=200 :' gris moyen
Memo_Couleur%(11,0)=255 : Memo_Couleur%(11,1 ) =204 : Memo_Couleur%(11,2)=204 :' violet belge
Memo_Couleur%(12,0)=153 : Memo_Couleur%(12,1 ) =204 : Memo_Couleur%(12,2)=204 :' bleu gris
Memo_Couleur%(13,0)=0 : Memo_Couleur%(13,1 ) =255 : Memo_Couleur%(13,2)=255 :' bleu turquoise clair
Memo_Couleur%(14,0)=102 : Memo_Couleur%(14,1 ) =255 : Memo_Couleur%(14,2)=153 :' vert moyen
Memo_Couleur%(15,0)=255 : Memo_Couleur%(15,1 ) =0 : Memo_Couleur%(15,2)=204 :' violet
Memo_Couleur%(16,0)=204 : Memo_Couleur%(16,1 ) =204 : Memo_Couleur%(16,2)=51 :' vert orange
Memo_Couleur%(17,0)=255 : Memo_Couleur%(17,1 ) =255 : Memo_Couleur%(17,2)=204 :' jaune pale
Memo_Couleur%(18,0)=220 : Memo_Couleur%(18,1 ) =255 : Memo_Couleur%(18,2)=220 :' vert clair
Memo_Couleur%(19,0)=237 : Memo_Couleur%(19,1 ) =237 : Memo_Couleur%(19,2)=237 :' gris clair
Memo_Couleur%(20,0)=234 : Memo_Couleur%(20,1 ) =247 : Memo_Couleur%(20,2)=255 :' bleu ciel

Memo_Rouge = -1:Memo_Vert = -1:Memo_Bleu = -1 :' blocage
h=2 :b=2
for a=1 to 20
2d_fill_color Memo_Couleur%(a,0),Memo_Couleur%(a,1),Memo_Couleur%(a,2)
2d_pen_color Memo_Couleur%(a,0),Memo_Couleur%(a,1),Memo_Couleur%(a,2)
2d_rectangle b,h,b+10,h+12 : b=b+12 : if b>120 then b=2:h=h+14
next a

Alpha MemoAlphaRouge:Parent MemoAlphaRouge,MemoCouleur:left MemoAlphaRouge,130:top MemoAlphaRouge,5 :font_bold MemoAlphaRouge
Font_size MemoAlphaRouge,8:font_color MemoAlphaRouge,255,0,0
Scroll_bar MemoScrollRouge:Parent MemoScrollRouge,MemoCouleur:left MemoScrollRouge,160:Top MemoScrollRouge,6:Width MemoScrollRouge,150
height MemoScrollRouge,12:min MemoScrollRouge,0:Max MemoScrollRouge,255

Alpha MemoAlphaVert:Parent MemoAlphaVert,MemoCouleur:left MemoAlphaVert,130:top MemoAlphaVert,17:font_bold MemoAlphaVert
Font_size MemoAlphaVert,8:font_color MemoAlphaVert,0,200,0
Scroll_bar MemoScrollVert:Parent MemoScrollVert,MemoCouleur:left MemoScrollVert,160:Top MemoScrollVert,18:Width MemoScrollVert,150
height MemoScrollVert,12:min MemoScrollVert,0:Max MemoScrollVert,255

Alpha MemoAlphaBleu:Parent MemoAlphaBleu,MemoCouleur:left MemoAlphaBleu,130:top MemoAlphaBleu,29:font_bold MemoAlphaBleu
Font_size MemoAlphaBleu,8:font_color MemoAlphaBleu,0,0,255
Scroll_bar MemoScrollBleu:Parent MemoScrollBleu,MemoCouleur:left MemoScrollBleu,160:Top MemoScrollBleu,30:Width MemoScrollBleu,150
height MemoScrollBleu,12:min MemoScrollBleu,0:Max MemoScrollBleu,255

Picture MemoCarreColor:Parent MemoCarreColor,MemoCouleur:top MemoCarreColor,8:left MemoCarreColor,312:width MemoCarreColor,30
height MemoCarreColor,30

Alpha MemoZoomAlpha:Parent MemoZoomAlpha,MemoTool:left MemoZoomAlpha,810:top MemoZoomAlpha,5:caption MemoZoomAlpha,"Zoom: 1"
Spin MemoZoom:Parent MemoZoom,MemoTool:left MemoZoom,810:top MemoZoom,20:width MemoZoom,50:On_click MemoZoom,Memo_Zoom
min MemoZoom,1 : max MemoZoom,63 :position MemoZoom,1
wait 10
free a : free b : free h
on_change MemoScrollRouge,Memo_Scroll_color
on_change MemoScrollVert,Memo_Scroll_color
on_change MemoScrollBleu,Memo_Scroll_color
' **************************** FIN DE L'INCLUDE *****************************
return
' ================= PROCEDURES =================================================
Memo_Zoom:
item_add MemoEdit,"MemoRich:Zoom:"+str$(position(MemoZoom)*100)
caption MemoZoomAlpha,"Zoom: "+str$(position(MemoZoom)*100)
wait 100
return
' --- Réception des scroll de couleur
Memo_Scroll_color:
Memo_Rouge = position(MemoScrollRouge)
Memo_vert = position(MemoScrollVert)
Memo_Bleu = position(MemoScrollBleu)
color MemoCarreColor , Memo_Rouge , Memo_Vert , Memo_Bleu
caption MemoAlphaRouge,Memo_Rouge :caption MemoAlphaVert,Memo_Vert : caption MemoAlphaBleu, Memo_Bleu
return
Memo_Show:
show MemoHide
hide MemoShow
show MemoTool :' Montre la barre d'outils
return
Memo_Hide:
show MemoShow
hide MemoHide
Hide MemoTool :' Cache la barre d'outils
return
' --- MemoSize j'ai mis max MemoSize,100 pour forcer le dépassement du mini qui bloquait à 3, mais 100 peut-être augmenté!
Memo_Size:
item_add MemoEdit,"MemoRich:set_size:"+str$(position(MemoSize))
wait 10
return
' --- MemoFonte
Memo_Fonte:
item_add MemoEdit,"MemoRich:Fonte_police:"+item_index$(MemoFonte)
wait 10
return

' --- MemoPicture ( choix d'une couleur ) dans les carrés de couleurs --- '
Memo_Color:
' il faut trouver le numéro du bon carré
memo_x = mouse_x_position(MemoColor)
memo_y = mouse_y_position(MemoColor)
memo_Rouge = color_pixel_red(MemoColor,memo_x,memo_y)
memo_vert = color_pixel_green(MemoColor,memo_x,memo_y)
memo_bleu = color_pixel_blue(MemoColor,memo_x,memo_y)
left MemoColor,left(MemoColor)+2:top MemoColor,top(MemoColor) +2 :wait 50
left MemoColor,left(MemoColor)-2:top MemoColor,top(MemoColor) -2
return
' --- MemoAlpha ( couleur texte )
Memo_Alpha:
if Memo_Rouge> -1 and Memo_Vert> -1 and Memo_Bleu > -1
Memo_Rouge_Lettre = Memo_Rouge :Memo_Vert_Lettre =Memo_Vert:Memo_Bleu_Lettre= Memo_Bleu
end_if
item_add MemoEdit,"MemoRich:Fonte_couleur:0x"+ right$("00" + hex$(memo_bleu_Lettre),2) + right$("00"+ hex$(memo_vert_Lettre),2) + right$("00"+ hex$(memo_rouge_Lettre),2)
left MemoAlpha,left(MemoAlpha)+2:top MemoAlpha,top(MemoAlpha)+2
font_color MemoAlpha, Memo_Rouge_Lettre,Memo_Vert_Lettre,Memo_Bleu_Lettre
if Memo_Rouge> -1 and Memo_Vert> -1 and Memo_Bleu > -1 then color MemoAlpha, Memo_Rouge_Lettre,255-Memo_Vert_Lettre,255-Memo_Bleu_Lettre
wait 50 : ' ce n'est pas RGB, mais BGR ici pour Autoit!
left MemoAlpha,left(MemoAlpha)-2:top MemoAlpha,top(MemoAlpha)-2
Memo_Rouge = -1 : Memo_vert =-1 :Memo_Bleu=-1
return
' --- MemoFond ( couleur fond de texte )
Memo_Fond:
if Memo_Rouge> -1 and Memo_Vert> -1 and Memo_Bleu > -1
Memo_Rouge_Fond = Memo_Rouge :Memo_Vert_Fond =Memo_Vert:Memo_Bleu_Fond= Memo_Bleu
end_if
item_add MemoEdit,"MemoRich:Fond_couleur:0x"+ right$("00" + hex$(memo_bleu_Fond),2) + right$("00"+ hex$(memo_vert_Fond),2) + right$("00"+ hex$(memo_rouge_Fond),2)
: ' ce n'est pas RGB, mais BGR ici pour Autoit!
color MemoFond, Memo_rouge_Fond , Memo_vert_Fond , Memo_Bleu_Fond
left MemoFond,left(MemoFond)+2:top MemoFond,top(MemoFond)+2
wait 50
left MemoFond,left(MemoFond)-2:top MemoFond,top(MemoFond)-2
Memo_Rouge = -1 : Memo_vert =-1 :Memo_Bleu=-1
return
' ---MemoAttribut ( enrichissement )
Memo_Attribut:
Memo_Attribut% = item_index(MemoAttribut)
if Memo_Attribut%<17
item_add MemoEdit,"MemoRich:Attribut:"+MemoEnrichi$(Memo_Attribut%)
else
if Memo_Attribut%<21 then item_add MemoEdit,"MemoRich:Enrichi:" +MemoEnrichi$(Memo_Attribut%)
end_if
text MemoAttribut,"Attribut"
return

' ---MemoCopie : recopie le MemoRich dans MemoList
Memo_Copie:
item_add MemoEdit, "MemoRich:Copie:"
wait 500
repeat
until count(MemoEdit)>0 or scancode = 27 :' item_read$(MemoEdit,1) = "texte copie"
wait 500
clear MemoEdit
return
' ---OUVRIR un fichier
Memo_Fichier:
' il faut d'abord faire le lien avec le list MemoMenu et choisir "Ouvrir"
select item_index(MemoMenu)
case 1 :' NOUVEAU
' d'abord, il faut copier le MemoRich dans le list, et vérifier que celui-ci n'est pas vide
clear MemoList
gosub Memo_Copie
if count(MemoList)>0
If message_confirmation_yes_no("Effacer le contenu ?")=1
item_add MemoEdit,"MemoRich:Clear:"
wait 10
MemoFichier$ = ""
end_if
end_if
case 2 :' OUVRIR
FILTER MemoOuvrir,"Ouverture d'un fichier texte ou rtf|*.txt;*.rtf"
MemoFichier$ = FILE_NAME$(MemoOuvrir)
if MemoFichier$ <>"_"
item_add MemoEdit,"MemoRich:Ouvrir:"+MemoFichier$
wait 100
end_if
case 3 :' ENREGISTRER
if MemoFichier$ = "_" OR MemoFichier$=""
FILTER MemoSauver,"Ouverture d'un fichier texte ou rtf|*.txt;*.rtf"
MemoFichier$ = FILE_NAME$(MemoSauver)
if MemoFichier$<> "_"
if right$(MemoFichier$,4)<>".rtf" then MemoFichier$=MemoFichier$ + ".rtf"
item_add MemoEdit,"MemoRich:Enregistrer:"+MemoFichier$
wait 100
end_if
else
item_add MemoEdit,"MemoRich:Enregistrer:"+MemoFichier$
wait 100
end_if
case 4 :' ENREGISTRER_SOUS
FILTER MemoOuvrir,"Ouverture d'un fichier texte ou rtf|*.txt;*.rtf"
MemoFichier$ = FILE_NAME$(MemoOuvrir)
if file_exists(MemoFichier$)=1
if message_confirmation_yes_no("Le fichier:"+MemoFichier$+" existe, voulez_vous le remplacer ?") =1
if right$(MemoFichier$,4)<>".rtf" then MemoFichier$=MemoFichier$ + ".rtf"
item_add MemoEdit,"MemoRich:Enregistrer:"+MemoFichier$
wait 100
else
if right$(MemoFichier$,4)<>".rtf" then MemoFichier$=MemoFichier$ + ".rtf"
item_add MemoEdit,"MemoRich:Enregistrer:"+MemoFichier$
wait 100
end_if
else
if right$(MemoFichier$,4)<>".rtf" then MemoFichier$=MemoFichier$ + ".rtf"
item_add MemoEdit,"MemoRich:Enregistrer:"+MemoFichier$
wait 100
end_if
case 5 :' IMPRIME
item_add MemoEdit,"MemoRich:Imprime:C:\temp\copie_imprime.rtf"
wait 100
end_select
text MemoMenu,"Fichier"
return

' =============== FIN des PROCEDURES ===========================================

' fin de l'include MEMORICH <====
quite_Memo_Include:

programme de base de départ:

Code:: ' programme de démarrage pour incorporer un MemoRich
#INCLUDE "C:\MEMO_RICH\Include_MemoRich_revu.bas"
width 0,1200 : height 0,800 :left 0,50
' POSITION ET DIMENSION DU CONTAINER contenant le MemoRich
' les variables suivantes sont déjà définis.
' le container: MemoGroupe. On peut : HIDE MemoGroupe: SHOW MemoGroupe
LABEL fin_du_programme
l = 10 :' left
t = 100 :' top
w = width(0)- 50 :' width
h = height(0)-330:' height

Memo_objet% = 100 :' N° objet décalés du 1er objet de MemoRich (25 en tout)
' ========= LIRE les objets et définitions du MemoRich =========
' ############ EXEMPLE 1 ################ | ############# EXEMPLE 2 #################
' le MemoRich est dans la fenêtre 0 | Le memoRich est dans une autre fenêtre
' MemoForm =0 | MemoForm = ... Plus > 14, si les objets de MemoRich
' | sont avant les autres
' caption_F$ = "PanoPano_Autoit | caption_F$ = "titre de la fenêtre" à définir
' ####################################### | ##########################################

MemoForm = 0 : caption_F$= "PanoPano_Autoit" :' "sur une autre forme"

GOSUB LIRE_MemoRich :' lire les objets, déclarations, et lancement AutoIt et RETOUR
' ici déclarations et objets propre aux programme.
on_close 0,Fin_du_programme
' déclaration
'
'

' fin déclaration
END
' ===========================================================================
' Procédures...

' ------------------------------------------------------------------------------
Fin_du_programme:
item_add MemoEdit,"commande_exit" :' doit rester pour fermer le programme Autoit
item_add MemoEdit,"commande_exit"
item_add MemoEdit,"commande_exit"
item_add MemoEdit,"commande_exit"
wait 1000 :' laisser le temps de saisie minimum: 210 ( boucle avec sleep(200) + décodage )
terminate

exemple de programmation ( à la place du programme de base:

Code:: ' programme de démarrage pour incorporer un MemoRich + TESTE Programmation
#INCLUDE "C:\MEMO_RICH\Include_MemoRich_revu.bas"
width 0,1200 : height 0,800 :left 0,50
' POSITION ET DIMENSION DU CONTAINER contenant le MemoRich
' les variables suivantes sont déjà définis.
' le container: MemoGroupe. On peut : HIDE MemoGroupe: SHOW MemoGroupe
LABEL fin_du_programme
l = 10 :' left
t = 100 :' top
w = width(0)- 50 :' width
h = height(0)-330:' height

Memo_objet% = 100 :' N° objet décalés du 1er objet de MemoRich (25 en tout)
' ========= LIRE les objets et définitions du MemoRich =========

' ############ EXEMPLE 1 ################ | ############# EXEMPLE 2 #################
' le MemoRich est dans la fenêtre 0 | Le memoRich est dans une autre fenêtre
' MemoForm =0 | MemoForm = ... Plus > 14, si les objets de MemoRich
' | sont avant les autres
' caption_F$ = "PanoPano_Autoit | caption_F$ = "titre de la fenêtre" à définir
' ####################################### | ##########################################

MemoForm = 0 : caption_F$= "PanoPano_Autoit" :' "sur une autre forme"

GOSUB LIRE_MemoRich :' lire les objets, déclarations, et lancement AutoIt et RETOUR
' ici déclarations et objets propre aux programme.
LABEL envoi_texte_vers_MemoRich
dim t$ :t$=chr$(9)
dim L1
on_close 0,Fin_du_programme
gosub envoi_texte_vers_MemoRich
' déclaration ...

END
' ===========================================================================
' Procédures...

' envoi d’un texte dans MemoListe, puis commande de transfert
envoi_texte_vers_MemoRich:
' copie du texte dans MemoList ( list du bas à gauche )
item_add MemoList, "Pronostique"
item_add MemoList, "Arrivée" + t$ + "2" + t$ + "4" + t$ + "1" + t$ + "10" + t$ + "12"
item_add memoList, ""
item_add MemoList, "N° chevaux"
item_add MemoList, "Paris Turf" + t$ + t$ + "10"+ t$ + "12" + t$ + "1" + t$ + "15"+t$+"8"+t$+"6"+t$+"17"+t$+"2"
item_add MemoList, "Cheval vapeur" + t$+"6"+t$+"2"+t$+"4"+t$+"10"+t$+"12"+t$+"1"+t$+"5"+t$+"15"
item_add MemoList, "Le turf Malin" +t$+t$+"4"+t$+"10"+t$+"1"+t$+"12"+t$+"6"+t$+"8"+t$+"2"+t$+"17"

item_add MemoEdit,"MemoRich:Recopie:" :' recopie dans le MemoRich le texte
' --
' 1ère ligne
item_add MemoEdit,"MemoRich:>Enrichi:1,2:c" :' centre la 1ere ligne
l=len(item_read$(MemoList,1))
item_add MemoEdit,"MemoRich:>set_size:1,"+str$(l) + ":18"
item_add MemoEdit,"MemoRich:>Fonte_couleur:1,"+str$(l)+":0x0000FF"
item_add MemoEdit,"MemoRich:>Fonte_police:1,"+str$(l)+":Times New Roman"
' ligne 2
l=l+2 :' saut de ligne
l1 = len(item_read$(MemoList,2))
item_add MemoEdit,"MemoRich:>set_size:" + str$(L)+","+str$(L1) + ":20"
item_add MemoEdit,"MemoRich:>Fonte_police:" + str$(L)+","+str$(L1) + ":Arial Black"
item_add MemoEdit,"MemoRich:>Attribut:" + str$(L1)+",2:+bo"
L1 = len("Arrivée:")
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x0000FF" :' 2
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF"
L1 = L1 + 2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0xFFFFFF"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xDD0000" :' 4
L1 = L1 + 2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",1:0x00F000" :' 1
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF"
L1 = L1 + 2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0xCECFFF" :' 10
L1 = L1 + 3
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0x31CFCE" :' 12
' --
' ligne 4
L = L +L1 + 4
item_add MemoEdit,"MemoRich:>Enrichi:" + str$(L) + ",2:c" :' centre la 4ere ligne
L1 = len("N° chevaux")
item_add MemoEdit,"MemoRich:>set_size:" + str$(L)+","+str$(L1) + ":18"
item_add MemoEdit,"MemoRich:>Fonte_police:"+str$(L)+","+str$(L1) + ":Times New Roman"
' 5ème ligne
L = L +L1 + 1
item_add MemoEdit,"MemoRich:>set_size:" + str$(L)+",100:18"
item_add MemoEdit,"MemoRich:>Fonte_police:"+str$(L)+","+str$(L1) + ":Times New Roman"

L1 = len("Paris Turf ") :' 2 tabulations
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0xCECFFF" :' 10
L1 = L1 + 3
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0x31CFCE" :' 12
L1 = L1 + 3
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",1:0x00F000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF" :' 1
L1 = L1 +2 +3+2+2+3
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x0000FF"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF" :' 2
' ---
' 6ème ligne
L = L + L1 + 2
L1 = len("Cheval vapeur ") + 2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x0000FF"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF" :' 2
L1 = L1 + 2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",1:0xFFFFFF"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xDD0000" :' 4
L1 = L1 + 2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0xCECFFF" :' 10
L1 = L1 + 3
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0x31CFCE" :' 12
L1 = L1 + 3
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",1:0x00F000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF" :' 1
L1 = L1 +7
L = l +L1
L1 = len("Le turf malin " )
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",1:0xFFFFFF"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xDD0000" :' 4
L1 = L1+ 2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0xCECFFF" :' 10
L1 = L1 +3
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",1:0x00F000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF" :' 1
L1 = L1+2
item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x000000"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",2:0x31CFCE" :' 12
L1 = L1 +3 +2+2

item_add MemoEdit,"MemoRich:>Fonte_couleur:" + str$(L + L1) + ",2:0x0000FF"
item_add MemoEdit,"MemoRich:>Fond_couleur:" + str$(L + L1) + ",1:0xCDFFFF" :' 2
return

' ------------------------------------------------------------------------------
Fin_du_programme:
item_add MemoEdit,"commande_exit" :' doit rester pour fermer le programme Autoit
item_add MemoEdit,"commande_exit"
item_add MemoEdit,"commande_exit"
item_add MemoEdit,"commande_exit"
wait 1000 :' laisser le temps de saisie minimum: 210 ( boucle avec sleep(200) + décodage )
terminate :' En cas d'erreur du programme, vérifier dans la barre des tâches

Si vous avez des idées pour améliorer la programmation ou autre, je suis preneur.

Invité

Apparemment vous n'êtes pas vraiment intéressé par ce programme.
J'ai le problème que je n'ai jamais utilisé avec un autre basic, ce type d'objet, donc il faut que je découvre tout, et votre aide est inexistante. (il faut dire que j'en ai l'habitude).

L'exemple de ce matin n'est pas probant dans la simplicité, et depuis que j'ai changé l'EDIT de transfert en LIST de transfert, il y a des petits problèmes de fermeture d'AutoIt, mais ce n'est que temporaire.

Pour les tabulations, je ne trouve pas ce que je veux dans la documentation, donc je vais partir sur ce principe:En définition du plus long mot en marge du texte (comme Paris Turf sur l'exemple), je vais calé sur la tabulation suivant ce mot, et delà je pars sur une fonte à chasse-fixe. Et voici ce que cela donnerait:
"Paris Turf {t1}01{t2}10{t3}05{t4}12.... {t1} étant le taquet 1 de tabulation.
Donc il faut que je fasse avec Autoit une commande de pose de taquet de tabulation.
Ensuite chaque fois que j'envoi une ligne, Autoit me place le texte ou les nombres ou les attributs aux taquets nommés.

Je vais partir sur cette idée là, vu que je ne sais pas comment cela se passe ailleurs.
Désolé de vous ennuyer avec ce programme.

Nombre de messages : 601 Date d'inscription : 05/01/2012

Citation :: Désolé de vous ennuyer avec ce programme.

Perso, je ne trouve pas que tu ennuies avec ce programme, au contraire cela apporte beaucoup d'enrichissements de voir comment tu as faire mais je ne réponds pas d'une part parce que je commence juste à revenir sur Panoramic et il faut que me remémorise tout, surtout que de nouvelles commandes sont sorties pendant mon absence, et d'autre part parce que les Mémo-rich je n'en ai jamais utilisé en programmation.

Si je peux t'aider d'une manière simple je peux le faire^^

Invité

Bonsoir Dragonno.
Je te remercie pour ta réponse.
Je suis seulement un peu surpris. Celà fait plus de trois ans qu'il y a une demande pour cela. Moi non plus je n'ai pas de connaissance pour l'utilisation de cet objet. Je sais que certain l'ont utilisé dans d'autre basic, et j'aurai bien aimé savoir comment cela se passait pour mettre l'enrichissement.

Donc finalement je vais coder pour moi, pour mes propre besoins.
J'ai codé ceci:
la création de taquets de tabulation de cette façon:
TABULATION:50,55,60,65,70,75,80,85,90 : placement des taquets à 50,55... dans cet exemple.
la préparation d'attribut pour l'inclure aux taquets:
SET_Attribut(1)Fonte_couleur:0x0000FF,Fond_couleur:0xFFFA00,+bo,set_size:14,Fonte_police:Arial
ce qui veut dire: taquet 1 (réglé plus haut à 50) fonte couleur rouge (le bleu est inversé au rouge), le fond du caractère de couleur jaune, en gras font_size de 14 avec une police Arial

reste à faire ceci pour remplir la ligne:
titre de la ligne {1,1,2}54 {2,6,1}5 qui correspond à:
Libellé (le titre de gauche, tabulation1 (à 50 ici, avec le marquage 1 (soit SET_Attribut) pour 2 caractères qui sont: 54, puis pour la tabulation 2 à 55: marqueur 6 (soit les attributs choisis) pour 1 caractère qui est ici 5
Je ne vois pas ce que je peux faire de plus simple. Il suffit de se repérer sur un exemple que j'ai mis plus haut sur disons un pronostique.
Le premier chiffre est le numéro du taquet, le 2ème l'enrichissement choisi pour cette tabulation, le 3ème chiffre: le nombre de caractères concernés.

Maintenant reste à trouver le temps, car je vais reprendre une partie du codage, et je ne suis pas certain d'avoir fini à la fin de la semaine. En ce moment c'est casse pied.

Nombre de messages : 601 Date d'inscription : 05/01/2012

C'est bien que tu continue de nous le montrer, dés qu'on pourra, en tous cas moi (car j'ai moins de connaissances que toi sur Panoramic) je regarderais un peu.

Correction de mon post :

Citation :: de voir comment tu as pus faire

Sujet: Re: un MemoRich greffé sur Panoramic Ven 6 Jan 2012 - 19:53

J'ai pas mis mon nez dans du code Panoramic depuis quelques temps, car je suis en train de développer un module en Php et donc je n'ai pas eu beaucoup de temps à regarder ton code.
Mais j’attends avec impatience une démo simple d'utilisation de ton RichEdit...
car là j'avoue, je n'ai pas très bien saisi le fonctionnement de la bête... Smile

Bon là je dois vous quitter, mes poipoi m'attendent... Wink

Invité

Citation :: je n'ai pas très bien saisi le fonctionnement de la bête

Désolé d'avoir donné de mauvaises indications.

Je procède comme pour WordPad. Déjà comme je l'ai déjà dit je n'ai pas le temps pour l'instant de faire des icônes, et j'ai remplacé provisoirement par des lists.
N'ayant pas d'enrichissement sur les items d'un list, j'ai mis GRAS pour du gras, et "gras" pour le retirer, cela me paraissait logique, mais c'est vrai j'aurai pu le préciser.
Ensuite j'écris le texte normalement, et lorsqu'il est écrit, je fais une sélection avec la souris comme tu dois connaitre, et ensuite je choisi pour mettre en gras: "GRAS", pour mettre en italique: "ITALIQUE", pour mettre l'encre en couleur, je choisi la couleur, soit sur les carrés, soit avec les glissières, et je clique sur "A" pour l'encre, ou le carré à côté pour le fond du texte, et cela s'applique sur la sélection.

Je ne vois pas tellement le problème, c'est la méthode pour le traitement de texte.
Là où je vais essayer d'améliorer, c'est de mettre les attributs sur du texte par programme, et il faut se référer plus haut sur mon dernier post, pour voir comment je pense procéder (à défaut de ne pas connaître d'autres méthode).

Dans le combo des attributs, je retirerai "justifié" et "ombre", cela ne fonctionne pas avec la version que j'ai d'un MemoRich. Je ne vois pas où il faut aller et comment procéder pour avoir une version plus récente de "EditRich". Même en direct avec les raccourcis clavier cela ne fonctionne pas.

Nombre de messages : 601 Date d'inscription : 05/01/2012

Apparemment, d'après ta description tu as fait une sorte de mini wordpad mais quel est ton but et quel est ton problème pour y arriver.
D'après ce que j'ai compris l'enrichissement réel ne se fait pas sur le mémo et tu as remplacé un mot à mettre en gras par son équivalent en majuscule idem pour les minuscules.

Invité

La partie "WordPad" n'est pas intéressante pour moi, puisse que déjà les programme du commerce font mieux.

Je veux associer pour mes projets MemoRich avec les autres objets pour mes propre besoins. Pour cela un simple memo ne me convenait pas, j'avais besoin de la couleur.

Donc maintenant je veux mettre les outils de transmission des enrichissements du texte pour justement que cela se fasse par programme.

J'y arrive déjà mais ce n'est pas simple. Donc pour avoir différents champs, j'ai déjà programmé des taquets de tabulation en AutoIt (je pense que "taquet" est le bon mot).
J'ai programmé aussi en AutoIt pour la programmation de différents attributs sur un même mot ou sur une tabulation.
Il me reste à faire en AutoIt encore le décodage des lignes envoyées pour l'écriture du texte, avec les tabulations et les attributs. J'ai mis plus haut la méthode, mais je peux la remettre. J'ai apporté une petite modification.

Donc j'ai en exemple pour programmer les tabulations:

Code:: MemoRich:TABULATION:50,55,60,65

ce qui fait en AutoIt:

Citation :: $Tab[1]=50 $Tab[2]=55 ....

Ensuite je programme les enrichissements particulier pour bloc de texte (qui peut-être celui d'une tabulation) comme:

Code:: MemoRich:SET_Attribut(1)Fonte_couleur:0x0000FF|Fond_couleur:0xFFFa00|+bo|set_size:14|Fonte_police:Arial

ce qui donne pour AutoIT:

Citation :: $Attribut[1] couleur d'encre, de fond, en GRAS, font_size de 14, et Arial.

dont $Attribut[1] etc pour différent cas
En détaillant ainsi je facilite ensuite l'envoi, qui pour l'instant est conçu comme cela:
TEXTE {1,2,3}champ {2,1,5}champ le 3éme paramètre étant optionnel, pour le cas où il n'y a pas d'enrichissement. (champ 1 champ 2) sont placé tabulation 1 et tabulation 2
Paramètre 1: numéro de tabulation, paramètre 2: nombre de caractères, paramètre 3: le numéro correspondant à l'enrichissement programmé ( $Attribut[x] )

J'ai enfin réussi à faire en sorte qu'AutoIt se ferme de lui-même si Panoramic est fermé, sans avoir besoin de donner d'ordre.

Il y a encore une chose à dire mais cela ne me revient pas à l'esprit pour l'instant

Invité

Bonsoir,
Voila le problème. J'ai passer le week-End à essayer de trouver une commande que j'avais entrevu, et je n'ai pas retrouvé dans l'aide. Finalement je l'ai trouvé quand-même car je l'avais mis en commentaire quelque part, et je ne m'en souvenais pas.

De plus J’essaye de faire des taquets de tabulation, mais impossible d'avoir une commande qui fonctionne. Déjà je suis avec EditRich 2.0, je crois et il me faudrait la version supérieur que je ne trouve nul part. J'ai vu que certaines commandes comme justifié ou Petites Capitales fonctionnent avec la version supérieure. Ensuite cet-après midi, certaines autre commandes sont marquées comme fonctionnant avec Word-Pad, et non avec EditRich. J'ai perdu une semaine pour rien.

Donc comment procéder. Il y a plusieurs façon:
Ecrire une ligne d'espace, et placer du texte à la positions voulues dans celles-ci. Une parenthèse toutefois: je programme je le fait pour moi, et ce n'est pas une raison de croire que je ne vais pas m'adapter aux idées d'un autre, surtout si on s'aperçoit qu'elle est meilleurs. Personnellement je suis capable de m'adapter à bien des situations. Ce qui est important c'est le point de départ, d'avoir une méthode qui vaille pour chacun, et de continuer sur le lancement de cette méthode. Ensuite si je trouve une solution bien meilleurs, ce sera toujours possible d'avoir un deuxième 'cheval' pour programmer.

On peut aussi, définir une largeur (cela est surtout pour aligner les éléments d'un tableau quel qu'il soit) de x caractères sur une colonne, et ensuite de s'aligner sur la colonne suivante en se servant d'une tabulation. (tout ceci concerne évidemment l'écriture par programme, écrire en direct, ne pose pas de problème).

Il y a certainement d'autre façon. Mais même si le silence vous aide bien vis-à-vis de moi, j'espère qu'il y en aura bien un ou deux pour m'éclairer, et que j'en finisse.

Je vais bientôt rendre mon ordi, au dernier de mes fils qui est en terminal S, vu que son ordi est mort. Ensuite avec mon EEEPC qui n'a plus de mémoire, vu qu'il ne peut même plus mettre l'anti-virus à jour, je ferais avec. J'aimerai bien finir ce programme avec celui-ci, même si il est vieux, c'est pour moi plus pratique.

J'attend quelques avis, avant de continuer.
Merci.

Nombre de messages : 601 Date d'inscription : 05/01/2012

Juste une petite question : EditRich 2.0 c'est un petit programme ou un composant ? Tu ne peux pas faire avec wordpad ? ou un autre editeur de texte gratuit ?

Moi je voudrais bien t'aider mais je ne sais pas ce que tu veux faire, j'ai survolé ton topic mais pour moi ça reste complexe^^

Sujet: Re: un MemoRich greffé sur Panoramic Mer 11 Jan 2012 - 23:36

Bonsoir cosmos,
Décidément, tu portes bien ton pseudo et tu viens d'une autre planète ou alors c'est moi qui suis embouché !

Je pige que dalle dans la description que tu donnes. Tu es tellement plongé dans ton prog que je crois qu'il n'y a que toi qui peut comprendre un piètre mot de ce que tu as écris! Smile

le prend pas mal hein ? mon décodeur n'est pas mis à jour...

Après réflexion, puis voyant la manière dont j’écris sur le forum, je me pose cette question:
Pourquoi ne met tu pas en place un système dans le style du bbcode ?
(comme par exemple celui du site du zéro qui est assez intuitif)

Explication: Imagines que tu as un texte source de ce genre :

Code:: <centre>Memorich greffé sur Panoramic</centre>
<gras><souligne>Taquets de tabulation</souligne></gras>
J’essaye de faire des <italique>taquets de tabulation</italique>, mais impossible d'avoir une commande qui fonctionne. Déjà je suis avec <gras>EditRich 2.0</gras>, je crois et il me faudrait la version supérieure que je ne trouve nul part.

Ce texte peut être sauvegarder/éditer par exemple avec le bloc note ou même avec ton propre éditeur en panoramic...

Après au niveau de ta librairie, tu analyses ce texte et tu restitue le texte formaté (en tenant compte des différentes balises) dans un picture. (quitte par la suite à faire une copie ou autre)
Ta librairie au final ne contiendra rien d'autre que la procédure d'analyse qui traitera la ligne qu'elle recevra en entrée et elle renverra dans un picture le résultat en sortie.
1- Cela t'évite d'utiliser un autre programme écrit dans un autre langage.
2- C'est assez simple par la suite de l'intégrer dans un programme quelconque

tu peux par la suite facilement rajouter d'autres balises...
par exemple:

Code:: <liste>
<item> Première ligne</item>
<item> Deuxième ligne</item>
</liste>

ou même des balises un peu plus complexe:

Code:: <font="arial" size="12">mon texte</font>

Tu peux même envisager un fichier/tableau de config qui définira le style de tes attributs (comme une feuille css)

En gros ton fichier source est en xml et à toi après de le traiter et de rendre le résultat de sortie dans un picture (voir même dans un fichier pdf ou sur l'imprimante via la dll print de klaus)

Klaus avait mis en place un tel système d'attribut graphique pour les GLIST. (un peu plus sommaire que ce que je te décris, mais l'idée était là)

J'avais adapté ce principe pour mes propres besoins en faisant une version 'light' NLIST... (voir ici)

Bon je sais, cette idée arrive tardivement et je comprend que vu l'avancement de ton projet, tu tiques un peu Wink

Mais il y a peut être des idées à piocher là-dedans...
Avec cette méthode graphique, tu peux définir tes taquets (sous forme d'offset en pixel) dans ton fichier de config...
Après faut voir l'utilisation que tu as réellement l'intention de faire : un éditeur wysiwyg ou un rendu "graphique" d'un texte ?

Nombre de messages : 601 Date d'inscription : 05/01/2012

Ah oui, bonnes solutions Nardo ^^
Bravo !

j'ai pensé à la mode CSS et à des formats persos mais comme je ne sais pas ce qu'il fait exactement je ne pouvais pas répondre.

Invité

Enfin quelqu'un qui répond. La question est posée depuis un moment.
C'est une bonne idée comme tu vois les choses. Je vais te dire pourquoi je voyais autrement. D'ailleurs il bien possible de faire les deux, selon le codage.
Mon idée était de préparer des attributs pour des zônes de texte, prédéfini, pour nr pas avoir à mettre à la queux-leu-leu toute une série d'attribut pour un mot.
Exemple: j'ai un tableau:
Je mets n'importe quoi, ça ne me vient pas à l'idée:
10 |carotes |0.80 | 8.00|
20 |haricots|0.85 |17.00|
etc... c'est exemple ne vaux rien pour des attributs.
L'exemple que j'avais trouvé pour des pronostics conviendrait mieux.

dont j'envoi (cela pourrait de la même manière un fichier CSS, le principe est le même:

Code:: item_add MemoEdit,"MemoRich:ENRICHI:(un)Fonte_couleur:0x000000|Fond_couleur:0x0000E0|+bo|set_size:10|Fonte_police:Bitstream Vera Sans Mono"
item_add MemoEdit,"MemoRich:ENRICHI:(deux)Fonte_couleur:0xFFFFFF|Fond_couleur:0xD00000|+bo|set_size:10|Fonte_police:Bitstream Vera Sans Mono"
item_add MemoEdit,"MemoRich:ENRICHI:(trois)Fonte_couleur:0x00E000|Fond_couleur:0xD0FFFF|+bo|set_size:10|Fonte_police:Bitstream Vera Sans Mono"

Dont comme tu vois je donne un nom à un style, là tu as entre parenthèse des noms qui en html serait:
<span class="un"> ou deux trois titre , que je prédéfinie et qui pourrait être ensuite un include. Ceci ou code CSS revient au même, il faut que je regarde ce qui est le plus pratique par rapport à ce qui est fait.

ensuite, je fais le texte, mais je dois le placer, vu que c'est de l'alignement, et c'est loin d'être aussi simple, car pour le MemoRich, je dois d'abord marquer la sélection, comme si c'était avec le curseur, donc il faut calculer depuis le début la position du texte, et rajouter pour la fin le nombre de caractère concerné. Evidemment je le fais en Autoit, pour ne pas se faire chier pendant l'écriture. Je ne peux pas dire maintenant je veux tel enrichissement, comme <strong> et mettre le texte (ou alors il faut que je mette tout le texte dans une liste, marquer les calculs.

Je crois au vu de ce qui est dit, je vais reprendre le raisonnement. Il me faut une conception solide.
De plus ce que je voudrais c'est d'écrire à tel emplacement selon les besoins, pour remplir des tableaux. et pas seulement du texte à la suite.

Je viens de voir l'intervention de "exdragon". (il n'y a pas moyen, un émoticone sort sur ton pseudo, et c'est pas moi qui le met)
C'est vachement bien Dragonno. Tu peux t'engueuler au travers de tes deux pseudos. pig

Merci pour vos idées.

A ce propos: je mets dans l'envoi: MemoRich, car j'ai bien l'intention, si ça va bien, de mettre d'autres commandes, ou d'autres objets, comme le calendrier. Donc cela me permet de préciser où cela doit-être traité dans le code.
Je vous ai vu parler de la molette, et je sais que c'est possible, mais j'ai pas le bon fichier UDF pour celle-ci. Je ne trouve pas le bon lien. C'était le même principe que pour le clic droit.

» Logithèque : une base de données en Panoramic pour Panoramic
» IDE Panoramic écrit en Panoramic
» PANORAMIC V 0.9.6 available / PANORAMIC V 0.9.6 disponible
» Logo Panoramic en Panoramic
» PANORAMIC V 0.9.18