Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Дек

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

Posted by obzor under Delphi

Как сделать буквы или цифры или всё вместе на изображении толще или пожирнее ?

Изображение уже содержит буквы или цифры нужно как то обрабатывать.

Arigato

Набросал пример:

Код:

procedure BoldPixel(Canvas: TCanvas; x, y: Integer);
const r=3;
begin
  Canvas.Ellipse(x-r, y-r, x+r, y+r);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp1, bmp2: TBitmap;
  x,y: integer;
begin
  bmp1:=TBitmap.Create;
  bmp1.LoadFromFile('992.bmp');
  bmp2 := TBitmap.Create;
  bmp2.Width:=bmp1.Width;
  bmp2.Height:=bmp1.Height;

  with bmp2.Canvas do begin
    Pen.Color := clBlack;
    Brush.Color := clBlack;
    Brush.Style := bsSolid;
  end;

  for x:=0 to bmp1.Width-1 do
    for y:=0 to bmp1.Height-1 do
      if bmp1.Canvas.Pixels[x,y]=clBlack then
        BoldPixel(bmp2.Canvas, x, y);

  bmp1.Free;
  bmp2.SaveToFile('993.bmp');
  bmp2.Free;

  ShowMessage('OK');
end;