Discussion :

[samiafares]

slt tout le monde, j'ai un problème sur mon richedit, je doit copier (ou écrire) un texte mais je veux spécifier à quel pixel commence et se termine toute les lignes càd pour avoir un ajustement (comme word) ou d'une autre façon avoir une marge au début et à la fin des lignes (ou spécifier le carré ou je doit mettre mon texte). merci d'avance

[Lung]

J'ai trouvé un bout de code pour créer des marges dans un Memo (pas testé):

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
procedure TForm1.Button1Click(Sender: TObject); 
Var 
  Rct : TRect; 
  MargeGauche:integer; 
  MargeDroite:integer; 
begin 
  MaeGauche:=20; 
  MargeDroite:=10; 
  Rct := Memo1.ClientRect; 
  Rct.Left:=Rct.Left + MargeGauche; 
  Rct.Top:=Rct.Top + 2; 
  Rct.Bottom:=Rct.Bottom - 2; 
  Rct.Right:=Rct.Right-MargeDroite; 
  SendMessage(Memo1.Handle, EM_SETRECT, 0, Longint(@Rct)); 
  Memo1.Refresh; 
end;

Si ça peut t'aider ...

[samiafares]

merci bcp lung c'est bien ça ce que je veux et ça marche bien même avec un "richedit".