Discussion :

[delphidebutant]

J'ai un texte avec des lignes de différentes couleur, et j'aimerais pouvoir récupérer la couleur de fond, sous le curseur.

Si qqun connait la réponse, merci pour le coup de main

[DOLPat®]

Bonjour

Le canvas du RichEdit n'étant pas directement accessible, il faut passer par les fonction GDI. Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
var
  c: TCanvas;
  Couleur: Integer;
begin
  c := TCanvas.Create;
  try
    c.Handle := GetWindowDC(RichEdit1.Handle);
    Couleur := GetPixel(c.Handle, X, Y);
  finally
    c.Free;
  end;
end;