Пара вопросов, Окно 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

[volvo]

Все еще нужен. Прикрепи файл, который можно откомпилировать и запустить.

Вообще-то надо обрабатывать WM_PAINT, оно посылается приложению, когда нужно перерисовать окно. Вот тогда и нужно перерисовывать не только само окно, а и хидер, который ты нарисовал...