[fpc-pascal] How to get the borders and background color of the Message Box

[nitinjain]

Hi,

Looking for guidance on formatting of the attached application Output
snippet.  I'm having trouble on getting the borders and background color of
the Message Box to display correctly. Any help will be appreciated. 

Nitin
http://free-pascal-general.1045716.n5.nabble.com/file/n5719375/Application_Snippets.jpg
 



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/How-to-get-the-borders-and-background-color-of-the-Message-Box-tp5719375.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] How to get the borders and background color of the Message Box

[nitinjain]

Thanks Tomas Hajny-2,

Actually I tried with video unit, but on freepascal.org site
(http://www.freepascal.org/docs-html/rtl/video ) I was read that “The video
unit should not be used together with the crt unit”. And I am using CRT unit
as well. I posted same issue on previous blog also, but not getting any
answers after that, so now I posted newly with snippets. If you have any
another options instead of video unit then it will definitely helpful to us.

Regards,
Nitin




--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/How-to-get-the-borders-and-background-color-of-the-Message-Box-tp5719375p5719386.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Identifier not found MEMW

[nitinjain]

Thanks, 

I used same (Video Unit) but throwing runtime error* Program Received
Signal SIGSEGV Segmentation fault*.



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Identifier-not-found-MEMW-tp5719166p5719288.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] How To Rewrite/Replace Below MEM And MEMW

[nitinjain]

Thanks Tomas,

Yes, I have allready followd the steps which you have given in last post
(Video Unit), but it is throwing runtime error that is: *Program Received
Signal SIGSEGV Segmentation fault*. 



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/How-To-Rewrite-Replace-Below-MEM-And-MEMW-tp5719283p5719289.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

[fpc-pascal] How to get GO32 Unit file

[nitinjain]

Hi,

could you please tell me, from where I can download Go32 Unit file?


Nitin



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/How-to-get-GO32-Unit-file-tp5719211.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Identifier not found MEMW

[nitinjain]

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.

Regards,
Nitin Jain



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Identifier-not-found-MEMW-tp5719166p5719206.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Identifier not found MEMW

[nitinjain]

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;

---



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Identifier-not-found-MEMW-tp5719166p5719175.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

[fpc-pascal] Identifier not found MEMW

[nitinjain]

Hi,

I am migrating Turbo Pascal application into Free Pascal 32 bit operating
system. whenever i compiled unit file in free pascal, compiler showing error
message Identifier not found MEMW. can anybody help me on this?.

Thanks Regards,
Nitin Jain



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Identifier-not-found-MEMW-tp5719166.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal