Вверх ↑
Этот топик читают: Гость
Ответов: 37
Рейтинг: 1
#16: 2017-11-04 10:40:24 ЛС | профиль | цитата
Tad писал(а):

еще про печать...
Получается как...запустил , печать(печатается у меня через PDF-XChange Printer 2012 в файл),получается одна картинка на лист,так...
Если не закрывать программу, и опять печать, то к картинке добавляется еще одна, т.е. 2 на лист.Как исправить?
Если же запустить заново программу , то все в норме, одна картинка на лист.

Add(MainForm,2953706,204,47)
{
Point(Handle)
}
Add(Image,15886761,264,107)
{
Left=180
Top=30
Width=1
Height=1
Visible=1
Point(ImageWidth)
Point(ImageHeight)
Point(doRefresh)
}
Add(ScreenShort,9206700,204,107)
{
link(onCapture,15886761:doLoad,[])
link(Handle,2953706:Handle,[])
}
Add(Hub,9925062,143,107)
{
OutCount=3
link(onEvent1,9206700:doCapture,[])
link(onEvent2,14658084:doData,[(190,120)(190,160)])
link(onEvent3,6438251:doPrintDlg,[(180,127)(180,190)])
}
Add(Printer,6438251,334,177)
{
Title="1"
Point(doPrintDlg)
link(RichEdit,1060362:RichEdit,[])
}
Add(DoData,14658084,264,154)
{
link(onEventData,1060362:doAddBitmap,[])
link(Data,15886761:ImageBitmap,[])
}
Add(RichEdit,1060362,320,119)
{
Left=30
Top=65
Width=0
Height=5
Visible=1
Point(doAddBitmap)
Point(RichEdit)
}
Add(Button,7459685,78,107)
{
Left=155
Top=100
Caption="печать"
link(onClick,9925062:doEvent1,[])
}

Всё, вопрос снят....очистку списка никак не знал)))

Редактировалось 1 раз(а), последний 2017-11-04 10:47:25
карма: 0

0
Ответов: 37
Рейтинг: 1
#17: 2017-11-05 19:49:18 ЛС | профиль | цитата
Tad писал(а):

Уважаемый Tad
пипец, не могу сформулировать...короче....
В окне программы данные полученные от действий на ними, от мат.операций - моргают, или как еще выразиться, мерцают...Это как то поправимо?
Не то чтоб это напрягает, просто интересно, можно ли убрать эти моргания.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#18: 2017-11-06 08:53:47 ЛС | профиль | цитата
Work писал(а):
Не то чтоб это напрягает, просто интересно, можно ли убрать эти моргания.
Можно. Убрать все Timer.
Оставить один для Label, которая "Сегодня ХХ-ХХ-ХХХХ года".
Обрати внимание на колонку Count в окне Debug

Add(MainForm,2953706,21,105)
{
Width=510
Height=123
Position=1
}
Add(MultiElementEx,12322509,77,105)
{
link(Текущая_ДатаВремя,4890042:doEvent,[])
link(ИзменилсяДень_Пересчитать,664302:doEvent,[(128,118)(128,153)])
}
BEGIN_SDK
Add(EditMultiEx,3500381,21,21)
{
EventCount=#17:Текущая_ДатаВремя|25:ИзменилсяДень_Пересчитать|
Width=398
Height=165
VOffset=7
}
Add(Time,13287740,105,28)
{
Format="h:m:s"
Point(DateTime)
Point(DateInt)
}
Add(DateConvertor,3839408,112,84)
{
Mode=9
Format="Сегодня dddd d MMMM yyyy года. Время: Hч.mmм.ssс."
Point(Data)
link(onResult,3500381:Текущая_ДатаВремя,[(243,90)(243,34)])
link(Data,13287740:DateTime,[])
}
Add(Timer,8365301,35,84)
{
link(onTimer,13710104:doEvent1,[])
}
Add(ChangeMon,11797407,161,119)
{
link(onData,3422921:doValue,[])
link(Data,13287740:DateInt,[(167,74)(125,74)])
}
Add(Hub,13710104,77,84)
{
link(onEvent1,3839408:doConvert,[])
link(onEvent2,11797407:doData,[(100,97)(100,125)])
}
Add(Ini,7827951,259,119)
{
@Hint=#7:6.Оклад|
FileName="files\~ut"
Section="ch"
Key="12s"
Type=1
link(onResult,6634954:doOperation,[])
}
Add(Math,1908895,357,119)
{
OpType=1
ResultType=0
link(onResult,3500381:ИзменилсяДень_Пересчитать,[(397,125)(397,41)])
link(Op1,3422921:Value,[(363,106)(248,106)(248,163)(216,163)])
}
Add(Memory,3422921,210,119)
{
link(onData,7827951:doRead,[])
}
Add(Math,6634954,308,119)
{
OpType=37
Op2=1
ResultType=0
link(onResult,1908895:doOperation,[])
}
END_SDK
Add(Label,12235342,168,105)
{
Left=25
Top=10
Width=4
Height=4
Font=[MS Sans Serif,10,1,16711680,1]
Caption=""
}
Add(Label,6459474,168,147)
{
Left=130
Top=50
Width=4
Height=4
Font=[MS Sans Serif,10,1,0,1]
Caption=""
}
Add(Debug,664302,140,147)
{
link(onEvent,6459474:doText,[])
}
Add(Debug,4890042,140,105)
{
link(onEvent,12235342:doText,[])
}
Add(Label,15411341,77,154)
{
Left=25
Top=50
Width=97
Height=17
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Дней по смете:"
}

