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
|
with Common, OS, UserIO, Controls, Windows;
use Common, OS, UserIO, Controls, Windows;
procedure listinfo2 is
line1 : aliased AStaticLine;
line2 : aliased AStaticLine;
ok : aliased ASimpleButton;
DT : aDialogTaskRecord;
list : strList.Vector;
b : boolean;
begin
StartupCommon( "TIA", "tia" );
StartupOS;
StartupUserIO;
StartupControls;
StartupWindows;
OpenWindow( "EditListInfo Demo", 0, 0, 60, 20, normal, false );
DrawWindow;
Init( line1, 2, 2, 58, 2 );
SetText( line1, "This a demonstration of EditListInfo." );
AddControl( line1'unchecked_access );
Init( line2, 2, 3, 58, 3 );
SetText( line2, "It displays a list that the user can edit." );
AddControl( line2'unchecked_access );
Init( ok, 2, 18, 30, 18, 'o' );
SetText( ok, "OK" );
AddControl( ok'unchecked_access );
DoDialog( DT );
pragma Unreferenced (DT);
LoadList( "listinfo.txt", list );
EditListInfo( "Sample file listinfo.txt", 0, 1, 79, 24, list, b );
pragma Unreferenced (List);
pragma Unreferenced (B);
CloseWindow;
ShutdownWindows;
ShutdownControls;
ShutdownUserIO;
ShutdownOS;
ShutdownCommon;
end listinfo2;
|
