Solved

TXPManifest affects TEdit's text (D7)

Posted on 2004-10-11
6
410 Views
Last Modified: 2008-01-09
I have a form with an edit box. At run time I press Alt+Shift (XP) to change language and set edit1.text. Setting CharSet to ARABIC_CHARSET every thing is ok. I can draw edit1.text on image1.canvas using above charset.
Now I add XPManifest1 to form1. I redo above procedure and obtain ????... .
Is edit1 using unicode characters inside? How can I use edit1.text, either by making edit1 act as normal or using a function to get the simple string?
In fact, how can I store edit1.text in a variable and draw it on image1.canvas when needed?
0
Comment
Question by:szayeri
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
6 Comments
 
LVL 14

Accepted Solution

by:
DragonSlayer earned 125 total points
ID: 12278321
In order to use Unicode, you have to use the Unicode-enabled 3rd party controls at http://tnt.ccci.org/delphi_unicode_controls/
0
 

Author Comment

by:szayeri
ID: 12287908
Dear DragoSlaver
Thank you for your comment. I'm not searching for unicode-enabled components. I do know TNT (of course, I still do not know how to create and use unicode string tables!). I prefer NOT to use 3rd party components. My problem is with TEdit + TXPManifest.
0
 
LVL 14

Assisted Solution

by:DragonSlayer
DragonSlayer earned 125 total points
ID: 12289667
How did you draw the text? If I recall correctly, you need DrawTextW in order to draw in unicode.
0
 

Author Comment

by:szayeri
ID: 12299188
Thank you DragoSlayer
Your comment does not help or I could not use it.
I found something more interesting. Putting two TEdit and using Edit1.Text:=Edit2.Text in a button click after I have pressed Alt+Shift (as above) and Edit2.Text is in my languge (Arabic) sets those arabic characters of Edit1.Text to question marks and English characters are correct (both in Edit1.Text and Image1.Canvas)!
Is it a bug in D7?
I should say again that this problem does not happen without TXPManifest.
Can I use XP styles without using TXPManifest (if it helps)?
0
 

Author Comment

by:szayeri
ID: 13362786
I did not find the reason to my problem but I found that changing the windows "default language" to "Arabic" solves it.
Ofcourse, the above comments are quite true (as I know). So I have splitted the points to those who spent time to help me.
Thanks again!
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Making delphi communicate with a c# service 16 137
Tvertscrollbox like a whatsapp layout 5 68
Twebbrowser in Fire monkey android scrolling to bottom 1 83
Delphi, TImage, Png 2 53
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question