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
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 14:36

» Ras la casquette...
par silverman Aujourd'hui à 14:28

» Jeu de l'oie stratégique
par jjn4 Hier à 20:46

» Suite aux dernières commandes
par Yannick Hier à 16:00

» Aide (imprimable) sur PANORAMIC avec exemples
par papydall Hier à 14:28

» Jeu de l'OIE électronique
par jjn4 Mer 22 Mar 2017 - 18:26

» Jeu de l'oie interplanétaire
par jean_debord Mar 21 Mar 2017 - 11:11

» Problème de création d'exécutable.
par Yannick Mar 21 Mar 2017 - 5:21

» Un bug avec USER_EVENT ?
par Klaus Lun 20 Mar 2017 - 17:41

» Bienvenue Cherrie merrie !
par Yannick Lun 20 Mar 2017 - 3:55

» Bienvenue à v.rousseau
par Yannick Dim 19 Mar 2017 - 16:26

» Panoramicien, es-tu là ?
par papydall Dim 19 Mar 2017 - 3:48

» Charger des icones sans fichiers...
par Laurent (Minibug) Sam 18 Mar 2017 - 21:52

» Compilateur FBPano
par papydall Jeu 16 Mar 2017 - 14:50

» Mystère avec la beauté fractale !
par papydall Jeu 16 Mar 2017 - 14:32

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier

Partagez | 
 

 Mise en page Html simplifiée

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



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

MessageSujet: Mise en page Html simplifiée   Dim 17 Aoû 2014 - 23:32

