Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

TextOut   Найти похожие ветки 

← →
sat ©   (2007-02-18 11:29) [0]

у меня такой вопрос можно ли вывести TextOut по фону Bitmap?

    brush.Bitmap := pict;
    FloodFill(0,0,clBlack,fsBorder);
        if (i mod 5 )=0 then
         begin
           pen.Color := clBlack;
           pen.Width := 3;
           Font.Size := 6;
           Font.Color := clRed;
           if i = 0 then  TextOut(cordx,cordy,"12")
            else TextOut(cordx,cordy,floattostr(i/5));

если отключить      brush.Bitmap := pict;  FloodFill(0,0,clBlack,fsBorder);
то рисуются цифры, иначе нет. как сделть прорисувку и фона и цифр??

---

← →
sat ©   (2007-02-18 11:33) [1]

извиняюсь за пост уже обнаружил как исправить...

---

Страницы: 1 вся ветка

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.049 c