TGuiKeyZoneItem

type TGuiKeyZoneItem = class(TCollectionItem)

protected

  FDefaultBrushColor: TColor;

  FDefaultBrushStyle: TBrushStyle;

  FDefaultBorderColor: TColor;

  FDefaultBorderWidth: Integer;

  FDefaultBorderStyle: TPenStyle;

  FHoverBrushColor: TColor;

  FHoverBrushStyle: TBrushStyle;

  FHoverBorderColor: TColor;

  FHoverBorderWidth: Integer;

  FHoverBorderStyle: TPenStyle;

  FSelectedBrushColor: TColor;

  FSelectedBrushStyle: TBrushStyle;

  FSelectedBorderColor: TColor;

  FSelectedBorderWidth: Integer;

  FSelectedBorderStyle: TPenStyle;

  FDisplayName: string;

  FVisible: Boolean;

  FSelected: Boolean;

  FIsMouseOver: Boolean;

  FLowestZoneKey: Byte;

  FHighestZoneKey: Byte;

  FTag: Integer;

  procedure SetLowestZoneKey();

  procedure SetHighestZoneKey();

  procedure SetVisible();

  procedure SetDefaultBrushColor();

  procedure SetDefaultBrushStyle();

  procedure SetDefaultBorderColor();

  procedure SetDefaultBorderWidth();

  procedure SetDefaultBorderStyle();

  procedure SetHoverBrushColor();

  procedure SetHoverBrushStyle();

  procedure SetHoverBorderColor();

  procedure SetHoverBorderWidth();

  procedure SetHoverBorderStyle();

  procedure SetSelectedBrushColor();

  procedure SetSelectedBrushStyle();

  procedure SetSelectedBorderColor();

  procedure SetSelectedBorderWidth();

  procedure SetSelectedBorderStyle();

  function GetDisplayName; override;

  procedure SetDisplayName(); override;

public

  constructor Create(); override;

  procedure SetIndex(); override;

  procedure MoveZoneZ();

  procedure MoveZone();

  procedure BringToFront;

  procedure SendToBack;

  procedure Select();

  procedure SetMouseOver();

  procedure UnSelect();

  procedure SetBorders();

  function KeyInZone();

published

  property DisplayName;

  property LowestZoneKey: Byte; [rw]

  property HighestZoneKey: Byte; [rw]

  property Visible: Boolean; [rw]

  property DefaultBrushColor: TColor; [rw]

  property DefaultBrushStyle: TBrushStyle; [rw]

  property DefaultBorderColor: TColor; [rw]

  property DefaultBorderWidth: Integer; [rw]

  property DefaultBorderStyle: TPenStyle; [rw]

  property HoverBrushColor: TColor; [rw]

  property HoverBrushStyle: TBrushStyle; [rw]

  property HoverBorderColor: TColor; [rw]

  property HoverBorderWidth: Integer; [rw]

  property HoverBorderStyle: TPenStyle; [rw]

  property SelectedBrushColor: TColor; [rw]

  property SelectedBrushStyle: TBrushStyle; [rw]

  property SelectedBorderColor: TColor; [rw]

  property SelectedBorderWidth: Integer; [rw]

  property SelectedBorderStyle: TPenStyle; [rw]

  property Tag: Integer; [rw]

  property Selected: Boolean; [r]

  property IsMouseOver: Boolean; [r]

end;

TGuiKeyZoneItem

TObject