equal
deleted
inserted
replaced
42 var |
42 var |
43 Captions: array[TCapGroup] of TCaptionStr; |
43 Captions: array[TCapGroup] of TCaptionStr; |
44 |
44 |
45 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup); |
45 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup); |
46 begin |
46 begin |
47 if (Captions[Group].Tex <> nil) and (Captions[Group].Text <> s) then |
47 if Captions[Group].Text <> s then |
48 begin |
48 begin |
49 FreeTexture(Captions[Group].Tex); |
49 FreeTexture(Captions[Group].Tex); |
50 Captions[Group].Tex:= nil |
50 Captions[Group].Tex:= nil |
51 end; |
51 end; |
52 |
52 |
67 procedure ReloadCaptions; |
67 procedure ReloadCaptions; |
68 var Group: TCapGroup; |
68 var Group: TCapGroup; |
69 begin |
69 begin |
70 for Group:= Low(TCapGroup) to High(TCapGroup) do |
70 for Group:= Low(TCapGroup) to High(TCapGroup) do |
71 begin |
71 begin |
72 if Captions[Group].Tex <> nil then FreeTexture(Captions[Group].Tex); |
72 FreeTexture(Captions[Group].Tex); |
73 Captions[Group].Tex:= RenderStringTex(Captions[Group].Text, Captions[Group].Color, fntBig) |
73 Captions[Group].Tex:= RenderStringTex(Captions[Group].Text, Captions[Group].Color, fntBig) |
74 end |
74 end |
75 end; |
75 end; |
76 |
76 |
77 procedure DrawCaptions; |
77 procedure DrawCaptions; |