TextOut
sat © (2007-02-18 11:29:00)
у меня такой вопрос можно ли вывести 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:00) [1]
извиняюсь за пост уже обнаружил как исправить...
Наверх 
ЧАТ |
Орешник |
|