Après des rencontres entre copains ou en famille, ou après les vacances, on s'envoie parfois par email des séries de photos.
J'essaie personnellement de faire le moins lourd possible, donc je les réduis, par exemple en 1024x768, ça fait des transmissions bien plus légères.
Et pour me faciliter la tâche, j'ai fait un petit programme qui prépare le travail en dehors de la messagerie par fabrication d'un fichier au format html qui contiendra les images (réduites), et du texte éventuel avant et/ou après la série d'images.
Dans le programme je choisis les images dans une liste (répertoire), je les réduis aux dimensions voulues, j'ajoute le texte formaté (police, couleur, taille), et je fabrique le fichier html.
Dans la messagerie (Windows Mail en l'occurence), soit je réponds à un message, soit je mets le destinataire, et je n'ai plus qu'à faire 'Insertion', 'Texte du fichier...', format 'HTML' et chemin du fichier que j'ai créé par programme, et le tour est joué, ne reste plus qu'à vérifier, puis envoyer.

Tout ça pour dire que dans le programme je fais appel à un programme externe qui est en fait un éditeur html, et qui me sert de visionneuse pour vérifier le fichier fabriqué: il affiche à gauche le code html, et à droite l'image résultante.
On peut donc l'appeler depuis panoramic avec un execute_wait, et en paramètre le chemin d'un fichier html.
On peut modifier le code dans l'éditeur à gauche, il y a un bouton 'rafraîchir' qui permet de voir à droite l'effet produit.

Ce programme est très vieux (1997, autant dire le moyen-âge) et n'a pas évolué depuis, donc il ne sait sans doute pas traiter les balises html modernes, mais pour ce que j'en fais, du html sans subtilités (n'est-ce pas papydall)  il me convient parfaitement.
Il s'appelle Moulinet.exe, n'est pas facile à trouver (sur google on trouvera surtout des moulinets de pêche), il est portable, donc sans installation, léger, et évidemment gratuit (la référence qui est dans l'aide: pixup, est devenue un site commercial sans rapport).

S'il y en a que ça intéresse pour essayer, on peut le trouver ici: http://www2.csvt.qc.ca/patriotes/html/resources/moulinet/mnet.zip (un site canadien ?), une fois dézippé on a l'exécutable et un petit fichier texte.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7297
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 18 Aoû 2014 - 13:53

Tu peux tout faire en Panoramic... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Mise en page Html simplifiée   Lun 18 Aoû 2014 - 13:56

Je pourrais dire que JL35 à tendance en ce moment à recourir à la facilité, mais vu mon activité sur Panormaic en ce moment, je ne vais pas le faire...   Very Happy

Tant que ça marche après tout. Qu'importe le vin pourvu qu'on ait l'ivresse. (Pourtant un bon vin, c'est bon quand même)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Lun 18 Aoû 2014 - 14:13

ygeronimi a écrit:
Tu peux tout faire en Panoramic... Laughing
Tu peux en panoramic pur afficher une page html telle qu'elle se présentera chez le destinataire ??? et l'éditer parallèlement ???
J'aimerais bien savoir comment...

Certes Jicehel c'est la facilité, mais je ne suis pas capable de faire aussi efficace en panoramic, c'est à dire écrire un éditeur html de plusieurs milliers de lignes en panoramic juste pour avoir un aperçu de mon fichier.
Et on dit : 'qu'importe le flacon pourvu qu'on ait l'ivresse'

Et je constate que si je lance l'aperçu via Firefox ou IE ils ne l'affichent pas correctement, en particulier ils n'affichent pas les images, ce qui est l'essentiel pour moi. Et pourtant tout est pris en compte dans la messagerie.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Mise en page Html simplifiée   Lun 18 Aoû 2014 - 15:08

Tu t'es bien défendu. 1 point pour JL35
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Lun 18 Aoû 2014 - 15:25

N'oublions pas non plus qu'ici on est dans la rubrique 'Bavardages', je ne propose pas de programme, c'était simplement pour signaler l'existence de Moulinet.exe, éditeur html wysiwyg très simple, certes pas au fait des derniers développements html, mais léger, sans installation, et appelable en ligne de commande depuis Panoramic, et dont je n'ai pas trouvé l'équivalent pour l'usage en panoramic.
(Publicité non payée  Very Happy )

Par contre je n'ai pas très bien saisi pourquoi tu dis qu'en ce moment je recours à la facilité... ce n'est pas tout le temps ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Mise en page Html simplifiée   Lun 18 Aoû 2014 - 19:48

Aimer est le grand point, qu’importe la maîtresse ? queen 
Qu’importe le flacon, pourvu qu’on ait l’ivresse ?     drunken 

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

avatar

Nombre de messages : 7297
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 19 Aoû 2014 - 1:21

@JL35,

Peux tu mettre un apperçu du résultat de ce que tu attends ?
Parfois il suffit de quelques lignes...
(...et pas des milliers  Laughing )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Mar 19 Aoû 2014 - 15:23

Je répète encore une fois que l'idée du post était de faire profiter ceux que ça intéresse d'un éditeur html simple, qui peut accessoirement servir de visionneuse intelligente (avec le source du html), je ne demande qu'à voir si tu es capable de faire ça en quelques lignes de panoramic (l'image est évidemment tronquée pour cause d'encombrement):


Je répète le défi: écrire un fichier en code html, avec toutes les particularités que ça peut comporter (balises innombrables entre autres), afficher côte à côte ce fichier dans un éditeur, donc modifiable, et son résultat sous forme d'image, avec mise à jour en temps réel de l'image par rapport au source.

Alors, j'attends avec impatience ton programme 'équivalent', en pur panoramic.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7297
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 19 Aoû 2014 - 20:41

@ JL35

Tu me montres l' éditeur et pas le résultat.
Créer une page html en panoramic pour visualiser une photo avec un commentaire
voir plusieurs ce n' est pas très compliqué, tu as déjà fait bien pire... Laughing

Bon, je lâche le scrabble et je vais bidouiller un truc... tongue
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Mar 19 Aoû 2014 - 21:06

J'entends bien, mais je veux
1) créer la page html, d'accord, ce n'est pas bien compliqué (je le fais d'ailleurs dans mon programme).
2) visualiser la page telle qu'elle sera visible et émise et reçue telle quelle dans la messagerie
3) cerise sur le gâteau: voir côte à côte le code de la page (à gauche) et sa représentation visuelle (à droite), pouvoir modifier le code à gauche et voir les conséquences à droite.

C'est mon code, fabriqué par programme, que je présente à moulinet qui lui me fait les points 2 et 3.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Mise en page Html simplifiée   Mar 19 Aoû 2014 - 23:15

