Discussion :

[spg40]

Bonjour,

j'aimerai écrire un texte dans le Caption d'un TLabel, mais avec un espace insécable (au sens littéral). Par exemple, si j'écris : « Qu'il est grand, plus grand encore mort que vivant ! » j'affiche :

« Qu'il est grand,
plus grand encore
mort que vivant !
»

compte-tenu de la taille de mon TLabel. Je ne peux pas modifier sa taille, et le texte est chargé dynamiquement. Je voudrais afficher, par exemple :

« Qu'il est grand,
plus grand encore
mort que
vivant ! »

et donc rajouter des espaces insécables ; en HTML on aurait :

« Qu'il est grand, plus grand encore mort que vivant ! »

Merci pour vos réponses.

spg40.

[Jipété]

Salut

ÀMHA, ça n'est pas gagné : l'espace insécable est une particularité typographique qu'on pratique dans Word, Publisher, OOWriter, XPress et les autres logiciels de mise en page avec une combinaison de touches particulière (CTRL MAJ Espace pour Word et Publisher, les autres je sais pas).
Par exemple, j'ai essayé avec Excel et Notepad, peau d'balle...

Alors, à moins que tu ne forces un retour à la ligne à l'endroit qui va bien pour assurer l'esthétique et recoller tes guillemets orphelins (ce dont je te félicite, soit dit en passant), je vois pas trop de solution...

PS : tant qu'à y être :

mais avec un espace insécable

une espace insécable !
Et vi ! En typo, « espace » est féminin, n'importe quel bon dico te le confirmera.

[guillemouze]

PS : tant qu'à y être : une espace insécable !
Et vi ! En typo, « espace » est féminin, n'importe quel bon dico te le confirmera.

alors la je suis épaté. tu veux dire que 99.9% des gens se trompent?
effectivement je viens de verifier, le caractere typographique est feminin.

[spg40]

Salut et merci Jipété pour ta réponse : ça confirme ce que je pensais.

Je marque le sujet comme résolu.

spg40.

[Yurck]

As-tu essayé avec le caractère #255 à la place du #32 ?

[Droïde Système7]

Salut et merci Jipété pour ta réponse : ça confirme ce que je pensais.

Je marque le sujet comme résolu.

spg40.

Pourquoi alors taguer Résolu un thread qui ne l'est pas ?

un développeur par définition se doit de penser qu'INPF*.

Un développeur se doit d'être tenace et patient ; voire entêté

Bref, ton problème doit trouver une solution, peut-être pas exactement suivant ta méthode ; mais certainement une autre.

Question : Est-ce que toutes tes récoltes -dyna ou autres- de string possèdent ce caractère de fin '»' ?

Car là, ce devrait mettre la puce à l'oreille à plus d'un

Mes 3 cts

*INPF = Impossible N'est Pas Français

[petitcoucou31]

Salut

Peut être une solution qui marche mais que je n'ai pas essayé pour tout les cas possibles.

1° je détermine en fonction de la ponctuation les éléments de la phrase ou insérer un caractère non sécable, remarque çà change en fonction de la langue.

2° J'insère un caractère quelconque aux positions déterminées pour supprimer l'espace.

3° je calcule la taille de mes lignes en ajoutant mots à mots donc en tenant compte que des vrais espaces.

4° je retire les caractères ajoutés pour restituer ma vrai ligne..


Une base a optimiser, peut être que d'autres auront d'autres idées pour cela aussi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Procedure TForm1.InsertTexte(Texte:string;Dest:Tlabel);
var i,y,p:integer;
    st,st1:string;
begin
    // insertion espace insecable en fonction de la ponctuation française
    i:=0;
    repeat
         inc(i);
         if (i>1) and (texte[i] in [';',':','?','!','»']) and (texte[i-1]=' ') then texte[i-1]:='§';      // §;  §:  §?  §!  §»
         if (i<length(texte)) and (texte[i] in ['«','-']) and (texte[i+1]=' ') then texte[i+1]:='§';                  // «§   -§
    until i=length(texte);
 
    Y:=0;
    repeat
        st:='';
        // compose les lignes en fonction de la lageur du label
        repeat
          P:=Pos(' ',texte);
          if P<>0 then
          begin // ajoute les mots et calcule la taille
              St:=st+copy(texte,1,P);
              if Dest.Canvas.TextWidth(St)<Dest.Width then
              begin
                  st1:=st;
                  delete(texte,1,p);
              end else break;
          end
          else
          begin // traite fin du texte sans espace en fin de ligne
              st1:=st1+texte;
              texte:='';
              break;
          end;
        until false;
 
        // retire caractères "insécable"
        for i:=1 to length(st1) do if st1[i]='§' then st1[i]:=' ';
        Dest.Canvas.TextOut(0,Y,st1);
        Y:=Y+Dest.Canvas.TextHeight('M')+2;
    until texte='';
end;

[Jipété]

Salut !

Pas mal, le plan de petitcoucou31. Un seul petit reproche, c'est le cas où le caractère choisi doit également être utilisé dans le texte --> pâté, non ?
Partant de là, ch'suis allé voir dans un document Word avec un éditeur héxa : c'est le code A0 qui est utilisé pour une espace insécable, en place du classique 20 pour une espace normale.

Valà (salut, Droïde !),

[CapJack]

Tout à fait, il est même dans la table des caractères de Windows : le caractère de code ansi 160 ($A0) apparaît comme l'espace mais sera traité comme un caractère autre, je pense...

[petitcoucou31]

salut

Oui bien sur !! j'ai pris un caractère pour l'exemple, mais en choisir un adéquat..

bye