TDraftWidget

type TDraftWidget = class

protected

  FAndroidWidget: TAndroidWidget;

  FCanvas: TCanvas;

  FLeftTop: TPoint;

  FRightBottom: TPoint;

  FMinWidth: Integer;

  FMinHeight: Integer;

  function GetParentBackgroundColor;

  function GetBackGroundColor;

  function DefaultTextColor; virtual;

  function GetNewWidth;

  function GetNewHeight;

  procedure SetBounds;

public

  BackGroundColor: TColor;

  TextColor: TColor;

  MarginBottom: Integer;

  MarginLeft: Integer;

  MarginRight: Integer;

  MarginTop: Integer;

  Height: Integer;

  Width: Integer;

  constructor Create(); virtual;

  procedure Draw; virtual;

  procedure UpdateLayout; virtual;

  property Color: TARGBColorBridge; [rw]

  property FontColor: TARGBColorBridge; [rw]

end;

TDraftWidget

TObject