lea_gwin-search_box.ads

  --  The search box is common to all editor windows.
  --  It is created once, then:
  --    - shown on Ctrl-F or a click on binoculars
  --    - hidden on button Close or Esc.
  --  It is never closed until the end of the application.

with LEA_Resource_GUI;

with GWindows.Base,
     GWindows.Types,
     GWindows.Combo_Boxes;

with Interfaces.C;

package LEA_GWin.Search_box is

  type LEA_search_box_type;
  type LEA_search_box_access_type is access all LEA_search_box_type;

  type Find_Replace_box_type is
    new GWindows.Combo_Boxes.Drop_Down_Combo_Box_Type with
  record
    parent_SB : LEA_search_box_access_type;
  end record;

  overriding
  procedure On_Message
     (FRB          : in out Find_Replace_box_type;
      message      : in     Interfaces.C.unsigned;
      wParam       : in     GWindows.Types.Wparam;
      lParam       : in     GWindows.Types.Lparam;
      Return_Value : in out GWindows.Types.Lresult);

  type LEA_search_box_type is new LEA_Resource_GUI.Search_box_Type with record
    The_real_MDI_parent : GWindows.Base.Pointer_To_Base_Window_Class;
    Find_box,
    Replace_box         : Find_Replace_box_type;
  end record;

  overriding
  procedure On_Message
     (SB           : in out LEA_search_box_type;
      message      : in     Interfaces.C.unsigned;
      wParam       : in     GWindows.Types.Wparam;
      lParam       : in     GWindows.Types.Lparam;
      Return_Value : in out GWindows.Types.Lresult);

  overriding
  procedure On_Close (SB        : in out LEA_search_box_type;
                      Can_Close :    out Boolean);

  procedure Update_drop_downs (SB : in out LEA_search_box_type);

  procedure Create_as_search_box (
    SB     : in out LEA_search_box_type;
    Parent : in out GWindows.Base.Base_Window_Type'Class
  );

  function Compose_Scintilla_search_flags (SB : in  LEA_search_box_type) return Integer;

end LEA_GWin.Search_box;