Tu peux utiliser l'objet WebBrowser créé par WB_Create de KGF.dll, pour afficher le résultat de ta page HTML dans ton programme Panoramic...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Mar 19 Aoû 2014 - 23:36

D'accord Klaus, mais c'est aussi une ressource externe...

De toute façon, je répète encore une fois que le but du post n'était pas du tout mon programme (qui marche très bien, merci), mais simplement de signaler l'existence de cet éditeur html, un peu vieux certes, mais très simple et léger, et dont je pensais qu'il pourrait en intéresser certains. Si ce n'est pas le cas, tant pis, mais ça ne fait de mal à personne.
Et je crois qu'ici on peut mettre un point final à tout ça, qui n'en méritait pas tant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7297
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 20 Aoû 2014 - 0:55

Un début...
Code:
Application_title "Html Editor"
Variables()
Labels()
Init()
Gui()

End

Sub Variables()
'  Adresses
  dim path$,html$,txt$
  path$="C:\Html_Editor"
  html$="C:\Html_Editor\Photo_view .html"
  txt$ ="C:\Html_Editor\Photo_view .txt"
'  Evènements
  dim clic%,change%
'  Objets
  dim no%,MM%,SM%(20),Frame1%,Frame2%
  dim View_code%,View_html%
'  Fonctions
  dim Photo%,Photo$(1000)
  dim save%
'  Divers
  dim Titre$
  Titre$="Mes Photos"
End_sub

Sub Labels()
  Label clic,change,close0
End_sub

Sub Init()
  if dir_exists(path$)=0
      dir_make path$
  end_if
  if file_exists(html$)=0
      file_open_write 1,txt$
      file_writeln 1, "<Html>"
      file_writeln 1, "  <head>"
      file_writeln 1, "      <meta charset="+chr$(34)+"utf-8"+chr$(34)+" />"
      file_writeln 1, "      <title>"+Titre$+"</title>"
      file_writeln 1, "  </head>"
      file_writeln 1, "  <body>"
      file_writeln 1, "  </body>"
      file_writeln 1, "</Html>"
      file_close 1
      file_rename txt$,html$
  end_if
End_sub

Sub Gui()
  O_Form(0,0,1,0,0,600,950,"Html Editor")
  font_name 0,"arial" : font_bold 0
 
  no%=no%+1 : MM%=no%
  O_Main_Menu(no%,0)
 
  no%=no%+1 : SM%(1)=no%
  O_Sub_Menu(no%,MM%,"Photo +",1,1)
 
  no%=no%+1 : SM%(2)=no%
  O_Sub_Menu(no%,MM%,"Photo -",1,1)
 
  no%=no%+1 : SM%(3)=no%
  O_Sub_Menu(no%,MM%,"Enregistrer",1,1)

  no%=no%+1 : Frame1%=no%
  O_Panel(no%,0,1,0,0,height(0)-58,(width(0)-16)/2)
 
  no%=no%+1 : View_code%=no%
  O_Memo(no%,Frame1%,1,5,5,height(Frame1%)-10,Width(Frame1%)-10,"")
  bar_both no%
  file_load no%,html$
 
  no%=no%+1 : Frame2%=no%
  O_Panel(no%,0,1,0,width(Frame1%),height(0)-58,(width(0)-16)/2)
 
  no%=no%+1 : View_html%=no%
  HViewer no%
  parent no%,Frame2%
  top no%,5
  left no%,5
  height no%,height(Frame2%)-10
  width no%,width(Frame2%)-10
  file_load no%,html$
 
  On_close 0,close0
End_sub

Clic:
  clic%=number_click
