TplSearchPanel

type TplSearchPanel = class(TPanel)

protected

  ctCloseBtn: TSpeedButton;

  ctSearchForwardBtn: TSpeedButton;

  ctSearchBackwardBtn: TSpeedButton;

  ctHighlightBtn: TSpeedButton;

  ctTextLabel: TLabel;

  ctStatusLabel: TLabel;

  ctLocationsCmb: TComboBox;

  ctSearchEdt: TEdit;

  procedure updateComponents;

  procedure moveComponents;

  procedure DoOnResize; override;

  procedure SetVisible(); override;

  procedure DoSearch();

public

  property SearchText: string; [r]

  property SearchLocation: LongInt; [rw]

  property SearchLocations: TStrings; [r]

  property Highlighting: Boolean; [r]

  property FindState: TFindState; [rw]

  procedure SetFocus; override;

  constructor Create(); override;

  destructor Destroy; override;

published

  property SubComponents: TplSearchPanelSubControls; [rw]

  property LabelText: string; [rw]

  property SearchForwardText: string; [rw]

  property SearchBackwardText: string; [rw]

  property HighlightText: string; [rw]

  property FoundColor: TColor; [rw]

  property NotFoundColor: TColor; [rw]

  property NotFoundState: string; [rw]

  property LoopAroundState: string; [rw]

  property OnSearch: TSearchEvent; [rw]

  property OnClose: TNotifyEvent; [rw]

  property OnShow: TNotifyEvent; [rw]

  property OnHighlightChanged: TNotifyEvent; [rw]

  property OnKeyDown;

  property OnClick;

  property OnDblClick;

  property OnPaint;

  property OnResize;

  property OnChangeBounds;

  property OnContextPopup;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnDragDrop;

  property OnDragOver;

  property OnStartDrag;

  property OnStartDock;

  property OnEndDock;

end;

TplSearchPanel

TObject