Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Novamente, o problema com o texto: eu exibo Image1.Canvas.TextOut, mas sob o texto em si é um quadro branco. É possível, se não removido (apenas para impor letras), então, pelo menos, tornar o preto redondo preto. Encontre agências semelhantes


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

Esse é o ponto todo ...



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

faça isso
Canvas.Brush.Style:=bsClear;



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

MBo, ajudou, brilhante!



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

sem emoções, clique F1;)



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

Você deve saber como Rusyns :),
houve um problema (se não me incomodei com minhas perguntas :() ... não sei o que fazer, a tarefa é imprimir em letras pretas, se o substrato for branco e vice-versa em letras brancas sobre fundo preto. Mas o fundo como na foto, não é uniforme. Eu posso comparar um pixel daquela região, se é preto, então a imagem é clara, mas você pode acidentalmente correr em um pixel brilhante, ou pegar toda a área (20 * 100px, multiplicar, dividir, determinar a cor média) ...
Existe alguma maneira de comparar o código de cores, é mais brilhante ou mais escuro que o valor médio de cinza?



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

Em geral, SetRop2 é geralmente usado para isso.



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

Yuri Fedorov, o que é isso? A busca por torri não produziu resultados. De acordo com o Yandex, o QT se refere .. isso é um pacote?



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

SetRop2 é uma função API que define a maneira como as cores são misturadas ao sobrepor elementos gráficos. Novamente F1, se a ajuda do SDK valer a pena.

Experimente assim.

procedimento TForm1.Button1Click (Sender: TObject);
var b: tbitmap;
r: trect;
começar
r: = image1.clientrect;
b: = tbitmap.create;
b.width: = image1.Width;
b.height: = image1.height;
com b.canvas começar
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 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.58 MB
Hora: 0.045 c
3-21978
Trabalhador anônimo
2001-12-04 20:25
2002.01.08
ADO + Excel + Delphi5


14-22318
frostbite
2001-10-31 17:11
2002.01.08
Rebobinar


7-22434
tomas2001
2001-09-24 14:04
2002.01.08
Transferência de arquivos via modem


1-22072
Garik
2001-12-19 11:08
2002.01.08
Como criar dinamicamente uma instância filho do TFrame


3-21911
Jaya!
2001-11-11 12:58
2002.01.08
Falhas no VDE





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol