|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Код:
StringGrid1.Cells[b,c]:=IntToStr(i) + r + IntToStr(a); Пишу программы за еду. __________________ |
#17
|
||||
|
||||
Цитата:
r - это переменная типа Char. С переменными типа Char так нельзя обращаться. |
#18
|
|||
|
|||
Цитата:
Я попробовал исправить, но видимо команды CharToStr не существует Код:
StringGrid1.Cells[b,c]:=IntToStr(i)+ CharToStr(r)+ IntToStr(a); |
#19
|
||||
|
||||
Цитата:
|
#20
|
|||
|
|||
Цитата:
|
#21
|
|||
|
|||
Цитата:
|
#22
|
|||
|
|||
Извините друзья за такое назойничество, но я опять в проблемах.
Код:
procedure TForm1.Button2Click(Sender: TObject); begin with printer do begin BeginDoc; font.name:='Times New Roman'; Canvas.StretchDraw(PRect,Bitmap); EndDoc; end; end; Последний раз редактировалось udachnik2, 03.09.2012 в 16:38. |
#23
|
||||
|
||||
Цитата:
Код:
uses ..., Printers |
#24
|
|||
|
|||
Код:
Canvas.StretchDraw(StringGrid1); |
#25
|
|||
|
|||
Друзья товарищи, спасибо за ваше терпение. Я разобрался с печатью. Правда это печать с некоторыми ограничениями, но меня такое устраивает.
Ответ оказался проще чем я думал. У компонента TForm есть свой оператор печати. Он так и называется Form1.Print . У него есть свойство PrintScale в котором по вкусу нужно указать некоторые значения poNone - Размер изображения не меняется. Размер может меняться в зависимости от настроек выбираемого принтера. poPrintFit - Делается попытка напечатать форму размером видимом на экране. poProportional - Увеличивает или уменьшает размер изображения подгоняя его под размер странницы созданный при установке принтера. |