'  Ajout d'une photo
  if clic%=SM%(1)
      no%=no%+1
      O_Open_Dialog(no%,0,"C:\","*.jpg|*.jpg",5)
      if file$<>""
        Photo%=photo%+1
        Photo$(photo%)=file$
        Add_picture()
      end_if
  end_if
'  Suppression d' une photo
  If clic%=SM%(2)
  End_if
'  Enregistrement de la page html
  if clic%=SM%(3)
      Save_file()
  End_if
return

Change:
  change%=number_change
return

Close0:
  if save%=0
      if message_warning_yes_no("Vous n' avez pas enregistré votre travail."+chr$(13)+"Si vous ne l' enregistrez pas il sera perdu."+chr$(13)+"Voulez vous l' enregistrer ?...")=1
        Save_file()
      end_if
  end_if
  File_delete html$
return

Sub Add_picture()
    dim_local x%,L%,a$,mem%
    mem%=View_code%
    for x%=1 to count(Mem%)
      a$=trim$(item_read$(Mem%,x%))
      if Photo% =1
          if a$="<body>"
            L%=x%+1
            exit_for
          end_if
      else
          if a$="<!-- P_"+str$(Photo%-1)+" -->
            L%=x%+1
            exit_for
          end_if
      end_if
    next x%
    item_insert mem%,L%,string$(9," ")+"<!-- P_"+str$(Photo%)+" -->
    L%=L%+1
    item_insert mem%,L%,string$(9," ")+"<div id="+chr$(34)+str$(Photo%)+chr$(34)+">"
    L%=L%+1
    item_insert mem%,L%,string$(12," ")+"<img style="+chr$(34)+"height:300px; width: 400px;"+chr$(34)+"border=0 src="+chr$(34)+Photo$(photo%)+chr$(34)+"width=400 height=300>"
    L%=L%+1
    item_insert mem%,L%,string$(9," ")+"</div>"
    Refresh()
End_sub

Sub Refresh()
  file_save View_code%,html$
  file_load View_html%,html$
End_sub

Sub Save_file()
      no%=no%+1
      O_Save_Dialog(no%,View_code%,"C:\","*.html|*.html",".html")
      if F_Save$<>"_" : save%=1 : end_if
End_sub

' ******************************************************************************
'                              BIBLIOTHEQUE OBJETS
' ******************************************************************************

Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
  if No%> 0 then FORM No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
  ALPHA No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%,T$,Ch%)
  EDIT No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  If T$<>"" Then Text No%,T$
  If Ch%=1  Then On_Change No%,Change
End_Sub
' ______________________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
  BUTTON No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
  if Cl%> 0 then on_click No%,Clic
  cursor_point No%
End_Sub
' ______________________________________________________________________________
Sub O_Container(No%,P%,V%,T%,L%,H%,W%,C$)
  CONTAINER No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%,F$)
  MEMO No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if F$<>""
  if file_exists(F$)=1 then file_load No%,F$
  end_if
End_Sub
' ______________________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
  COMBO No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if F$<>""
  if file_exists F$ then file_load No%,F$
  end_if
  if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
  LIST No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if F$<>""
  if file_exists F$ then file_load No%,F$
  end_if
  if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
  PICTURE No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if P$<>"" then File_load No%,P$
End_Sub
' ______________________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
  CHECK No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Option(No%,P%,V%,T%,L%,H%,W%,C$)
  OPTION No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Main_Menu(No%,P%)
  MAIN_MENU No%
  if P% > 0 then Parent No%,P%
End_Sub
' ______________________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%,A%)
  SUB_MENU No%
  if P% > 0 then Parent No%,P%
  if C$<>"" then Caption No%,C$
  If Cl%=1 : on_click No%,Clic  : end_if
  If Cl%=2 : on_click No%,Clic2 : end_if
  If Cl%=3 : on_click No%,Clic3 : end_if
  If Cl%=4 : on_click No%,Clic4 : end_if
  If A%=0 then inactive No%
