2011-06-17 20:53:01 +00:00
|
|
|
unit spkt_Dispatch;
|
|
|
|
|
|
2011-06-18 16:17:03 +00:00
|
|
|
{$mode delphi}
|
|
|
|
|
|
2011-06-17 20:53:01 +00:00
|
|
|
(*******************************************************************************
|
|
|
|
|
* *
|
|
|
|
|
* Plik: spkt_Dispatch.pas *
|
2011-06-17 21:12:21 +00:00
|
|
|
* Opis: Bazowe klasy dyspozytorów poœrednicz¹cych pomiêdzy elementami *
|
2011-06-17 20:53:01 +00:00
|
|
|
* toolbara. *
|
2016-11-13 19:05:46 +00:00
|
|
|
* Copyright: (c) 2009 by Spook. *
|
|
|
|
|
* License: Modified LGPL (with linking exception, like Lazarus LCL) *
|
|
|
|
|
' See "license.txt" in this installation *
|
2011-06-17 20:53:01 +00:00
|
|
|
* *
|
|
|
|
|
*******************************************************************************)
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
2011-06-18 16:17:03 +00:00
|
|
|
uses Classes, Controls, Graphics,
|
2011-06-17 20:53:01 +00:00
|
|
|
SpkMath;
|
|
|
|
|
|
|
|
|
|
type TSpkBaseDispatch = class abstract(TObject)
|
|
|
|
|
private
|
|
|
|
|
protected
|
|
|
|
|
public
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
type TSpkBaseAppearanceDispatch = class abstract(TSpkBaseDispatch)
|
|
|
|
|
private
|
|
|
|
|
protected
|
|
|
|
|
public
|
|
|
|
|
procedure NotifyAppearanceChanged; virtual; abstract;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
type TSpkBaseToolbarDispatch = class abstract(TSpkBaseAppearanceDispatch)
|
|
|
|
|
private
|
|
|
|
|
protected
|
|
|
|
|
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.
|
