FlatSB_GetScrollInfo error

[gege]

hello,
I can't figure out the "FlatSB_GetScrollInfo -> Got "tagScrollInfo" expected "SCROLLINFO" error.
Here is my code:
   var
     GfSi: TScrollInfo;
     Code: Integer;

   begin
     GfSi.cbSize := SizeOf(TScrollInfo);
     GfSi.fMask := SIF_TRACKPOS;
     Code:= SB_HORZ;
     if fKind = sbVertical then Code:= SB_VERT;
     Result := Msg.Pos;
     if FlatSB_GetScrollInfo(Owner.Handle, Code, GfSi) then
       Result := GfSi.nTrackPos;
   end;
Does it work with delphi?
Thank you for your answers.

[jamie]

Remove the T at the var section of tscrollinfo? You are not using the correct one.
You may also need to include the windows unit.

[gege]

Thank you for your answer, the windows unit is already declared. I was inspired by TurboPowerIPro by adding:
    FlatSB_GetScrollInfo: function(hWnd: HWND; BarFlag: Integer;
                                   var ScrollInfo: TScrollInfo): BOOL; stdcall;
    FlatSB_GetScrollPos: function(hWnd: HWND; nBar: Integer): Integer; stdcall;
    FlatSB_SetScrollPos: function(hWnd: HWND; nBar, nPos: Integer;
                                  bRedraw: BOOL): Integer; stdcall;
    FlatSB_SetScrollProp: function(p1: HWND; index: Integer; newValue: Integer;
                                   p4: Bool): Bool; stdcall;
    FlatSB_SetScrollInfo: function(hWnd: HWND; BarFlag: Integer;
                                   const ScrollInfo: TScrollInfo; Redraw: BOOL): Integer; stdcall;

This solves the problem.
I try to adapt SimpleGraph to lazarus, didn't finish.
Sincerely.
Gege

[wp]

The way I understand the IPro functions it seems that they simply do nothing else than call the standard GetScrollInfo etc (without "FlatSB_..."), and they have been made cross-platform in the LCLIntf unit. So, your original code should work too when you remove the "FlatSB_" prefix from the function names. And you might be able to avoid the Windows unit which is the main obstacle in making libraries cross-platform.

[jamie]

  That API call seems to be supported starting with Vista, and it appears to use the same record structures as the basic one.
 
  Maybe it would be prudent to place a check point up in the Win32 libs to investigate the existence of this API and load it dynamically and use that one instead of the standard, since MS claims it uses the standard anyways if the window has not been set for flat bars.

  This way apps can still run-on older systems which I really would appreciate, and I don't think I stand alone here.

[gege]

Merci de vos réponses