TextOut и шрифт

[Lemon2009]

Здравствуйте.

Вывожу на картинке текст (с помощью канваса, TextOut) определенного цвета (допустим черный), но рисует сглаживанием. В итоге цвет получается черный и серые тона с краев (сглажимание помоему идет).
как можно нарисовать сполшным одним цветом?

[DIgorevich]

Рисуй с помощью шрифта Arial.

[Lemon2009]

или может кто знает алгоритм, который может сменить потом черный свет в другой так, чтобы и эти серые тона тоже сменились на указанный цвет с тем же тоном. Надеюсь понятно выразился.

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

Рисуй с помощью шрифта Arial.

не, нужны разные шрифты.

[DIgorevich]

.canvas.font.Name:='ARIAL';
.canvas.font.color:=clRed;
.canvas.TextOut ТВОЙ КОД

[Lemon2009]

вообщем, что я хочу. я делаю программу с рисованными шрифтами (отдельный файл картинка со шрифтом) и этот файл содержит буквы черного цвета и белый фон. потом когда надо выводить , я заменяю пиксели с черным цветом на нужный и вывожу на экран. но так как иногда получаются серые тона, программа их пропускает. было бы лучше конечно знать алгоритм, про который я выше написал. Ну или хотябы рисовать шрифты без сглаживания.

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

.canvas.font.Name:='ARIAL';
.canvas.font.color:=clRed;
.canvas.TextOut ТВОЙ КОД

это я знаю. но мне приходится использовать различные шрифты.

[DIgorevich]

ну, а кто мешает их менять?

.canvas.font.Name:='ИМЯ ШРИФТА';

[Lemon2009]

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

ну, а кто мешает их менять?

.canvas.font.Name:='ИМЯ ШРИФТА';

я вообще использую Canvas.Font := DialogFont.Font;

не в этом ведь дело. Выбирать шрифт я умею.
Просто рисует не как мне надо.

[DIgorevich]

а как надо? без размазываний? тогда код в студию.

[Lemon2009]

procedure TfrmMain.lblFontSelectClick(Sender: TObject);
var
  offY, i, p, j, fW, cW, col: Integer;
  ba: array [0..256] of byte;
  buf: TBitmap;
  alf, fname: String;
  ff: file;
begin
  if dlgFont.Execute then begin
    fname := dlgFont.Font.Name + '_' + IntToStr(dlgFont.Font.Size);
    buf := TBitmap.Create;
    buf.Canvas.Font.Size := dlgFont.Font.Size;
    buf.Canvas.Font.Name := dlgFont.Font.Name;
    alf := '';
    p := 1;
    fW := 0;
    for i := 0 to 255 do begin
      ba[p] := buf.Canvas.TextWidth(chr(i));
      Inc(fW, ba[p]);
      Inc(p);
      alf := alf + chr(i);
    end;
    buf.Width := fW;
    buf.Height := buf.Canvas.TextHeight(alf);
    buf.Canvas.Pen.Color := clGray;
    buf.Canvas.Pen.Style := psSolid;
    buf.Canvas.Pen.Mode := pmBlack;
    buf.Canvas.Brush.Style := bsSolid;
    buf.Canvas.Brush.Color := clWhite;
    for i := 0 to 255 do begin
      cW := 0;
      for j := 0 to i - 1 do cW := cW + ba[j + 1];
      buf.Canvas.TextRect(Rect(cW, 0, cW + ba[i + 1], buf.Height), cW, 0, chr(i));
    end;
    offY := lblFontSelect.Top + lblFontSelect.Height + 10;
    Canvas.Brush.Color := frmMain.Color;
    Canvas.FillRect(Rect(lblFontSelect.Left, offY, Width, Height));
    Canvas.CopyRect(Rect(lblFontSelect.Left, offY, lblFontSelect.Left + buf.Width, offY + buf.Height), buf.Canvas, buf.Canvas.ClipRect);
    //buf.SaveToFile(fname + '.bmp');
    BitmapFileToPNG(buf, fname + '.png');
    AssignFile(ff, fname + '.ssf');
    Rewrite(ff, 1);
    ba[0] := buf.Height;
    BlockWrite(ff, ba, 257);
    CloseFile(ff);
    if IOResult <> 0 then
      ShowMessage('Ошибка записи файла');    
    buf.Destroy;
  end;
end;

[DIgorevich]

Попробуй использовать только векторные шрифты TrueType.