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