Discussion :

[XeGregory]

Bonjour,

Ma procédure ne fonctionne pas en mode 64.

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
{ Private : XGridWndProc }
procedure TForm1.XGridWndProc(var Msg: TMessage);
begin
{$IFDEF WIN32}
  if (Msg.Msg = WM_VSCROLL) and (LongRec(Msg.wParam).Lo = SB_THUMBTRACK) then
  begin
    LongRec(Msg.wParam).Lo := SB_THUMBPOSITION;
  end;
{$ENDIF}
{$IFDEF WIN64}
  if (Msg.Msg = WM_VSCROLL) and (Int64Rec(Msg.wParam).Lo = SB_THUMBTRACK) then
  begin
    Int64Rec(Msg.wParam).Lo := SB_THUMBPOSITION;
  end;
{$ENDIF}
 
  if Assigned(XGridWndMethod) then
    XGridWndMethod(Msg);
end;

J'ai testé

Code :

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

... and (LongRec(Int64Rec(Msg.wParam)).Lo = SB_THUMBTRACK)

Erreur :
E2089 Transtypage incorrect.
E2010 Types incompatibles : 'LongRec' et 'Integer'.

Merci.

[XeGregory]

Plus d'erreurs mais ne fonctionne toujours pas en mode 64.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
{ Private : XGridWndProc }
procedure TForm1.XGridWndProc(var Msg: TMessage);
begin
  if (Msg.Msg = WM_VSCROLL) and ({$IFDEF WIN64}Int64Rec{$ELSE}LongRec{$ENDIF}(Msg.wParam).Lo = SB_THUMBTRACK) then
  begin
    {$IFDEF WIN64}Int64Rec{$ELSE}LongRec{$ENDIF}(Msg.wParam).Lo := SB_THUMBPOSITION;
  end;
 
  if Assigned(XGridWndMethod) then
    XGridWndMethod(Msg);
end;

[ShaiLeTroll]

Cela ne pourrait s'écrire comme ceci ?

Code :

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

1
2
3
4
  if (Msg.Msg = WM_VSCROLL) and ((WORD(Msg.wParam) and SB_THUMBTRACK) = SB_THUMBTRACK) then
  begin
    Msg.wParam := Msg.wParam and WORD(not SB_THUMBTRACK) or SB_THUMBPOSITION ;
  end;

Lo du Int64Rec c'est 32 bits
Lo du LongRec c'est 16 bits

Code :

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

1
2
3
4
  if (Msg.Msg = WM_VSCROLL) and {$IFDEF WIN64}Int64Rec(Msg.wParam).Words[0]{$ELSE}LongRec(Msg.wParam).Lo{$ENDIF} = SB_THUMBTRACK) then
  begin
    {$IFDEF WIN64}Int64Rec(Msg.wParam).Words[0]{$ELSE}LongRec(Msg.wParam).Lo{$ENDIF} := SB_THUMBPOSITION;
  end;

[XeGregory]

Merci ShaiLeTroll

[Andnotor]

Ou en utilisant la structure prévue pour

Code :

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

1
2
if (Msg.Msg = WM_VSCROLL) and (TWMScroll(Msg).ScrollCode = SB_THUMBTRACK) then
    TWMScroll(Msg).ScrollCode := SB_THUMBPOSITION;

Les structures de messages sont toutes correctement alignées pour le 32 et 64 bits.

[ShaiLeTroll]

TWMScroll, très bonne remarque, je ne l'ai jamais utilisé celui là
J'aurais du y penser vu que je fais mes propres structure de message, utilisé en 32 bits seulement mais théoriquement compatible 64bits puisque pomper depuis TWMEnable

genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TCMDelayedLocate = record
    Msg: Cardinal;
    MsgFiller: TDWordFiller;
    MagasinCode: Integer;
    MagasinCodeFiller: TDWordFiller;
    Unused: LPARAM;
    Result: LRESULT;
  end;
 
...
    procedure CMDelayedLocate(var Message: TCMDelayedLocate); message CM_DELAYED_LOCATE;
...