unit SyncStringGrid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
Grids;
type
TSyncKind = (skBoth, skVScroll, skHScroll);
TSyncStringGrid = class(TStringGrid)
private
FInSync: Boolean;
FsyncGrid: TSyncStringGrid;
FSyncKind: TSyncKind;
{ Private declarations }
Procedure WMVScroll( Var Msg: TMessage ); message WM_VSCROLL;
Procedure WMHScroll( Var Msg: TMessage ); message WM_HSCROLL;
protected
{ Protected declarations }
public
{ Public declarations }
Procedure DoSync( msg, wparam: Integer; lparam: longint ); virtual;
published
{ Published declarations }
property SyncGrid: TSyncStringGrid read FSyncGrid write FSyncGrid;
property SyncKind: TSyncKind read FSyncKind write FSyncKind default skBoth;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TSyncStringGrid]);
end;
Procedure TSyncStringGrid.WMVScroll( Var Msg: TMessage );
Begin
If not FInSync and
Assigned( FSyncGrid ) and
(FSyncKind In [skBoth, skVScroll])
Then
FSyncGrid.DoSync( WM_VSCROLL, msg.wparam, msg.lparam );
inherited;
End;
Procedure TSyncStringGrid.WMHScroll( Var Msg: TMessage );
Begin
If not FInSync and
Assigned( FSyncGrid ) and
(FSyncKind In [skBoth, skHScroll])
Then
FSyncGrid.DoSync( WM_HSCROLL, msg.wparam, msg.lparam );
inherited;
End;
Procedure TSyncStringGrid.DoSync( msg, wparam: Integer; lparam: longint );
Begin
FInSync := True;
Perform( msg, wparam, lparam );
FinSync := False;
End;
end. |
|
