[angvelem]

Забрал архив.

[angvelem]

Мне стало лень исправлять все косяки, сам доделаешь.

[serega6531]

Спасибо, завтра посмотрю.

[serega6531]

У меня нет ImgLoad.

[serega6531]

Нашёл ImgLoad, спасибо. А можно сделать, чтобы изображение покрывало ненужные места? Вот скриншот:

Серая рамка вокруг текста и чекбокса плохо выглядит.

[NumLock]

Код:

SetBkMode(TRANSPARENT)

[serega6531]

Тут же ещё DC нужен. Как это использовать?

[NumLock]

для рисования всегда dc нужен:

Код:

    WM_PAINT: begin
      dc:=BeginPaint(AWnd, ps);
      rct.Left:=10;
      rct.Top:=130;
      rct.Right:=110;
      rct.Bottom:=150;
      SetBkMode(dc, TRANSPARENT);
      DrawText(dc, 'Label2', -1, rct, DT_SINGLELINE);
      EndPaint(AWnd, ps);
      Result:=0;
    end;

можно static control еще использовать:

Код:

  CreateWindowEx(0, 'STATIC', 'Label1',
    WS_CHILD or WS_VISIBLE, 10, 100, 100, 25, AWnd, 0,
    HInstance, nil);

но тут нужно другое сообщение обрабатывать:

Код:

    WM_CTLCOLORSTATIC: begin
      SetBkMode(wParam, TRANSPARENT);
      Result:=GetStockObject(NULL_BRUSH);
    end;

[serega6531]

А чекбоксы как?

[NumLock]

также.....

[serega6531]

Не работает. Ни с текстом, ни с чекбоксами.

[angvelem]

Всё ведь просто, и код показали.

[serega6531]

Чекбоксы не стали прозрачными.

P.S. Дело было в Exit?

[angvelem]

У меня прозрачны.
Да.

[serega6531]