COMPONENT GRID COMPONENT

This components is a panel filled with components of one given kind. It provides properties to set their size and quantity, methods to access them individually, and events when they are painted / created.

EXCEPTIONS

• EOutOfListException
  (thrown by ComponentAt)
• EComponentNotFoundException
  (thrown by GetCoordsForControl)

  TYPES

  TControlClass = class of TControl;
TOnPaintingControl = procedure(Sender : TObject; X, Y : integer; Control : TControl) of object;
TOnCreatingControl = procedure(Sender : TObject; X, Y : integer; var Control : TControl) of object;


  TDACOMPONENTGRID

  Properties

  • XCompNumber, YCompNumber : integer
    components quantity on X and Y axis)
  • XRatio, YRatio : double
    how much of the panel is occupied by the components (0<=XRatio,YRatio <= 1)
  • ChildClassType : TControlClass (runtime)
    Component kind in panel
  • ComponentAt[X : integer; Y : integer] : TControl (runtime)
    

  Methods

  • procedure GetCoordsForControl(Control : TControl; var X, Y : integer);

  Events

  • OnPaintingControl : TOnPaintingControl
  • OnCreatingControl : TOnCreatingControl

  ---

  Copyright 2000 by Diego Amicabile