In our previous episode, nitinjain said: > 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;
Best to rework it to use unit Video and the videobuf variable, which provides a virtual console screen abstraction. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
