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
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
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;
Partager