blob: 0bece2c1e770d2c4034a8990f5f1f5537b11b2da (
plain)
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
|
{ Source provided for Free Pascal Bug Report 2233 }
{ Submitted by "Sergey Kosarevsky" on 2002-11-19 }
{ e-mail: netsurfer@au.ru }
Type pGUIView=^tGUIView;
tGUIView=Object
Constructor Init;
Procedure RenderView;Virtual;Abstract;
End;
Type tGUIWindow=Object(tGUIView)
Constructor Init;
Procedure RenderView;Virtual;
End;
Type tGUICommonControl=Object(tGUIWindow)
Constructor Init;
Constructor Init(Param1:Longint);
End;
Type pGUIRadioGroup=^tGUIRadioGroup;
tGUIRadioGroup=Object(tGUICommonControl)
Constructor Init;
Constructor Init(Param1:Longint);
Procedure RenderView;Virtual;
End;
var
err : boolean;
Constructor tGUIView.Init;
Begin
End;
Constructor tGUIWindow.Init;
Begin
Inherited Init;
End;
Procedure tGUIWindow.RenderView;
Begin
WriteLn('tGUIWindow.RenderView()');
End;
Constructor tGUICommonControl.Init;
Begin
Init(0);
End;
Constructor tGUICommonControl.Init(Param1:Longint);
Begin
Inherited Init;
End;
Constructor tGUIRadioGroup.Init;
Begin
Inherited Init;
End;
Constructor tGUIRadioGroup.Init(Param1:Longint);
Begin
Inherited Init(Param1);
End;
Procedure tGUIRadioGroup.RenderView;
Begin
Inherited RenderView;
WriteLn('tGUIRadioGroup.RenderView()');
err:=false;
End;
Var View:pGUIView;
Begin
err:=true;
View:=New(pGUIRadioGroup,Init);
View^.RenderView;
if err then
begin
writeln('ERROR!');
halt(1);
end;
End.
|
