Как сделать буквы жирными

[noveek]

Сообщение от BDA

Работает и результирующая картинка очень близка к примеру.

Не знаю у меня не работает

[noveek]

Или вообщем слабый эффект очень:

procedure GrayscaleBitmap(ABitmap: TBitmap);
var
  X: Integer;
  Y: Integer;
  Gray: Byte;
  Pixels: PRGBArray;
begin
  // iterate bitmap from top to bottom to get access to each row's raw data
  for Y := 0 to ABitmap.Height - 1 do
  begin
    // get pointer to the currently iterated row's raw data
    Pixels := ABitmap.ScanLine[Y];
    // iterate the row's pixels from left to right in the whole bitmap width
    for X := 0 to ABitmap.Width - 1 do
    begin
      // calculate luminance for the current pixel by the mentioned formula
      Gray := Round((0.299 * Pixels[X].rgbRed)   +
                    (0.587 * Pixels[X].rgbGreen) +
                    (0.114 * Pixels[X].rgbBlue));
      // and assign the luminance to each color component of the current pixel
      Pixels[X].rgbRed   := Gray;
      Pixels[X].rgbGreen := Gray;
      Pixels[X].rgbBlue  := Gray;
    end;
  end;
end;

procedure JIRNO(Bmp:Tbitmap);
var
a,b,x,y: integer;
const r=3;
begin
bmp.Canvas.Pen.Color := clBlack;
bmp.Canvas.Brush.Color := clBlack;
bmp.Canvas.Brush.Style := bsSolid;
for x:=0 to bmp.Width-1 do
for y:=0 to bmp.Height-1 do
//if bmp.Canvas.Pixels[x,y]=clGray then
bmp.Canvas.Ellipse(a-r, b-r, a+r, b+r);
end;

[digitalis]

У вас, наверно, разные Дельфи
noveek не нужно полностью цитировать предыдущее сообщение. Что не работает? Не компилируется, вылетает, зависает, не ту картинку выдаёт?
Партизан на допросе...

[noveek]

Сообщение от digitalis

У вас, наверно, разные Дельфи
noveek не нужно полностью цитировать предыдущее сообщение. Что не работает? Не компилируется, вылетает, зависает, не ту картинку выдаёт?
Партизан на допросе...

Ну просто ничего не делает как будто

[Arigato]

Сообщение от noveek

Ерунда какая то и не работает

Скорее просто руки у кого-то не из того места выросли

[Pavia]

Сообщение от digitalis

У вас, наверно, разные Дельфи

Дело не в версиях. А в умении новичка. Как и любой другой новичок он ошибается и теряется если пример не наглядный. Так как работа идет с файлами что для нас очевидно, а для него нет он решил сделать свой код.

Однако тут целых 2 ошибки:

Сообщение от noveek

//if bmp.Canvas.Pixels[x,y]=clGray then
bmp.Canvas.Ellipse(a-r, b-r, a+r, b+r);

[noveek]

Сообщение от Pavia

Дело не в версиях. А в умении новичка. Как и любой другой новичок он ошибается и теряется если пример не наглядный. Так как работа идет с файлами что для нас очевидно, а для него нет он решил сделать свой код.

Однако тут целых 2 ошибки:

Что за ошибка ?
UPD:
Ахаха что то я сегодня туплю действительно работает только цвет не факт что чёрный в буквах будет ((
Привести бы буквы и фон к одному цвету как то перед выполнением было бы великолепно

procedure jirno(Bmp:Tbitmap);
var
x,y: integer;
const r=1;
begin
bmp.Canvas.Pen.Color := clBlack;
bmp.Canvas.Brush.Color := clBlack;
bmp.Canvas.Brush.Style := bsSolid;
for x:=0 to bmp.Width-1 do
for y:=0 to bmp.Height-1 do
if bmp.Canvas.Pixels[x,y]=clBlack then
bmp.Canvas.Ellipse(x-r, y-r, x+r, y+r);
end;

[BDA]

Рисовать на том же битмапе чревато "разрастанием" эллипсов.

Сообщение от noveek

Привести бы буквы и фон к одному цвету

Бинаризация изображений: алгоритм Брэдли.

[noveek]

Сообщение от BDA

Рисовать на том же битмапе чревато "разрастанием" эллипсов.

Бинаризация изображений: алгоритм Брэдли.

Бинаризация есть она очень плохо работает некоторые картинки вообще чистый фон и всё какие бы значения я не ставил:

procedure Binarize(Bitmap: TBitmap; N: Real);
var
 X, Y: Integer;
 C: TColor;
begin
 for X := 0 to Bitmap.Width - 1 do
   for Y := 0 to Bitmap.Height - 1 do
   begin
     C := Bitmap.Canvas.Pixels[X, Y];
     if GetRValue(C) <= N then
       C := clBlack
     else
       C := clWhite;
     Bitmap.Canvas.Pixels[X, Y] := C;
   end;
   end;

[Arigato]

Если фон одноцветный, то вместо:

if bmp1.Canvas.Pixels[x,y]=clBlack then

ставим:

if bmp1.Canvas.Pixels[x,y]<>BackColor then

Где BackColor цвет фона.

И про рисование на исходном битмапе верное замечание сделали. Вам готовый пример дали, а вы пытаетесь добавить отсебятину...