[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;

[NumLock]

а Canvas.Font.Height при выводе в обоих системах одинаковое значение имеет?

Код:

ShowMessage(IntToStr(Canvas.Font.Height));

после

Код:

img.Canvas.Font.Size := 11;

воткнуть к примеру.

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

Так и имя шрифта какое он использует? Я так и не увидел
А то ведь он текущий шрифт будет использовать, а в XP текущим был насколько я помню Tahoma, а в семерке уже Colibri стал, а это совсем другие пропорции.

ПС: Хотя попробовал на W2003 и W7 вроде одинаково все выдает. Может у вас отсутствует Tahoma в XP и идет автоподстановка на схожий шрифт?

И кстати, а что будет если пользователь у вас "случайно" поменяет столбцы в гриде местами?

[xslibris]

Сообщение от Страдалецъ

Так и имя шрифта какое он использует? Я так и не увидел

Код:

img.Canvas.Font.Name := 'Arial';

Видимо случайно удалил, когда сокращал код для предыдущего сообщения.
Вроде стандартный шрифт для обеих систем, но надо бы глянуть, вдруг действительно в XP Arial куда-то делся...

Сообщение от Страдалецъ

И кстати, а что будет если пользователь у вас "случайно" поменяет столбцы в гриде местами?

Код:

Options-[goColMoving]

[xslibris]

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

а Canvas.Font.Height при выводе в обоих системах одинаковое значение имеет?

Под Windows 7 показывает заданое значение, XP под рукой нет, вечером проверю.

[xslibris]

Код:

showmessage(img.Canvas.Font.Name+inttostr(img.Canvas.Font.Size));

и в ХР и в Семёрке говорит Arial 10

[NumLock]

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

Код:

showmessage(img.Canvas.Font.Name+inttostr(img.Canvas.Font.Size));

и в ХР и в Семёрке говорит Arial 10

>>>>>>>>>>

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

а Canvas.Font.Height при выводе в обоих системах одинаковое значение имеет?