writeln works bogous fp3.0.4 and kb ok in fp2.2.2 if apptype gui and alloccconsole
Original Reporter info from Mantis: paleosoft
-
Reporter name:
Original Reporter info from Mantis: paleosoft
- Reporter name:
Description:
program guicon;
{$I+}
{$APPTYPE gui}
uses windows;
var
textbuffFIX:array[0..1024] of char;
begin
allocconsole;
assign(output,'CONOUT$');//valahol itt csuszik el a syncron ha apptype console akkor is
assign(input,'CONIN$');
reset(input);
rewrite(output);
//ha ez nincs akkor nem is latszik semmi fp3.0.4
settextbuf(output,textbuffFIX[0],1{amennyi a szam annyival tolodnak el a szin attrributumok is});
//ha ez nincs akkor nem is latszik semmi fp3.0.4
writeln('Hi this is visible in fp2.2.2 and in fp3.0.4 only with settextbuf /with errors'{#10});
//flush(output); csak igy irja ki teljesen es valt sort is
// itt a kov sorban kellene kerje az inputot de lemarad a settextbuf 3ik parameterevel
readln;
//guibol console hasznalat pipazva jol mukodik fp3.0.4 es kis hibaval fp2.2.2
//guibol console hasznalat rendes screen outputtal jol mukodik fp2.2.2 es hibakkal fp3.0.4
//sleep(10000);
end.
Additional information:
color attributes are also shifted with fixing buffer size
Mantis conversion info:
- Mantis ID: 35182
- OS: windows xp
- OS Build: sp3 home
- Platform: windows
- Version: 3.0.4