Package: GWindows.Edit_Boxes.Rich

Dependencies

with TOM;

Description

GWINDOWS - Ada 95 Framework for Win32 Development

G W I N D O W S . E D I T _ B O X E S . R I C H

S p e c

$Revision: 1.2 $

Copyright (C) 1999 - 2004 David Botton

This is free software; you can redistribute it and/or modify it under terms of the GNU General Public License as published by the Free Soft- ware Foundation; either version 2, or (at your option) any later ver- sion. It is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License distributed with this; see file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

As a special exception, if other files instantiate generics from this unit, or you link this unit with other files to produce an executable, this unit does not by itself cause the resulting executable to be covered by the GNU General Public License. This exception does not however invalidate any other reasons why the executable file might be covered by the GNU Public License.

More information about GWindows and the latest current release can be located on the web at http://www.gnavi.org/gwindows

Rich_Edit_Box_Type

Header

package GWindows.Edit_Boxes.Rich is
 

Type Summary

Rich_Edit_Box_Access
Rich_Edit_Box_Type derived from Multi_Line_Edit_Box_Type
Overridden Operations:  Create, Create_Multi_Line, Line_Text, On_Create
New Operations:  Get_ITextDocument
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Can_Undo, Capture_Mouse, Center, Center, Child, Clear, Clear_Undo, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Copy, Create_Control, Cut, Digits_Only, Digits_Only, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Change, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Horizontal_Scroll, Fire_On_Lost_Focus, Fire_On_Max_Text, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Update, Fire_On_Vertical_Scroll, Fire_On_Vertical_Scroll, First_Visible, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, Get_Selection, Group, Group, Handle, Height, Height, Hide, Horizontal_Scroll_Bar, Horizontal_Scroll_Bar, ID, Initialize, Is_Dialog, Is_Dialog, Is_Modal, Is_Modal, Keyboard_Support, Keyboard_Support, Last_Window, Left, Left, Line_Count, Line_From_Position, Line_Length, Lower_Case_Only, Lower_Case_Only, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Modified, Modified, Move, Next_Tab_Stop, Next_Window, On_Change, On_Change_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Horizontal_Scroll_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Max_Text, On_Max_Text_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Update, On_Update_Handler, On_Vertical_Scroll, On_Vertical_Scroll, On_Vertical_Scroll_Handler, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Password, Password, Paste, Point_To_Client, Point_To_Desktop, Position_From_Line, Previous_Tab_Stop, Previous_Window, Read_Only, Read_Only, Redraw, Replace_Selection, Scroll, Scroll_Position, Scroll_To_Caret, Set_Font, Set_Selection, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Text_Limit, Text_Limit, Thaw, Top, Top, Undo, Upper_Case_Only, Upper_Case_Only, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width

Other Items:

type Rich_Edit_Box_Type is
  new Multi_Line_Edit_Box_Type with private;

type Rich_Edit_Box_Access is access all Rich_Edit_Box_Type;
Rich_Edit_Box_Type - Creation Functions

procedure Create
  (Edit              : in out Rich_Edit_Box_Type;
   Parent            : in out GWindows.Base.Base_Window_Type'Class;
   Text              : in     GString;
   Left              : in     Integer;
   Top               : in     Integer;
   Width             : in     Integer;
   Height            : in     Integer;
   Horizontal_Scroll : in     Boolean                            := True;
   ID                : in     Integer                            := 0;
   Show              : in     Boolean                            := True;
   Is_Dynamic        : in     Boolean                            := False);
Create a single line Rich Text Edit Box

procedure Create_Multi_Line
  (Edit              : in out Rich_Edit_Box_Type;
   Parent            : in out GWindows.Base.Base_Window_Type'Class;
   Text              : in     GString;
   Left              : in     Integer;
   Top               : in     Integer;
   Width             : in     Integer;
   Height            : in     Integer;
   Horizontal_Scroll : in     Boolean                            := False;
   Vertical_Scroll   : in     Boolean                            := True;
   Capture_Return    : in     Boolean                            := True;
   ID                : in     Integer                            := 0;
   Show              : in     Boolean                            := True;
   Is_Dynamic        : in     Boolean                            := False);
Create s Rich Text Edit Box

function Line_Text (Edit : Rich_Edit_Box_Type;
                    Line : Positive)
                   return GString;

function Get_ITextDocument (Edit : in Rich_Edit_Box_Type)
                           return TOM.Pointer_To_ITextDocument;
Retrieves the Text Object Model Document Interface for the Rich Text Edit Box

procedure On_Create (Edit : in out Rich_Edit_Box_Type);
Handles setting up event mask

private

   --  Implementation-defined ...
end GWindows.Edit_Boxes.Rich;