110 x:= 0; |
110 x:= 0; |
111 y:= cConsoleHeight; |
111 y:= cConsoleHeight; |
112 w:= cScreenWidth; |
112 w:= cScreenWidth; |
113 h:= 4; |
113 h:= 4; |
114 end; |
114 end; |
115 SDL_FillRect(Surface, @r, cConsoleSplitterColor); |
115 //SDL_FillRect(Surface, @r, cConsoleSplitterColor); |
116 for y:= 0 to cConsoleHeight div 256 + 1 do |
116 for y:= 0 to cConsoleHeight div 256 + 1 do |
117 for x:= 0 to cScreenWidth div 256 + 1 do |
117 for x:= 0 to cScreenWidth div 256 + 1 do |
118 DrawSprite(sprConsoleBG, x * 256, cConsoleHeight - 256 - y * 256, 0, Surface); |
118 DrawSprite(sprConsoleBG, x * 256, cConsoleHeight - 256 - y * 256, 0, Surface); |
119 for y:= 0 to cConsoleHeight div Fontz[fnt16].Height do |
119 for y:= 0 to cConsoleHeight div Fontz[fnt16].Height do |
120 DXOutText(4, cConsoleHeight - (y + 2) * (Fontz[fnt16].Height + 2), fnt16, ConsoleLines[(CurrLine - 1 - y + cLinesCount) mod cLinesCount], Surface); |
120 //DXOutText(4, cConsoleHeight - (y + 2) * (Fontz[fnt16].Height + 2), fnt16, ConsoleLines[(CurrLine - 1 - y + cLinesCount) mod cLinesCount], Surface); |
121 DXOutText(4, cConsoleHeight - Fontz[fnt16].Height - 2, fnt16, '> '+InputStr, Surface); |
121 //DXOutText(4, cConsoleHeight - Fontz[fnt16].Height - 2, fnt16, '> '+InputStr, Surface); |
122 end; |
122 end; |
123 |
123 |
124 procedure WriteToConsole(s: shortstring); |
124 procedure WriteToConsole(s: shortstring); |
125 var Len: LongInt; |
125 var Len: LongInt; |
126 begin |
126 begin |