Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Знову проблема з текстом: виводжу на екран Image1.Canvas.TextOut, але під самим текстом білий беграунд. Чи можна якщо не прибрати (просто накласти літери), то хоча б беграунд зробити чорним. Знайти схожі гілки


Serg5   (2001-12-20 14:57) [0]

Ось вся і суть ...



MBo   (2001-12-20 15:18) [1]

зроби
Canvas.Brush.Style:=bsClear;



Serg5   (2001-12-20 17:40) [2]

MBo, помогло, гениально!



MBo   (2001-12-20 17:48) [3]

не надо эмоций, F1 жми ;)



Serg5   (2001-12-20 18:16) [4]

Ещё бы энглишь знать как русиан :) ,
возникла проблема(если ещё не задолбал своими вопросами :( )... не знаю как поступить, задача напечатать черными буквами, если подложка белая, и наоборот белыми буквами на чёрный фон. Но фон как на фотографии, т.е. не однородный. Могу сравнить пиксел из того района, если он чёрный, то приблизительно картина ясна. Но можно и по ошибке нарваться на один светлый пиксель. Или брать всю область(20*100px, пеермножать, делить, определять средний цвет)...
Можно ли как нибудь сравнить код цвета, ярче он или темнее среднего значения серого?



Юрий Федоров   (2001-12-20 21:21) [5]

Вообще, для этого обычно используют SetRop2



Serg5   (2001-12-21 08:57) [6]

Юрий Федоров, а что это за такое? На торри поиск результатов не дал. По яндексу на QT ссылается.. это пакет?



MBo   (2001-12-21 09:54) [7]

SetRop2 - функция API, устанавливает способ смешивания цветов при наложении графики. Опять же F1, если SDK хелп стоит.

Спробуй так.

procedure TForm1.Button1Click (Sender: TObject);
var b: tbitmap;
r:trect;
починати
r:=image1.clientrect;
b:=tbitmap.create;
b.width:=image1.Width;
b.height:=image1.height;
with b.canvas do begin
font:=image1.Canvas.font;
Brush.Color:=clBlack;
fillrect(r);
Brush.Style:=bsClear;
font.color:=clWhite;
TextOut(5,5,"XorPut");
end;
image1.picture.LoadFromFile("e:\camera1.bmp");
image1.canvas.copymode:=cmSrcInvert;
image1.canvas.copyrect(r,b.canvas,r);
b.free;
end;



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.83 MB
Час: 0.023 c
14-22391
Serg5
2001-11-10 10:29
2002.01.08
Кому не лінь, зайдіть на http://forum.ru-board.com/, він правда висить, або IP фільтрація, мене не пускають.


14-22405
Kozhanov
2001-11-12 11:53
2002.01.08
English puzzle


1-22027
переможець
2001-12-18 09:49
2002.01.08
потрібен компонент для відображення HTML сторінок


6-22273
Денис Титов
2001-10-06 11:50
2002.01.08
Побудова локальних мереж


1-22138
Serg5
2001-12-20 09:22
2002.01.08
Люди, скажіть, а як очистити Image1, функції Clear що то не знайшов ...





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська