Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Down

Again, the problem with the text: I display Image1.Canvas.TextOut, but under the text itself is a white runner. Is it possible if you do not remove (just put the letters), then at least make the runner black. Find similar branches


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

That's the whole point ...



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

Do It
Canvas.Brush.Style:=bsbsar;



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

MBo, helped, brilliant!



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

do not need emotions, press F1;)



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

Why would English know how Rusian :),
there was a problem (if I hadn’t been bothered with my questions yet :() ... I don’t know what to do, the task is to print in black letters, if the substrate is white, and vice versa with white letters on a black background. I can compare a pixel from that area, if it is black, then approximately the picture is clear. But you can also run into one bright pixel by mistake.
Is there any way to compare the color code, is it brighter or darker than the average gray value?



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

In general, SetRop2 is commonly used for this.



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

Yuri Fedorov, and what is this? Torrey did not give any results. QT refers to Yandex .. is it a package?



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

SetRop2 is an API function that sets how colors are mixed when overlaying graphics. Again, F1, if the SDK help is worth it.

Try this.

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;



Pages: 1 whole branch

Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Top









Memory: 0.83 MB
Time: 0.052 c
14-22355
frostbite
2001-11-06 12:39
2002.01.08
Translation


14-22319
iea
2001-11-02 13:34
2002.01.08
Anyone who wears (l) glasses! The question is not idle


1-22012
Socol
2001-12-15 16:00
2002.01.08
Nikolay


7-22448
Stanislas
2001-09-11 15:24
2002.01.08
Data on diskette


1-22003
Virtualik
2001-12-17 16:09
2002.01.08
TListItems





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic indonesian Irish italian japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Español swahili Swedish thai turkish Ukrainian urdu vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish