Comment utiliser les gadgets pour Publier en couleur

[Cyrion81]

Bonjour la Team

Je vous avais exposé récemment mon projet sur l'application pour la formation des futurs R.A ( radio-amateurs). J'ai déjà tous les documents créés par moi même, justement dédiés à cet usage de formation. Je voudrai adopter pour les textes le même système identifiant les composantes des formules par des couleurs. (voir exemples donnés par les liens).
Mes questions :
> Existe-t-il un gadget genre texte enrichi permettant d'afficher ce genre de présentation ?
> Peut-on afficher des .PDF dans une fenêtre ?
> Ou dois-je pour agir de la sorte utiliser des images du texte ? ( un peu lourd à priori)
> Autres solutions ?
Merci de votre patience.
https://drive.google.com/file/d/10xXa-q ... share_link
https://drive.google.com/file/d/1vXR5Uk ... share_link

[Ar-S]

Un exemple de l'utilisation du RTF, je crois que c'est Dobro qui l'avait fait (pas sûr)

Code : Tout sélectionner

Define rtf.s

rtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fprq2\fcharset0 Tahoma;}"
rtf + "{\f1\fswiss\fcharset0 Arial;}}"
rtf + "{\colortbl ;\red0\green0\blue255;\red255\green0\blue0;\red128\green128\blue128;}"
rtf + "{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\qc\cf1\ul\b\f0\fs52 PureBasic Language\par"
rtf + "\cf0\ulnone\b0 Version 4.10 à 6.00 \par"
rtf + "\cf2\fs32 pour ce code\par" ; couleur est defini par cfx le x egale a la position e la couleur dans la table
rtf + "\cf3 Pour Windows, Linux, MacOS\cf2\f1\fs20\par }"

OpenWindow(0, 0, 0, 540, 200, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

EditorGadget(0, 10, 10, 520, 180)
SetGadgetText(0, rtf)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

[Ar-S]

Avec un webwadget, tu peux logiquement afficher un PDF vu que tous les lecteurs web le peuvent aujourd'hui.

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 640, 480, "PDF Viewer", #PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
    WebGadget(1, 1,1, 638,478, "C:\CheminVersTonPDF.pdf") 
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf 
End 

Sous windows 11 ça marche au poil

[Cyrion81]

Bonsoir,
Merci beaucoup Ar-S cela marche effectivement au poil et tu me sorts une sacrée épine du pied.

[MLD]

Salut Ar-S
Je confirme le code avec les RTF c'est du Dobro.
D’ailleurs si tu nous suit encore! Un petit coucou nous ferait plaisir.

[Ollivier]

S'il nous lit un moment, il pourra aussi nous dire qu'il s'est inspiré lui-même de jacobus.