FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
function tableaurtf(nbcol,nbligne,largeur:integer):string; 
var i,j : integer; 
begin 
 result:='{\rtf1\trowd'; 
 for i:=1 to nbcol do result:=result+format('\cellx%d',[i*(2000+largeur)]); 
 for j:=1 to nbligne do 
 begin 
  result:=result+'\intbl'; 
  for i:=1 to nbcol do result:=result+'\cell'; 
  result:=result+'\row'; 
 end; 
 result:=result+'}'; 
end;

RichEdit10.SelText:=tableaurtf(2,2,200);

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
procedure TForm1.Button1Click(Sender: TObject); 
var 
  itemp: Integer; 
begin 
  with RichEdit1 do 
  begin 
    // Aller à la dernière ligne 
    SelStart := Length(Text); 
    Perform(EM_SCROLLCARET, 0, 0); 
  
    // ou encore: Perform(WM_VSCROLL, SB_BOTTOM,0); 
  
    // Aller à la Première ligne 
    SelStart := Perform(EM_LINEINDEX, 0, 0); 
    Perform(EM_SCROLLCARET, 0, 0); 
  
    // Aller à la ligne 5, colonne 3 
    SelStart := Perform(EM_LINEINDEX, 5, 0) + 3; 
    Perform(EM_SCROLLCARET, 0, 0); 
  
    // Scroller d'une ligne vers le bas 
    with RichEdit1 do 
    begin 
      itemp := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0); 
      SelStart := Perform(EM_LINEINDEX, itemp + 1, 0); 
      Perform(EM_SCROLLCARET, 0, 0); 
    end; 
  
  end; 
end;

RichEdit1.SelAttributes.Color:= TColor;

RichEdit1.SelAttributes.Color:= clRed;

RichEdit1.DefAttributes.Color:= TColor;

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
uses Windows,Forms,Graphics, RichEdit, ComCtrls; 
... 
  
function PrintToCanvas(ACanvas : TCanvas; FromChar, ToChar : integer; 
                      ARichEdit : TRichEdit; var ARect : TRect;RenderIt:boolean) : Longint; 
var  Range    : TFormatRange; 
begin 
    //Précaution 
    SendMessage(ARichedit.Handle, EM_FORMATRANGE, 0, 0); 
  
    if not RenderIt then 
    begin 
      SetRect(ARect,0,0,ARichEdit.Width,ARichEdit.Height); 
    end; 
  
    FillChar(Range, SizeOf(TFormatRange), 0); 
    Range.hdc        := ACanvas.handle; 
    Range.hdcTarget  := ACanvas.Handle; 
    Range.rc.left    := ARect.Left * 1440 div Screen.PixelsPerInch; 
    Range.rc.top     := Arect.Top * 1440 div Screen.PixelsPerInch; 
    Range.rc.right   := ARect.Right * 1440 div Screen.PixelsPerInch; 
    Range.rc.Bottom  := ARect.Bottom * 1440 div Screen.PixelsPerInch; 
    Range.chrg.cpMax := ToChar; 
    Range.chrg.cpMin := FromChar; 
    if RenderIt 
    then Result := SendMessage(ARichedit.Handle, EM_FORMATRANGE, 1, Longint(@Range)) 
    else begin 
           Range.chrg.cpMax := ARichedit.GetTextLen; 
           Result := SendMessage(ARichedit.Handle, EM_FORMATRANGE, 0, Longint(@Range)); 
           ARect:=Range.rc; 
           ARect.Bottom  := Range.rc.Bottom * Screen.PixelsPerInch div 1440; 
         end; 
   SendMessage(ARichEdit.handle, EM_FORMATRANGE, 0,0); 
end;

1
2
var ARect:TRect; 
PrintToCanvas(Form1.Canvas,0,-1,RichEdit1,ARect,false);

1
2
3
4
5
6
  
var 
 LineIndex:Integer; 
begin 
 LineIndex:=RichEdit1.perform(EM_GETFIRSTVISIBLELINE,0,0); 
end;

1
2
  
    Procedure Memo1ScrollCatcher(var message: TMessage);

1
2
3
4
5
 
type 
  TMyControl = class(TControl); 
 
  LineIndex1 : Integer // est à déclarer en portée globale pour pouvoir être utilisée dans votre code. Donc, avant ou après implementation.

1
2
3
4
5
  
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  RichEdit1.WindowProc := Memo1ScrollCatcher; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
  
procedure TForm1.Memo1ScrollCatcher(var message: TMessage); 
begin 
     TMyControl(RichEdit1).WndProc(message); 
     if ((message.Msg = WM_VSCROLL) or (message.Msg = WM_MOUSEWHEEL)) 
     then begin 
         LineIndex1 := GetScrollPos(RichEdit1.Handle, SB_VERT); 
  
         // mettez un label (Label1) sur votre fiche, pour voir 
         Label1.Caption:=IntToStr(LineIndex1 ); // affiche la position de la ScrollBar verticale 
     end; 
end;