Hello,

I have two stringgrids with exactly the same columns, basically something like Excel autofilter.

Does anybody have an idea how to change the scrollposition of a stringgrid depending on the scrollpos of the other?

It seems i can use the ontopleftchanged event, but i dont know how to get or set the scrollposition.

Tanks a lot,

Rimmert
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121015/5d88e182/attachment.html>

I have two stringgrids with exactly the same columns, basically something like Excel autofilter. Does anybody have an idea how to change the scrollposition of a stringgrid depending on the scrollpos of the other?

One way would be using OnSelection event and try something like:

sg1.LeftCol := sg2.LeftCol;
sg1.TopRow:=sg2.TopRow;

sg1 will be synchronized to sg2.

That would give you row/col size granularity. For pixel granularity, without messing with grids internals, could be done using GetScrollInfo for both scrollbars on source grid and using SetScrollInfo for both scrollbars on target grid. Not tried but should work :)

Jesus Reyes A.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121015/e3153fc5/attachment.html>

I also want to try the Get/SetScrollInfo, but I noted it is defined in winapih, does that mean its Windows only?
Ifso, i'll stick with using Leftcol.

(The program will be used on Mac and Win, but i dont have a mac machine atm.)

Thanks,
Rimmert
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121016/1475a012/attachment.html>

winapih only means that this is the file where the declarations of the Windows API functions reside which are used (and implemented) by the LCL on all plattforms (even on Windows the routines there are forwarders to the real Win API functions). So if Get-/SetScrollInfo is implemented and works for e.g. Carbon you can use it.

Regards,
Sven

Anybody an idea why the code below doesn't work?
GetScrollBarPosition does seem to return the correct value, but the call to ScrollbarPosition doesn't seem to work.
On windows it actually cals SetScrollInfo as mentioned, but doesn't seem to do anything.

Thanks!

type
  TGridHack = class(TStringGrid)
  public
    procedure SyncTo(grd: TStringGrid);
  end;
implementation

{ TGridHack }

procedure TGridHack.SyncTo(grd: TStringGrid);
begin
  //LeftCol := grd.LeftCol;
  ScrollBarPosition(SB_Horz, TGridHack(grd).GetScrollBarPosition(SB_Horz));
  //ScrollBarPosition(SB_Vert, TGridHack(grd).GetScrollBarPosition(SB_Vert));
end;