On Mon, May 12, 2014 08:58, nitinjain wrote: > Thanks to all of you for your`s reply !, > > do me a Favour, can anybody guide me how to implement video unit with my > code.
Well, I believe that you already have all the needed components in the provided responses: 1) Add unit Video to your uses clause. 2) Call InitVideo at the beginning of your application. 3) Change your original "MEMW[$B800:(width_offset-1)*2 +(height_offset-1)*160]:=current_location^.code" to "VideoBuf^ [(width_offset-1) + (height_offset-1) * ScreenWidth] := current_location^.code". I hope that I didn't make any mistake here - I haven't tested it because you didn't post a complete compilable source. 4) Add call to UpdateScreen(false) after the outer for loop (either before or after "current_location^.next:=NIL"). 5) Call DoneVideo at the end of your program. Tomas _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal