Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;
begin
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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.034 c
1-22234           x000d                 2001-12-17 01:34  2002.01.08  
Активное ,не активное.


3-21947           DieHard               2001-12-05 13:18  2002.01.08  
Получение из таблицы Oracle списка индексов


3-21994           Vs                    2001-12-06 16:23  2002.01.08  
Dynamic Array


1-22098           Alexander             2001-12-19 14:58  2002.01.08  
Кто знает как вытащить виндовый редактор IP адреса или компонент какой?


6-22306           Mamed                 2001-10-09 12:57  2002.01.08  
Активизация старый окно программы запушенный 2-ой раз!