[xslibris]

Добрый день!
Подскажите пожалуйста как правильнее будет решить проблему - есть приложение, одной из функций которого является сохранение в *png информации из таблицы. В Windows 7 картинка выглядит нормально, а в Windows XP такое ощущение будто размер шрифта увеличен минимум на 2 раза, из-за чего текст начинает перекрывать другие элементы изображения.

[NumLock]

а как текст в изображение выводится?

[xslibris]

Текст вывожу с помошью Canvas.TextOut

Код:

 img.Canvas.TextOut(585,430,'Долг/');
 img.Canvas.TextOut(580,450,'Переплата');

[NumLock]

лучше выложи минимальный проект, так быстрее будет...

[Страдалецъ]

Т.е. вы не указываете конкретный шрифт и его параметры при выводе на канву? Может имеет смысл сделать это?

[xslibris]

Простите за 'простыню' -

Код:

var
  img:TBitmap;
  sohr:string;
  png:TPngObject;
begin
 sohr:='отчёты\'+TntDBGrid1.fields[2].asstring+'.png';
 img:=TBitmap.Create;
 img.Height:=600;
 img.Width:=800;
 img.Transparent := False;
 img.Canvas.Brush.Color := clWhite;
 ...
//Нижняя таблица
 img.Canvas.MoveTo(30,390);
 img.Canvas.LineTo(750,390);
 img.Canvas.MoveTo(30,510);
 img.Canvas.LineTo(750,510);
 ...
 img.Canvas.MoveTo(675,390);
 img.Canvas.LineTo(675,510);
 img.Canvas.MoveTo(750,390);
 img.Canvas.LineTo(750,510);
 ...
 //Текст нижней части
 img.Canvas.Font.Size := 11;
 img.Canvas.Font.Style := [fsBold];
 img.Canvas.TextOut(30,305,'ТОО "Тұрғын үй жөндеу - Қаратау" РНН:211000211973.');
 img.Canvas.TextOut(500,305,'ИИК: KZ946010161000159806');
 img.Canvas.TextOut(30,325,'"Народный Банк Казахстана". БИК:HSBKKZKX');
 img.Canvas.TextOut(30,345,'Плательщик: '+TntDBGrid1.fields[2].asstring);
 img.Canvas.TextOut(30,365,'Адрес: '+TntDBGrid1.fields[1].asstring);
 ... 
 img.Canvas.TextOut(680,450,'К оплате');
 img.Canvas.TextOut(680,490, TntDBGrid1.Fields[4].asstring+' тг.');
 img.Canvas.Font.Style:=[];
 img.Canvas.Font.Size:=10;
 img.Canvas.TextOut(30,520,'Просим Вас оплатить задолжность в течении 10 дней.');
 img.Canvas.TextOut(30,540,'Оплата счёта производится через кассу АО "Казпочта" г. Каратау.');
 img.Canvas.TextOut(30,560,'По общим вопросам обращаться: ТОО "Тұрғын үй жөндеу - Қаратау" г. Каратау ул. Шейна №47');
 png:=TpngObject.Create;
 png.Assign(img);
 png.SaveToFile(sohr);
 img.Free;
 png.Free;
end;