Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Бордюр шрифта (Outline)   Найти похожие ветки 

 
MikeIp   (2002-10-29 10:19) [0]

Привет всем!
Нужно вывести текст с окантовкой:
1.
BeginPath(Handle);
SetBkMode(Handle, TRANSPARENT);
TextOut(10,10, Edit1.Text);
EndPath(Handle);
StrokeAndFillPath(Handle);
Этот вариант, при малых размерах шрифта, делает текст обгрызанным.
2. Обрисовывать по точкам - медленно, но красиво. Может есть еще варианты. Подскажите ну очень нужно.
Всем заранее спасибо!


 
MBo ©   (2002-10-29 10:23) [1]

Нет вариантов. С регионами еще корявее. Антиалиасинг только при штатном выводе шрифта действует.

>Обрисовывать по точкам
что имеется в виду? Нечто вроде: если рядом черная точка, то закрасить данную синим?


 
MikeIp   (2002-10-29 10:26) [2]

Совершенно верно.
Может есть какой-то более быстрый доступ к точкам.


 
MBo ©   (2002-10-29 10:27) [3]

я же не знаю, какой ты сейчас используешь ;)


 
MikeIp   (2002-10-29 10:32) [4]


for x:=0 to Rect.Right do begin
for y:=0 to Rect.Bottom do begin
if Canva.Pixels[x,y]=fnColor then begin
if Canva.Pixels[x-1,y]<>fnColor then Canva.Pixels[x-1,y]:=olColor;
if Canva.Pixels[x-1,y-1]<>fnColor then Canva.Pixels[x-1,y-1]:=olColor;
if Canva.Pixels[x+1,y-1]<>fnColor then Canva.Pixels[x+1,y-1]:=olColor;
if Canva.Pixels[x,y+1]<>fnColor then Canva.Pixels[x,y+1]:=olColor;
if Canva.Pixels[x,y-1]<>fnColor then Canva.Pixels[x,y-1]:=olColor;
if Canva.Pixels[x+1,y+1]<>fnColor then Canva.Pixels[x+1,y+1]:=olColor;
if Canva.Pixels[x+1,y]<>fnColor then Canva.Pixels[x+1,y]:=olColor;
if Canva.Pixels[x-1,y+1]<>fnColor then Canva.Pixels[x-1,y+1]:=olColor;
end;
end
</coed>
где fnColor - текст, olColor - бордюр.
Может Direct мог помочь, но нет времени с ним разбиратся. :(


 
Victor_Cr ©   (2002-10-29 11:04) [5]

А не проще выводить сначала чуть больший шрифт с цветом окантовки, а на него выводить меньший с нужным цветом но с чуть большим интервалом.


 
MikeIp   (2002-10-29 11:39) [6]

А при изменении размера шрифта снова высчитывать интервал?


 
MBo ©   (2002-10-29 12:14) [7]

почти на порядок быстрее, чем через Pixels - использование ScanLine. Нвдо только учитывать цветовой формат (256 - 1байт/пиксел, 16М - 3 байта)



Страницы: 1 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
1-28768
Zirus
2003-02-01 13:31
2003.02.10
image1 и image2


8-28936
МитяЙ2
2002-10-16 16:50
2003.02.10
Графики...


14-29072
Николай Быков
2003-01-22 19:56
2003.02.10
У меня депресняк....


1-28747
ShadowX
2003-02-01 00:42
2003.02.10
из Clipboard a в HTML


7-29140
subdigger
2002-12-04 07:25
2003.02.10
ShutDown XP