End_Sub
' ______________________________________________________________________________
Sub O_Open_Dialog(No%,Out%,DD$,Filtre$,O%)
  dim_local F$
  If Object_Exists(No%)=0
      OPEN_DIALOG No%
  End_if
  if DD$<>"" then Dir_Dialog No%,DD$
  if filtre$<>"" then Filter No%,Filtre$+"|"+Filtre$
  F$=File_name$(No%)
  if variable("File$")=0:Dim File$:End_If
  if F$<>"_"
      if O%=1 then text out%,F$
      if O%=2 then Caption Out%,F$
      if O%=3 then item_add Out%,F$
      if O%=4 then file_load Out%,F$
      if O%=5 then File$=F$
  end_if
  Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Save_Dialog(No%,NOut%,DD$,Filtre$,ext$)
  dim_local F$,i%,ext%
    If variable("F_Save$")=0 then dim F_Save$
    If Object_Exists(No%)=0
      SAVE_DIALOG No%
    End_If
    If DD$<>"" then Dir_Dialog No%,DD$
    If filtre$<>"" then Filter No%,Filtre$
    F$=file_name$(No%)
    F_Save$=F$
    If F$<>"_"
      for i%=1 to len(F$)
          if mid$(f$,i%,1)=".":ext%=1:exit_for:end_if
      next i%
      if ext%=1
          File_Save NOut%,F$
      else
          File_save NOut%,F$+ext$
      end_if
    End_If
    Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
  PROGRESS_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' ______________________________________________________________________________
Sub O_Dlist(No%,F$)
  dim_local Fic$
  Fic$=F$
  DLIST No%
  if F$<>""
      if file_exists(Fic$)=1 : file_load No%,Fic$ : end_if
  end_if
End_Sub
' ______________________________________________________________________________
Sub O_Container_Option(No%,P%,V%,T%,L%,H%,W%,C$)
  CONTAINER_OPTION No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Statut_Bar(No%,P%,V%,M%)
  Dim_Local No2% ,x% ,a% ,Pa%,OSB2%
  Pa%=P% :No2%=No%
  for x%=1 to Number_Objects:If Object_Type(x%)=13 :a%=1:End_If:Next x%
  If M%=0
      O_Picture(No2%,P%,V%,Height(P%)-61,0,23,width(P%)-16,"")
  Else
      if M%=1
        O_Picture(No2%,P%,V%,Height(P%)-81,0,23,width(P%)-16,"")
      else
        O_Picture(No2%,P%,V%,height(P%)-81,0,23,width(P%)-16,"")
      end_if
  End_If
  OSB2%=No2%
  Adaptation_OSB(No2%,Pa%)
End_Sub
' ______________________________________________________________________________
Sub O_Button_Picture(num_obj%,No_b%,P%,V1%,V2%,T%,L%,H%,W%,Pict$,Pict2$)
  O_Picture(num_obj%+1,P%,V2%,T%,L%,H%,W%,Pict2$):cursor_point num_obj% +1
  O_Picture(num_obj%,P%,V1%,T%,L%,H%,W%,Pict$):On_click num_obj%,Clic:cursor_point num_obj%
  obj% = obj%+1
  if variable("No2%")=0 : dim No2% :No2%=7000 :End_if
  if Variable("R%")=0 :dim R% :R%=1:else :R%=R%+1 :end_if
  if Object_exists(7000)=0 :O_Edit(7000,P%,0,-190,-200,0,0):End_If
  If Variable("KGF_res%")=0 then dim KGF_res%
  KGF_res% = dll_call2("ClickSetHook",handle(P%),handle(No2%))
  KGF_res% = dll_call5("ClickDefineRect",R%,L%,T%,W%,H%)

  No2%=No_b%
  O_Button(No2%,P%,0,-200,-200,0,0,"",1)
  KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-5,R%)

  No2%=No_b%+1
  O_Button(No2%,P%,0,-200,-200,0,0,"",1)
  KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-6,R%)
End_Sub
' ______________________________________________________________________________
Sub Adaptation_OSB(No%,P%)
  Dim_Local x% ,y% ,z% ,t$ ,R_osb% ,G_osb% ,B_osb%
  color No%,235,235,239 : y%=width(P%)-27
  Restore
  while t$<>"OSB_Corps.bmp" :read t$:End_while
  Read R_osb% :Read G_osb% :Read B_osb%
  2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
  for x%=0 to y% :2d_point x%,z% :next x%
  Restore
  while t$<>"OSB_Fin.bmp" :read t$:End_while
  for x%=y% to y%+10
      for z%=0 to 22
        Read R_osb% :Read G_osb% :Read B_osb%
        2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
        2d_point x%,z%
      next z%
  next x%
