Synchro HeaderControl avec ScrollBar

Version imprimable

17/11/2006, 23h33
Invité

Synchro HeaderControl avec ScrollBar

Bonjour

j'ai une une stringgrid et un headercontrol. Je sais synchroniser les colonnes de la stringgrid avec le headercontrol. Par contre, je ne sais pas synchroniser le headercontrol avec les déplacements de la scrollbar horizontale de la stringgrid.

Toutes les pistes sont bienvenues.

Cordialement
04/03/2007, 20h11
delphichou

Synchro headercontrol avec scrollbar

Le problème est-il résolu ?
J'ai peut-être la solution.
Faites-le savoir.
@ plus

HeaderControl Synchro avec StringGrid

Tu peux faire comme ça:

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
type
  TForm1 = class(TForm)
    Header: THeaderControl;
    SG: TStringGrid;
 
.........
 
procedure TForm1.FormShow(Sender: TObject);
var
   i: integer;
   HS: THeaderSection;
begin
 
  for i := 0 to SG.ColCount-1 do begin
    HS := Header.Sections.Add;
    HS.Text := IntToStr(i);
    SG.Cells[i,0] := HS.Text;
    //    HS.AutoSize
  end;
end;
 
procedure TForm1.SGTopLeftChanged(Sender: TObject);
var
   i: integer;
begin
  for i := 1 to SG.ColCount-1 do begin
    if i < SG.LeftCol then Header.Sections[i].Width := 0
                      else SetHeaderWidth(i)
  end
end;