|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Разница в отображении Canvas.Font.Size
Добрый день!
Подскажите пожалуйста как правильнее будет решить проблему - есть приложение, одной из функций которого является сохранение в *png информации из таблицы. В Windows 7 картинка выглядит нормально, а в Windows XP такое ощущение будто размер шрифта увеличен минимум на 2 раза, из-за чего текст начинает перекрывать другие элементы изображения. |
#2
|
||||
|
||||
а как текст в изображение выводится?
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Текст вывожу с помошью Canvas.TextOut
Код:
img.Canvas.TextOut(585,430,'Долг/'); img.Canvas.TextOut(580,450,'Переплата'); |
#4
|
||||
|
||||
лучше выложи минимальный проект, так быстрее будет...
Пишу программы за еду. __________________ |
#5
|
||||
|
||||
Т.е. вы не указываете конкретный шрифт и его параметры при выводе на канву? Может имеет смысл сделать это?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
|||
|
|||
Простите за 'простыню' -
Код:
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; |
#7
|
||||
|
||||
а Canvas.Font.Height при выводе в обоих системах одинаковое значение имеет?
Код:
ShowMessage(IntToStr(Canvas.Font.Height)); Код:
img.Canvas.Font.Size := 11; Пишу программы за еду. __________________ |
#8
|
||||
|
||||
Так и имя шрифта какое он использует? Я так и не увидел
А то ведь он текущий шрифт будет использовать, а в XP текущим был насколько я помню Tahoma, а в семерке уже Colibri стал, а это совсем другие пропорции. ПС: Хотя попробовал на W2003 и W7 вроде одинаково все выдает. Может у вас отсутствует Tahoma в XP и идет автоподстановка на схожий шрифт? И кстати, а что будет если пользователь у вас "случайно" поменяет столбцы в гриде местами? Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 05.08.2013 в 16:58. |
#9
|
|||
|
|||
Цитата:
Код:
img.Canvas.Font.Name := 'Arial'; Вроде стандартный шрифт для обеих систем, но надо бы глянуть, вдруг действительно в XP Arial куда-то делся... Цитата:
Код:
Options-[goColMoving] Последний раз редактировалось xslibris, 06.08.2013 в 08:53. |
#10
|
|||
|
|||
Цитата:
|
#11
|
|||
|
|||
Код:
showmessage(img.Canvas.Font.Name+inttostr(img.Canvas.Font.Size)); |
#12
|
||||
|
||||
Цитата:
Цитата:
Пишу программы за еду. __________________ |