Здравствуйте cjBN, Вы писали:
BN>Form.Print;
BN>Form.GetFormImage;
BN>(дальше смотри help)
BN>думаю разберешься
может ещё подскажеш как включить сглаживание ? а то фонты и картинки зубчатыми стали
Здравствуйте MadVanger, Вы писали:
MV>Здравствуйте cjBN, Вы писали:
BN>>Form.Print;
BN>>Form.GetFormImage;
BN>>(дальше смотри help)
BN>>думаю разберешься
MV>может ещё подскажеш как включить сглаживание ? а то фонты и картинки зубчатыми стали
Вот этого нинаю, только если самому ее (картинку) размазать
Здравствуйте, MadVanger, Вы писали:
MV>Здравствуйте MadVanger, Вы писали:
MV>>привет всем !
MV>>может кто знает ?
MV>>Если такого способа никто не знает то может, хотябы, знаете как вывести текст с прозрачным бекграундом на канву(чтобы не затирать фон окна).
MV>с прозрачным фоном уже разобрался
Помогите и мне разобраться с прозрачным фоном. Мне текст нужно на канве писать:
MyBitmap.Canvas.TextOut(X,Y,Str);
Здравствуйте, Аноним, Вы писали:
MV>>с прозрачным фоном уже разобрался
А>Помогите и мне разобраться с прозрачным фоном. Мне текст нужно на канве писать:
А>MyBitmap.Canvas.TextOut(X,Y,Str);
А>
Думаю Вам будет достаточно указать:
MyBitmap.Canvas.Brush.Style = bsClear; // установить цвет кисти в прозрачный, цвет текста задаётся через Brush.Color
мне же было необходимо писать на канве ещё и под произвольным углом, это реализуется на Билдере так (возможно будет Вам полезно):
TCanvas *canv = // какая-то канва
int angle = 45; // например
TColor NewColor = clBlue; // тоже к примеру
LOGFONT lf; // Windows font structure
canv->Brush->Style = bsClear; // установить прозрачность
сanv->Brush->Color = NewColor;
ZeroMemory(&lf, sizeof(LOGFONT));
GetObject(canv->Font->Handle, sizeof(lf), &lf);
lf.lfEscapement = angle; // угол наклона
сanv->Lock();
canv->Font->Handle = CreateFontIndirect(&lf);
сanv->Unlock();
далее TextOut будет выводить текст с новыми параметрами.
