0c39438e61
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5346 8e941d3f-bd1b-0410-a28a-d453659cc2b4
48 lines
1.6 KiB
ObjectPascal
48 lines
1.6 KiB
ObjectPascal
unit spkt_Dispatch;
|
|
|
|
{$mode delphi}
|
|
|
|
(*******************************************************************************
|
|
* *
|
|
* Plik: spkt_Dispatch.pas *
|
|
* Opis: Bazowe klasy dyspozytorów poœrednicz¹cych pomiêdzy elementami *
|
|
* toolbara. *
|
|
* 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;
|
|
|
|
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.
|