Discussion :

[MiJack]

Hello,

Est-il possible de changer la couleur de la partie entre selStart et selEnd ? J'ai un bleu marine que je ne trouve pas spécialement beau

[Droïde Système7]

Bonjour,

Peut-être une piste à creuser

Code :

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

1
2
3
4
5
 
...
if (odSelected in State) then
  begin
    ...

[MiJack]

Je creuse, mais sans beaucoup de résultats. Je ne vois pas d'événements de la trackbar qui utilise un paramètre "State", et rien non plus dans le code source de TTrackBar qui ressemble à ta ligne

[Jipété]

Yop !

la partie entre selStart et selEnd

correspond, à mon avis, à la couleur "Windows" (système, quoi : panneau de conf et tout ça) de quelque chose de "Selected", comme un mot dans un mémo.
Mes 2 cts, pour faire avancer le schmilblik,
--
jp

[Droïde Système7]

Bonjour,

Mon idée était un dérivé - à adapter - de la fameuse couleur de sélection dans un ComboBox ou autre...

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
17
18
19
 
var
  pCanvas : TCanvas;
begin
  pCanvas := (Control as TComboBox).Canvas;
 
  // Lorsque la ligne est sélectionnée
  if (odSelected in State) then
  begin
    pCanvas.Brush.Color := $008000FF; 
    pCanvas.FillRect(Rect);
    pCanvas.Font.Color := clWhite;
       end
    else
   pCanvas.FillRect(Rect);  // Les autres lignes
 
  // Ecrire les Items.
  pCanvas.TextOut(Rect.Left+5,Rect.Top,(Control as TComboBox).Items.Strings[Index]); 
end;

Reste à l'adapter si cela est possible au compo en question.

[MiJack]

Je vois ton idée J-P, mais où mettrais-tu ce code ? Je pensais utiliser quelque chose comme ça dans la méthode qui dessine la trackbar, mais... impossible de la trouver. Il n'y a pas de draw ou de paint dans la classe ComCtrls.TrackBar.

J'ai par contre bien pu vérifier que la couleur clNavy utilisée par le composant est celle définie dans Windows pour les objets sélectionnés.