Не выводит текст на HBitMap

[Alex Cones]

           Warehouse.Button[BNum].Font := CreateFont(-9, 0, 0, 0, 0, 0, 0, 0,
                                                     RUSSIAN_CHARSET,
                                                     OUT_DEFAULT_PRECIS,
                                                     CLIP_DEFAULT_PRECIS,
                                                     DEFAULT_QUALITY,
                                                     FF_DONTCARE or DEFAULT_PITCH,
                                                     'SmallFonts');
           SelectObject(Warehouse.Texture[TexInd].BitMap, Warehouse.Button[BNum].Font);
           SetBkMode(Warehouse.Texture[TexInd].BitMap, TRANSPARENT);
           SetTextColor(Warehouse.Texture[TexInd].BitMap, $000000);

           Windows.TextOut(Warehouse.Texture[TexInd].BitMap,
                           Round(Warehouse.Button[BNum].Width/2) - Round(GetTextW(TexInd, PAnsiChar(Warehouse.Button[BNum].Caption), Length(Warehouse.Button[BNum].Caption))/2),
                           Round(Warehouse.Button[BNum].Height/2) - Round(GetTextH(TexInd, PAnsiChar(Warehouse.Button[BNum].Caption), Length(Warehouse.Button[BNum].Caption))/2),
                           PAnsiChar(UTF8ToANSI(AnsiString(Warehouse.Button[BNum].Caption))),
                           Length(Warehouse.Button[BNum].Caption));

BitMap = HBitMap

Вот только не выводит ничего. Формула проверена, техника тоже. На DC выводит, на отдельно взятый HBitMap нет. Вместо формулы пробовал подставлять нули - тоже ничего.

[BOBAH13]

TexOut там ведь точно сказано что первый параметр

hdc [in]
A handle to the device context.

[Alex Cones]

Тьфу, блин, точно.
Так написать текст с нужным шрифтом на HBitMap никак? Только создавая еще с полсотни промежуточных DC?

UPD

DC := GetDC(Warehouse.Texture[TexInd].BitMap);
                                           MDC := CreateCompatibleDC(DC);
                                           SelectObject(MDC, Warehouse.Texture[TexInd].BitMap);
                                           Warehouse.Button[BNum].Font := CreateFont(-9, 0, 0, 0, 0, 0, 0, 0,
                                                                                     RUSSIAN_CHARSET,
                                                                                     OUT_DEFAULT_PRECIS,
                                                                                     CLIP_DEFAULT_PRECIS,
                                                                                     DEFAULT_QUALITY,
                                                                                     FF_DONTCARE or DEFAULT_PITCH,
                                                                                     'Small Fonts');
                                           SelectObject(MDC, Warehouse.Button[BNum].Font);
                                           SetBkMode(MDC, TRANSPARENT);
                                           SetTextColor(MDC, $000000);
                                           Windows.TextOut(MDC,
                                                           Round(Warehouse.Button[BNum].Width/2) - Round(GetTextW(MDC, PAnsiChar(Warehouse.Button[BNum].Caption), Length(Warehouse.Button[BNum].Caption))/2),
                                                           Round(Warehouse.Button[BNum].Height/2) - Round(GetTextH(MDC, PAnsiChar(Warehouse.Button[BNum].Caption), Length(Warehouse.Button[BNum].Caption))/2),
                                                           PAnsiChar(UTF8ToANSI(AnsiString(Warehouse.Button[BNum].Caption))),
                                                           Length(Warehouse.Button[BNum].Caption));
                                           Warehouse.Button[BNum].ImageN := TexInd;
                                           DeleteDC(MDC);
                                           DeleteDC(DC);

Работает. Сократить\улучшить уже никак?

[BOBAH13]

Малек не верна логика.

...
OldBitmap := SelectObject(MDC, Warehouse.Texture[TexInd].BitMap);
...
SelectObject(MDC, OldBitmap);
DeleteDC(MDC);
...

[Alex Cones]

Картинка более изменяться не будет, ни текст, ни примитивы на ней рисоваться больше не будут. Она будет только выводиться. Ваш последний пост еще актуален?

[BOBAH13]

Сообщение от Alex Cones

Картинка более изменяться не будет, ни текст, ни примитивы на ней рисоваться больше не будут. Она будет только выводиться. Ваш последний пост еще актуален?

Да. В теории вы замещаете уже существующий HBITMAP связанный с тем новым HDC. Соответственно, не есть хорошо оставлять оригинальный HBITMAP за бортом. Лучше все восстановить (все объекты) как было, и удалить.

[Alex Cones]

А когда нужно будет удалять OldBitMap? Или он будет локальной пееременной и по выходе из процедуры?

[BOBAH13]

Сообщение от Alex Cones

А когда нужно будет удалять OldBitMap? Или он будет локальной пееременной и по выходе из процедуры?

Никогда, система сама с ним решит что делать. Просто надо его вернуть родному HDC.