Вверх ↑
Этот топик читают: Гость
Ответов: 322
Рейтинг: 8
#46: 2017-04-23 18:01:11 ЛС | профиль | цитата
Tad писал(а):
вот объясни мне

Полностью с тобой согласен.
По началу я вообще не умел запросы делать (ни как), не понимал работу элементов в среде. Но постепенно изучая, начинаю вникать. Так же и с запросами, постепенно буду стремиться к "совершенству".
Огромное спасибо за примеры!
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#47: 2017-04-23 21:52:08 ЛС | профиль | цитата
Всё. Дальше сами.

Редактировалось 1 раз(а), последний 2017-04-23 21:52:28
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#48: 2017-04-24 08:06:22 ЛС | профиль | цитата
Перезалил
tad_2.jpg

Редактировалось 1 раз(а), последний 2017-04-24 13:13:22
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1Test.rar [4.6KB] [481]
Голосовали:Tri-j
Ответов: 322
Рейтинг: 8
#49: 2017-04-24 09:36:27 ЛС | профиль | цитата
Отчёт.jpg
в программе ещё добавлена полная расшифровка расходов при выводе таблицы.
карма: 0

1
Голосовали:Tri-j
Ответов: 75
Рейтинг: 2
#50: 2017-04-25 17:30:47 ЛС | профиль | цитата
Господа! Вы звери, господа! За что мне и нравится этот форум))) Уделали мою программку так, что теперь родной папа её не узнаёт)))

Редактировалось 1 раз(а), последний 2017-04-25 17:33:05
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#51: 2017-04-28 16:32:30 ЛС | профиль | цитата
Вид страницы для печати
Хотя (честно) не понимаю зачем нужна печать в "Домашней бухгалтерии"?

Редактировалось 5 раз(а), последний 2017-04-28 18:39:00
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 19
Рейтинг: 1
#52: 2017-05-06 01:38:13 ЛС | профиль | цитата
Ребята, всё пипец, пытался сам, но не выходит. Помогите. Нужно автоматизировать печать на принтере, проблема на данном этапе это качество печати. Через хиасмовский компонент принтера, качество гораздо хуже чем если распечатать любой программой. Печатать надо фотографии. Здесь в шапке я скачал программу , которая распечатывает прямо на принтер через компонент браузера, по моему без потери качества. По этому здесь и написал. Можно ли сделать что то подобное для печати фотографий? Не обязательно даже их просматривать, к примеру лежат они в папке под своими именами, в программе список имен вывел и на печать. Главное на начальном этапе хотя бы добиться печать одной без потери качества. Помогите пожалуйста.
карма: 0

0
Ответов: 322
Рейтинг: 8
#53: 2017-05-06 05:26:17 ЛС | профиль | цитата
Alextven писал(а):
Помогите.

Так пойдёт?

Add(MainForm,2953706,21,105)
{
Width=525
Height=291
}
Add(Button,5902944,329,175)
{
Left=335
Top=225
Caption="Печать"
link(onClick,11234646:doPreview,[(377,181)(377,160)])
}
Add(WebBrowser,11234646,448,112)
{
Left=5
Top=5
Width=500
Height=215
Point(doFromText)
Point(doPrint)
Point(doPreview)
}
Add(FormatStr,8924692,329,140)
{
DataCount=1
Mask="<CENTER><img src="%1"></CENTER>"
link(onFString,11234646:doFromText,[])
link(Str1,3100728:Value,[])
}
Add(Memory,3100728,329,91)
{
link(onData,8924692:doString,[(371,97)(371,130)(317,130)(317,146)])
}
Add(Button,11795119,196,91)
{
Left=75
Top=225
Width=115
Caption="Вставить картинку"
link(onClick,9526743:doExecute,[])
}
Add(ODialog,9526743,259,91)
{
Filter="Image|*.jpg;*.png;*.bmp;*.ico"
link(onExecute,3100728:doValue,[])
}
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#54: 2017-05-06 07:31:36 ЛС | профиль | цитата
Dad2016 писал(а):
Так пойдёт?

Блин...
Ну и зачем там нужен компонент MEMORY ???
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 19
Рейтинг: 1
#55: 2017-05-06 14:10:52 ЛС | профиль | цитата
Dad2016.
Классно!!!! Спасибо огромное. Как теперь в хиасме можно масштабировать картинку, без потери качества? Картинка с размером 5000х7000 пикселей.
Вставляется, но влазит лишь часть. Через диалог принтера не подходит, по причине автоматизации. Пробовал масштабировать компонентами графики, не получилось.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#56: 2017-05-06 15:02:57 ЛС | профиль | цитата
Alextven писал(а):
Вставляется, но влазит лишь часть.

А ты не смотри на неё.


Add(MainForm,1089317,77,126)
{
Width=611
Height=315
}
Add(WebBrowser,11234646,308,98)
{
Left=410
Top=5
Width=95
Height=75
Visible=1
Point(doFromText)
Point(doPrint)
Point(doPreview)
}
Add(FormatStr,8924692,252,126)
{
DataCount=1
Mask="<img src="%1">"
link(onFString,11234646:doFromText,[])
}
Add(Button,11795119,126,126)
{
Left=20
Top=225
Width=115
Caption="Выбрать"
link(onClick,9526743:doExecute,[])
}
Add(ODialog,9526743,175,126)
{
Filter="Image|*.jpg;*.png;*.bmp;*.ico"
link(onExecute,921398:doEvent1,[])
}
Add(Hub,921398,217,126)
{
link(onEvent1,8924692:doString,[])
link(onEvent2,11137342:doTimer,[(243,139)(243,174)])
}
Add(Timer,11137342,252,168)
{
Enable=1
AutoStop=1
link(onTimer,11234646:doPreview,[(294,174)(294,146)])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 19
Рейтинг: 1
#57: 2017-05-06 15:47:39 ЛС | профиль | цитата
Спасибо, поеду на работу пробовать.
карма: 0

0
Ответов: 19
Рейтинг: 1
#58: 2017-05-06 18:55:08 ЛС | профиль | цитата
Не, не получается. Печатает кусок картинки.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#59: 2017-05-07 18:10:33 ЛС | профиль | цитата
Удалено

Редактировалось 4 раз(а), последний 2017-05-08 10:48:28
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 19
Рейтинг: 1
#60: 2017-05-07 22:46:18 ЛС | профиль | цитата
Делать картинку меньше я научился, два слова в коде, блин почти два дня. Но теперь проблема в полях на распечатываемой странице, никак их не могу убрать.
Тад, выше пост, это мне?
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)