Wrong display from examples/lazfreetype/lazfreetypetest.lpi project (was Ok with 1.0.10)
Original Reporter info from Mantis: jipete
-
Reporter name:
Original Reporter info from Mantis: jipete
- Reporter name:
Description:
The display is wrong with 1.4.0 ; it was perfect with 1.0.10
Steps to reproduce:
simply open the related-to-version project and ide, customize mainform.pas (FormCreate or SetupFonts, and FormPaint) for Linux target as explained below and run with F9
version 1.0.10 :
procedure TForm1.FormCreate(Sender: TObject);
try
ftFont1 := TFreeTypeFont.Create;
ftFont1.Name := '/usr/share/fonts/truetype/liberation/LiberationSansNarrow-Bold.ttf';//'arial.ttf';
ftFont2 := TFreeTypeFont.Create;
ftFont2.Name := '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSansMono.ttf';//'timesi.ttf';
ftFont3 := TFreeTypeFont.Create;
ftFont3.Name := '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSerifCondensed-Italic.ttf';//'verdana.ttf';
version 1.4.0 :
procedure TForm1.SetupFonts;
const
// defFonts:array[1..3] of string[13] = ('arial.ttf','timesi.ttf','verdana.ttf');
defFonts:array[1..3] of string =
('/usr/share/fonts/truetype/liberation/LiberationSansNarrow-Bold.ttf',
'/usr/share/fonts/truetype/ttf-dejavu/DejaVuSansMono.ttf',
'/usr/share/fonts/truetype/ttf-dejavu/DejaVuSerifCondensed-Italic.ttf');
both versions :
procedure TForm1.FormPaint(Sender: TObject);
begin
if lazimg = nil then exit;
// canvas.Font.Name := 'Comic Sans MS';
canvas.Font.Name := '/usr/share/fonts/truetype/gentium/GenR102.ttf';
Mantis conversion info:
- Mantis ID: 28057
- OS: Linux
- OS Build: Debian Wheezy 32
- Build: 0
- Platform: x86
- Version: 1.4
- Monitored by: » jipete (jipete)