TDBGridEh的 搜索面板 TDBGridSearchPanel

TCustomDBGridEh.Create

  FSearchPanelControl := TDBGridSearchPanelControlEh.Create(Self); //这里，创建的构造函数是 另外一个类

  with FSearchPanelControl do

  begin

    Parent := Self;

    Name := 'FSearchPanelControl';

    Visible := False;

    SetBounds(,,,);

    {$IFDEF FPC}

    {$ELSE}

    ParentBackground := False;

    {$ENDIF}

    Text := '';

  end;

constructor TDBGridSearchPanelControlEh.Create(AGrid: TCustomGridEh);

begin

  inherited Create(AGrid); //这里 继承的

  ControlStyle := ControlStyle - [csSetCaption];

  FGrid := AGrid;

  InitItems;

  DoubleBuffered := True;

  Caption := '';

end;

procedure TDBGridSearchPanelControlEh.InitItems;

var

  FI: TDBGridEhNavigatorFindBtn;

  FindBtn: TNavFindButtonEh;

  X: Integer;

//  ResName: string;

begin

  MinBtnSize := Point(, );

  X := ;

  FFindEditor := TNavFindEditEh.Create(Self); //这里 其实叫 FFindEditor，构造函数是 另外一个类

  FFindEditor.Flat := True;

  FFindEditor.SetBounds(X, , , MinBtnSize.Y-);

  {$IFDEF FPC}

  {$ELSE}

  FFindEditor.BevelEdges := [beLeft, beTop, beRight, beBottom];

  FFindEditor.BevelInner := bvNone;

  FFindEditor.BevelKind := bkFlat;

  FFindEditor.BorderStyle := bsNone;

  FFindEditor.Ctl3D := True;

  {$ENDIF}

  FFindEditor.TabStop := False;

//  FFindEditor.SpecInternalSetText('Search');

  FFindEditor.EmptyDataInfo.Text := SSearchPanelEditorPromptText;

  FFindEditor.Parent := Self;

  FFindEditor.AutoSize := False;

  FFindEditor.IsEmptyState := True;

  FFindEditor.Font.Color := clGrayText;

  FFindEditor.Grid := FGrid;

  FFindEditor.OnUpdateModified := FindEditorUpdateModified;

  FFindEditor.EditButton.Visible := False;

//  FFindEditor.EditButton.Style := ebsAltDropDownEh;

  X := X + ;

  for FI := Low(FindButtons) to High(FindButtons) do

  begin

    FindBtn := TNavFindButtonEh.Create(Self);

    FindBtn.Flat := True;

    FindBtn.Index := FI;

    FindBtn.ImageIndex := Ord(FI)+;

    FindBtn.Enabled := True;

    FindBtn.SetBounds (X, , MinBtnSize.X, MinBtnSize.Y);

    FindBtn.Enabled := False;

    FindBtn.Enabled := True;

    FindBtn.OnClick := ClickHandler;

    FindBtn.OnMouseDown := BtnMouseDown;

    FindBtn.Parent := Self;

    FindButtons[FI] := FindBtn;

    X := X + MinBtnSize.X;

  end;

  FindButtons[gnfbCancelSearchFilterEh].Hint := SSearchPanelApplyFilterEh;

  FindButtons[gnfbFindNextEh].Hint := SSearchPanelFindNextEh;

  FindButtons[gnfbFindPrevEh].Hint := SSearchPanelFindPrevEh;

  FindButtons[gnfbOptionsEh].Hint := SSearchPanelOptionsEh;

  ResetVisibleControls;

end;

constructor TCustomDBComboBoxEh.Create(AOwner: TComponent); 这里

begin

  inherited Create(AOwner); //这里

  FItems := TStringList.Create;

  TStringList(FItems).OnChange := ItemsChanged;

  FKeyItems := TStringListEh.Create;

  TStringListEh(FKeyItems).CaseSensitive := True;

  TStringList(FKeyItems).OnChange := KeyItemsChanged;

  FVarValue := Null;

  FDropDownBox := CreateDropDownBox;

  FDropDownBox.Rows := ;

  FItemIndex := -;

  FCaseInsensitiveTextSearch := True;

  TStringList(FItems).CaseSensitive := not FCaseInsensitiveTextSearch;

end;

constructor TCustomDBEditEh.Create(AOwner: TComponent);

begin

  inherited Create(AOwner); 这里

  ControlStyle := ControlStyle + [csReplicatable, csCaptureMouse];

  FDataLink := CreateDataLink;

  FDataLink.Control := Self;

  FDataLink.OnDataChange := DataChange;

  FDataLink.OnEditingChange := EditingChange;

  FDataLink.OnUpdateData := InternalUpdateData;

  FDataLink.OnActiveChange := ActiveChange;

  FEditButton := CreateEditButton;

  FEditButton.OnChanged := EditButtonChanged;

  FEditButton.OnRefComponentChanged := EditButtonImagesRefComponentNotifyEvent;

  FEditButtons := CreateEditButtons;

  FEditButtons.OnChanged := EditButtonChanged;

  FEditButtons.OnRefComponentChanged := EditButtonImagesRefComponentNotifyEvent;

  FEditImage := CreateEditImage;

  FMRUList := TMRUListEh.Create(Self);

  FMRUList.OnSetDropDown := MRUListDropDown;

  FMRUList.OnSetCloseUp := MRUListCloseUp;

  FDynProps := TDynVarsEh.Create(Self);

  FEmptyDataInfo := TControlEmptyDataInfoEh.Create(Self);

  UpdateControlReadOnly;

  UpdateImageIndex;

  FButtonsBox := TEditButtonsBoxEh.Create(Self);

  FButtonsBox.SetBounds(,,,);

  FButtonsBox.Visible := False;

  FButtonsBox.Parent := Self;

  FButtonsBox.OnDown := EditButtonDown;

  FButtonsBox.OnClick := EditButtonClick;

  FButtonsBox.OnMouseMove := EditButtonMouseMove;

  FButtonsBox.OnMouseUp := EditButtonMouseUp;

  FButtonsBox.OnCreateEditButtonControl := CreateEditButtonControl;

  FControlLabel := TControlLabelEh.Create(Self);

  FControlLabel.FreeNotification(Self);

  FControlLabel.FocusControl := Self;

  FControlLabelLocation := TControlLabelLocationEh.Create(Self);

end;

constructor TCustomMaskEdit.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);这里

  FMaskState := [];

  FMaskBlank := DefaultBlank;

end;

constructor TCustomEdit.Create(AOwner: TComponent);

const

  EditStyle = [csClickEvents, csSetCaption, csDoubleClicks, csFixedHeight, csPannable];

begin

  inherited Create(AOwner); 这里

  if NewStyleControls then

    ControlStyle := EditStyle else

    ControlStyle := EditStyle + [csFramed];

  Width := ;

  Height := ;

  TabStop := True;

  ParentColor := False;

  FBorderStyle := bsSingle;

  FAutoSize := True;

  FAutoSelect := True;

  FHideSelection := True;

  AdjustHeight;

  FOldSelLength := -;

  FOldSelStart := -;

end;

========================================================================

procedure TCustomDBEditEh.WMChar(var Message: TWMChar);

var

  CharMsg: Windows.TMsg;

  DBC: Boolean;

begin

  FCompleteKeyPress := Char(Message.CharCode);

  try

    DBC := False;

    if (CharInSetEh(Char(Message.CharCode), LeadBytes)) then

      if PeekMessage(CharMsg, Handle, WM_CHAR, WM_CHAR, PM_NOREMOVE) then

        if CharMsg.Message <> WM_Quit then

        begin

{$IFDEF CIL}

//          FCompleteKeyPress := FCompleteKeyPress + Char(CharMsg.wParam);

{$ELSE}

          FCompleteKeyPress := FCompleteKeyPress + Char(CharMsg.wParam);

{$ENDIF}

          DBC := True;

        end;

    inherited;

    if DBC and (Char(Message.CharCode) = #) then

      PeekMessage(CharMsg, Handle, WM_CHAR, WM_CHAR, PM_REMOVE);

  finally

    FCompleteKeyPress := '';

  end;

end;

function TWinControl.DoKeyPress(var Message: TWMKey): Boolean;

var

  Form: TCustomForm;

  Ch: Char;

begin

  Result := True;

  Form := GetParentForm(Self);

  if (Form <> nil) and (Form <> Self) and Form.KeyPreview and

    TWinControl(Form).DoKeyPress(Message) then Exit;

  if not (csNoStdEvents in ControlStyle) then

    with Message do

    begin

      Ch := Char(CharCode);

      KeyPress(Ch);

      CharCode := Word(Ch);

      if Char(CharCode) = # then Exit;

    end;

  Result := False;

end;

procedure TNavFindEditEh.KeyPress(var Key: Char); 这里 输入

begin

  if (Key = #) and not ListVisible then //ESC

  begin

{    if CanUndo then

    begin

      Undo;

      ClearUndo;

      Modified := False;

      UpdateModified;

    end else}

      CancelSearchEditorMode;

    Key := #;

  end else if (Key = #) and not ListVisible then

  begin

    if TCustomDBGridEhCrack(Grid).SearchPanel.FilterEnabled then

      ApplySearchFilter

    else

    begin

      if GetKeyState(VK_SHIFT) <

        then TDBGridSearchPanelControlEh(Parent).FindPrev

        else TDBGridSearchPanelControlEh(Parent).FindNext;

    end;

    Key := #;

  end;

  inherited KeyPress(Key);

end;

procedure TDBGridSearchPanelControlEh.FindBtnClick(Index: TDBGridEhNavigatorFindBtn);右边3个按钮

var

  Grid: TCustomDBGridEhCrack;

begin

  Grid := TCustomDBGridEhCrack(FGrid);

  if (Grid.DataSource <> nil) and (Grid.DataSource.State <> dsInactive) then

  begin

    if Grid.SearchEditorMode = False then

      Grid.SearchEditorMode := True;

    case Index of

      gnfbCancelSearchFilterEh:

        if not FFindEditor.TextAppliedAsFilter

          then FFindEditor.ApplySearchFilter

          else FFindEditor.CancelSearchEditorMode;

      gnfbFindNextEh:

        FindNext;

      gnfbFindPrevEh:

        FindPrev;

      gnfbOptionsEh: ;

    end;

  end;

end;

procedure TNavFindEditEh.CancelSearchEditorMode;

begin

  SpecInternalSetText('');

  TDBGridSearchPanelEhCrack(TCustomDBGridEhCrack(Grid).SearchPanel).InterSetSearchingText(Text);

  TCustomDBGridEhCrack(Grid).SearchEditorMode := False;

  TCustomDBGridEhCrack(Grid).ClearSearchFilter;

  Modified := False;

  TextAppliedAsFilter := True;

  UpdateModified;

end;