mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-01 01:52:33 +02:00
61 lines
1.4 KiB
ObjectPascal
61 lines
1.4 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
|
|
Authors: Michael W. Vogel
|
|
|
|
}
|
|
|
|
unit DockedBasicAnchorDesigner;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// RTL, FCL
|
|
Classes, SysUtils,
|
|
// LCL
|
|
LCLProc, Forms, Controls,
|
|
// IDEIntf
|
|
ComponentEditors;
|
|
|
|
type
|
|
|
|
TBoolFunc = function: Boolean of object;
|
|
|
|
{ TBasicAnchorDesigner }
|
|
|
|
TBasicAnchorDesigner = class
|
|
private
|
|
FOnDesignerSetFocus: TProcedureOfObject;
|
|
FOnMouseWheel: TMouseWheelEvent;
|
|
FParent: TWinControl;
|
|
public
|
|
procedure Abort; virtual; abstract;
|
|
procedure BeginUpdate; virtual; abstract;
|
|
procedure EndUpdate; virtual; abstract;
|
|
procedure Invalidate; virtual; abstract;
|
|
procedure Refresh; virtual; abstract;
|
|
procedure SetParent(AValue: TWinControl); virtual;
|
|
public
|
|
property OnDesignerSetFocus: TProcedureOfObject read FOnDesignerSetFocus write FOnDesignerSetFocus;
|
|
property OnMouseWheel: TMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;
|
|
property Parent: TWinControl read FParent write SetParent;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TBasicAnchorDesigner }
|
|
|
|
procedure TBasicAnchorDesigner.SetParent(AValue: TWinControl);
|
|
begin
|
|
if FParent = AValue then Exit;
|
|
FParent := AValue;
|
|
end;
|
|
|
|
end.
|
|
|