home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk14 / doc.pak / STDCTRLS.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  17.5 KB  |  613 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Delphi Visual Component Library                 }
  4. {                                                       }
  5. {       Copyright (c) 1995 Borland International        }
  6. {                                                       }
  7. {*******************************************************}
  8.  
  9. unit StdCtrls;
  10.  
  11. {$S-,W-,R-}
  12. {$C PRELOAD}
  13.  
  14. interface
  15.  
  16. uses WinTypes, WinProcs, Messages, SysUtils, Classes, Controls, Forms, Menus,
  17.   Graphics;
  18.  
  19. type
  20.   TCustomGroupBox = class(TCustomControl)
  21.   protected
  22.     procedure AlignControls(AControl: TControl; var Rect: TRect); override;
  23.     procedure Paint; override;
  24.   public
  25.     constructor Create(AOwner: TComponent); override;
  26.   end;
  27.  
  28.   TGroupBox = class(TCustomGroupBox)
  29.   published
  30.     property Align;
  31.     property Caption;
  32.     property Color;
  33.     property Ctl3D;
  34.     property DragCursor;
  35.     property DragMode;
  36.     property Enabled;
  37.     property Font;
  38.     property ParentColor;
  39.     property ParentCtl3D;
  40.     property ParentFont;
  41.     property ParentShowHint;
  42.     property PopupMenu;
  43.     property ShowHint;
  44.     property TabOrder;
  45.     property TabStop;
  46.     property Visible;
  47.     property OnClick;
  48.     property OnDblClick;
  49.     property OnDragDrop;
  50.     property OnDragOver;
  51.     property OnEndDrag;
  52.     property OnEnter;
  53.     property OnExit;
  54.     property OnMouseDown;
  55.     property OnMouseMove;
  56.     property OnMouseUp;
  57.   end;
  58.  
  59.   TCustomLabel = class(TGraphicControl)
  60.   protected
  61.     procedure Notification(AComponent: TComponent;
  62.       Operation: TOperation); override;
  63.     procedure Paint; override;
  64.     property Alignment: TAlignment default taLeftJustify;
  65.     property AutoSize: Boolean default True;
  66.     property FocusControl: TWinControl;
  67.     property ShowAccelChar: Boolean default True;
  68.     property Transparent: Boolean default False;
  69.     property WordWrap: Boolean default False;
  70.   public
  71.     constructor Create(AOwner: TComponent); override;
  72.     property Canvas;
  73.   end;
  74.  
  75.   TLabel = class(TCustomLabel)
  76.   published
  77.     property Align;
  78.     property Alignment;
  79.     property AutoSize;
  80.     property Caption;
  81.     property Color;
  82.     property DragCursor;
  83.     property DragMode;
  84.     property Enabled;
  85.     property FocusControl;
  86.     property Font;
  87.     property ParentColor;
  88.     property ParentFont;
  89.     property ParentShowHint;
  90.     property PopupMenu;
  91.     property ShowAccelChar;
  92.     property ShowHint;
  93.     property Transparent;
  94.     property Visible;
  95.     property WordWrap;
  96.     property OnClick;
  97.     property OnDblClick;
  98.     property OnDragDrop;
  99.     property OnDragOver;
  100.     property OnEndDrag;
  101.     property OnMouseDown;
  102.     property OnMouseMove;
  103.     property OnMouseUp;
  104.   end;
  105.  
  106.   TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase);
  107.  
  108.   TCustomEdit = class(TWinControl)
  109.   protected
  110.     procedure Change; dynamic;
  111.     procedure CreateParams(var Params: TCreateParams); override;
  112.     procedure CreateWnd; override;
  113.     property AutoSelect: Boolean default True;
  114.     property AutoSize: Boolean default True;
  115.     property BorderStyle: TBorderStyle default bsSingle;
  116.     property CharCase: TEditCharCase default ecNormal;
  117.     property HideSelection: Boolean default True;
  118.     property MaxLength: Integer default 0;
  119.     property OEMConvert: Boolean default False;
  120.     property PasswordChar: Char default #0;
  121.     property ParentColor default False;
  122.     property ReadOnly: Boolean default False;
  123.     property OnChange: TNotifyEvent;
  124.   public
  125.     constructor Create(AOwner: TComponent); override;
  126.     procedure Clear;
  127.     procedure ClearSelection;
  128.     procedure CopyToClipboard;
  129.     procedure CutToClipboard;
  130.     procedure PasteFromClipboard;
  131.     function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer;
  132.     procedure SelectAll;
  133.     procedure SetSelTextBuf(Buffer: PChar);
  134.     property Modified: Boolean;
  135.     property SelLength: Integer;
  136.     property SelStart: Integer;
  137.     property SelText: string;
  138.     property Text;
  139.   published
  140.     property TabStop default True;
  141.   end;
  142.  
  143.   TEdit = class(TCustomEdit)
  144.   published
  145.     property AutoSelect;
  146.     property AutoSize;
  147.     property BorderStyle;
  148.     property CharCase;
  149.     property Color;
  150.     property Ctl3D;
  151.     property DragCursor;
  152.     property DragMode;
  153.     property Enabled;
  154.     property Font;
  155.     property HideSelection;
  156.     property MaxLength;
  157.     property OEMConvert;
  158.     property ParentColor;
  159.     property ParentCtl3D;
  160.     property ParentFont;
  161.     property ParentShowHint;
  162.     property PasswordChar;
  163.     property PopupMenu;
  164.     property ReadOnly;
  165.     property ShowHint;
  166.     property TabOrder;
  167.     property TabStop;
  168.     property Text;
  169.     property Visible;
  170.     property OnChange;
  171.     property OnClick;
  172.     property OnDblClick;
  173.     property OnDragDrop;
  174.     property OnDragOver;
  175.     property OnEndDrag;
  176.     property OnEnter;
  177.     property OnExit;
  178.     property OnKeyDown;
  179.     property OnKeyPress;
  180.     property OnKeyUp;
  181.     property OnMouseDown;
  182.     property OnMouseMove;
  183.     property OnMouseUp;
  184.   end;
  185.  
  186.   TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth);
  187.  
  188.   TCustomMemo = class(TCustomEdit)
  189.   protected
  190.     procedure CreateParams(var Params: TCreateParams); override;
  191.     procedure CreateWindowHandle(const Params: TCreateParams); override;
  192.     procedure KeyPress(var Key: Char); override;
  193.     procedure SetAlignment(Value: TAlignment);
  194.     procedure SetLines(Value: TStrings);
  195.     procedure SetScrollBars(Value: TScrollStyle);
  196.     procedure SetWordWrap(Value: Boolean);
  197.     property Alignment: TAlignment default taLeftJustify;
  198.     property ScrollBars: TScrollStyle default ssNone;
  199.     property WantReturns: Boolean default True;
  200.     property WantTabs: Boolean default False;
  201.     property WordWrap: Boolean default True;
  202.   public
  203.     constructor Create(AOwner: TComponent); override;
  204.     destructor Destroy; override;
  205.     property Lines: TStrings;
  206.   end;
  207.  
  208.   TMemo = class(TCustomMemo)
  209.   protected
  210.     procedure DefineProperties(Filer: TFiler); override;
  211.   published
  212.     property Align;
  213.     property Alignment;
  214.     property BorderStyle;
  215.     property Color;
  216.     property Ctl3D;
  217.     property DragCursor;
  218.     property DragMode;
  219.     property Enabled;
  220.     property Font;
  221.     property HideSelection;
  222.     property Lines;
  223.     property MaxLength;
  224.     property OEMConvert;
  225.     property ParentColor;
  226.     property ParentCtl3D;
  227.     property ParentFont;
  228.     property ParentShowHint;
  229.     property PopupMenu;
  230.     property ReadOnly;
  231.     property ScrollBars;
  232.     property ShowHint;
  233.     property TabOrder;
  234.     property TabStop;
  235.     property Visible;
  236.     property WantReturns;
  237.     property WantTabs;
  238.     property WordWrap;
  239.     property OnChange;
  240.     property OnClick;
  241.     property OnDblClick;
  242.     property OnDragDrop;
  243.     property OnDragOver;
  244.     property OnEndDrag;
  245.     property OnEnter;
  246.     property OnExit;
  247.     property OnKeyDown;
  248.     property OnKeyPress;
  249.     property OnKeyUp;
  250.     property OnMouseDown;
  251.     property OnMouseMove;
  252.     property OnMouseUp;
  253.   end;
  254.  
  255.   TComboBoxStyle = (csDropDown, csSimple, csDropDownList, csOwnerDrawFixed,
  256.     csOwnerDrawVariable);
  257.   TOwnerDrawState = set of (odSelected, odGrayed, odDisabled, odChecked,
  258.     odFocused);
  259.  
  260.   TDrawItemEvent = procedure(Control: TWinControl; Index: Integer;
  261.     Rect: TRect; State: TOwnerDrawState) of object;
  262.  
  263.   TMeasureItemEvent = procedure(Control: TWinControl; Index: Integer;
  264.     var Height: Integer) of object;
  265.  
  266.   TCustomComboBox = class(TWinControl)
  267.   protected
  268.     FEditHandle: HWnd;
  269.     FListHandle: HWnd;
  270.     FOnChange: TNotifyEvent;
  271.     procedure ComboWndProc(var Message: TMessage; ComboWnd: HWnd;
  272.       ComboProc: Pointer);  virtual;
  273.     procedure WndProc(var Message: TMessage); override;
  274.     procedure CreateParams(var Params: TCreateParams); override;
  275.     procedure CreateWnd; override;
  276.     procedure DestroyWnd; override;
  277.     procedure DrawItem(Index: Integer; Rect: TRect;
  278.       State: TOwnerDrawState); virtual;
  279.     procedure MeasureItem(Index: Integer; var Height: Integer); virtual;
  280.     procedure Change; dynamic;
  281.     procedure DropDown; dynamic;
  282.     property DropDownCount: Integer default 8;
  283.     property ItemHeight: Integer;
  284.     property MaxLength: Integer default 0;
  285.     property ParentColor default False;
  286.     property Sorted: Boolean default False;
  287.     property Style: TComboBoxStyle default csDropDown;
  288.     property OnChange: TNotifyEvent;
  289.     property OnDropDown: TNotifyEvent;
  290.     property OnDrawItem: TDrawItemEvent;
  291.     property OnMeasureItem: TMeasureItemEvent;
  292.   public
  293.     constructor Create(AOwner: TComponent); override;
  294.     destructor Destroy; override;
  295.     procedure Clear;
  296.     procedure SelectAll;
  297.     property Canvas: TCanvas;
  298.     property DroppedDown: Boolean;
  299.     property Items: TStrings;
  300.     property ItemIndex: Integer;
  301.     property SelLength: Integer;
  302.     property SelStart: Integer;
  303.     property SelText: string;
  304.   published
  305.     property TabStop default True;
  306.   end;
  307.  
  308.   TComboBox = class(TCustomComboBox)
  309.   published
  310.     property Style; {Must be published before Items}
  311.     property Color;
  312.     property Ctl3D;
  313.     property DragMode;
  314.     property DragCursor;
  315.     property DropDownCount;
  316.     property Enabled;
  317.     property Font;
  318.     property ItemHeight;
  319.     property Items;
  320.     property MaxLength;
  321.     property ParentColor;
  322.     property ParentCtl3D;
  323.     property ParentFont;
  324.     property ParentShowHint;
  325.     property PopupMenu;
  326.     property ShowHint;
  327.     property Sorted;
  328.     property TabOrder;
  329.     property TabStop;
  330.     property Text;
  331.     property Visible;
  332.     property OnChange;
  333.     property OnClick;
  334.     property OnDblClick;
  335.     property OnDragDrop;
  336.     property OnDragOver;
  337.     property OnDrawItem;
  338.     property OnDropDown;
  339.     property OnEndDrag;
  340.     property OnEnter;
  341.     property OnExit;
  342.     property OnKeyDown;
  343.     property OnKeyPress;
  344.     property OnKeyUp;
  345.     property OnMeasureItem;
  346.   end;
  347.  
  348.   TButtonControl = class(TWinControl)
  349.   protected
  350.     procedure WndProc(var Message: TMessage); override;
  351.   end;
  352.  
  353.   TButton = class(TButtonControl)
  354.   protected
  355.     procedure CreateParams(var Params: TCreateParams); override;
  356.     procedure CreateWnd; override;
  357.     procedure SetButtonStyle(ADefault: Boolean); virtual;
  358.   public
  359.     constructor Create(AOwner: TComponent); override;
  360.     procedure Click; override;
  361.   published
  362.     property Cancel: Boolean default False;
  363.     property Caption;
  364.     property Default: Boolean default False;
  365.     property DragCursor;
  366.     property DragMode;
  367.     property Enabled;
  368.     property Font;
  369.     property ModalResult: TModalResult default 0;
  370.     property ParentFont;
  371.     property ParentShowHint;
  372.     property PopupMenu;
  373.     property ShowHint;
  374.     property TabOrder;
  375.     property TabStop default True;
  376.     property Visible;
  377.     property OnClick;
  378.     property OnDragDrop;
  379.     property OnDragOver;
  380.     property OnEndDrag;
  381.     property OnEnter;
  382.     property OnExit;
  383.     property OnKeyDown;
  384.     property OnKeyPress;
  385.     property OnKeyUp;
  386.     property OnMouseDown;
  387.     property OnMouseMove;
  388.     property OnMouseUp;
  389.   end;
  390.  
  391.   TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed);
  392.  
  393.   TCustomCheckBox = class(TButtonControl)
  394.   protected
  395.     procedure Toggle; virtual;
  396.     procedure CreateParams(var Params: TCreateParams); override;
  397.     procedure CreateWnd; override;
  398.     property Alignment: TLeftRight default taRightJustify;
  399.     property AllowGrayed: Boolean default False;
  400.     property Checked: Boolean;
  401.     property State: TCheckBoxState default cbUnchecked;
  402.   public
  403.     constructor Create(AOwner: TComponent); override;
  404.   published
  405.     property TabStop default True;
  406.   end;
  407.  
  408.   TCheckBox = class(TCustomCheckBox)
  409.   published
  410.     property Alignment;
  411.     property AllowGrayed;
  412.     property Caption;
  413.     property Checked;
  414.     property Color;
  415.     property Ctl3D;
  416.     property DragCursor;
  417.     property DragMode;
  418.     property Enabled;
  419.     property Font;
  420.     property ParentColor;
  421.     property ParentCtl3D;
  422.     property ParentFont;
  423.     property ParentShowHint;
  424.     property PopupMenu;
  425.     property ShowHint;
  426.     property State;
  427.     property TabOrder;
  428.     property TabStop;
  429.     property Visible;
  430.     property OnClick;
  431.     property OnDragDrop;
  432.     property OnDragOver;
  433.     property OnEndDrag;
  434.     property OnEnter;
  435.     property OnExit;
  436.     property OnKeyDown;
  437.     property OnKeyPress;
  438.     property OnKeyUp;
  439.     property OnMouseDown;
  440.     property OnMouseMove;
  441.     property OnMouseUp;
  442.   end;
  443.  
  444.   TRadioButton = class(TButtonControl)
  445.   protected
  446.     procedure CreateParams(var Params: TCreateParams); override;
  447.     procedure CreateWnd; override;
  448.   public
  449.     constructor Create(AOwner: TComponent); override;
  450.   published
  451.     property Alignment: TLeftRight default taRightJustify;
  452.     property Caption;
  453.     property Checked: Boolean default False;
  454.     property Color;
  455.     property Ctl3D;
  456.     property DragCursor;
  457.     property DragMode;
  458.     property Enabled;
  459.     property Font;
  460.     property ParentColor;
  461.     property ParentCtl3D;
  462.     property ParentFont;
  463.     property ParentShowHint;
  464.     property PopupMenu;
  465.     property ShowHint;
  466.     property TabOrder;
  467.     property TabStop;
  468.     property Visible;
  469.     property OnClick;
  470.     property OnDblClick;
  471.     property OnDragDrop;
  472.     property OnDragOver;
  473.     property OnEndDrag;
  474.     property OnEnter;
  475.     property OnExit;
  476.     property OnKeyDown;
  477.     property OnKeyPress;
  478.     property OnKeyUp;
  479.     property OnMouseDown;
  480.     property OnMouseMove;
  481.     property OnMouseUp;
  482.   end;
  483.  
  484.   TListBoxStyle = (lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable);
  485.  
  486.   TCustomListBox = class(TWinControl)
  487.   protected
  488.     procedure CreateParams(var Params: TCreateParams); override;
  489.     procedure CreateWnd; override;
  490.     procedure DestroyWnd; override;
  491.     procedure WndProc(var Message: TMessage); override;
  492.     procedure DragCanceled; override;
  493.     procedure DrawItem(Index: Integer; Rect: TRect;
  494.       State: TOwnerDrawState); virtual;
  495.     procedure MeasureItem(Index: Integer; var Height: Integer); virtual;
  496.     property BorderStyle: TBorderStyle default bsSingle;
  497.     property Columns: Integer default 0;
  498.     property ExtendedSelect: Boolean default True;
  499.     property IntegralHeight: Boolean default False;
  500.     property ItemHeight: Integer;
  501.     property MultiSelect: Boolean default False;
  502.     property ParentColor default False;
  503.     property Sorted: Boolean default False;
  504.     property Style: TListBoxStyle default lbStandard;
  505.     property OnDrawItem: TDrawItemEvent;
  506.     property OnMeasureItem: TMeasureItemEvent;
  507.   public
  508.     constructor Create(AOwner: TComponent); override;
  509.     destructor Destroy; override;
  510.     procedure Clear;
  511.     function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;
  512.     function ItemRect(Index: Integer): TRect;
  513.     property Canvas: TCanvas;
  514.     property Items: TStrings;
  515.     property ItemIndex: Integer;
  516.     property SelCount: Integer;
  517.     property Selected[Index: Integer]: Boolean;
  518.     property TopIndex: Integer;
  519.   published
  520.     property TabStop default True;
  521.   end;
  522.  
  523.   TListBox = class(TCustomListBox)
  524.   published
  525.     property Align;
  526.     property BorderStyle;
  527.     property Color;
  528.     property Columns;
  529.     property Ctl3D;
  530.     property DragCursor;
  531.     property DragMode;
  532.     property Enabled;
  533.     property ExtendedSelect;
  534.     property Font;
  535.     property IntegralHeight;
  536.     property ItemHeight;
  537.     property Items;
  538.     property MultiSelect;
  539.     property ParentColor;
  540.     property ParentCtl3D;
  541.     property ParentFont;
  542.     property ParentShowHint;
  543.     property PopupMenu;
  544.     property ShowHint;
  545.     property Sorted;
  546.     property Style;
  547.     property TabOrder;
  548.     property TabStop;
  549.     property Visible;
  550.     property OnClick;
  551.     property OnDblClick;
  552.     property OnDragDrop;
  553.     property OnDragOver;
  554.     property OnDrawItem;
  555.     property OnEndDrag;
  556.     property OnEnter;
  557.     property OnExit;
  558.     property OnKeyDown;
  559.     property OnKeyPress;
  560.     property OnKeyUp;
  561.     property OnMeasureItem;
  562.     property OnMouseDown;
  563.     property OnMouseMove;
  564.     property OnMouseUp;
  565.   end;
  566.  
  567.   TScrollCode = (scLineUp, scLineDown, scPageUp, scPageDown, scPosition,
  568.     scTrack, scTop, scBottom, scEndScroll);
  569.  
  570.   TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode;
  571.     var ScrollPos: Integer) of object;
  572.  
  573.   TScrollBar = class(TWinControl)
  574.   protected
  575.     procedure CreateParams(var Params: TCreateParams); override;
  576.     procedure CreateWnd; override;
  577.     procedure Change; dynamic;
  578.     procedure Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer); dynamic;
  579.   public
  580.     constructor Create(AOwner: TComponent); override;
  581.     procedure SetParams(APosition, AMin, AMax: Integer);
  582.   published
  583.     property Ctl3D;
  584.     property DragCursor;
  585.     property DragMode;
  586.     property Enabled;
  587.     property Kind: TScrollBarKind default sbHorizontal;
  588.     property LargeChange: TScrollBarInc default 1;
  589.     property Max: Integer default 100;
  590.     property Min: Integer default 0;
  591.     property ParentCtl3D;
  592.     property ParentShowHint;
  593.     property PopupMenu;
  594.     property Position: Integer default 0;
  595.     property ShowHint;
  596.     property SmallChange: TScrollBarInc default 1;
  597.     property TabOrder;
  598.     property TabStop default True;
  599.     property Visible;
  600.     property OnChange: TNotifyEvent;
  601.     property OnDragDrop;
  602.     property OnDragOver;
  603.     property OnEndDrag;
  604.     property OnEnter;
  605.     property OnExit;
  606.     property OnKeyDown;
  607.     property OnKeyPress;
  608.     property OnKeyUp;
  609.     property OnScroll: TScrollEvent;
  610.   end;
  611.  
  612. implementation
  613.