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.58 MB
Time: 0.033 c
1-22070
g
2001-12-18 21:53
2002.01.08
font management with the POPUP menu


1-22067
DNT
2001-12-15 16:20
2002.01.08
Dialog & dll


3-21962
phantom2040
2001-12-04 13:27
2002.01.08
Setting the filter in TDStringGrid


6-22300
evgen_2001
2001-10-04 12:25
2002.01.08
Sending messages


3-21931
SklifF
2001-12-04 15:59
2002.01.08
What is this mistake? Capability not suppoted





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