was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

62 Visitors Online


 
...in einem TRichEdit Aufzählungszeichen verwenden?
Autor: Thomas Stutz
[ Tip ausdrucken ]  

Tip Bewertung (12):  
     


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;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners