1unit IndustrialBase;
2
3{$mode objfpc}{$H+}
4
5interface
6
7uses
8  Classes, SysUtils, Controls, Graphics;
9
10type
11
12  { TIndustrialBase }
13
14  TIndustrialBase = class(TGraphicControl)
15  private
16    FAntiAliasingMode: TAntialiasingMode;
17    procedure SetAntiAliasingMode(AValue: TAntialiasingMode);
18  protected
19    procedure GraphicChanged;
20  public
21    constructor Create(aOwner: TComponent); override;
22  published
23    property AntiAliasingMode: TAntialiasingMode read FAntiAliasingMode
24                                    write SetAntiAliasingMode default amDontCare;
25  end;
26
27implementation
28
29constructor TIndustrialBase.Create(aOwner: TComponent);
30begin
31  inherited Create(aOwner);
32  FAntiAliasingMode := amDontCare;
33  SetInitialBounds(0, 0, GetControlClassDefaultSize.cx, GetControlClassDefaultSize.cy);
34  ControlStyle := ControlStyle - [csSetCaption];
35end;
36
37procedure TIndustrialBase.GraphicChanged;
38begin
39  if Assigned(Parent) and (Visible or (csDesigning in ComponentState))
40   then Invalidate;
41end;
42
43procedure TIndustrialBase.SetAntiAliasingMode(AValue: TAntialiasingMode);
44begin
45  if FAntiAliasingMode=AValue then Exit;
46  FAntiAliasingMode:=AValue;
47  GraphicChanged;
48end;
49
50
51end.
52
53