Curseur dynamique assez complexe...

Version imprimable

19/03/2007, 16h43
yiuche

1 pièce(s) jointe(s)

Curseur dynamique assez complexe...

Bonjour,
Je demande quelques petits conseil car je n'ai pas trouvé dans la FAQ.
On me demande de créer un curseur dynamique comme ci joint mais je ne sais pas quel outil utiliser.
J'explique ce que ce curseur doit faire :
- lorsque j'affiche la fenêtre, le curseur doit se positionner en récupérant un pourcentage calculé préalablement (c'est une moyenne de plusieurs chiffres).
- je dois pouvoir modifier la valeur du curseur et en simultané on recalcule par une règle de trois la valeur des autres chiffres pour les modifier.
- je dois pouvoir garder la velaur dans une base de données ( je pense que c'est le plus facile..)

Le problème est que je ne sais pas quoi utiliser et si c'est possible de le faire en delphi.
Merci pour vos conseils et remarques...
19/03/2007, 17h03
Cl@udius

Salut

L'utilisation d'un TTrackBar ne répond pas à ta demande?
Je pense que l'on peut gérer ta demande sans trop de difficulté avec ce compo.

@+
19/03/2007, 17h15
yiuche

C'est ce que j'ai commencé à faire et pour l'instant je me bats avec les paramètres pour essayer de donner le même graphisme que la demande du client...
mais c'est pas gagné !!!

Re,

En définissant ton TrackBar ainsi, on commence à s'en approcher. Faire mieux ? euuh bof !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  object TrackBar1: TTrackBar
    Left = 120
    Top = 80
    Width = 150
    Height = 17
    Max = 100
    Position = 50
    SelEnd = 100
    TabOrder = 0
    ThumbLength = 16
    TickStyle = tsNone
  end

19/03/2007, 19h32
Pedro

Citation:

Envoyé par yiuche

C'est ce que j'ai commencé à faire et pour l'instant je me bats avec les paramètres pour essayer de donner le même graphisme que la demande du client...
mais c'est pas gagné !!!

Salut :)
Attention, si tu demandes le même "graphisme" alors le TTrackBar ne permet pas de s'afficher comme ça.
Il te faudra récupérer des compos skinnables par exemple.

Je te suggère de le faire toi-même en dérivant à partir de la classe TGraphicControl, et pour les chiffres, on va utiliser une liste de réels par exemple

En tout cas, voici la 1ère partie :

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
unit UnitFloatList;
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
 
type
TFloatList = class(TObject)
  private
    FList: TList;
    FSum: Extended;
    FMeanValue: Extended;
    FIsUpdating:boolean;
    FOnStatChanged: TNotifyEvent;
    function GetItems(Item: integer): extended;
    procedure SetItems(Item: integer; Value: extended);
    function GetCount: integer;
    procedure ComputeSum;
    procedure ComputeMeanValue;
    procedure UpDateStats;
    procedure SetOnStatChanged(const Value: TNotifyEvent);
  public
    constructor Create;
    destructor Destroy; override;
    function Add(Value: extended): integer;
    function First: extended;
    function Last: extended;
    procedure Clear;
    procedure Delete(Item: integer);
    procedure BeginUpdate;
    procedure EndupDate;
    property Items[Item: integer]: extended read GetItems
        write SetItems; default;
    property Count: integer read GetCount;
    property Sum:Extended read FSum;
    property MeanValue:Extended read FMeanValue;
    property OnStatChanged:TNotifyEvent read FOnStatChanged write SetOnStatChanged;
  end;
 
implementation
 
function TFloatList.GetItems(Item: integer): extended;
begin
  Result:=PExtended(FList[Item])^;
end;
 
procedure TFloatList.SetItems(Item: integer; Value: extended);
begin
  PExtended(FList[Item])^:=Value;
  UpDateStats;
end;
 
function TFloatList.GetCount: integer;
begin
  Result:=FList.Count;
end;
 
constructor TFloatList.Create;
begin
  inherited Create;
  FList:=TList.Create;
  FIsUpdating:=false;
end;
 
destructor TFloatList.Destroy;
begin
  Clear;
  FList.Free;
  inherited Destroy;
end;
 
function TFloatList.Add(Value: extended): integer;
var
  FloatPtr: PExtended;
begin
  GetMem(FloatPtr, SizeOf(extended));
  FloatPtr^:=Value;
  Result:=FList.Add(FloatPtr);
  UpDateStats;
end;
 
function TFloatList.First: extended;
begin
  Result:=PExtended(FList[0])^
end;
 
function TFloatList.Last: extended;
begin
  Result:=PExtended(FList[FList.Count - 1])^;
end;
 
procedure TFloatList.Clear;
var
  Index: integer;
begin
  for Index:=0 to FList.Count - 1 do
    FreeMem(FList.Items[Index], SizeOf(extended));
  FList.Clear;
end;
 
procedure TFloatList.Delete(Item: integer);
begin
  FreeMem(FList.Items[Item], SizeOf(extended));
  FList.Delete(Item);
  UpDateStats;
end;
 
procedure TFloatList.ComputeMeanValue;
begin
  FMeanValue:=0;
  if Count<>0
  then FMeanValue:=FSum/Count;
end;
 
procedure TFloatList.ComputeSum;
var i:integer;
begin
  FSum:=0;
  for i:=0 to Count-1 do
      FSum:=FSum+Items[i];
end;
 
procedure TFloatList.UpDateStats;
begin
  if FIsUpdating then exit;
  ComputeSum;
  ComputeMeanValue;
  if Assigned(FOnStatChanged) then FOnStatChanged(self);
end;
 
procedure TFloatList.BeginUpdate;
begin
  FIsUpdating:=true;
end;
 
procedure TFloatList.EndupDate;
begin
  FIsUpdating:=False;
  UpDateStats;
end;
 
procedure TFloatList.SetOnStatChanged(const Value: TNotifyEvent);
begin
  FOnStatChanged := Value;
end;
 
end.

C'est une classe qui maintient une liste de réels, la somme et la moyenne est mise à jour à chaque fois qu'un élèment est ajouté/supprimé/modifié.

Je ne me suis pas fait suer à appliquer une règle de trois... tu peux adapter le code si çça te chante pour que celà soit fait ainsi.

Pour l'affichage du 0% et du 100%, je suggère 2 TLabel, donc il ne reste plus que la ligne verte (un LineTo avec Pen.Width=4 fera très bien l'affaire, reste le curseur.... je te charge du bitmap (clFushia pour la transparence):mrgreen:

2ème partie, je n'ai pas testé, mais ça compile :
Code:

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 unit WATrackBar; interface uses Windows,types,SysUtils, Classes, Controls,Graphics,UnitFloatList; type TWATrackBar = class(TGraphicControl) private { Déclarations privées } FFloatList:TFloatList; FTracker: TBitmap; FColor: TColor; FLineWith: integer; procedure SetColor(const Value: TColor); procedure SetTracker(const Value: TBitmap); procedure SetLineWith(const Value: integer); protected { Déclarations protégées } procedure Paint; override; procedure DoUpDateStat(Sender:TObject); public { Déclarations publiques } procedure Create(AOwner:TComponent); procedure Destroy; override; published { Déclarations publiées } property Tracker:TBitmap read FTracker write SetTracker; property Color:TColor read FColor write SetColor; property LineWith:integer read FLineWith write SetLineWith; property FloatList:TFloatList read FFloatList; end; procedure Register; implementation procedure Register; begin RegisterComponents('WA', [TWATrackBar]); end; { TWATrackBar } procedure TWATrackBar.Create(AOwner: TComponent); begin inherited Create(AOwner); FLineWidth:=4; FTracker:=TBitmap.Create; FFloatList:=FFloatList.Create; FFloatList.OnStatChanged:=DoUpDateStat; end; procedure TWATrackBar.Destroy; begin FFloatList.Free; FTracker.Free; inherited; end; procedure TWATrackBar.DoUpDateStat(Sender: TObject); begin invalidate; end; procedure TWATrackBar.Paint; var x,y:integer; begin inherited; Canvas.Pen.Color:=FColor; Canvas.Pen.Width:=LineWith; Canvas.MoveTo(0,Height div 2); Canvas.LineTo(Width,Height div 2); x:=Round(FFloatList.MeanValue*(ClientWidth-1)/100)-(Tracker.Width div 2); y:=(ClientHeight-Tracker.Height) div 2; Canvas.Draw(x,y,FTracker); end; procedure TWATrackBar.SetColor(const Value: TColor); begin if FColor<>Value then begin FColor := Value; Invalidate; end; end; procedure TWATrackBar.SetLineWith(const Value: integer); begin if FLineWith<>Value then begin FLineWith := Value; Invalidate; end; end; procedure TWATrackBar.SetTracker(const Value: TBitmap); begin FTracker.Assign(Value); FTracker.Transparent:=true; Invalidate; end; end.
Utilisation :
Tu dois assigner un Bitmap qui correspond à la forme de ton curseur à la propriété Tracker.

Code:

WATrackBar1.Tracker:=MonBitmap;

ou comme ceci :

Code:

WATrackBar1.Tracker.LoadFromFile('TonImage.bmp');

Si ton image zappe la transparence qu'il faudrait, c'est parce que dans ton code, tu devrais ajouter ça :

Code:

WATrackBar1.Tracker.Transparent:=true;

Faut pas déc... , je n'ai pas pensé à tout :aie:

Color, c'est pour la couleur de la ligne (verte dans ton exemple)
LineWidth, pour son épaisseur (= à 4 par défaut)

Tu alimentes la propriété FloatList qui est notre Liste d'entiers de type TFloatList, et via l'évènement OnUpdateStat de celle-ci, qui déclenche la méthode DoUpdateStats, ta trackbar sera mise à jour au niveau de l'affichage, instantanément.
La position de la trackbar est basée sur la moyenne de la liste, en supposant que cette moyenne est une valeur comprise entre 0 et 100

Reste les deux labels, à gauche et à droite, pour afficher 0% et 100%, mais ça, tu sais faire ;)

Je crois que c'est tout, bon dev :P

20/03/2007, 11h55
yiuche

Ok...
Merci beaucoup à vous...
je m'attaque à ce curseur...
Au pire je demanderais à mon chef de projet de m'aider également...
Ce site est génial...