46 lines
1.5 KiB
ObjectPascal
46 lines
1.5 KiB
ObjectPascal
unit spkt_Dispatch;
|
|
|
|
{$mode delphi}
|
|
|
|
(*******************************************************************************
|
|
* *
|
|
* File: spkt_Dispatch.pas *
|
|
* Description: Basic classes of intermediary dispatchers between elements *
|
|
* of the toolbar. *
|
|
* Copyright: (c) 2009 by Spook. *
|
|
* License: Modified LGPL (with linking exception, like Lazarus LCL) *
|
|
' See "license.txt" in this installation *
|
|
* *
|
|
*******************************************************************************)
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Controls, Graphics,
|
|
SpkMath;
|
|
|
|
type
|
|
TSpkBaseDispatch = class abstract(TObject)
|
|
private
|
|
protected
|
|
public
|
|
end;
|
|
|
|
TSpkBaseAppearanceDispatch = class abstract(TSpkBaseDispatch)
|
|
public
|
|
procedure NotifyAppearanceChanged; virtual; abstract;
|
|
end;
|
|
|
|
TSpkBaseToolbarDispatch = class abstract(TSpkBaseAppearanceDispatch)
|
|
public
|
|
procedure NotifyItemsChanged; virtual; abstract;
|
|
procedure NotifyMetricsChanged; virtual; abstract;
|
|
procedure NotifyVisualsChanged; virtual; abstract;
|
|
function GetTempBitmap: TBitmap; virtual; abstract;
|
|
function ClientToScreen(Point: T2DIntPoint): T2DIntPoint; virtual; abstract;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|