Image1->Canvas->Brush->Color = clNone;
Image1->Canvas->Brush->Style = bsClear;
Image1->Canvas->Font->Color = clWhite;
Image1->Canvas->Font->Size = 16;
Image1->Canvas->TextOutA(30,30,"Test");
Рисование на канве
Проблема такая: у меня есть битмап который я гружу в имидж, а потом мне туда надо вписать текст. Я делаю
Form1->Image1->Canvas->TextOut(1,1,text);
Но так он вписывается туда на белом фоне, а мне надо как бы поверх рисунка. Я уже чего только не перепробовал, ни фига. Спасайте :)
Form1->Image1->Canvas->TextOut(1,1,text);
Но так он вписывается туда на белом фоне, а мне надо как бы поверх рисунка. Я уже чего только не перепробовал, ни фига. Спасайте :)
Я не знаю, можно ли средствами Билдера сделать подложку под текстом прозрачной, но если нельзя, то:
Тебе нужно рисовать не на своей картинке, а создать пустую (белую) картинку такого же размера, и вывести текст на нее, а потом совместить эти две картинки. Какой функцией это сделать - точно не знаю, но посморти хелп по BitBlt() и MaskBlt(). Обе эти функции ты найдешь на MSDN, хотя и в Билдере должен быть хелп по ним.
А еще на MSDN почитай этот текст:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnprogwin/html/ch17-01.asp
Особенно про функцию SetBkMode(hdc, TRANSPARENT).
Тебе нужно рисовать не на своей картинке, а создать пустую (белую) картинку такого же размера, и вывести текст на нее, а потом совместить эти две картинки. Какой функцией это сделать - точно не знаю, но посморти хелп по BitBlt() и MaskBlt(). Обе эти функции ты найдешь на MSDN, хотя и в Билдере должен быть хелп по ним.
А еще на MSDN почитай этот текст:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnprogwin/html/ch17-01.asp
Особенно про функцию SetBkMode(hdc, TRANSPARENT).
Это конечно выход, Но слишком сложный, так как мне потом эти картинки с написями надо в файл записывать, а потом еще немеряно раз читать из него. Мне кажется что можно как то проще.
Цитата:
Originally posted by Belka
Можно так:
Canvas -> Brush -> Style = bsClear;
Можно так:
Canvas -> Brush -> Style = bsClear;
Spasibo bolsoje, mne pomoglo. A ja uze polovinu volos na golove vydral poka ne pocital tut.
U menia byla poxozaja problema, no ne s rizunkom a s background color, tam fon dvux cvetnyj, i teks vyrisovyvalsia tolko s odnim cvetom :/
Escio raz spasibo
Цитата:
Originally posted by AndySPb
Проблема такая: у меня есть битмап который я гружу в имидж, а потом мне туда надо вписать текст. Я делаю
Form1->Image1->Canvas->TextOut(1,1,text);
Но так он вписывается туда на белом фоне, а мне надо как бы поверх рисунка. Я уже чего только не перепробовал, ни фига. Спасайте :)
Проблема такая: у меня есть битмап который я гружу в имидж, а потом мне туда надо вписать текст. Я делаю
Form1->Image1->Canvas->TextOut(1,1,text);
Но так он вписывается туда на белом фоне, а мне надо как бы поверх рисунка. Я уже чего только не перепробовал, ни фига. Спасайте :)
Код: