{*******************************************************}

{                                                       }

{       Borland Delphi Visual Component Library         }

{                                                       }

{       Copyright (c) 1995,99 Inprise Corporation       }

{                                                       }

{*******************************************************}



unit StdCtrls;



{$R-,T-,H+,X+}



interface



uses Messages, Windows, SysUtils, Classes, Controls, Forms, Menus, Graphics;



type

  TCustomGroupBox = class(TCustomControl)

  private

    procedure CMDialogChar(var message: TCMDialogChar); message CM_DIALOGCHAR;

    procedure CMTextChanged(var message: TMessage); message CM_TEXTCHANGED;

    procedure CMCtl3DChanged(var message: TMessage); message CM_CTL3DCHANGED;

    procedure WMSize(var message: TMessage); message WM_SIZE;

  protected

    procedure AdjustClientRect(var Rect: TRect); override;

    procedure CreateParams(var Params: TCreateParams); override;

    procedure Paint; override;

  public

    constructor Create(AOwner: TComponent); override;

  end;



  TGroupBox = class(TCustomGroupBox)

  published

    property Align;

    property Anchors;

    property BiDiMode;

    property Caption;

    property Color;

    property Constraints;

    property Ctl3D;

    property DockSite;

    property DragCursor;

    property DragKind;

    property DragMode;

    property Enabled;

    property Font;

    property ParentBiDiMode;

    property ParentColor;

    property ParentCtl3D;

    property ParentFont;

    property ParentShowHint;

    property PopupMenu;

    property ShowHint;

    property TabOrder;

    property TabStop;

    property Visible;

    property OnClick;

    property OnContextPopup;

    property OnDblClick;

    property OnDragDrop;

    property OnDockDrop;

    property OnDockOver;

    property OnDragOver;

    property OnEndDock;

    property OnEndDrag;

    property OnEnter;

    property OnExit;

    property OnGetSiteInfo;

    property OnMouseDown;

    property OnMouseMove;

    property OnMouseUp;

    property OnStartDock;

    property OnStartDrag;

    property OnUnDock;

  end;



  TTextLayout = (tlTop, tlCenter, tlBottom);



  TCustomLabel = class(TGraphicControl)

  private

    FFocusControl: TWinControl;

    FAlignment: TAlignment;

    FAutoSize: Boolean;

    FLayout: TTextLayout;

    FWordWrap: Boolean;

    FShowAccelChar: Boolean;

    function GetTransparent: Boolean;

    procedure SetAlignment(Value: TAlignment);

    procedure SetFocusControl(Value: TWinControl);

    procedure SetShowAccelChar(Value: Boolean);

    procedure SetTransparent(Value: Boolean);

    procedure SetLayout(Value: TTextLayout);

    procedure SetWordWrap(Value: Boolean);

    procedure CMTextChanged(var message: TMessage); message CM_TEXTCHANGED;

    procedure CMFontChanged(var message: TMessage); message CM_FONTCHANGED;

    procedure CMDialogChar(var message: TCMDialogChar); message CM_DIALOGCHAR;

  protected

    procedure AdjustBounds; dynamic;

    procedure DoDrawText(var Rect: TRect; Flags: Longint); dynamic;

    function GetLabelText: string; virtual;

    procedure Loaded; override;

    procedure Notification(AComponent: TComponent;

      Operation: TOperation); override;

    procedure Paint; override;

    procedure SetAutoSize(Value: Boolean); virtual;

    property Alignment: TAlignment read FAlignment write SetAlignment

      default taLeftJustify;

    property AutoSize: Boolean read FAutoSize write SetAutoSize default True;

    property FocusControl: TWinControl read FFocusControl write SetFocusControl;

    property ShowAccelChar: Boolean read FShowAccelChar write SetShowAccelChar default True;

    property Transparent: Boolean read GetTransparent write SetTransparent default False;

    property Layout: TTextLayout read FLayout write SetLayout default tlTop;

    property WordWrap: Boolean read FWordWrap write SetWordWrap default False;

  public

    constructor Create(AOwner: TComponent); override;

    property Canvas;

  end;



  TLabel = class(TCustomLabel)

  published

    property Align;

    property Alignment;

    property Anchors;

    property AutoSize;

    property BiDiMode;

    property Caption;

    property Color;

    property Constraints;

    property DragCursor;

    property DragKind;

    property DragMode;

    property Enabled;

    property FocusControl;

    property Font;

    property ParentBiDiMode;

    property ParentColor;

    property ParentFont;

    property ParentShowHint;

    property PopupMenu;

    property ShowAccelChar;

    property ShowHint;

    property Transparent;

    property Layout;

    property Visible;

    property WordWrap;

    property OnClick;

    property OnContextPopup;

    property OnDblClick;

    property OnDragDrop;

    property OnDragOver;

    property OnEndDock;

    property OnEndDrag;

    property OnMouseDown;

    property OnMouseMove;

    property OnMouseUp;

    property OnStartDock;

    property OnStartDrag;

  end;



  TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase);



  TCustomEdit = class(TWinControl)

  private

    FMaxLength: Integer;

    FBorderStyle: TBorderStyle;

    FPasswordChar: Char;

    FReadOnly: Boolean;

    FAutoSize: Boolean;

    FAutoSelect: Boolean;

    FHideSelection: Boolean;

    FOEMConvert: Boolean;

    FCharCase: TEditCharCase;

    FCreating: Boolean;

    FModified: Boolean;

    FOnChange: TNotifyEvent;

    procedure AdjustHeight;

    function GetModified: Boolean;

    function GetCanUndo: Boolean;

    procedure SetAutoSize(Value: Boolean);

    procedure SetBorderStyle(Value: TBorderStyle);

    procedure SetCharCase(Value: TEditCharCase);

    procedure SetHideSelection(Value: Boolean);

    procedure SetMaxLength(Value: Integer);

    procedure SetModified(Value: Boolean);

    procedure SetOEMConvert(Value: Boolean);

    procedure SetPasswordChar(Value: Char);

    procedure SetReadOnly(Value: Boolean);

    procedure SetSelText(const Value: string);

    procedure UpdateHeight;

    procedure WMSetFont(var message: TWMSetFont); message WM_SETFONT;

    procedure CMCtl3DChanged(var message: TMessage); message CM_CTL3DCHANGED;

    procedure CMEnter(var message: TCMGotFocus); message CM_ENTER;

    procedure CMFontChanged(var message: TMessage); message CM_FONTCHANGED;

    procedure CNCommand(var message: TWMCommand); message CN_COMMAND;

    procedure CMTextChanged(var message: TMessage); message CM_TEXTCHANGED;

  protected

    procedure Change; dynamic;

    procedure CreateParams(var Params: TCreateParams); override;

    procedure CreateWindowHandle(const Params: TCreateParams); override;

    procedure CreateWnd; override;

    procedure DestroyWnd; override;

    procedure DoSetMaxLength(Value: Integer); virtual;

    function GetSelLength: Integer; virtual;

    function GetSelStart: Integer; virtual;

    function GetSelText: string; virtual;

    procedure SetSelLength(Value: Integer); virtual;

    procedure SetSelStart(Value: Integer); virtual;

    property AutoSelect: Boolean read FAutoSelect write FAutoSelect default True;

    property AutoSize: Boolean read FAutoSize write SetAutoSize default True;

    property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;

    property CharCase: TEditCharCase read FCharCase write SetCharCase default ecNormal;

    property HideSelection: Boolean read FHideSelection write SetHideSelection default True;

    property MaxLength: Integer read FMaxLength write SetMaxLength default 0;

    property OEMConvert: Boolean read FOEMConvert write SetOEMConvert default False;

    property PasswordChar: Char read FPasswordChar write SetPasswordChar default #0;

    property ParentColor default False;

    property readonly: Boolean read FReadOnly write SetReadOnly default False;

    property OnChange: TNotifyEvent read FOnChange write FOnChange;

  public

    constructor Create(AOwner: TComponent); override;

    procedure Clear; virtual;

    procedure ClearSelection;

    procedure CopyToClipboard;

    procedure CutToClipboard;

    procedure DefaultHandler(var message); override;

    procedure PasteFromClipboard;

    procedure Undo;

    procedure ClearUndo;

    function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer; virtual;

    procedure SelectAll;

    procedure SetSelTextBuf(Buffer: PChar);

    property CanUndo: Boolean read GetCanUndo;

    property Modified: Boolean read GetModified write SetModified;

    property SelLength: Integer read GetSelLength write SetSelLength;

    property SelStart: Integer read GetSelStart write SetSelStart;

    property SelText: string read GetSelText write SetSelText;

    property Text;

  published

    property TabStop default True;

  end;



 .

 .

 .

 .



constructor TCustomStaticText.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  ControlStyle := [csCaptureMouse, csClickEvents, csSetCaption,

    csOpaque, csReplicatable, csDoubleClicks];

  Width := 65;

  Height := 17;

  FAutoSize := True;

  FShowAccelChar := True;

  AdjustBounds;

end;



procedure TCustomStaticText.CreateParams(var Params: TCreateParams);

const

  Alignments: array[Boolean, TAlignment] of DWORD =

    ((SS_LEFT, SS_RIGHT, SS_CENTER), (SS_RIGHT, SS_LEFT, SS_CENTER));

  Borders: array[TStaticBorderStyle] of DWORD = (0, WS_BORDER, SS_SUNKEN);

begin

  inherited CreateParams(Params);

  CreateSubClass(Params, 'STATIC');

  with Params do

  begin

    Style := Style or SS_NOTIFY or

      Alignments[UseRightToLeftAlignment, FAlignment] or Borders[FBorderStyle];

    if not FShowAccelChar then Style := Style or SS_NOPREFIX;

    WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);

  end;

end;



procedure TCustomStaticText.CMDialogChar(var message: TCMDialogChar);

begin

  if (FFocusControl <> nil) and Enabled and ShowAccelChar and

    IsAccel(message.CharCode, Caption) then

    with FFocusControl do

      if CanFocus then

      begin

        SetFocus;

        message.Result := 1;

      end;

end;

Редактирано от Shveik на 07.02.01 23:58.