On Fri, May 9, 2014 09:00, nitinjain wrote: > Thanks for your prompt reply on this. > my code is like below, is there any option to implemet the same thing? > > ------------------------------------------------------------------- > PROCEDURE window_object.appear; > > VAR > width_offset, > height_offset : BYTE; > current_location : location_pointer; > > BEGIN > current_location:=first_location; > FOR height_offset:=y TO (y+y_offset-1) DO > BEGIN > FOR width_offset:=x TO (x+x_offset-1) DO > BEGIN > *MEMW[$B800:(width_offset-1)*2 > +(height_offset-1)*160]:=current_location^.code;* > current_location:=current_location^.next; > END; > END; > current_location^.next:=NIL; > END; > -------------------------------------------------------------------
This type of code would be probably best ported using unit Video - after initializing of this unit, you can write to the provided screen buffer and have the console window (or full screen if you use that) updated based based on content of that screen buffer. Which platform do you target? Tomas _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal