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

[noveek]

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

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

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

ставим:

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

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

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

Фоны разного цвета буквы тоже разного цвета ( в pf1bit переводить не вариант тоже

[noveek]

Пока додумался до такого:

if (Canvas.Pixels[0,0]))=2563858 then
InvertBitmap(sbscrollingimage1.picture);
//Если цвет фона чёрный то инвертируем изображение

[Pavia]

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

Фоны разного цвета буквы тоже разного цвета ( в pf1bit переводить не вариант тоже

Так и делают. Алгоритм Отцу.

[noveek]

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

Так и делают. Алгоритм Отцу.

Всё сделано перевожу в серый, перевожу в чёрно-белый, ужирняю, инвертирую если цвет <clGray не знаю насколько верно и универсально вроде работает

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 BlackWhite(image: tbitmap; gray: boolean);
var i,j,c: integer;
    p: PRGB;
begin
 image.PixelFormat:= pf24bit;
 for i:=0 to image.Height-1 do begin
  p:= image.ScanLine[i];
  for j:= 0 to image.Width-1 do begin
   c:= round(0.3*p[j].rgbtRed+0.59*p[j].rgbtGreen+0.11*p[j].rgbtBlue);
   if not gray then //???????? ??????
    if c >= 128 then c:= 255 else c:= 0;
   p[j].rgbtRed:= c;
   p[j].rgbtGreen:= c;
   p[j].rgbtBlue:= c
  end
 end
end;

procedure jirno(Bmp:Tbitmap;r:integer);
var
x,y: integer;
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;

procedure InvertBitmap(MyBitmap: TBitmap);
var
  i, j: Integer;
  ByteArray: PByteArray;
begin
  MyBitmap.PixelFormat := pf24Bit;
  for j := 0 to MyBitmap.Height - 1 do
  begin
    ByteArray := MyBitmap.ScanLine[j];
    for i := 0 to MyBitmap.Width * 3 - 1 do
    begin
      ByteArray[i] := 255 - ByteArray[i];
    end;
  end;
end;

...
if (bmp.Canvas.Pixels[0,0])<clgray then
InvertBitmap(sbscrollingimage1.picture);