Data "OSB_Corps.bmp"
data 170,165,162
data "OSB_Fin.bmp"
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
End_Sub
' ------------------------------------------------------------------------------
Sub O_Timer(No%,OO%,Inter%)
  TIMER No%
  if OO%=1 then timer_on No%
  if OO%=0 then timer_off No%
  if inter%>0 then timer_interval No%,inter%
End_Sub
' ------------------------------------------------------------------------------
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%,Mi%,Ma%,C%)
  SPIN No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  Min No%,Mi%
  Max No%,Ma%
  if C% > 0 Then on_change No%,Change
End_sub
' ------------------------------------------------------------------------------
Sub O_Panel(No%,P%,V%,T%,L%,H%,W%)
  Panel no%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_sub
Il faudra un peu de temps pour que tout soit "paramètrable" ... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7297
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 20 Aoû 2014 - 1:27

@ JL35,

Je n' avais pas vu que tu voulais mettre un terme au sujet. Embarassed 
Bref j' arrête donc là le source. Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Mer 20 Aoû 2014 - 10:18

Ygeronimi, je mets un terme à la discussion ici (pour moi en tout cas), mais ça n'empêche évidemment personne de développer sur le sujet, ça peut faire des programmes intéressants, mais qui auront plus leur place dans 'Vos sources...', je pense.
Ton programme a l'air bien parti, tu ne vas pas t'arrêter là, c'est un sujet intéressant, vas-y continue, dans la rubrique dédiée ce sera plus accessible !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Mise en page Html simplifiée   Mer 20 Aoû 2014 - 10:41

PS: et merci JL35 pour ce partage d'informations.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Mer 20 Aoû 2014 - 11:25

Pas de quoi Jicehel !
Et Ygeronimi, j'ai jeté un oeil sur ton source ci-dessus (et testé), c'est très prometteur et je t'encourage vivement à continuer !
Et il mérite largement de passer dans la rubrique Vos sources, il y a encore du boulot, mais je pense que l'essentiel est là, plus qu'à rajouter les fioritures. Je suis preneur.

Tout ça sans ressources externes, chapeau.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7297
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 20 Aoû 2014 - 13:22

@ JL35,

Rien de bien compliqué mais j' ai un souci de réflexion personnelle.
Je ne me sers pas de page html pour l' envoi de mail mais tel que sur ta capture,
les adresses des photos sont "C:\....\...." mais est ce que Windows mail 
les transforment en adresses relatives ? Comment cela fonctionne t il ?
Quand tu envoies une page avec des url d' image sur ton ordi, le destinataire
peut il les voir ?...bref, la terre est elle ronde ? c' est tout moi cà.... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Mise en page Html simplifiée   Mer 20 Aoû 2014 - 15:43

Je ne suis pas du tout spécialiste de tout ça, mais je crois comprendre ceci:
Quand tu rédiges ton email avec images, avec évidemment les adresses locales de tes images (C:\...), au moment de l'envoi Windows mail les incorpore à l'email sous forme codée, elles font partie intégrante du message, et à l'arrivée on a complètement perdu l'adresse d'origine (qui n'aurait plus de sens).

Tu peux faire l'expérience suivante: envoyer un email avec une image incorporée (adresse locale de chez toi), puis supprimer l'image, puis aller dans tes 'Éléments envoyés' relire ton message, et là tu retrouveras ton image.

Donc le destinataire peut voir les images même si tu les as supprimées chez toi, les images elles-mêmes sont dans le corps du message, c'est complètement déconnecté de l'image source.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7297
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 21 Aoû 2014 - 0:56

@ JL35,

J' ai fait cette expérience cet après midi et je confirme ce que tu dis
mais pas tout à fait.
l' adresse de départ est local ( ta machine)
puis celle de ton serveur de messagerie
et enfin elle redevient une adresse locale.

Bref, j' ai avancé un petit peu mais je mets le source dans les projets. Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Mise en page Html simplifiée   

Revenir en haut Aller en bas
 
Mise en page Html simplifiée
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [HTML] Un souci lors de la mise en page.
» [Annulée] Demande une page HTML
» S. Demande de mise en page - Site du forum
» [Nocturne] Mise en page
» [Basil] Demande de mise en page

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Présentation et bavardage-
Sauter vers: