Package: GWindows.Common_Controls

Dependencies

with Ada.Calendar;

with Interfaces.C;

with GWindows.Base;
with GWindows.Types;
with GWindows.Windows;
with GWindows.Image_Lists;

Description

GWINDOWS - Ada 95 Framework for Win32 Development

G W I N D O W S . W I N D O W S . C O M M O N _ C O N T R O L S

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

Common_Control_Type

Base class for common controls


Header

package GWindows.Common_Controls is
 

Type Summary

Animation_Control_Access
Animation_Control_Type derived from Common_Control_Type
Overridden Operations:  Close, On_Command
New Operations:  Create, Fire_On_Start, Fire_On_Stop, On_Start, On_Start_Handler, On_Stop, On_Stop_Handler, Open, Play, Seek, Stop
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Common_Control_Type derived from Base_Window_Type
Overridden Operations:  On_Notify
New Operations:  Fire_On_Click, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, On_Click, On_Click_Handler, On_Double_Click, On_Double_Click_Handler, On_Focus, On_Focus_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Horizontal_Scroll, Fire_On_Pre_Create, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Draw_Item, On_Filter_Message, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Message, On_Pre_Create, On_Pre_Create_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Date_Format
Date_Selection_Method
Date_Time_Picker_Access
Date_Time_Picker_Type derived from Common_Control_Type
Overridden Operations:  On_Create, On_Notify
New Operations:  Create, Date_Time, Date_Time, Date_Time_Format, Fire_On_Date_Time_Change, None_Date_Time, None_Date_Time, On_Date_Time_Change, On_Date_Time_Change_Handler, Set_Range
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
IP_Address_Control_Access
IP_Address_Control_Type derived from Common_Control_Type
Overridden Operations:  On_Command, On_Create
New Operations:  Create, Fire_On_Change, On_Change, On_Change_Handler
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
List_View_Control_Access
List_View_Control_Alignment_Type
List_View_Control_Select_Type
List_View_Control_Sort_Type
List_View_Control_Type derived from Common_Control_Type
Overridden Operations:  On_Create
New Operations:  Clear, Create, Delete_Item, Insert_Column, Insert_Item, Is_Selected, Item_At_Position, Item_Count, Selected, Selected_Item_Count, Set_Column, Set_Column_Width, Set_Item, Set_Sub_Item, Text
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
List_View_Control_View_Type
Pointer_To_Animation_Control
Pointer_To_Common_Control_Class
Pointer_To_Date_Time_Picker_Class
Pointer_To_IP_Address_Control_Class
Pointer_To_List_View_Control_Class
Pointer_To_Progress_Control_Class
Pointer_To_Status_Bar_Class
Pointer_To_Tab_Control_Class
Pointer_To_Tab_Window_Control_Class
Pointer_To_Tool_Tip_Class
Pointer_To_Toolbar_Control_Class
Pointer_To_Trackbar_Control_Class
Pointer_To_Tree_View_Control_Class
Pointer_To_Up_Down_Control_Class
Progress_Control_Access
Progress_Control_Type derived from Common_Control_Type
New Operations:  Create, Increment, Position, Position, Progress_Range, Step, Step_Size
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Status_Bar_Access
Status_Bar_Position_Type
Status_Bar_Type derived from Common_Control_Type
New Operations:  Create, Parts, Text
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Status_Kind_Type
Tab_Control_Access
Tab_Control_Type derived from Common_Control_Type
Overridden Operations:  On_Create, On_Notify
New Operations:  Create, Delete_All_Tabs, Delete_Tab, Display_Area, Fire_On_Change, Fire_On_Changing, Insert_Tab, On_Change, On_Change_Handler, On_Changing, On_Changing_Handler, Selected_Tab, Selected_Tab, Tab_Count, Tab_Row_Count, Text, Text
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Tab_Window_Control_Access
Tab_Window_Control_Type derived from Tab_Control_Type
Overridden Operations:  On_Change, On_Changing
New Operations:  Tab_Window, Tab_Window
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create, Create_Control, Delete_All_Tabs, Delete_Tab, Disable, Display_Area, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Change, Fire_On_Changing, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, Group, Group, Handle, Height, Height, Hide, Horizontal_Scroll_Bar, Horizontal_Scroll_Bar, ID, Initialize, Insert_Tab, Is_Dialog, Is_Dialog, Is_Modal, Is_Modal, Keyboard_Support, Keyboard_Support, Last_Window, Left, Left, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Change_Handler, On_Changing_Handler, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Selected_Tab, Selected_Tab, Set_Font, Show, Size, Tab_Count, Tab_Row_Count, Tab_Stop, Tab_Stop, Text, Text, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Tool_Tip_Access
Tool_Tip_Type derived from Common_Control_Type
New Operations:  Add_Tool_Tip, Create, Maximum_Width
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Toolbar_Control_Access
Toolbar_Control_Type derived from Common_Control_Type
Overridden Operations:  On_Command, On_Create
New Operations:  Add_Button, Add_Separator, Create, Fire_On_Button_Select, Get_Style, On_Button_Select, On_Button_Select_Handler, Set_Image_List, Set_Style
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Trackbar_Control_Access
Trackbar_Control_Direction_Type
Trackbar_Control_Ticks_Type
Trackbar_Control_Type derived from Common_Control_Type
Overridden Operations:  On_Create
New Operations:  Create, Maximum, Maximum, Minimum, Minimum, Position, Position
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Tree_Item_Node derived from unsigned
Tree_View_Control_Access
Tree_View_Control_Type derived from Common_Control_Type
Overridden Operations:  On_Create
New Operations:  Collapse, Create, Delete_Item, Expand, Get_First_Child_Item, Get_Next_Item, Get_Parent_Item, Get_Previous_Item, Get_Root_Item, Insert_Item, Insert_Item, Selected_Item, Selected_Item, Text
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Notify, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width
Tree_View_List_Location_Type
Up_Down_Changing_Event
Up_Down_Control_Access
Up_Down_Control_Align_Type
Up_Down_Control_Direction_Type
Up_Down_Control_Type derived from Common_Control_Type
Overridden Operations:  On_Create, On_Notify
New Operations:  Create, Fire_On_Position_Changing, On_Position_Changing, On_Position_Changing_Handler, Position, Position, Set_Range
Inherited Operations:  Accelerator_Handle, Accelerator_Handle, Accelerator_Table, Attach, Attach_Control, Attach_Dialog, Attach_Dialog_Item, Border, Border, Capture_Mouse, Center, Center, Child, Client_Area_Height, Client_Area_Height, Client_Area_Size, Client_Area_Width, Client_Area_Width, Close, Control, Controlling_Parent, Create_Control, Disable, Dock, Dock, Enable, Enabled, Enabled, End_Dialog, Enumerate_Children, Finalize, Fire_On_Click, Fire_On_Context_Menu, Fire_On_Create, Fire_On_Destroy, Fire_On_Double_Click, Fire_On_Focus, Fire_On_Horizontal_Scroll, Fire_On_Hover, Fire_On_Lost_Focus, Fire_On_Out_Of_Memory, Fire_On_Pre_Create, Fire_On_Return, Fire_On_Right_Click, Fire_On_Right_Double_Click, Fire_On_Vertical_Scroll, First_Window, Focus, Focus, Freeze, Get_Canvas, Get_Font, Get_Full_Window_Canvas, 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, MDI_Client_Window, MDI_Client_Window, Modal_Result, Modal_Result, Move, Next_Tab_Stop, Next_Window, On_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Filter_Message, On_Focus, On_Focus_Handler, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Hover, On_Hover_Handler, On_Lost_Focus, On_Lost_Focus_Handler, On_Message, On_Out_Of_Memory, On_Out_Of_Memory_Handler, On_Pre_Create, On_Pre_Create_Handler, On_Return, On_Return_Handler, On_Right_Click, On_Right_Click_Handler, On_Right_Double_Click, On_Right_Double_Click_Handler, On_Vertical_Scroll, On_Vertical_Scroll_Handler, Order, Order, Parent, Parent, Point_To_Client, Point_To_Desktop, Previous_Tab_Stop, Previous_Window, Redraw, Set_Font, Show, Size, Tab_Stop, Tab_Stop, Text, Text, Text_Length, Thaw, Top, Top, Valid, Vertical_Scroll_Bar, Vertical_Scroll_Bar, Visible, Visible, Width, Width

Other Items:

type Common_Control_Type is
  new GWindows.Base.Base_Window_Type with private;

type Pointer_To_Common_Control_Class is
  access all Common_Control_Type'Class;
Common_Control_Type - Event Handlers

See Event Methods for details on each event


procedure On_Click_Handler (Control : in out Common_Control_Type;
                            Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Click (Control : in out Common_Control_Type);

procedure On_Double_Click_Handler
  (Control : in out Common_Control_Type;
   Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Double_Click
  (Control : in out Common_Control_Type);

procedure On_Right_Click_Handler
  (Control  : in out Common_Control_Type;
   Handler : in GWindows.Base.Action_Event);

procedure Fire_On_Right_Click
  (Control : in out Common_Control_Type);

procedure On_Right_Double_Click_Handler
  (Control  : in out Common_Control_Type;
   Handler : in GWindows.Base.Action_Event);

procedure Fire_On_Right_Double_Click
  (Control : in out Common_Control_Type);

procedure On_Return_Handler (Control : in out Common_Control_Type;
                             Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Return (Control : in out Common_Control_Type);

procedure On_Out_Of_Memory_Handler
  (Control : in out Common_Control_Type;
   Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Out_Of_Memory (Control : in out Common_Control_Type);

procedure On_Focus_Handler (Control : in out Common_Control_Type;
                            Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Focus (Control : in out Common_Control_Type);

procedure On_Lost_Focus_Handler
  (Control : in out Common_Control_Type;
   Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Lost_Focus (Control : in out Common_Control_Type);

procedure On_Hover_Handler (Control : in out Common_Control_Type;
                            Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Hover (Control : in out Common_Control_Type);
Common_Control_Type - Event Methods

procedure On_Click (Control : in out Common_Control_Type);
Clicked

procedure On_Double_Click (Control : in out Common_Control_Type);
Double Clicked

procedure On_Right_Click (Control : in out Common_Control_Type);
Right Clicked

procedure On_Right_Double_Click (Control : in out Common_Control_Type);
Right Double Clicked

procedure On_Return (Control : in out Common_Control_Type);
Enter pressed

procedure On_Out_Of_Memory (Control : in out Common_Control_Type);
Can not allocate more memory

procedure On_Focus (Control : in out Common_Control_Type);
Received focus

procedure On_Lost_Focus (Control : in out Common_Control_Type);
Lost focus

procedure On_Hover (Control : in out Common_Control_Type);
Mouse hover over control

procedure On_Notify
  (Window       : in out Common_Control_Type;
   Message      : in     GWindows.Base.Pointer_To_Notification;
   Control      : in     GWindows.Base.Pointer_To_Base_Window_Class;
   Return_Value : in out Interfaces.C.long);
Handles Notify Messages

type Status_Bar_Type is new Common_Control_Type with private;
Status_Bar_Type

type Status_Bar_Access is access all Status_Bar_Type;

type Pointer_To_Status_Bar_Class is access all Status_Bar_Type'Class;
Status_Bar_Type - Creation Methods

procedure Create
  (Bar        : in out Status_Bar_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Text       : in     GString;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Create a status bar

type Status_Bar_Position_Type is array (Natural range <>) of Integer;

procedure Parts (Bar       : in out Status_Bar_Type;
                 Positions : in     Status_Bar_Position_Type);
Setup number of parts and their positions in the statusbar Each element specifies the position, in client coordinates, of the right edge of the corresponding part. If an element is -1, the right edge of the corresponding part extends to the border of the window

type Status_Kind_Type is (Flat, Sunken, Raised);

procedure Text (Bar  : in out Status_Bar_Type;
                Text : in     GString;
                Part : in     Natural;
                How  : in     Status_Kind_Type := Sunken);
Set text in a specific part of the status bar 0 is the first part

type Animation_Control_Type is new Common_Control_Type with private;
Animation_Control_Type

type Animation_Control_Access is access all Animation_Control_Type;

type Pointer_To_Animation_Control is
  access all Animation_Control_Type'Class;
Animation_Control_Type - Creation Methods

procedure Create
  (Control    : in out Animation_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer                              := 1;
   Height     : in     Integer                              := 1;
   Auto_Size  : in     Boolean                              := True;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
If Auto_Size is true, the control will size to the width and height of the first frame of the AVI file.

procedure Open (Control : in out Animation_Control_Type;
                Name    : in     GString);
Name is the name of a resource (use #XXX for numeric resources) or a path to an AVI file. The AVI file must be uncompressed or run length encoded and NOT contain and audio track

procedure Close (Control : in out Animation_Control_Type);

procedure Play (Control     : in out Animation_Control_Type;
                Repeat      : in     Integer                := 1;
                Start_Frame : in     Natural                := 0;
                End_Frame   : in     Integer                := -1);
End_Frame of -1 to play until end Use repeat value of -1 for never ending loop

procedure Seek (Control : in out Animation_Control_Type;
                Frame   : in     Natural);
Display Frame of AVI

procedure Stop (Control : in out Animation_Control_Type);
Animation_Control_Type - Event Handlers

See Event Methods for details on each event


procedure On_Start_Handler (Control : in out Animation_Control_Type;
                            Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Start (Control : in out Animation_Control_Type);

procedure On_Stop_Handler (Control : in out Animation_Control_Type;
                           Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Stop (Control : in out Animation_Control_Type);
Animation_Control_Type - Event Methods

procedure On_Start (Control : in out Animation_Control_Type);

procedure On_Stop (Control : in out Animation_Control_Type);
Animation_Control_Type - Event Framework Methods

These should be overiden with caution and only with a full understanding of the internals of the entire GWindows framework


procedure On_Command (Window  : in out Animation_Control_Type;
                      Code    : in     Integer;
                      ID      : in     Integer;
                      Control : in
                        GWindows.Base.Pointer_To_Base_Window_Class);
Date_Time_Picker_Type

type Date_Time_Picker_Type is new Common_Control_Type with private;

type Date_Time_Picker_Access is access all Date_Time_Picker_Type;

type Pointer_To_Date_Time_Picker_Class is
  access all Date_Time_Picker_Type'Class;
Date_Time_Picker_Type - Creation Methods

type Date_Format is (Long_Format, Short_Format, Time_Format);

type Date_Selection_Method is (Up_Down, Calendar);

procedure Create
  (Control    : in out Date_Time_Picker_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Format     : in     Date_Format                          := Long_Format;
   Method     : in     Date_Selection_Method                := Calendar;
   None_OK    : in     Boolean                              := False;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Date_Time_Picker_Type - Properties

procedure Date_Time_Format (Control : in out Date_Time_Picker_Type;
                            Format  : in     GString);
Allows for a custom date/time format

Element Description "d" The one- or two-digit day. "dd" The two-digit day. Single-digit day values are preceded by a zero. "ddd" The three-character weekday abbreviation. "dddd" The full weekday name. "h" The one- or two-digit hour in 12-hour format. "hh" The two-digit hour in 12-hour format. Single-digit values are preceded by a zero. "H" The one- or two-digit hour in 24-hour format. "HH" The two-digit hour in 24-hour format. Single-digit values are preceded by a zero. "m" The one- or two-digit minute. "mm" The two-digit minute. Single-digit values are preceded by a zero. "M" The one- or two-digit month number. "MM" The two-digit month number. Single-digit values are preceded by a zero. "MMM" The three-character month abbreviation. "MMMM" The full month name. "t" The one-letter AM/PM abbreviation (that is, AM is displayed as "A"). "tt" The two-letter AM/PM abbreviation (that is, AM is displayed as "AM"). "yy" The last two digits of the year (that is, 1996 would be displayed as "96"). "yyyy" The full year (that is, 1996 would be displayed as "1996").

To make the information more readable, you can add body text to the format string by enclosing it in single quotes. Spaces and punctuation marks do not need to be quoted.

Note Nonformat characters that are not delimited by single quotes will result in unpredictable display by the DTP control.

For example, to display the current date with the format "'Today is: 04:22:31 Tuesday Mar 23, 1996", the format string is "'Today is: 'hh':'m':'s dddd MMM dd', 'yyyy". To include a single quote in your body text, use two consecutive single quotes. For example, "'Don''t forget' MMM dd',' yyyy" produces output that looks like: Don't forget Mar 23, 1996. It is not necessary to use quotes with the comma, so "'Don''t forget' MMM dd, yyyy" is also valid, and produces the same output.


procedure Set_Range (Control     : in out Date_Time_Picker_Type;
                     Range_Start : in     Ada.Calendar.Time;
                     Range_End   : in     Ada.Calendar.Time);
Set range of date/times for control

procedure Date_Time (Control  : in out Date_Time_Picker_Type;
                     Date_Time : in     Ada.Calendar.Time);

function Date_Time (Control : in Date_Time_Picker_Type)
                   return Ada.Calendar.Time;
Set Date/Time

procedure None_Date_Time (Control : in out Date_Time_Picker_Type);

function None_Date_Time (Control : in Date_Time_Picker_Type)
                        return Boolean;
If the None_OK option was selected during create, sets None status or returns None Status

procedure On_Date_Time_Change_Handler
  (Control : in out Date_Time_Picker_Type;
   Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Date_Time_Change
  (Control : in out Date_Time_Picker_Type);
Date_Time_Picker_Type - Event Methods

procedure On_Date_Time_Change (Control : in out Date_Time_Picker_Type);
Date_Time_Picker_Type - Event Framework Methods

These should be overiden with caution and only with a full understanding of the internals of the entire GWindows framework


procedure On_Notify
  (Window       : in out Date_Time_Picker_Type;
   Message      : in     GWindows.Base.Pointer_To_Notification;
   Control      : in     GWindows.Base.Pointer_To_Base_Window_Class;
   Return_Value : in out Interfaces.C.long);
Handles Notify Messages

procedure On_Create (Control : in out Date_Time_Picker_Type);
Sets control as a tab stop

type IP_Address_Control_Type is new Common_Control_Type with private;
IP_Address_Control_Type

type IP_Address_Control_Access is access all IP_Address_Control_Type;

type Pointer_To_IP_Address_Control_Class is
  access all IP_Address_Control_Type'Class;
IP_Address_Control_Type - Creation Methods

procedure Create
  (Control    : in out IP_Address_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
IP_Address_Control_Type - Event Handlers

See Event Methods for details on each event Only supports On_Focus, On_Lost_Focus, and On_Change


procedure On_Change_Handler (Control    : in out IP_Address_Control_Type;
                             Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Change (Control : in out IP_Address_Control_Type);
IP_Address_Control_Type - Event Methods

procedure On_Change (Control : in out IP_Address_Control_Type);
Change made

procedure On_Command (Window  : in out IP_Address_Control_Type;
                      Code    : in     Integer;
                      ID      : in     Integer;
                      Control : in
                        GWindows.Base.Pointer_To_Base_Window_Class);
Handles event dispatch

procedure On_Create (Control : in out IP_Address_Control_Type);
Sets control as a tab stop

type Progress_Control_Type is new Common_Control_Type with private;
Progress_Control_Type

type Progress_Control_Access is access all Progress_Control_Type;

type Pointer_To_Progress_Control_Class is
  access all Progress_Control_Type'Class;
Progress_Control_Type - Creation Methods

procedure Create
  (Control    : in out Progress_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Progress_Control_Type - Properties

procedure Position (Control : in out Progress_Control_Type;
                    Where   : in     Natural);

function Position (Control : in Progress_Control_Type) return Natural;
Progress position

procedure Progress_Range (Control : in out Progress_Control_Type;
                          Low     : in     Natural;
                          High    : in     Natural);
Progress range

procedure Increment (Control : in out Progress_Control_Type;
                     Amount  : in     Natural               := 1);
Increment position

procedure Step_Size (Control : in out Progress_Control_Type;
                     Size    : in     Natural               := 10);
Set step size for stepping

procedure Step (Control : in out Progress_Control_Type);
Step increment progress If step goes over high bound, progress starts over from beginning

type Up_Down_Control_Type is new Common_Control_Type with private;
Up_Down_Control_Type

type Up_Down_Control_Access is access all Up_Down_Control_Type;

type Pointer_To_Up_Down_Control_Class is
  access all Up_Down_Control_Type'Class;
Up_Down_Control_Type - Creation Methods

type Up_Down_Control_Direction_Type is (Horizontal, Vertical);

type Up_Down_Control_Align_Type is (Align_Left, Align_Right);

procedure Create
  (Control    : in out Up_Down_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Keyboard   : in     Boolean                              := True;
   Direction  : in     Up_Down_Control_Direction_Type       := Vertical;
   Wrap       : in     Boolean                              := False;
   Auto_Buddy : in     Boolean                              := True;
   Send_Int   : in     Boolean                              := True;
   Thousands  : in     Boolean                              := True;
   Align      : in     Up_Down_Control_Align_Type           := Align_Right;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
If Auto_Buddy is true, it attaches to the last created window (ie. the last window in the Z-Order)

procedure Position
  (Control : in out Up_Down_Control_Type;
   Where   : in     Integer);

function Position (Control : in Up_Down_Control_Type) return Integer;
Position of control

procedure Set_Range
  (Control  : in out Up_Down_Control_Type;
   Min, Max : in     Integer);
Set range of control

type Up_Down_Changing_Event is access
  procedure (Window         : in out GWindows.Base.Base_Window_Type'Class;
             Position       : in     Integer;
             Delta_Position : in     Integer);
Up_Down_Control_Type - Event Types Up_Down_Control_Type - Event Handlers

See Event Methods for details on each event


procedure On_Position_Changing_Handler
  (Control : in out Up_Down_Control_Type;
   Handler : in     Up_Down_Changing_Event);

procedure Fire_On_Position_Changing
  (Control        : in out Up_Down_Control_Type;
   Position       : in     Integer;
   Delta_Position : in     Integer);
Up_Down_Control_Type - Event Methods

procedure On_Position_Changing
  (Window         : in out Up_Down_Control_Type;
   Position       : in     Integer;
   Delta_Position : in     Integer);
Position is about to change

procedure On_Notify
  (Window       : in out Up_Down_Control_Type;
   Message      : in     GWindows.Base.Pointer_To_Notification;
   Control      : in     GWindows.Base.Pointer_To_Base_Window_Class;
   Return_Value : in out Interfaces.C.long);
Handles Notify Messages

procedure On_Create (Control : in out Up_Down_Control_Type);
Sets control as a tab stop

type Trackbar_Control_Type is new Common_Control_Type with private;
Trackbar_Control_Type

type Trackbar_Control_Access is access all Trackbar_Control_Type;

type Pointer_To_Trackbar_Control_Class is
  access all Trackbar_Control_Type'Class;
Note: Trackbar movements are sent as scroll bar messages

type Trackbar_Control_Direction_Type is (Horizontal, Vertical);
Trackbar_Control_Type - Creation Methods

type Trackbar_Control_Ticks_Type is (Top_Ticks,
                                     Bottom_Ticks,
                                     Both_Ticks,
                                     No_Ticks);

procedure Create
  (Control    : in out Trackbar_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Where      : in     Trackbar_Control_Ticks_Type          := No_Ticks;
   Direction  : in     Trackbar_Control_Direction_Type      := Horizontal;
   Thumb      : in     Boolean                              := True;
   Tips       : in     Boolean                              := True;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Trackbar_Control_Type - Properties

procedure Position
  (Control : in out Trackbar_Control_Type;
   Where   : in     Integer);

function Position (Control : in Trackbar_Control_Type) return Integer;
Position of control

procedure Minimum
  (Control : in out Trackbar_Control_Type;
   Where   : in     Integer);

function Minimum (Control : in Trackbar_Control_Type) return Integer;
Minimum range of control

procedure Maximum
  (Control : in out Trackbar_Control_Type;
   Where   : in     Integer);

function Maximum (Control : in Trackbar_Control_Type) return Integer;
Maximum range of control

procedure On_Create (Control : in out Trackbar_Control_Type);
Sets control as a tab stop

type List_View_Control_Type is new Common_Control_Type with private;
List_View_Control_Type

type List_View_Control_Access is access all List_View_Control_Type;

type Pointer_To_List_View_Control_Class is
  access all List_View_Control_Type'Class;
List_View_Control_Type - Creation Methods

type List_View_Control_View_Type is (Icon_View,
                                     Small_Icon_View,
                                     List_View,
                                     Report_View);

type List_View_Control_Alignment_Type is (Align_Top,
                                          Align_Left,
                                          Align_None);

type List_View_Control_Sort_Type is (Sort_Ascending,
                                     Sort_Descending,
                                     Sort_Custom,
                                     No_Sorting);

type List_View_Control_Select_Type is (Single,
                                       Multiple);

procedure Create
  (Control    : in out List_View_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Selection  : in     List_View_Control_Select_Type        := Single;
   View       : in     List_View_Control_View_Type          := List_View;
   Sort       : in     List_View_Control_Sort_Type          := No_Sorting;
   Arrange    : in     Boolean                              := True;
   Align      : in     List_View_Control_Alignment_Type     := Align_Left;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
List_View_Control_Type - Properties

function Item_Count (Control : in List_View_Control_Type) return Integer;

function Selected_Item_Count (Control : in List_View_Control_Type)
                             return Integer;

function Is_Selected (Control : in List_View_Control_Type;
                      Index   : in Integer)
                     return Boolean;

procedure Selected
  (Control : in out List_View_Control_Type;
   Item    : in     Integer;
   State   : in     Boolean);
Sets the selected state of a row

procedure Item_At_Position
  (Control  : in     List_View_Control_Type;
   Position : in     GWindows.Types.Point_Type;
   Item     : in out Integer;
   SubItem  : in out Integer);
Item under position (position is in client coordinates)

function Text
  (Control : in List_View_Control_Type;
   Item    : in Integer;
   SubItem : in Integer)
  return GString;
Text at Item and SubItem

procedure Set_Item (Control : in out List_View_Control_Type;
                    Text    : in GString;
                    Index   : in Integer;
                    Icon    : in Integer := 0);

procedure Set_Sub_Item (Control   : in out List_View_Control_Type;
                        Text      : in     GString;
                        Index     : in     Integer;
                        Sub_Index : in     Integer);

procedure Insert_Item (Control : in out List_View_Control_Type;
                       Text    : in GString;
                       Index   : in Integer;
                       Icon    : in Integer := 0);

procedure Delete_Item (Control : in out List_View_Control_Type;
                       Index   : in     Integer);

procedure Set_Column (Control : in out List_View_Control_Type;
                      Text    : in     GString;
                      Index   : in     Integer;
                      Width   : in     Integer);

procedure Insert_Column (Control : in out List_View_Control_Type;
                         Text    : in     GString;
                         Index   : in     Integer;
                         Width   : in     Integer);

procedure Set_Column_Width
  (Control : in out List_View_Control_Type;
   Index   : in     Integer;
   Width   : in     Integer);

procedure Clear (Control : in out List_View_Control_Type);
List_View_Control_Type - Event Framework Methods

These should be overiden with caution and only with a full understanding of the internals of the entire GWindows framework


procedure On_Create (Control : in out List_View_Control_Type);
Sets control as a tab stop and with a border

type Tree_View_Control_Type is new Common_Control_Type with private;
Tree_View_Control_Type

type Tree_View_Control_Access is access all Tree_View_Control_Type;

type Pointer_To_Tree_View_Control_Class is
  access all Tree_View_Control_Type'Class;
Tree_View_Control_Type - Creation Methods

procedure Create
  (Control       : in out Tree_View_Control_Type;
   Parent        : in out GWindows.Base.Base_Window_Type'Class;
   Left          : in     Integer;
   Top           : in     Integer;
   Width         : in     Integer;
   Height        : in     Integer;
   Buttons       : in     Boolean                              := True;
   Lines         : in     Boolean                              := True;
   Lines_At_Root : in     Boolean                              := True;
   Single_Expand : in     Boolean                              := False;
   Show          : in     Boolean                              := True;
   Is_Dynamic    : in     Boolean                              := False);
Tree_View_Control_Type - Properties

type Tree_Item_Node is new Interfaces.C.unsigned;

type Tree_View_List_Location_Type is (First, Last, Sort, As_A_Root);

function Selected_Item (Control : in Tree_View_Control_Type)
                       return GString;

function Selected_Item (Control : in Tree_View_Control_Type)
                       return Tree_Item_Node;

function Text (Control : in Tree_View_Control_Type;
               Where   : in Tree_Item_Node)
              return GString;

function Get_Root_Item (Control : in Tree_View_Control_Type)
                       return Tree_Item_Node;

function Get_Parent_Item (Control : in Tree_View_Control_Type;
                          From    : in Tree_Item_Node)
                         return Tree_Item_Node;

function Get_First_Child_Item (Control : in Tree_View_Control_Type;
                               From    : in Tree_Item_Node)
                              return Tree_Item_Node;

function Get_Next_Item (Control : in Tree_View_Control_Type;
                        From    : in Tree_Item_Node)
                       return Tree_Item_Node;

function Get_Previous_Item (Control : in Tree_View_Control_Type;
                            From    : in Tree_Item_Node)
                           return Tree_Item_Node;
Tree_View_Control_Type - Methods

procedure Insert_Item
  (Control     : in out Tree_View_Control_Type;
   Text        : in     GString;
   Parent_Node : in     Tree_Item_Node;
   New_Node    :    out Tree_Item_Node;
   Where       : in     Tree_Item_Node);

procedure Insert_Item
  (Control     : in out Tree_View_Control_Type;
   Text        : in     GString;
   Parent_Node : in     Tree_Item_Node;
   New_Node    :    out Tree_Item_Node;
   Where       : in     Tree_View_List_Location_Type := Sort);

procedure Delete_Item
  (Control : in out Tree_View_Control_Type;
   Where   : in     Tree_Item_Node);

procedure Expand
  (Control     : in out Tree_View_Control_Type;
   At_Node     : in     Tree_Item_Node);

procedure Collapse
  (Control     : in out Tree_View_Control_Type;
   At_Node     : in     Tree_Item_Node);
Tree_View_Control_Type - Event Framework Methods

These should be overiden with caution and only with a full understanding of the internals of the entire GWindows framework


procedure On_Create (Control : in out Tree_View_Control_Type);
Sets control as a tab stop and with a border

type Tab_Control_Type is new Common_Control_Type with private;
Tab_Control_Type

type Tab_Control_Access is access all Tab_Control_Type;

type Pointer_To_Tab_Control_Class is
  access all Tab_Control_Type'Class;
Tab_Control_Type - Creation Methods

procedure Create
  (Control    : in out Tab_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Fixed_Tabs : in     Boolean                              := False;
   Multi_Line : in     Boolean                              := False;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Tab_Control_Type - Properties

procedure Text (Control : in out Tab_Control_Type;
                Where   : in     Integer;
                Value   : in     GString);

function Text (Control : in Tab_Control_Type;
               Where   : in Integer)
              return GString;

function Tab_Count (Control : in Tab_Control_Type) return Integer;

function Tab_Row_Count (Control : in Tab_Control_Type) return Integer;

procedure Selected_Tab (Control : in out Tab_Control_Type;
                        Where   : in     Integer);

function Selected_Tab (Control : in Tab_Control_Type) return Integer;

function Display_Area (Control : in Tab_Control_Type)
                      return GWindows.Types.Rectangle_Type;
Tab_Control_Type - Methods

procedure Insert_Tab (Control : in out Tab_Control_Type;
                      Where   : in     Integer;
                      Value   : in     GString);

procedure Delete_Tab (Control : in out Tab_Control_Type;
                      Where   : in     Integer);

procedure Delete_All_Tabs (Control : in out Tab_Control_Type);
Tab_Control_Type - Event Handlers

See Event Methods for details on each event


procedure On_Change_Handler (Control    : in out Tab_Control_Type;
                             Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Change (Control : in out Tab_Control_Type);

procedure On_Changing_Handler (Control    : in out Tab_Control_Type;
                             Handler : in     GWindows.Base.Action_Event);

procedure Fire_On_Changing (Control : in out Tab_Control_Type);
Tab_Control_Type - Event Methods

procedure On_Change (Control : in out Tab_Control_Type);
Tab page changed

procedure On_Changing (Control : in out Tab_Control_Type);
Tab page changingd

procedure On_Create (Control : in out Tab_Control_Type);
Sets control as a tab stop

procedure On_Notify
  (Window       : in out Tab_Control_Type;
   Message      : in     GWindows.Base.Pointer_To_Notification;
   Control      : in     GWindows.Base.Pointer_To_Base_Window_Class;
   Return_Value : in out Interfaces.C.long);
Handles Notify Messages

type Tab_Window_Control_Type is new Tab_Control_Type with private;
Tab_Window_Control_Type

type Tab_Window_Control_Access is access all Tab_Window_Control_Type;

type Pointer_To_Tab_Window_Control_Class is
  access all Tab_Window_Control_Type'Class;
Tab_Window_Control_Type - Properties

procedure Tab_Window
  (Control : in out Tab_Window_Control_Type;
   Where   : in     Integer;
   Window  : in     GWindows.Base.Pointer_To_Base_Window_Class);

function Tab_Window (Control : in Tab_Window_Control_Type;
                     Where   : in Integer)
                    return GWindows.Base.Pointer_To_Base_Window_Class;
Get or Set the window associated with a tab

procedure On_Changing (Control : in out Tab_Window_Control_Type);
Handle changes to tab window (hide old window)

procedure On_Change (Control : in out Tab_Window_Control_Type);
Handle changes to tab window (show new window)

type Toolbar_Control_Type is new Common_Control_Type with private;
Toolbar_Control_Type

type Toolbar_Control_Access is access all Toolbar_Control_Type;

type Pointer_To_Toolbar_Control_Class is
  access all Toolbar_Control_Type'Class;
Toolbar_Control_Type - Creation Methods

procedure Create
  (Control    : in out Toolbar_Control_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Toolbar_Control_Type - Methods

procedure Set_Image_List
  (Control : in out Toolbar_Control_Type;
   List    : in     GWindows.Image_Lists.Image_List_Type);

procedure Add_Button
  (Control     : in out Toolbar_Control_Type;
   Image_Index : in     Natural;
   Command     : in     Integer);

procedure Add_Separator
  (Control : in out Toolbar_Control_Type;
   Width   : in     Integer);

function Get_Style
  (Control    : in Toolbar_Control_Type)
  return Interfaces.C.unsigned;

procedure Set_Style
  (Control    : in out Toolbar_Control_Type;
   Style      : in     Interfaces.C.unsigned);
Toolbar_Control_Type - Event Handlres

See Event Methods for details on each event


procedure On_Button_Select_Handler
  (Control : in out Toolbar_Control_Type;
   Handler : in GWindows.Windows.Select_Event);

procedure Fire_On_Button_Select (Control : in out Toolbar_Control_Type;
                                 Item    : in     Integer);
Tab_Control_Type - Event Methods

procedure On_Button_Select (Control : in out Toolbar_Control_Type;
                            Item    : in     Integer);
Called when an item is selected in the toolbar

procedure On_Create (Control : in out Toolbar_Control_Type);
Setups control

procedure On_Command
  (Window  : in out Toolbar_Control_Type;
   Code    : in     Integer;
   ID      : in     Integer;
   Control : in     GWindows.Base.Pointer_To_Base_Window_Class);
Dispatches button clicks

type Tool_Tip_Type is new Common_Control_Type with private;
Tool_Tip_Type

type Tool_Tip_Access is access all Tool_Tip_Type;

type Pointer_To_Tool_Tip_Class is
  access all Tool_Tip_Type'Class;
Tool_Tip_Type - Creation Methods

procedure Create
  (Control    : in out Tool_Tip_Type;
   Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Is_Dynamic : in     Boolean                              := False);
Tool_Tip_Type - Properties

procedure Maximum_Width (Control : in out Tool_Tip_Type;
                             Width   : in     Integer);
Maximum width of tool tip pop up

procedure Add_Tool_Tip
  (Control : in out Tool_Tip_Type;
   Window  : in     GWindows.Base.Base_Window_Type'Class;
   Tip     : in     GString);
Add this tool tip to show when hover over Window

private

   --  Implementation-defined ...
end GWindows.Common_Controls;