Пара вопросов, Окно WinApi Опции

[rzr]

Люди, подскажите, пожалуйста:
Вот, виновник:

procedure Header;

  var

    Font:HFont;
    Ps:PaintStruct;
    Dc:HDc;
    R:Rect;

  begin

    Font:=CreateFont(36,12,
                     0,0,
                     710,0,0,0,
                     DEFAULT_CHARSET,
                     OUT_DEFAULT_PRECIS,
                     CLIP_DEFAULT_PRECIS,
                     PROOF_QUALITY,
                     DEFAULT_PITCH or FF_DONTCARE,
                     'Impact');


    Dc:=BeginPaint(Back,@Ps);

    R.Left:=10;
    R.Top:=96;
    R.Right:=100;
    R.Bottom:=196;

    SelectObject(Dc,Font);

    SetBkMode(dc,Transparent);

    SetTextColor(Dc,RGB(192,192,192));

    DrawText(Dc,'Pascal',-1,@R,DT_SINGLELINE or DT_TOP);

    R.Left:=12;
    R.Top:=94;
    R.Right:=112;
    R.Bottom:=194;

    SetTextColor(Dc,RGB(0,0,250));

    DrawText(Dc,'Pascal',-1,@R,DT_SINGLELINE or DT_TOP);

    EndPaint(Back,Ps);

  end;

Результат этой процедуры - надпись 'Pascal' с чем-то похожем на тень. Рисуется она у меня нормально, проблема в том, что, если свернуть окно или просто подвигать над ним другое окно какое-нить, то надпись эта проподает и не появляется вплоть до перезапуска приложения.
Что скажете? Как это можно исправить?

А ещё: как на окно поместить рисунок (точнее - иконку)? И что значит первый параметр в LoadIcon() или LoadImage()?

Спасибо за ответы

Сообщение отредактировано: rzr - 24.03.2007 23:30

[rzr]

Volvo

Скажи, пожалуйста, правильно ли я понимаю: чтобы нам отобразить русский текст на окне, нужно послать строку unicode (т.е. widestring). То бишь надо обычную строку перевести в widestring.

Такой вот код, например, не работает как хотелось бы:

  Title := 'АБВ';                   //в var Title: AnsiString; 
                                         //         WideTitle: WideString;
                                         //         WSM: TWideStringManager;

  WSM.Ansi2WideMoveProc (@Title,WideTitle,4);

  Main := MainFn;                 //это окно

  SendMessage (Main,WM_SETTEXT,0,LParam (WideTitle));

Компилируется нормально,
Выполнение прерывается на Ansi2WideMoveProc: ExitCode = 216

Что я делаю неправильно?

Сообщение отредактировано: rzr - 26.04.2007 23:54