TBaseECGroupCtrl

type TBaseECGroupCtrl = class(TECBaseControl)

protected

const

  cDefCheckedFontStyles = [fsBold]

  cDefIndent = 3

  cDefSpacing = 5

  cFocusRectIndent = 2

protected

  Bitmaps: array [low(TItemState)..high(TItemState)] of TBitmap;

  FBlockRect: TRect;

  FCaptionRect: TRect;

  FColWidth: Single;

  FRowHeight: Single;

  FPushedBtn: SmallInt;

  FRealColCount: SmallInt;

  FRealRowCount: SmallInt;

  ValidStates: TItemStates;

  procedure Calculate();

  procedure CMBiDiModeChanged(); message;

  procedure CMColorChanged(); message;

  procedure CMEnabledChanged(); message;

  procedure CMParentColorChanged(); message;

  procedure CreateValidBitmaps();

  function DialogChar(); override;

  procedure DrawBlocks();

  class function GetControlClassDefaultSize; override;

  function GetElementDetails(); virtual; abstract;

  procedure InvalidateCustomRect(); override;

  procedure InvalidateItem();

  procedure ItemsChanged();

  procedure KeyPress(); override;

  procedure MouseDown(); override;

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure OrientationChanged(); override;

  procedure Paint; override;

  procedure RecalcInvalidate;

  procedure RecalcRedraw; override;

  procedure Redraw3DColorAreas; override;

  procedure TextChanged; override;

  procedure WMSize(); message;

  property Highlighted: SmallInt; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Redraw; override;

  property BlockColor: TColor; [rw]

  property CheckedFontColor: TColor; [rw]

  property CheckedFontStyles: TFontStyles; [rw]

  property Images: TCustomImageList; [rw]

  property Indent: SmallInt; [rw]

  property Items: TGroupCtrlItems; [rw]

  property Options: TGCOptions; [rw]

  property RowCount: SmallInt; [rw]

  property Spacing: SmallInt; [rw]

  property UncheckedFontColor: TColor; [rw]

  property UncheckedFontStyles: TFontStyles; [rw]

end;

TBaseECGroupCtrl

TECBaseControl

TObject