home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
sibylft1.zip
/
DOC.DAT
/
DOC
/
SPCC
/
COMCTRLS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-04-07
|
22KB
|
534 lines
{╔══════════════════════════════════════════════════════════════════════════╗
║ ║
║ Sibyl Portable Component Classes ║
║ ║
║ Copyright (c) 1995,97 SpeedSoft Germany, All rights reserved. ║
║ ║
╚══════════════════════════════════════════════════════════════════════════╝}
UNIT ComCtrls;
INTERFACE
USES Messages,Classes,Forms,Graphics,Buttons,ExtCtrls,Dos;
TYPE
{$M+}
TProgressString=(psPercent,psCaption,psPosition);
TProgressOrigin=(poLeft,poRight,poBottom,poTop);
{$M-}
TProgressBar=CLASS(TControl)
PRIVATE
FBorderStyle:TBorderStyle;
FInterior:TRect;
FMin:LONGINT;
FMax:LONGINT;
FPosition:LONGINT;
FBitmap:TBitmap;
FProgressString:TProgressString;
FOrigin:TProgressOrigin;
FOnChange:TNotifyEvent;
PROCEDURE CMTextChanged(VAR Msg:TMessage);message CM_TEXTCHANGED;
PROCEDURE SetBorderStyle(bs:TBorderStyle);
PROCEDURE SetMin(lr:LONGINT);
PROCEDURE SetMax(hr:LONGINT);
PROCEDURE SetPosition(ps:LONGINT);
PROCEDURE SetProgressString(ps:TProgressString);
PROCEDURE SetBitmap(NewBitmap:TBitmap);
FUNCTION GetBitmap:TBitmap;
PROCEDURE SetOrigin(NewOrigin:TProgressOrigin);
PROCEDURE DrawInterior(CONST rec:TRect);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PROCEDURE Change;VIRTUAL;
PUBLIC
PROCEDURE Redraw(CONST rec:TRect);OVERRIDE;
DESTRUCTOR Destroy;OVERRIDE;
PROCEDURE ReadSCUResource(CONST ResName:TResourceName;VAR Data;DataLen:LONGINT);OVERRIDE;
FUNCTION WriteSCUResource(Stream:TResourceStream):BOOLEAN;OVERRIDE;
PROPERTY XAlign;
PROPERTY XStretch;
PROPERTY YAlign;
PROPERTY YStretch;
PUBLISHED
PROPERTY Align;
PROPERTY Color;
PROPERTY Bitmap:TBitmap read GetBitmap write SetBitmap;
PROPERTY BorderStyle:TBorderStyle read FBorderStyle write SetBorderStyle;
PROPERTY Caption;
PROPERTY PenColor;
PROPERTY DragCursor;
PROPERTY DragMode;
PROPERTY Enabled;
PROPERTY Font;
PROPERTY Max:LONGINT read FMax write SetMax;
PROPERTY Min:LONGINT read FMin write SetMin;
PROPERTY Origin:TProgressOrigin read FOrigin write SetOrigin;
PROPERTY ParentColor;
PROPERTY ParentPenColor;
PROPERTY ParentFont;
PROPERTY ParentShowHint;
PROPERTY ProgressString:TProgressString read FProgressString write SetProgressString;
PROPERTY Position:LONGINT read FPosition write SetPosition;
PROPERTY ShowHint;
PROPERTY TabOrder;
PROPERTY TabStop;
PROPERTY Visible;
PROPERTY ZOrder;
PROPERTY OnCanDrag;
PROPERTY OnChange:TNotifyEvent read FOnChange write FOnChange;
PROPERTY OnDragDrop;
PROPERTY OnDragOver;
PROPERTY OnEndDrag;
PROPERTY OnEnter;
PROPERTY OnExit;
PROPERTY OnFontChange;
PROPERTY OnMouseClick;
PROPERTY OnMouseDblClick;
PROPERTY OnMouseDown;
PROPERTY OnMouseMove;
PROPERTY OnMouseUp;
PROPERTY OnSetupShow;
PROPERTY OnStartDrag;
END;
{$M+}
TUDOrientation=(udHorizontal,udVertical);
TUDAlignButton=(udLeft,udRight,udBottom,udTop,udNone);
TUDBtnType=(btNext,btPrev);
TOnUDChangingEvent=PROCEDURE(Sender:TComponent;VAR AllowChange:BOOLEAN) OF OBJECT;
TOnUDClickEvent=PROCEDURE(Sender:TComponent;Button:TUDBtnType) OF OBJECT;
{$M-}
TUpDown=CLASS(TControl)
PRIVATE
FArrowKeys:BOOLEAN;
FIncrement:LONGINT;
FMin:LONGINT;
FMax:LONGINT;
FOrientation:TUDOrientation;
FPosition:LONGINT;
FThousands:BOOLEAN;
FWrap:BOOLEAN;
FAssociate:TControl;
FAlignButton:TUDAlignButton;
FUpRightButton:TSpeedButton;
FDownLeftButton:TSpeedButton;
FOnChanging:TOnUDChangingEvent;
FOnClick:TOnUDClickEvent;
PROCEDURE SetAssociate(NewControl:TControl);
PROCEDURE SetMin(NewValue:LONGINT);
PROCEDURE SetMax(NewValue:LONGINT);
PROCEDURE SetOrientation(NewValue:TUDOrientation);
PROCEDURE SetPosition(NewValue:LONGINT);
PROCEDURE SetAlignButton(NewValue:TUDAlignButton);
PROCEDURE AlignButtons;
PROCEDURE EvButtonClick(Sender:TObject);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PROCEDURE Resize;OVERRIDE;
FUNCTION CanChange:BOOLEAN;VIRTUAL;
PROCEDURE Click(Button:TUDBtnType);VIRTUAL;
PROCEDURE Notification(AComponent:TComponent;Operation:TOperation);OVERRIDE;
PUBLIC
PROPERTY XAlign;
PROPERTY XStretch;
PROPERTY YAlign;
PROPERTY YStretch;
PUBLISHED
PROPERTY Align;
PROPERTY AlignButton:TUDAlignButton read FAlignButton write SetAlignButton;
PROPERTY ArrowKeys:BOOLEAN read FArrowKeys write FArrowKeys;
PROPERTY Associate:TControl read FAssociate write SetAssociate;
PROPERTY PenColor;
PROPERTY DragCursor;
PROPERTY DragMode;
PROPERTY Enabled;
PROPERTY Increment:LONGINT read FIncrement write FIncrement;
PROPERTY Max:LONGINT read FMax write SetMax;
PROPERTY Min:LONGINT read FMin write SetMin;
PROPERTY Orientation:TUDOrientation read FOrientation write SetOrientation;
PROPERTY ParentColor;
PROPERTY ParentPenColor;
PROPERTY ParentShowHint;
PROPERTY Position:LONGINT read FPosition write SetPosition;
PROPERTY ShowHint;
PROPERTY TabOrder;
PROPERTY TabStop;
PROPERTY Thousands:BOOLEAN read FThousands write FThousands;
PROPERTY Visible;
PROPERTY Wrap:BOOLEAN read FWrap write FWrap;
PROPERTY ZOrder;
PROPERTY OnCanDrag;
PROPERTY OnChanging:TOnUDChangingEvent read FOnChanging write FOnChanging;
PROPERTY OnClick:TOnUDClickEvent read FOnClick write FOnClick;
PROPERTY OnDragDrop;
PROPERTY OnDragOver;
PROPERTY OnEndDrag;
PROPERTY OnEnter;
PROPERTY OnExit;
PROPERTY OnMouseMove;
PROPERTY OnScan;
PROPERTY OnSetupShow;
PROPERTY OnStartDrag;
END;
{$M+}
TTrackBarOrientation=(trHorizontal,trVertical);
TTickMarks=(tmBoth,tmBottomRight,tmTopLeft);
TTickStyle=(tsAuto,tsManual,tsNone);
TTrackBarSelMode=(smManual,smAuto);
TTrackSliderShape=(tsArrow,tsBox);
TTrackSliderSize=(tssAuto,tssVeryLarge,tssLarge,tssMedium,tssSmall);
{$M-}
TTrackBar=CLASS(TControl)
PRIVATE
FPosition:LONGINT;
FLineSize:LONGINT;
FPageSize:LONGINT;
FMax:LONGINT;
FMin:LONGINT;
FOrientation:TTrackBarOrientation;
FSelEnd:LONGINT;
FSelStart:LONGINT;
FTickMarks:TTickMarks;
FTickStyle:TTickStyle;
FFrequency:LONGINT;
FTracking:BOOLEAN;
FSelMode:TTrackBarSelMode;
FTickSize:LONGINT;
FTrackTimer:TTimer;
FSliderShape:TTrackSliderShape;
FOnChange:TNotifyEvent;
FTicks:TList;
FUpdating:BOOLEAN;
FShowFocusRect:BOOLEAN;
FSliderSize:TTrackSliderSize;
PROCEDURE SetMax(NewValue:LONGINT);
PROCEDURE SetMin(NewValue:LONGINT);
PROCEDURE SetOrientation(NewValue:TTrackBarOrientation);
PROCEDURE SetPosition(NewValue:LONGINT);
PROCEDURE SetSelEnd(NewValue:LONGINT);
PROCEDURE SetSelStart(NewValue:LONGINT);
PROCEDURE SetTickMarks(NewValue:TTickMarks);
PROCEDURE SetTickStyle(NewValue:TTickStyle);
PROCEDURE SetFrequency(NewValue:LONGINT);
PROCEDURE SetSliderSize(NewSize:TTrackSliderSize);
PROCEDURE SetSelMode(NewMode:TTrackBarSelMode);
PROCEDURE DrawTrack(SliderW,SliderH:LONGINT);
PROCEDURE DrawSlider(SliderW,SliderH:LONGINT);
PROCEDURE GetSliderExtent(VAR SliderWidth,SliderHeight:LONGINT);
FUNCTION PosInsideSlider(X,Y:LONGINT):BOOLEAN;
FUNCTION PosInsideTrack(X,Y:LONGINT):BOOLEAN;
PROCEDURE UpdateSlider;
PROCEDURE EvTimer(Sender:TObject);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE MouseDown(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PROCEDURE MouseUp(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PROCEDURE MouseMove(ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PROCEDURE MouseClick(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PROCEDURE SetFocus;OVERRIDE;
PROCEDURE KillFocus;OVERRIDE;
PROCEDURE ScanEvent(VAR Msg:TWMChar;VAR KeyCode:TKeyCode;RepeatCount:BYTE);OVERRIDE;
PROCEDURE Change;VIRTUAL;
PUBLIC
DESTRUCTOR Destroy;OVERRIDE;
PROCEDURE Redraw(CONST rec:TRect);OVERRIDE;
FUNCTION CoordFromPos(Position:LONGINT):LONGINT;
FUNCTION PosFromCoord(Coord:LONGINT):LONGINT;
PROCEDURE SetTick(Pos:LONGINT);
PROCEDURE ClearTicks;
PROCEDURE BeginUpdate;
PROCEDURE EndUpdate;
PROPERTY Tracking:Boolean read FTracking;
PROPERTY XAlign;
PROPERTY XStretch;
PROPERTY YAlign;
PROPERTY YStretch;
PUBLISHED
PROPERTY Align;
PROPERTY Color;
PROPERTY DragCursor;
PROPERTY DragMode;
PROPERTY Enabled;
PROPERTY Frequency:LONGINT read FFrequency write SetFrequency;
PROPERTY LineSize:LONGINT read FLineSize write FLineSize;
PROPERTY Max:LONGINT read FMax write SetMax;
PROPERTY Min:LONGINT read FMin write SetMin;
PROPERTY Orientation:TTrackBarOrientation read FOrientation write SetOrientation;
PROPERTY PageSize:LONGINT read FPageSize write FPageSize;
PROPERTY ParentColor;
PROPERTY ParentShowHint;
PROPERTY PopupMenu;
PROPERTY Position:LONGINT read FPosition write SetPosition;
PROPERTY SelEnd:LONGINT read FSelEnd write SetSelEnd;
PROPERTY SelMode:TTrackBarSelMode read FSelMode write SetSelMode;
PROPERTY SelStart:LONGINT read FSelStart write SetSelStart;
PROPERTY ShowFocusRect:BOOLEAN read FShowFocusRect write FShowFocusRect;
PROPERTY ShowHint;
PROPERTY SliderSize:TTrackSliderSize read FSliderSize write SetSliderSize;
PROPERTY TabOrder;
PROPERTY TabStop;
PROPERTY TickMarks:TTickMarks read FTickMarks write SetTickMarks;
PROPERTY TickStyle:TTickStyle read FTickStyle write SetTickStyle;
PROPERTY Visible;
PROPERTY ZOrder;
PROPERTY OnCanDrag;
PROPERTY OnChange:TNotifyEvent read FOnChange write FOnChange;
PROPERTY OnDragDrop;
PROPERTY OnDragOver;
PROPERTY OnEndDrag;
PROPERTY OnEnter;
PROPERTY OnExit;
PROPERTY OnMouseClick;
PROPERTY OnMouseDblClick;
PROPERTY OnMouseDown;
PROPERTY OnMouseMove;
PROPERTY OnMouseUp;
PROPERTY OnScan;
PROPERTY OnSetupShow;
PROPERTY OnStartDrag;
END;
{$M+}
TStatusPanelStyle=(psText, psOwnerDraw);
TStatusPanelBevel=(pbNone, pbLowered, pbRaised);
{$M-}
TStatusPanel=CLASS(TCollectionItem)
PRIVATE
FText:PString;
FWidth:LONGINT;
FAlignment:TAlignment;
FBevel:TStatusPanelBevel;
FStyle:TStatusPanelStyle;
PRIVATE
FUNCTION GetText:STRING;
PROCEDURE SetText(CONST NewValue:STRING);
PROCEDURE SetWidth(NewValue:LONGINT);
PROCEDURE SetAlignment(NewValue:TAlignment);
PROCEDURE SetBevel(NewValue:TStatusPanelBevel);
PROCEDURE SetStyle(NewValue:TStatusPanelStyle);
PUBLIC
CONSTRUCTOR Create(ACollection:TCollection);OVERRIDE;
DESTRUCTOR Destroy;OVERRIDE;
PROCEDURE Assign(Source:TCollectionItem);OVERRIDE;
PUBLISHED
PROPERTY Text:STRING read GetText write SetText;
PROPERTY Width:LONGINT read FWidth write SetWidth;
PROPERTY Alignment:TAlignment read FAlignment write SetAlignment;
PROPERTY Bevel:TStatusPanelBevel read FBevel write SetBevel;
PROPERTY Style:TStatusPanelStyle read FStyle write SetStyle;
END;
TStatusBar=CLASS;
TStatusPanels=CLASS(TCollection)
PRIVATE
FStatusBar:TStatusBar;
FUNCTION GetItem(Index:LONGINT):TStatusPanel;
PROCEDURE SetItem(Index:LONGINT;Value:TStatusPanel);
PUBLIC
PROCEDURE Update(Item:TCollectionItem);OVERRIDE;
PROCEDURE SetupComponent;OVERRIDE;
FUNCTION Add:TStatusPanel;
PUBLIC
PROPERTY Items[Index:LONGINT]:TStatusPanel read GetItem write SetItem;default;
PROPERTY StatusBar:TStatusBar read FStatusBar;
END;
{$M+}
TDrawPanelEvent=PROCEDURE(StatusBar:TStatusBar;Panel:TStatusPanel;CONST rc:TRect) OF OBJECT;
{$M-}
TStatusBar=CLASS(TBevel)
PRIVATE
FSimpleText:STRING;
FSimplePanel:BOOLEAN;
FPanels:TStatusPanels;
FSizeGrip:BOOLEAN;
FOnDrawPanel:TDrawPanelEvent;
FSpacing:LONGINT;
FOnClick:TNotifyEvent;
PROCEDURE SetSimpleText(CONST NewText:STRING);
PROCEDURE SetSimplePanel(NewValue:BOOLEAN);
PROCEDURE SetPanels(NewValue:TStatusPanels);
PROCEDURE SetSizeGrip(NewValue:BOOLEAN);
PROCEDURE UpdatePanel(Panel:TStatusPanel);
PROCEDURE SetSpacing(NewValue:LONGINT);
PROPERTY Shape;
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
DESTRUCTOR Destroy;OVERRIDE;
PROCEDURE DrawPanel(Panel:TStatusPanel;CONST rc:TRect);VIRTUAL;
PROCEDURE MouseClick(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PUBLIC
PROCEDURE Redraw(CONST rec:TRect);OVERRIDE;
PROCEDURE ReadSCUResource(CONST ResName:TResourceName;VAR Data;DataLen:LONGINT);OVERRIDE;
FUNCTION WriteSCUResource(Stream:TResourceStream):BOOLEAN;OVERRIDE;
PUBLISHED
PROPERTY OnClick:TNotifyEvent read FOnClick write FOnClick;
PROPERTY OnDblClick;
PROPERTY Panels:TStatusPanels read FPanels write SetPanels;
PROPERTY SimpleText:STRING read FSimpleText write SetSimpleText;
PROPERTY SimplePanel:BOOLEAN read FSimplePanel write SetSimplePanel;
PROPERTY SizeGrip:BOOLEAN read FSizeGrip write SetSizeGrip;
PROPERTY OnDrawPanel:TDrawPanelEvent read FOnDrawPanel write FOnDrawPanel;
PROPERTY Spacing:LONGINT read FSpacing write SetSpacing;
END;
THeaderControl=CLASS;
{$M+}
THeaderSectionStyle=(hsText,hsOwnerDraw);
{$M-}
THeaderSection=CLASS(TCollectionItem)
PRIVATE
FText:PString;
FWidth:LONGINT;
FMinWidth:LONGINT;
FMaxWidth:LONGINT;
FAlignment:TAlignment;
FStyle:THeaderSectionStyle;
FAllowClick:BOOLEAN;
FAllowSize:BOOLEAN;
PRIVATE
FUNCTION GetText:STRING;
PROCEDURE SetText(CONST NewValue:STRING);
PROCEDURE SetWidth(NewValue:LONGINT);
FUNCTION GetLeft:LONGINT;
FUNCTION GetRight:LONGINT;
PROCEDURE SetStyle(NewValue:THeaderSectionStyle);
PROCEDURE SetAlignment(NewValue:TAlignment);
PROCEDURE SetMaxWidth(NewValue:LONGINT);
PROCEDURE SetMinWidth(NewValue:LONGINT);
PUBLIC
CONSTRUCTOR Create(ACollection:TCollection);OVERRIDE;
DESTRUCTOR Destroy;OVERRIDE;
PROCEDURE Assign(Source:TCollectionItem);OVERRIDE;
PUBLIC
PROPERTY Left:LONGINT read GetLeft;
PROPERTY Right:LONGINT read GetRight;
PUBLISHED
PROPERTY Text:STRING read GetText write SetText;
PROPERTY Width:LONGINT read FWidth write SetWidth;
PROPERTY MinWidth:LONGINT read FMinWidth write SetMinWidth;
PROPERTY MaxWidth:LONGINT read FMaxWidth write SetMaxWidth;
PROPERTY Alignment:TAlignment read FAlignment write SetAlignment;
PROPERTY AllowClick:BOOLEAN read FAllowClick write FAllowClick;
PROPERTY AllowSize:BOOLEAN read FAllowSize write FAllowSize;
PROPERTY Style:THeaderSectionStyle read FStyle write SetStyle;
END;
THeaderSections=CLASS(TCollection)
PRIVATE
FHeaderControl:THeaderControl;
FUNCTION GetItem(Index:LONGINT):THeaderSection;
PROCEDURE SetItem(Index:LONGINT;NewValue:THeaderSection);
PUBLIC
PROCEDURE Update(Item:TCollectionItem);OVERRIDE;
PROCEDURE SetupComponent;OVERRIDE;
FUNCTION Add:THeaderSection;
PUBLIC
PROPERTY Items[Index:LONGINT]:THeaderSection read GetItem write SetItem;default;
PROPERTY HeaderControl:THeaderControl read FHeaderControl;
END;
{$M+}
TSectionTrackState=(tsTrackBegin,tsTrackMove,tsTrackEnd);
TSectionNotifyEvent=PROCEDURE(HeaderControl:THeaderControl;Section:THeaderSection) OF OBJECT;
TDrawSectionEvent=PROCEDURE(HeaderControl:THeaderControl;Section:THeaderSection;
CONST rc:TRect;Pressed:BOOLEAN) OF OBJECT;
TSectionTrackEvent=PROCEDURE(HeaderControl:THeaderControl;Section:THeaderSection;
Width:LONGINT;State:TSectionTrackState) OF OBJECT;
THeaderControl=CLASS(TControl)
PRIVATE
FSections:THeaderSections;
FSpacing:LONGINT;
FOnDrawSection:TDrawSectionEvent;
FOnSectionClick:TSectionNotifyEvent;
FOnSectionResize:TSectionNotifyEvent;
FOnSectionTrack:TSectionTrackEvent;
FSectionTrackState:TSectionTrackState;
FClickSection:THeaderSection;
FClickBase:THeaderSection;
FSizeStartX:LONGINT;
FSizeX:LONGINT;
FSizeSection:THeaderSection;
FBevelWidth:LONGINT;
FShape:TCursor;
PRIVATE
PROCEDURE SetSections(NewValue:THeaderSections);
PROCEDURE UpdateHeader(Header:THeaderSection);
PROCEDURE SetSpacing(NewValue:LONGINT);
PROCEDURE SetBevelWidth(NewValue:LONGINT);
FUNCTION GetMouseHeader(X,Y:LONGINT):THeaderSection;
PROTECTED
PROCEDURE DrawSection(Section:THeaderSection;CONST rc:TRect;Pressed:BOOLEAN);VIRTUAL;
PROCEDURE SectionClick(Section:THeaderSection);VIRTUAL;
PROCEDURE SectionResize(Section:THeaderSection);VIRTUAL;
PROCEDURE SectionTrack(Section:THeaderSection;Width:LONGINT;State:TSectionTrackState);VIRTUAL;
PROCEDURE SetupComponent;OVERRIDE;
DESTRUCTOR Destroy;OVERRIDE;
PROCEDURE MouseDown(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PROCEDURE MouseUp(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PROCEDURE MouseMove(ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PROCEDURE MouseDblClick(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
PUBLIC
PROCEDURE Redraw(CONST rec:TRect);OVERRIDE;
PROCEDURE ReadSCUResource(CONST ResName:TResourceName;VAR Data;DataLen:LONGINT);OVERRIDE;
FUNCTION WriteSCUResource(Stream:TResourceStream):BOOLEAN;OVERRIDE;
PUBLISHED
PROPERTY Align;
PROPERTY BevelWidth:LONGINT read FBevelWidth write SetBevelWidth;
PROPERTY Canvas;
PROPERTY DragCursor;
PROPERTY DragMode;
PROPERTY Enabled;
PROPERTY Font;
PROPERTY Sections:THeaderSections read FSections write SetSections;
PROPERTY ShowHint;
PROPERTY ParentFont;
PROPERTY ParentShowHint;
PROPERTY PopupMenu;
PROPERTY Spacing:LONGINT read FSpacing write SetSpacing;
PROPERTY TabOrder;
PROPERTY TabStop;
PROPERTY OnDragDrop;
PROPERTY OnDragOver;
PROPERTY OnStartDrag;
PROPERTY OnEndDrag;
PROPERTY OnMouseDown;
PROPERTY OnMouseMove;
PROPERTY OnMouseUp;
PROPERTY OnSectionClick:TSectionNotifyEvent read FOnSectionClick write FOnSectionClick;
PROPERTY OnDrawSection:TDrawSectionEvent read FOnDrawSection write FOnDrawSection;
PROPERTY OnSectionResize:TSectionNotifyEvent read FOnSectionResize write FOnSectionResize;
PROPERTY OnSectionTrack:TSectionTrackEvent read FOnSectionTrack write FOnSectionTrack;
END;
FUNCTION InsertProgressBar(Parent:TControl;Left,Bottom,Width,Height:LONGINT):TProgressBar;
FUNCTION InsertUpDown(Parent:TControl;Left,Bottom,Width,Height:LONGINT):TUpDown;
FUNCTION InsertTrackBar(Parent:TControl;Left,Bottom,Width,Height:LONGINT):TTrackBar;
FUNCTION InsertStatusBar(Parent:TControl;Left,Bottom,Width,Height:LONGINT):TStatusBar;
FUNCTION InsertHeaderControl(Parent:TControl;Left,Bottom,Width,Height:LONGINT):THeaderControl;
IMPLEMENTATION