0.9.24 - по другому рисуется текст?

[tria]

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

[tria]

Никто не подскажет, хоть куда копать?

[Павел Ишенин]

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

[tria]

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

Я не работаю с промежуточными версиями - только с официальными новыми релизами. У меня живые фирмы ведут учет в программе...
При переходе с 9.22 на 9.24 по другому стал рисоваться текст. Текст вывожу на гриде, в перекрытом Paint.
Проблема может быть и не в самом выводе, а в предварительном задании шрифта (название, размер).
Я еще покопаюсь, поищу отличие от 9.22, но был бы очень благодарен за подсказку.

[Павел Ишенин]

какая платформа?

[tria]

какая платформа?

Windows
Шрифт - Times New Roman, 8 размер.
Сейчас почему-то стал выглятедь больше...
Если надо - могу картинки куда-нить выслать.

[tria]

Внешний вид вывода шрифта:

1. 0.9.22, Times new roman, 8


2. 0.9.22, Times new roman, 9


3. 0.9.24, Times new roman, 8


Простой кусок кода привести не получится - надо с нуля делать.
Сложный кусок кода:

Код: Выделить всё

c.TextRect(RectSmall, RectSmall.Left, RectSmall.Top, t, Align_TextStyle(MainTCell.FontAtr));

Код: Выделить всё

Function Align_TextStyle(FontAtr:TFontAtr):TTextStyle;
begin
 //TAlignment = (taLeftJustify, taRightJustify, taCenter);
 //TTextLayout = (tlTop, tlCenter, tlBottom);
 Case FontAtr.Align of
 0,1: begin
      Result.Alignment:=taLeftJustify;
      Result.Layout:=tlTop;
    end;
 2: begin
      Result.Alignment:=taCenter;
      Result.Layout:=tlTop;
    end;
 3: begin
      Result.Alignment:=taRightJustify;
      Result.Layout:=tlTop;
    end;
 4: begin
      Result.Alignment:=taLeftJustify;
      Result.Layout:=tlCenter;
    end;
 5: begin
      Result.Alignment:=taCenter;
      Result.Layout:=tlCenter;
    end;
 6: begin
      Result.Alignment:=taRightJustify;
      Result.Layout:=tlCenter;
    end;
 7: begin
      Result.Alignment:=taLeftJustify;
      Result.Layout:=tlBottom;
    end;
 8: begin
      Result.Alignment:=taCenter;
      Result.Layout:=tlBottom;
    end;
 9: begin
      Result.Alignment:=taRightJustify;
      Result.Layout:=tlBottom;
    end;
 else begin
       Result.Alignment:=taLeftJustify;
       Result.Layout:=tlTop;
      end;
 end;//Case
 Result.ShowPrefix:=False;

 Case FontAtr.Wrap of
 0:begin//0-îáðåçàòü
     Result.Wordbreak:=False;
     Result.SingleLine:=True;
     Result.Clipping:=True;
   end;
 1:begin//1 - ïåðåíîñèòü
     Result.Wordbreak:=True;
     Result.SingleLine:=False;
     Result.Clipping:=False;
 end;
 2:begin//2 - ïðîäëåâàòü ïîâåðõ äðóãèõ ÿ÷ååê
     Result.Wordbreak:=False;
     Result.SingleLine:=True;
     Result.Clipping:=False;
   end;
 end;//Case
 Result.Opaque:=True;
 Result.SystemFont:=False;
end;

[tria]

Мож кто подскажет, где выставляется межстроковое расстояние, расстояние между буквами?
Может эти значения по-умолчанию поменялись?

[Павел Ишенин]

Лучше эту проблему запостить на форум lazarus (lazarus.freepascal.org). Так как я ничего в этом отношении не менял - я ничего сказать не могу.

[Timid]

А разрешение какое, то есть соотношение сторон экрана. Если не 1:1, как 1024х768, а 1024х600 то проблема может быть в реализации true type в Windows. По крайней мере, этим грешит VCL Delphi, наверное и Лазарь может "подхватить".

[tria]

Разрешение 1024х768 и в первом, и во втором случае.
Снимки с экрана делались с одного компа в одно и то же время...