Package: GWindows.Static_Controls

Dependencies

with GWindows.Base;
with GWindows.Drawing_Objects;

Description

GWINDOWS - Ada 95 Framework for Win32 Development

G W I N D O W S . S T A T I C _ 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

Label_Type

Header

package GWindows.Static_Controls is
 

Type Summary

Alignment_Type
Bitmap_Access
Bitmap_Type derived from Label_Type
Overridden Operations:  Create
New Operations:  Set_Bitmap
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_Disable, Fire_On_Double_Click, Fire_On_Enable, 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_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Disable, On_Disable_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Enable, On_Enable_Handler, On_Filter_Message, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Message, On_Notify, 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
Icon_Access
Icon_Type derived from Label_Type
Overridden Operations:  Create
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_Disable, Fire_On_Double_Click, Fire_On_Enable, 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_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Disable, On_Disable_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Enable, On_Enable_Handler, On_Filter_Message, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Message, On_Notify, 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
Label_Access
Label_Type derived from Base_Window_Type
Overridden Operations:  On_Command
New Operations:  Create, Fire_On_Click, Fire_On_Disable, Fire_On_Double_Click, Fire_On_Enable, On_Click, On_Click_Handler, On_Disable, On_Disable_Handler, On_Double_Click, On_Double_Click_Handler, On_Enable, On_Enable_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_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_Notify, 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
Meta_File_Access
Meta_File_Type derived from Label_Type
Overridden Operations:  Create
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_Disable, Fire_On_Double_Click, Fire_On_Enable, 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_Click, On_Click_Handler, On_Command, On_Context_Menu, On_Context_Menu_Handler, On_Create, On_Create_Handler, On_Destroy, On_Destroy_Handler, On_Disable, On_Disable_Handler, On_Double_Click, On_Double_Click_Handler, On_Draw_Item, On_Enable, On_Enable_Handler, On_Filter_Message, On_Horizontal_Scroll, On_Horizontal_Scroll_Handler, On_Message, On_Notify, 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
Pointer_To_Bitmap_Class
Pointer_To_Icon_Class
Pointer_To_Label_Class
Pointer_To_Meta_File_Class

Other Items:

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

type Label_Access is access all Label_Type;

type Pointer_To_Label_Class is access all Label_Type'Class;
Label_Type - Creation Methods

type Alignment_Type is
  (Left, Right, Center, Left_No_Word_Wrap, Static_Size);
Alignment/Sizing of text or graphic If Static_Size is set and the static control is a graphical type then the control will not grow to fit the graphic

procedure Create
  (Static     : in out Label_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;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Create Label

procedure Create_Label
  (Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Text       : in     GString;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True);
Create Label with no variable

procedure On_Click_Handler (Static  : in out Label_Type;
                            Handler : in GWindows.Base.Action_Event);

procedure Fire_On_Click (Static : in out Label_Type);

procedure On_Double_Click_Handler (Static  : in out Label_Type;
                            Handler : in GWindows.Base.Action_Event);

procedure Fire_On_Double_Click (Static : in out Label_Type);

procedure On_Enable_Handler (Static  : in out Label_Type;
                            Handler : in GWindows.Base.Action_Event);

procedure Fire_On_Enable (Static : in out Label_Type);

procedure On_Disable_Handler (Static  : in out Label_Type;
                            Handler : in GWindows.Base.Action_Event);

procedure Fire_On_Disable (Static : in out Label_Type);
Label_Type - Event Methods

procedure On_Click (Static : in out Label_Type);
Item clicked

procedure On_Double_Click (Static : in out Label_Type);
Item double clicked

procedure On_Enable (Static : in out Label_Type);
Item enabled

procedure On_Disable (Static : in out Label_Type);
Item disabled

procedure On_Command (Window  : in out Label_Type;
                      Code    : in     Integer;
                      ID      : in     Integer;
                      Control : in
                        GWindows.Base.Pointer_To_Base_Window_Class);
Receives command messages from parent window

type Icon_Type is new Label_Type with private;
Icon_Type

type Icon_Access is access all Icon_Type;

type Pointer_To_Icon_Class is access all Icon_Type'Class;
Icon_Type - Creation Methods

procedure Create
  (Static     : in out Icon_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;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Create Icon Text is name of Icon in resource file For a numeric resource use #XXXX where XXXX is the resource ID

procedure Create_Icon
  (Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Text       : in     GString;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True);
Create Icon with no variable

type Bitmap_Type is new Label_Type with private;
Bitmap_Type

type Bitmap_Access is access all Bitmap_Type;

type Pointer_To_Bitmap_Class is access all Bitmap_Type'Class;
Bitmap_Type - Creation Methods

procedure Create
  (Static     : in out Bitmap_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;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Create Bitmap Text is name of Bitmap in resource file For a numeric resource use #XXXX where XXXX is the resource ID

procedure Create_Bitmap
  (Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Text       : in     GString;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True);
Create Bitmap with no Variable

procedure Set_Bitmap (Static : in out Bitmap_Type;
                      Bitmap : in GWindows.Drawing_Objects.Bitmap_Type);
Set bitmap for static

type Meta_File_Type is new Label_Type with private;
Meta_File_Type

type Meta_File_Access is access all Meta_File_Type;

type Pointer_To_Meta_File_Class is access all Meta_File_Type'Class;
Meta_File_Type - Creation Methods

procedure Create
  (Static     : in out Meta_File_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;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True;
   Is_Dynamic : in     Boolean                              := False);
Create Meta File Text is name of Meta File in resource file For a numeric resource use #XXXX where XXXX is the resource ID

procedure Create_Meta_File
  (Parent     : in out GWindows.Base.Base_Window_Type'Class;
   Text       : in     GString;
   Left       : in     Integer;
   Top        : in     Integer;
   Width      : in     Integer;
   Height     : in     Integer;
   Alignment  : in     Alignment_Type                       :=
     GWindows.Static_Controls.Left;
   ID         : in     Integer                              := 0;
   Show       : in     Boolean                              := True);
Create Meta File with no variable

private

   --  Implementation-defined ...
end GWindows.Static_Controls;