ユニコード・バイ・デフォルトのDelphi XEアプリケーションのメッセージダイアログでASCIIアート記号を使用する方法

Question

私が間違えていた場合、私は...

申し訳ありませんが、被写体のオファーを検索しましたが、右のいずれかを取得するために管理していませんでした。もしそうなら、ここで正しい質問をしてください。

さて、ビジネスに戻ってください。状況：私は、アプリケーション内のいくつかのイベントのためのシンプルな「ステータスブリーフィング」プロバイダとしてShowMessage（）を使用しています：今

procedure SatusBriefingDialog(); 
begin 
    if Sender = SomeObject then 
    begin 
    Application.NormalizeToMosts; 
    MessageDlg(Handle, PChar('The_string_that_forms_nice_informative_window/dialog')); 
    Application.RestoreTopMosts; 
    end; 
end; 

、私は最善の方法を選択することはできませんので、私はextended ascii tableを使用したい、それを磨くしたいのですが、それらにアクセスする。たぶん私はその魔法の機能を知らないだけ...

ここでは、OEMToANSI/OEMToCharと副機能を使用するアプローチです：http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20381022.html。私はproboblyための、運でそれらを試してみました：

EDN/MS-Help

BOOL OemToChar（LPCSTR lpszSrc、 LPTSTR lpszDst ）からの構文。 OEM定義の文字セットの文字 の NULLで終わる文字列へ

パラメータ

lpszSrc [中]のポインタ。

lpszDst [out]変換された文字列のバッファ へのポインタ。 OemToChar関数は ANSI関数として使用されている場合

、文字列がlpszSrcパラメータと同じアドレスに lpszDstパラメータを設定することにより、所定の位置に を翻訳することができます。 OemToCharがワイド文字機能の として使用されている場合、これはできません。

私は必要なもののChar（オード（170））です。 、Char（Ord（180））; Char（Ord（190）） - http://www.asciitable.com/。明らかに、デフォルトのWInXPコードページでは私はそれらを使うことができません。今、私は少しGoogleと、この解決策を見つけた：

---

FormShowイベントコード：

procedure TMain.FormShow(Sender: TObject); 
var 
    i : longint; 
begin 
    re.Font.Name := 'Terminal'; 
    re.Font.Size := 9; 
//seems that charset must be set last 
    re.Font.Charset := OEM_CHARSET; 
    re.DefAttributes.Name := 'Terminal'; 
    re.DefAttributes.Size := 9; 
    re.DefAttributes.Charset := OEM_CHARSET; 
    re.SelectAll; 
    re.SelAttributes := re.DefAttributes; 
//turn off richedit's auto font switching... 
    i := SendMessage(re.Handle, EM_GETLANGOPTIONS, 0, 0); 
    i := i and not IMF_AUTOFONT; 
    SendMessage(re.Handle, EM_SETLANGOPTIONS, 0, i); 
end; 

をまた、これらのフォントが正しく表示されます>> クーリエ新 ルシーダコンソール MS明朝

---

今、質問は - どのようなWindowsのダイアログ（API）は、OEMのcharset withing手続きを使用すると言うには最良の方法ですtはShowMessage（）をトリガーします。 ？ ShowMessage（）をオーバーライドします。 ？リッチデジット機能を継承していますか？さまざまなOwnerDraw（）またはWndProc（）がアプローチしています...あまりにも多くのオプションが、... ... ...私は混乱しています。 :(

私が選択して、主観的に最も効果的でほとんどのコードなしの解決策を指摘してください。

Answer 1

あなたが正しく理解している場合は、Unicode range 2500-257Fにあるボックスの描画文字の一部を使用します。したがって、Unicodeテキストのメッセージを表示するだけです。あなたは、Delphi 2009であるか、後で、それは非常にシンプルだ場合、あなたは自分の文字列に文字を挿入：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    s: string; 
begin 
    s := 'Test ' + #$2523; 
    MessageBox(Handle, PChar(s), nil, MB_OK); 
end; 

あなたは、Delphiの以前のバージョンにあった場合でも、あなたはまだMessageBox()例えばのUnicodeのバリアントを呼び出すことができます関数MessageBoxW()を使用し、それにはWideStringを渡します。

Answer 2

ユニコード版のDelphiを使用している場合は、ASCII文字についてアスキー文字について考えるのをやめてください。それらのボックス描画文字のすべて1つにUNICODEコードポイントがあります。 Delphiのエディタは、コードを直接操作することができます。パスカルソースファイルで安全に使用できます。ここで

は例です：

procedure TForm20.Button1Click(Sender: TObject); 
begin 
    ShowMessage(
    '┌─────────────────────────────────────────────┐'#13#10 + 
    '│ You have UNICODE DELPHI, you may now write │'#13#10 + 
    '│ this without any problems. Just copy-paste │'#13#10 + 
    '│ the chars you need from the wikipedia page. │'#13#10 + 
    '└─────────────────────────────────────────────┘' 
); 
end; 

私はそれを書きましたか？非常に簡単です：http://en.wikipedia.org/wiki/Box-drawing_charactersを開き、必要なボックスの描画文字をコピー＆ペーストします。そうです、実際の文字（直角線、水平線、垂直線など）を貼り付けてコピーすると、Unicodeコードポイント自体を気にする必要はありません。

もちろん、これらの文字を適切に表示させることは別の問題です。これを行うには固定小数点フォントが必要です。 AFAIK ShowMessageで固定フォントのポイントを得ることができない場合は、ShowMessageの独自のバージョンを書く必要があります。