1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154

{
  $Id: paned.pp,v 1.2 2002/05/31 11:54:33 marco Exp $
 
  Converted from C to Pascal by Artur Bac
  <arturbac@poczta.onet.pl>  Reda Poland
}
{$MODE objfpc}
{$H+}
{$S+}{$HINTS ON}
{$ifdef win32}
  {$define extdecl := stdcall;}
  {$APPTYPE GUI}
{$endif}{$ifdef unix}
  {$define extdecl := cdecl;}
{$endif}
Program panned;
uses glib,gtk;Function create_list : PGtkWidget; cdecl;
Var
    scrolled_window : PGtkWidget;
    list            : PGtkWidget;
    list_item       : PGtkWidget;    i               : longint;
    buffer          : ansistring;
    Ptr_Buffer      : PChar ;
Begin
    // Create a new scrolled window, with scrollbars only if needed    scrolled_window := gtk_scrolled_window_new (NULL, NULL);
    gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_window),
        GTK_POLICY_AUTOMATIC,GTK_POLICY_AUTOMATIC);
 
    // Create a new list and put it in the scrolled window    list := gtk_list_new ();
    gtk_scrolled_window_add_with_viewport (
               GTK_SCROLLED_WINDOW (scrolled_window), list);
    gtk_widget_show (list);
     // Add some messages to the window
    for i:=0 to 10 do Begin
        Str (i,buffer);
        buffer := 'Message #' + buffer;
        Ptr_buffer := PChar (buffer);        list_item := gtk_list_item_new_with_label (Ptr_buffer);
        gtk_container_add (GTK_CONTAINER(list), list_item);
        gtk_widget_show (list_item);
    End;
     create_list := scrolled_window;
End;
 
{ Add some text_ to our text_ widget - this is a callback that is invoked
when our window is realized. We could also force our window to berealized with gtk_widget_realize, but it would have to be part of
a hierarchy first }
 
Procedure realize_text( text_ : PGtkWidget ;
                   data : gpointer); cdecl;Var
    style   : PGtkStyle;
Begin
    gtk_text_freeze (GTK_text (text_));
    style := gtk_widget_get_style (text_);    gtk_text_insert (GTK_text (text_), NULL, @style^.black, NULL,
    'From: pathfinder@nasa.gov'+#10+
    'To: mom@nasa.gov'+#10+
    'Subject: Made it!'+#10+
    +#10+    'We just got in this morning. The weather has been'+#10+
    'great - clear but cold, and there are lots of fun sights.'+#10+
    'Sojourner says hi. See you soon.'+#10+
    ' -Path'+#10, -1);
     gtk_text_thaw (GTK_text (text_));
End;
 
{ Create a scrolled text area that displays a 'message' }
Function create_text : PGtkWidget; cdecl;Var
    table,
    text_,
    hscrollbar,
    vscrollbar : PGtkWidget;Begin
    { Create a table to hold the text_ widget and scrollbars }
    table:= gtk_table_new (2, 2, FALSE);
 
    { Put a text_ widget in the upper left hand corner. Note the use of      GTK_SHRINK in the y direction }
    text_ := gtk_text_new (NULL, NULL);
    gtk_table_attach (GTK_TABLE (table), text_, 0, 1, 0, 1,
            GTK_FILL  OR  GTK_EXPAND,
            GTK_FILL  OR  GTK_EXPAND  OR  GTK_SHRINK, 0, 0);    gtk_widget_show (text_);
 
    { Put a HScrollbar in the lower left hand corner }
    hscrollbar := gtk_hscrollbar_new (GTK_text (text_)^.hadj);
    gtk_table_attach (GTK_TABLE (table), hscrollbar, 0, 1, 1, 2,            GTK_EXPAND  OR  GTK_FILL, GTK_FILL, 0, 0);
    gtk_widget_show (hscrollbar);
 
    { And a VScrollbar in the upper right }
    vscrollbar := gtk_vscrollbar_new (GTK_text (text_)^.vadj);    gtk_table_attach (GTK_TABLE (table), vscrollbar, 1, 2, 0, 1,
            GTK_FILL, GTK_EXPAND  OR  GTK_FILL  OR  GTK_SHRINK, 0, 0);
    gtk_widget_show (vscrollbar);
 
    { Add a handler to put a message in the text_ widget when it is realized }    gtk_signal_connect (GTK_OBJECT (text_), 'realize',
            GTK_SIGNAL_FUNC (@realize_text), NULL);
 
    create_text := table;
End; 
Var
    window,
    vpaned,
    list,    text_ : PGtkWidget;
Begin
    gtk_set_locale ();
    gtk_init (@argc, @argv);
    gtk_rc_init; 
    window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
    gtk_window_set_title (GTK_WINDOW (window), 'Paned Windows');
    gtk_signal_connect (GTK_OBJECT (window), 'destroy',
            GTK_SIGNAL_FUNC (@gtk_main_quit), NULL);    gtk_container_set_border_width (GTK_CONTAINER (window), 10);
    gtk_widget_set_usize (GTK_WIDGET(window), 450, 400);
 
    { create a vpaned widget and add it to our toplevel window }
     vpaned := gtk_vpaned_new ();
    gtk_container_add (GTK_CONTAINER(window), vpaned);
    gtk_paned_set_handle_size (GTK_PANED(vpaned),
                               10);
//    gtk_paned_set_gutter_size (GTK_PANED(vpaned), 15);    gtk_widget_show (vpaned);
 
    { Now create the contents of the two halves of the window }
 
    list := create_list ();    gtk_paned_add1 (GTK_PANED(vpaned), list);
    gtk_widget_show (list);
 
    text_ := create_text ();
    gtk_paned_add2 (GTK_PANED(vpaned), text_);    gtk_widget_show (text_);
    gtk_widget_show (window);
    gtk_main ();
End.