Головна сторінка
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.58 MB
Час: 0.026 c
3-21934
Alexsyy
2001-12-04 08:52
2002.01.08
Допоможіть мені будь ласка


1-22064
daos
2001-12-19 08:46
2002.01.08
реєстр


3-21945
asafr
2001-12-04 18:11
2002.01.08
FastReport. frBand.Visible


4-22497
Syrius
2001-11-07 09:13
2002.01.08
Delphi 6 і Win32 API


1-22204
Dmitriy (new)
2001-12-13 19:37
2002.01.08
код не створює більш `273 files in win2000





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