Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

J'ai un probleme d'affichage d'un shape que je pose sur un stringgrid.

Le but de l'opération est que lorsque je scroll le stringgrid, le shape puisse monter et descendre également sans perdre sa taille.
Et je n'y arrive pas.

voilà un exemple de code.

Si on scroll, le shape reste tout le temps au même endroit, si je retire les évenement de scroll la le shape sa devient du n'importe quoi en affichage.

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
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure StringGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Shape1 : TShape;
begin
  Shape1 :=  TShape.Create(StringGrid1);
  With Shape1 do
  begin
    name   := 'Essai';
    parent := StringGrid1;
    left   := StringGrid1.ColWidths[1];
    top    := 45;
    Height := 100;
    Width  := StringGrid1.DefaultColWidth;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  StringGrid1.RowCount := 40;
end;
 
procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
var
i: integer;
begin
  for i := 0 to stringGrid1.ControlCount - 1 do
   begin
     TShape(StringGrid1.Controls[i]).Repaint;
   end;
   TStringGrid(Sender).Repaint;
end;
 
procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
var
i: integer;
begin
 
  for i := 0 to stringGrid1.ControlCount - 1 do
   begin
     TShape(StringGrid1.Controls[i]).Repaint;
   end;
   TStringGrid(Sender).Repaint;
end;
end.

PS : en cas réelle je joue avec un stringgrid et un shape maison, mais le principe reste le même.

[Nono40]

Je ne vois rien dans ton code qui déplace le TShape

[BuzzLeclaire]

Je ne vois rien dans ton code qui déplace le TShape

Salut,

tout à fait... le shap ne bouge pas et ne doit pas bouger.

Il faut que quand je descend et je monte le STRINGGRID que la visualisation du shape suive.

Explication :
Si mon shape est entre la moitié de la ligne 4 et la moitié de la ligne 10, donc il a une taille d'environ 72, lorsque je descend avec le scroll du stringgrid j'aimerais qu'il reste en place correctement, c'est à dire que si tu descend le comportement est normale, le shape monte et disparait, et si dans la foulé du remonte le stringgrid et bien le shape et tous achuré on est obligé de bouger la form pour le revoir bien net.

[BuzzLeclaire]

Rebonjour à toutes et à tous,

Je n'arrive pas à faire ce que je souhaite.

Voilà où j'en suis

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
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls;
 
type
 
  TStringGridRu = class(TStringGrid)
  private
    { Déclarations privées }
  protected
    { Déclarations protégées }
     procedure WMVSCROLL(var Message :TMessage); message WM_VSCROLL;
     procedure WMMOUSEWHEEL(var Message :TMessage); message WM_MOUSEWHEEL;
     procedure WMKEYDOWN(var Message :TMessage); message WM_KEYDOWN;
  public
    { Déclarations publiques }
  published
    { Déclarations publiées }
  end;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  StringGrid1: TStringGridRu;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Shape1 : TShape;
begin
  Shape1 :=  TShape.Create(StringGrid1);
  With Shape1 do
  begin
    name   := 'Essai';
    parent := StringGrid1;
    left   := StringGrid1.ColWidths[1];
    top    := 45;
    Height := 100;
    Width  := StringGrid1.DefaultColWidth;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  StringGrid1 := TStringGridRu.Create(Self);
  with StringGrid1 do
  Begin
    Parent    := Self;
    left      :=0;
    Top       :=0;
    Width     := 300;
    Height    := 300;
    Rowcount  := 30;
  End;
 
end;
 
procedure TStringGridRu.WMKEYDOWN(var Message: TMessage);
begin
  inherited;
  case Message.WParam of
    33,34,38,40:
    begin
      Invalidate;
    end;
  end;
end;
 
procedure TStringGridRu.WMMOUSEWHEEL(var Message: TMessage);
begin
  inherited;
//  Invalidate;
end;
 
procedure TStringGridRu.WMVSCROLL(var Message: TMessage);
begin
  inherited;
//  Invalidate;
end;
 
end.

La je dérive la stringgrid pour jouer avec les évenements de scroll.

Mais comme vous pouvez le voir (pour ceux qui peuvent tester) si on scroll vers le bas sa va bien (le shape disparait bien), mais si je scroll vers le haut (pour remonter) le shape est hachuré complétement et même disloqué !! lol.

Merci pour votre aide.