equal
deleted
inserted
replaced
173 begin |
173 begin |
174 r.w:= InputStr.Width; |
174 r.w:= InputStr.Width; |
175 DrawFillRect(r); |
175 DrawFillRect(r); |
176 Tint($00, $00, $00, $80); |
176 Tint($00, $00, $00, $80); |
177 DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex); |
177 DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex); |
178 Tint($FF, $FF, $FF, $FF); |
178 untint; |
179 DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex); |
179 DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex); |
180 end; |
180 end; |
181 |
181 |
182 dec(r.y, 16); |
182 dec(r.y, 16); |
183 |
183 |
186 begin |
186 begin |
187 r.w:= Strs[i].Width; |
187 r.w:= Strs[i].Width; |
188 DrawFillRect(r); |
188 DrawFillRect(r); |
189 Tint($00, $00, $00, $80); |
189 Tint($00, $00, $00, $80); |
190 DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex); |
190 DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex); |
191 Tint($FF, $FF, $FF, $FF); |
191 untint; |
192 DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex); |
192 DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex); |
193 dec(r.y, 16); |
193 dec(r.y, 16); |
194 |
194 |
195 if i = 0 then |
195 if i = 0 then |
196 i:= MaxStrIndex |
196 i:= MaxStrIndex |