changeset 4901 | d1e2d82d9ccc |
parent 4850 | 434cd1284204 |
child 4976 | 088d40d8aba2 |
4900:8ad0e23e6d63 | 4901:d1e2d82d9ccc |
---|---|
64 begin |
64 begin |
65 FillChar(Captions, sizeof(Captions), 0) |
65 FillChar(Captions, sizeof(Captions), 0) |
66 end; |
66 end; |
67 |
67 |
68 procedure freeModule; |
68 procedure freeModule; |
69 var |
|
70 group: TCapGroup; |
|
69 begin |
71 begin |
72 for group:= Low(TCapGroup) to High(TCapGroup) do |
|
73 begin |
|
74 FreeTexture(Captions[group].Tex); |
|
75 end; |
|
70 end; |
76 end; |
71 |
77 |
72 end. |
78 end. |