Omega in Form-Caption

[flomei]

Hallo!
Wie kriege ich ein Omega in meine Caption? Laut Windows-Zeichentabelle ist das ein Unicode Zeichen. Gibt es dafür auch einen Hex-Wert oder muss ich dieses Unicode Zeichen nehmen. Wie macht man das mit Unicode Zeichen?

Thx for help!

MfG Florian

[neolithos]

Mittels VCL hast du da schlechte Karten da diese nicht für Unicode-Programme gemacht ist.

Dies ist nur in nonVCL möglich.

ODER

Du zeichnest den Titel im WM_NCPAINT neu mit DrawTextW.
dann klapps auch mit der VCL

[flomei]

Schade. Ich hatte noch eine tolle Idee. Ich hab die TNT Controls die auch für DoubleKiller verwendet werden genommen. Diese unterstützen Unicode. Im OnCreate wollte ich dann die Caption dem Label anpassen. Hat aber leider nicht geklappt. Im Label steht es richtig aber in der Caption steht ein O... Das Omega ist ja bekanntlich das Griechische O...

Gibt es keine anderen Möglichkeiten als NonVCL???

MfG Florian

[neolithos]

Hab ich doch geschrieben.

setze Caption auf ''
und male im WM_NCPAINT via DrawTextW dein Omega

[flomei]

Entweder kann oder will ich das jetzt nicht verstehen.
Könntest du mir das vielleicht ein bisschen genauer erklären? So was hab ich nämlich noch nie gemacht...

Thx im Vorraus!

MfG Florian

[Daniel B]

Hi,

statt dem AppName musst Du da ein String machen wo Dein Omega drin ist und das dann austauschen:

Delphi-Quellcode:

    WM_NCPAINT:
      begin
        DefWindowProc(hWnd, uMsg, wParam, lParam);
        dc := GetWindowDC(hWnd);
        rect.Left := GetSystemmetrics(SM_CXEDGE);
        rect.Top := GetSystemmetrics(SM_CYEDGE) + 2;
        rect.Right := WindowWidth - GetSystemmetrics(SM_CXEDGE);
        rect.Bottom := GetSystemmetrics(SM_CYCAPTION) + GetSystemmetrics(SM_CYEDGE);
        SetBkMode(dc, TRANSPARENT);
        SetTextColor(dc, RGB(255, 255, 255));
        DrawText(dc, @AppName[1], lstrlen(@AppName[1]), rect, DT_CENTER or DT_VCENTER);
        ReleaseDc(hWnd, dc);
      end;