• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 270
  • Last Modified:

From Pascal to Delphi

Hi,

I'm porting programs written in pascal to delphi 1.

In one program, TextColor procedure is been used which is defined in 'crt' library.
But, the same procedure is not defined in 'WinCrt', which I've defined to run in Delphi. So, i'm getting error in 'TextColor'. This is the same case for other procedures like TextBackground, TextMode etc.

Please tell me how can I solve this problem.

Thanks,

Suresh
0
SureshC
Asked:
SureshC
1 Solution
 
ziolkoCommented:
Some Delphi controls has Canvas property, this property is used for drawing. But some Pascal properties are renamed, TextColor is Canvas.Font.Color. When You start new project in Delphi You can draw anything You want on Your form like this:
  Canvas.Font.Color:=clRed;
  Canvas.TextOut(20,20,'drawing in delphi is piece of cake!');
  Canvas.Pen.Color:=clBlue;
  Canvas.LineTo(100,100);
  Canvas.Brush.Color:=clGreen;
  Canvas.Ellipse(140,140,80,180);

ziolko.
0
 
DragonSlayerCommented:
0
 
CleanupPingCommented:
SureshC:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.
0
 
snehanshuCommented:
Hi!
No comment has been added lately and this question is therefore classified abandoned.

If asker wishes to close the question, then refer to
http://www.experts-exchange.com/help/closing.jsp

Otherwise, I will leave a recommendation in the Cleanup topic area that this question is:

Answered by: DragonSlayer

Please leave any comments here within the next seven days. It is assumed that any participant not responding to this request is no longer interested in its final disposition.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

...Snehanshu
EE Cleanup Volunteer
0

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now