Discussion :

[melles]

Chalut

Je ne m'en sort plus du tout avec ces DbGrids... Je dois avoir raté klk chose ou alors c'est Borland qui a raté klk chose!!!
(j'opterai à 100% pour la première solution.. lol.)

J'explique:
N'étant pas satisfait du résultat d'un scrollbar dans des DbGrids, j'ai donc viré cet ascenseur et ajouté un UpDown.
Après avoir tuer quelques heures à essayer de faire fonctionner le UpDown... J'ai fini par le virer et le remplacer par deux boutons auxquels j'ai affecté le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.Prior;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.next;
end;

Je ne suis pas sûre qu'il fallait faire cela mais en tout cas, le résultat fonctionne ils jouent bien le rôle du scrollbar. (je ne vous raconte pas à quel point j'étais content )
Seulement, mon évènement OnClick du DbGrid1 est tout perturbé et ne sélectionne plus du tout les champs sur lesquelles je clique

Mon erreur vient surement du code des deux boutons car tout fonctionne de nouveau si je mets ce code en commentaire...

Une fois de plus je demande vos lumières
Thx in advance...

[BuzzLeclaire]

Je pense que tu peux garder ton DBGrid comme il est avec les scrollbar.

Essai ça

Dans la partie private de ta form

Code :

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

1
2
3
4
5
6
  private
    { Private declarations }
    procedure DBGridMouseWheelUp(Sender: TObject; Shift:
    TShiftState;MousePos: TPoint; var Handled: Boolean);
    procedure DBGridMouseWheelDown(Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);

Dans l'evenement onshow

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormShow(Sender: TObject);
begin
  With TStringGrid(DBGrid1) do
  begin
    OnMouseWheelDown := DBGridMouseWheelDown;
    OnMouseWheelUp := DBGridMouseWheelUp;
  end;
end;

Ailleur dans ton unit

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
{ROULETTE Down}
procedure TForm1.DBGridMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
  Handled:=True;
  DBGrid1.Datasource.DataSet.Next;
end;

{ROULETTE Up}
procedure TForm1.DBGridMouseWheelUp(Sender: TObject; Shift:
TShiftState;MousePos: TPoint; var Handled: Boolean);
begin
  Handled:=True;
  DBGrid1.Datasource.DataSet.Prior;
end;

n'oublis pas de mettre
dgrowselect à True

Avec cela la molette de la souris fonctionne trés bien et cela ne gene en rien les evenements onclick ou autre du dbgrid.

[melles]

Merci pour ta réponse BuzzLeclaire... Je connaissais cette méthode mais j'avais un autre but en voulant remplacer le scrollbar.
J'aurais due préciser dès le début que je voulais augmenter sa largeur.

S'il y a moyen de le redessiner en augmentant sa largeur alors je suis preneur.
Sinon, je dois garder la solution des deux boutons ce qui me ramène de nouveau au problème du OnClick.

[melles]

Je n'ai toujours pas trouvé la solution

Je pose ma question d'une manière différente alors :
Comment assigner à la table ainsi qu'au DataSource.DataSet la même valeur (position) ?

Thx in advance.

[anapurna]

salut

trouvé sur le web

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var  
 oldMetrics: NONCLIENTMETRICS; // global storage for original settings
 
// (....)
 
function SetScrollbarWidth(NewWidth: Integer): Boolean;
var currentMetrics: NONCLIENTMETRICS;
begin
  oldMetrics.cbSize := SizeOf(oldMetrics);
  if not SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(oldMetrics),
                              @oldMetrics, SPIF_SENDCHANGE) then begin
    Result := FALSE;  Exit;
  end;
  currentMetrics:=oldMetrics;
  currentMetrics.iScrollWidth:=NewWidth;
  Result :=SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(currentMetrics),
                                @currentMetrics, SPIF_SENDCHANGE);
 
end;
 
function RestoreScrollbarWidth: Boolean;
var currentMetrics: NONCLIENTMETRICS;
begin
  Result :=SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(oldMetrics),
                                @oldMetrics, SPIF_SENDCHANGE);
end;
 
// DEMO:
// --------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Set new system scrollbar width:
  SetScrollbarWidth(40);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // Restore original system scrollbar width:
  RestoreScrollbarWidth;
end;

PS : Que vzeut tu faire exactement avec les scrollBar ?
@+ Phil

[melles]

J'achète
Il faut quand même faire attention car cette méthode modifie la largeur de toutes les scrollbar de windows!

[anapurna]

salut


autre solution plus local

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
 
 
FlatSB_SetScrollProp(      
    HWND hwnd,
    UINT index,
    INT_PTR newValue,
    BOOL fRedraw
);
exemple 
 
Uses CommCtrl;
...
  InitializeFlatSB(DBGRID.Handle);
...
   FlatSB_SetScrollProp(DBGRID.Handle, WSB_PROP_CXVSCROLL, 40, True); 
 // scroll bar vertical