equal
deleted
inserted
replaced
69 var Group: TCapGroup; |
69 var Group: TCapGroup; |
70 begin |
70 begin |
71 for Group:= Low(TCapGroup) to High(TCapGroup) do |
71 for Group:= Low(TCapGroup) to High(TCapGroup) do |
72 begin |
72 begin |
73 FreeTexture(Captions[Group].Tex); |
73 FreeTexture(Captions[Group].Tex); |
74 Captions[Group].Tex:= RenderStringTex(Captions[Group].Text, Captions[Group].Color, fntBig) |
74 if Captions[Group].Text <> '' then |
|
75 Captions[Group].Tex:= RenderStringTex(Captions[Group].Text, Captions[Group].Color, fntBig) |
75 end |
76 end |
76 end; |
77 end; |
77 |
78 |
78 procedure DrawCaptions; |
79 procedure DrawCaptions; |
79 var |
80 var |
106 begin |
107 begin |
107 FillChar(Captions, sizeof(Captions), 0) |
108 FillChar(Captions, sizeof(Captions), 0) |
108 end; |
109 end; |
109 |
110 |
110 procedure freeModule; |
111 procedure freeModule; |
111 var |
112 var group: TCapGroup; |
112 group: TCapGroup; |
|
113 begin |
113 begin |
114 for group:= Low(TCapGroup) to High(TCapGroup) do |
114 for group:= Low(TCapGroup) to High(TCapGroup) do |
115 begin |
115 begin |
116 FreeTexture(Captions[group].Tex); |
116 FreeTexture(Captions[group].Tex); |
117 Captions[group].Tex:= nil |
117 Captions[group].Tex:= nil |