Sujet Précédent Sujet Suivant

Comment changer les puces (.) dans un RICHEdit

cs_souama Messages postés 3 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 24 octobre 2008 - 22 oct. 2008 à 18:11
karim1971 - 26 déc. 2013 à 20:01

Salut,

Comment changer les puces (.) dans un RICHEdit par des titre (I-), (1-) (a-) ?

A voir également:

Delphi richedit
Delphi format - Conseils pratiques -Delphi
Delphi thread - Conseils pratiques -Delphi
Delphi formatdatetime ✓ - Forum Delphi / Pascal
Manipulation avec FormatDateTime ✓ - Forum Delphi / Pascal
Delphi pos - Forum Delphi / Pascal

2 réponses

Réponse 1 / 2

DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015
23 oct. 2008 à 21:08

salut,

alors "puce" en anglais ça se dit "Bullet" à partir de là, la recherche sera plus facile sur google

donc regarde là http://www.swissdelphicenter.ch/de/forum/index.php/topic,8377.0.html?PHPSESSID=ec4a149eca194a5b76df5f5902e13fa7 par exemple

càd :
<hr />
uses

  RichEdit;

procedure TForm1.Button1Click(Sender: TObject);

var

  fmt: TParaformat2;

begin

  FillChar(fmt, SizeOf(fmt), 0);

  fmt.cbSize := SizeOf(fmt);

  // The PARAFORMAT2 structure is used to set the numbering style.

  // This is done through the following structure members:

  fmt.dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE or

   PFM_NUMBERINGTAB;

   // Set the following values (bitwise-or them together) to identify

   // which of the remaining structure members are valid:

   // PFM_NUMBERING, PFM_NUMBERINGSTART, PFM_NUMBERINGSTYLE, and PFM_NUMBERINGTAB

  fmt.wNumbering := 2;

   //0 no numbering or bullets

   //1 (PFN_BULLET) uses bullet character

   //2 Uses Arabic numbers (1, 2, 3, ...).

   //3 Uses lowercase letters (a, b, c, ...).

   //4 Uses uppercase letters (A, B, C, ...).

   //5 Uses lowercase Roman numerals (i, ii, iii, ...).

   //6 Uses uppercase Roman numerals (I, II, III, ...).

   //7 Uses a sequence of characters beginning with the Unicode

   // character specified by the wNumberingStart member.

  fmt.wNumberingStart := 1;

   // Starting value for numbering.

  fmt.wNumberingStyle := $200;

   // Styles for numbering:

   // 0 : Follows the number with a right parenthesis. 1)

   // $100 : Encloses the number in parentheses. (1)

   // $200 : Follows the number with a period. 1.

   // $300 : Displays only the number. 1

   // $400 : Continues a numbered list without applying the next number or bullet.

   // $8000 : Starts a new number with wNumberingStart.

  fmt.wNumberingTab := 1440 div 4;

  // Minimum space between a paragraph number and the paragraph text, in twips

  RichEdit1.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));

end;
<hr />
Par exemple, change les valeurs de "fmt.wNumbering " tu peux aussi choisir la première puce (si tu veux commencer à 2 par exemple au lieu de 1 tu modifie fmt.wNumberingStart )

etc... regarde les autres options (parenthèses insérables par exmple)

voilà, c'est tout

DrJerome

karim1971
26 déc. 2013 à 20:01

mai est il possible de mettre des oculeur, du gras et du italique sur ce numerotation? parceque j'ai essai mais aucunne resultat.
merci

Réponse 2 / 2

cs_souama Messages postés 3 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 24 octobre 2008
24 oct. 2008 à 07:45

Discussions similaires

Parametre de ShellExecute

Fonction Pos().

Convertir un png en jpeg Delphi XE

Décompiler un EXE Delphi

StringReplace ?

Votre réponse

Discussions similaires