Перезапись в ini и пересчёт результатов каждую секунду - это бесспорно изобретение века! ИМХО.

Редактировалось 4 раз(а), последний 2017-11-06 09:56:46
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 37
Рейтинг: 1
#19: 2017-11-06 15:14:02 ЛС | профиль | цитата
Tad писал(а):

Обрати внимание на колонку Count в окне Debug

Tad, не догоняю ((, какая информация в этой колонке будет мне полезна?

Tad писал(а):
Перезапись в ini и пересчёт результатов каждую секунду - это бесспорно изобретение века! ИМХО.

Скажу больше...еще и патент оформил)

Редактировалось 2 раз(а), последний 2017-11-06 15:15:52
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#20: 2017-11-08 01:05:56 ЛС | профиль | цитата
Про ini и сколько нужно таймеров

Add(MainForm,2953706,168,63)
{
Width=490
Height=295
Position=1
link(onCreate,8091569:doEvent1,[])
}
Add(Ini,7827951,441,112)
{
@Hint=#5:Оклад|
FileName="myData.ini"
Section="Исходные"
Key="Оклад"
link(onResult,8876167:doText2,[])
AddHint(-8,-66,47,13,Key)
}
Add(Edit,8876167,490,105)
{
Left=145
Top=54
Width=80
Height=16
Color=65535
Font=[MS Sans Serif,10,1,0,204]
Cursor=16
WinStyle=1
Text=""
Alignment=1
MaxLenField=5
link(onChange,8647507:doEvent1,[])
}
Add(Ini,5722825,301,126)
{
@Hint=#11:Дата начала|
FileName="myData.ini"
Section="Исходные"
Key="Дата начала"
link(onResult,13912350:doSetDate,[])
link(Value,7408074:Var3,[(328,117)(386,117)(386,166)])
AddHint(-23,-80,79,13,Key)
}
Add(DatePicker,13912350,350,126)
{
Left=145
Top=100
Width=80
Height=21
Color=65535
Point(CurrentDateTime)
Point(CurrentDateInt)
Point(DateInt)
link(onChange,7994332:doEvent1,[])
}
Add(Hub,8091569,245,77)
{
OutCount=4
link(onEvent2,15094632:doRead,[])
link(onEvent3,7827951:doRead,[(425,97)(425,118)])
link(onEvent4,5722825:doRead,[(280,104)(280,132)])
}
Add(GetDataEx,7408074,364,161)
{
link(Data,13912350:DateInt,[])
}
Add(Math,6664862,357,238)
{
OpType=2
link(onResult,13860527:doConvert,[])
link(Op1,6681821:Result,[])
link(Op2,8876167:Text,[(370,229)(496,229)])
}
Add(Label,4443639,455,238)
{
Left=145
Top=155
Width=80
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Caption=""
AutoSize=1
Alignment=1
}
Add(Label,14583437,168,126)
{
Left=25
Top=50
Width=100
Height=180
Font=[MS Sans Serif,8,0,16711680,1]
Caption="Дневной оклад\r\n\r\nПремия %\r\n\r\nДата начала\r\n\r\nОтработано дней\r\n\r\nНачислено\r\n\r\nПремиальные\r\n\r\nВ с е г о"
AutoSize=1
Alignment=1
}
Add(Label,5850655,455,294)
{
Left=145
Top=180
Width=80
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Caption=""
AutoSize=1
Alignment=1
}
Add(Label,16589292,455,343)
{
Left=145
Top=205
Width=80
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Caption=""
AutoSize=1
Alignment=1
}
Add(Edit,7918259,637,77)
{
Left=145
Top=75
Width=80
Color=65535
Font=[MS Sans Serif,10,1,0,204]
Text=""
Alignment=1
link(onChange,16285452:doEvent1,[])
}
Add(Ini,15094632,588,84)
{
@Hint=#6:Премия|
FileName="myData.ini"
Section="Исходные"
Key="Премия"
link(onResult,7918259:doText2,[])
AddHint(-36,-36,55,13,Key)
}
Add(MathParse,5662484,357,294)
{
MathStr="%1 * %2 / 100"
link(onResult,1213760:doConvert,[])
link(X1,5549321:Var2,[])
link(X2,7918259:Text,[(370,285)(643,285)])
}
Add(Math,7875111,350,343)
{
link(onResult,14892523:doConvert,[])
link(Op1,5549321:Var1,[(356,278)])
link(Op2,5662484:Result,[])
}
Add(GetDataEx,5549321,357,273)
{
link(Data,6664862:Result,[])
}
Add(Hub,5623046,301,189)
{
OutCount=4
link(onEvent1,6681821:doOperation,[])
link(onEvent2,6664862:doOperation,[(336,202)(336,244)])
link(onEvent3,5662484:doCalc,[(330,209)(330,300)])
link(onEvent4,7875111:doOperation,[(321,216)(321,349)])
}
Add(Label,1692531,455,189)
{
Left=145
Top=130
Width=80
Color=65535
Font=[MS Sans Serif,10,1,0,1]
Caption=""
AutoSize=1
Alignment=1
}
Add(Hub,8647507,532,105)
{
link(onEvent1,7827951:doWrite,[(555,111)(555,97)(431,97)(431,125)])
link(onEvent2,1176407:doWork1,[(550,118)])
}
Add(Hub,16285452,679,77)
{
link(onEvent1,15094632:doWrite,[(705,83)(705,71)(575,71)(575,97)])
link(onEvent2,1176407:doWork2,[(700,90)(700,174)])
}
Add(Hub,7994332,392,126)
{
link(onEvent1,5722825:doWrite,[(420,132)(420,110)(284,110)(284,139)])
link(onEvent2,5341303:doWork1,[(410,139)])
}
Add(ConvertorEx,13860527,406,238)
{
Mode=15
link(onResult,4443639:doText,[])
}
Add(ConvertorEx,1213760,406,294)
{
Mode=15
link(onResult,5850655:doText,[])
}
Add(ConvertorEx,14892523,406,343)
{
Mode=15
link(onResult,16589292:doText,[])
}
Add(HubEx,5341303,406,168)
{
Angle=2
link(onEvent,5623046:doEvent1,[(293,174)(293,195)])
}
Add(HubEx,1176407,546,168)
{
Angle=2
link(onEvent,5341303:doWork2,[])
}
Add(Math,6681821,357,189)
{
OpType=1
link(onResult,1692531:doText,[])
link(Op1,13912350:CurrentDateInt,[])
link(Op2,7408074:Var2,[])
}
Add(Timer,2617137,168,189)
{
link(onTimer,3839408:doConvert,[])
}
Add(DateConvertor,3839408,210,189)
{
Mode=9
Format="Сегодея dddd dd MMMM yyyy года Hч.mmм.ssс."
Point(Data)
link(onResult,6137749:doText,[])
link(Data,13912350:CurrentDateTime,[(216,165)(356,165)])
}
Add(Label,6137749,252,189)
{
@Color=13355979
Left=15
Top=15
Width=4
Height=4
Font=[Comic Sans MS,12,1,32768,204]
Cursor=15
Caption=""
ColorHover=8388736
Underline=0
}


Редактировалось 2 раз(а), последний 2017-11-09 08:09:26
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
20
Сообщение
...
Прикрепленные файлы
(файлы не залиты)