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