| Class TmwCustomCompoundComponent (unit mwCuCoCo) |
TPanel
| Constructors |
constructor Create(Owner: TComponent);Create a CustomCompoundComponent and set some default properties.
| Functions |
procedure DefineProperties(Filer: TFiler);
procedure GetPixelsPerInch(Reader: TReader);
procedure GetTextHeight(Reader: TReader);
function RunTime: Boolean;
procedure SetPixelsPerInch(Writer: TWriter);
procedure SetTextHeight(Writer: TWriter);
procedure WMNCHitTest(var NCTest: TWMNCHitTest);| Properties |
property BorderStyle : TBorderStyle
property MoveAble : Boolean| Events |
| Variables |
fBorderStyle : TBorderStyle;
fMoveAble : Boolean;
fTextHeight : Integer;| Constructors |
constructor Create(Owner: TComponent);Public declarations
Create a CustomCompoundComponent and set some default properties.
| Functions |
procedure DefineProperties(Filer: TFiler);This component has two fake properties, TextHeight and PixelsPerInch. The form editor stores these properties in the .DFM file, TextHeight always and PixelsPerInch in some cases. This will only be a problem if you use the form editor as a component editor. However what is stored in the .DFM file must be handled. You may use the the TextHeight Property to store any integer value.
procedure GetPixelsPerInch(Reader: TReader);SetTextHeight
procedure GetTextHeight(Reader: TReader);Consider this is a panel. To prevent your user from dropping any other controls on it, you must set the ControlStyle accordingly.
function RunTime: Boolean;SetPixelsPerInch
procedure SetPixelsPerInch(Writer: TWriter);GetPixelsPerInch
procedure SetTextHeight(Writer: TWriter);GetTextHeight
procedure WMNCHitTest(var NCTest: TWMNCHitTest);RunTime
| Properties |
property BorderStyle : TBorderStylePublished declarations
property MoveAble : Boolean| Events |
| Variables |
fBorderStyle : TBorderStyle;
fMoveAble : Boolean;
fTextHeight : Integer;Private declarations