Вверх ↑
Этот топик читают: Гость
Ответов: 4628
Рейтинг: 749
#226: 2014-03-31 11:27:31 ЛС | профиль | цитата
Обновлена сборка

- FPC 2.6.4
- пакет SVN 1613
- включены промежуточные исправления
карма: 26

4
Голосовали:MAV, laborpago, sashaoli, Konst
Ответов: 1304
Рейтинг: 405
#227: 2014-04-01 00:29:51 ЛС | профиль | цитата
Netspirit, на Gif элементе вылезло
hiGif.pas(312,47) Error: Identifier not found "HeapAllocFlags"
hiGif.pas(1885,4) Fatal: There were 1 errors compiling module, stopping

карма: 3

0
Ответов: 4628
Рейтинг: 749
#228: 2014-04-01 11:32:53 ЛС | профиль | цитата
В строках 308, 310 заменить "F_P" на "FPC". Надо бы проверить, работает ли вообще компонент.
Кстати, почему не используются функции GetMem/FreeMem вместо самодельных AllocMemo/FreeMemo?
карма: 26

0
Ответов: 1304
Рейтинг: 405
#229: 2014-04-01 12:35:49 ЛС | профиль | цитата
Netspirit, заменил и проверил работоспособность компонента, весь функционал компонента работает.
карма: 3

0
Ответов: 413
Рейтинг: 57
#230: 2014-11-07 19:09:53 ЛС | профиль | цитата
При компилировании FPCx32 следующей схемы (перегнав дату из DatePicker в строку и обратно) мы получаем другую дату
Возможно ли это исправить?

Add(MainForm,2953706,21,105)
{
Width=368
Height=107
DragForm=0
Position=1
}
Add(DatePicker,367113,679,364)
{
@Hint=#4:Дата|
Left=190
Top=25
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
AddHint(-3,46,41,13,@Hint)
}
Add(DatePicker,10354439,504,364)
{
@Hint=#4:Дата|
Left=5
Top=25
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
link(onChange,7402534:doConvert,[])
AddHint(-5,48,41,13,@Hint)
}
Add(DateConvertor,7402534,560,364)
{
Mode=9
Format="dd.MM.yyyy"
Point(Data)
link(onResult,11180465:doConvert,[])
}
Add(DateConvertor,11180465,623,364)
{
Mode=8
Format="dd.MM.yyyy"
Point(Data)
link(onResult,367113:doSetDate,[])
}

карма: 0

0
файлы: 1code_34564.txt [800B] [876]
Ответов: 4628
Рейтинг: 749
#231: 2014-11-07 19:23:43 ЛС | профиль | цитата
А почему в исходнике схемы русские команды?
карма: 26

0
Разработчик
Ответов: 26113
Рейтинг: 2126
#232: 2014-11-07 20:56:43 ЛС | профиль | цитата
Netspirit писал(а):
А почему в исходнике схемы русские команды?

ХЗ, плчему у него в этом примере комманды на кириллице, но в исходном варианте они на латинице. Вот тут обсуждение этого примера -- http://forum.hiasm.com/forum.html?q=3&p=272873#p272873
карма: 22

0
Ответов: 413
Рейтинг: 57
#233: 2014-11-07 22:44:01 ЛС | профиль | цитата
Netspirit писал(а):
А почему в исходнике схемы русские команды?

Прошу прощения. При переносе из темы в тему не заметил, что Punto Switcher перевел текст. Исправил.
карма: 0

0
Ответов: 4628
Рейтинг: 749
#234: 2014-11-08 20:46:08 ЛС | профиль | цитата
Poputchik, замени и попробуй. Заодно и на x64.
карма: 26

0
Ответов: 413
Рейтинг: 57
#235: 2014-11-08 22:35:24 ЛС | профиль | цитата
Netspirit писал(а):
замени и попробуй. Заодно и на x64.

Попробовал без DateConvertor соединить два DatePicker и даты выводит верные, а вот с DateConvertor нет. Получается ошибка в DateConvertor кроется
Add(MainForm,15379800,329,112)
{
Width=368
Height=149
DragForm=0
Position=1
}
Add(DatePicker,367113,609,196)
{
@Hint=#4:Дата|
Left=190
Top=25
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
AddHint(-3,46,41,13,@Hint)
}
Add(DatePicker,10354439,434,196)
{
@Hint=#4:Дата|
Left=5
Top=25
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
link(onChange,367113:doSetDate,[])
AddHint(-5,48,41,13,@Hint)
}
Add(DatePicker,2868916,749,294)
{
@Hint=#4:Дата|
Left=190
Top=70
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
AddHint(-3,46,41,13,@Hint)
}
Add(DatePicker,5299703,378,294)
{
@Hint=#4:Дата|
Left=10
Top=70
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
link(onChange,597007:doEvent1,[])
AddHint(-5,48,41,13,@Hint)
}
Add(DateConvertor,10755207,504,294)
{
Mode=9
Format="dd.MM.yyyy"
Point(Data)
link(onResult,11557036:doConvert,[])
}
Add(DateConvertor,11557036,567,294)
{
Mode=8
Format="dd.MM.yyyy"
Point(Data)
link(onResult,15216875:doEvent1,[])
}
Add(Label,6350345,525,350)
{
Left=7
Top=92
Width=135
}
Add(Hub,597007,434,294)
{
link(onEvent1,10755207:doConvert,[])
link(onEvent2,6350345:doText,[(494,307)(494,356)])
}
Add(Label,6568496,679,350)
{
Left=192
Top=92
Width=155
}
Add(Hub,15216875,616,294)
{
link(onEvent1,2868916:doSetDate,[])
link(onEvent2,6568496:doText,[(669,307)(669,356)])
}


При компилировании на делфи выходное значение из DateConvertor равно, округленному до целого числа в меньшую сторону, входному значению первого DateConvertor
А при компилировании на FPC оно приблизительно на единицу меньше.
карма: 0

0
файлы: 1code_34579.txt [953B] [842]
Ответов: 4628
Рейтинг: 749
#236: 2014-11-09 11:45:31 ЛС | профиль | цитата
Да, причина в потере точности.
Замени в файлах FPC2srcpackagesKOLkol.pas, FPC2srcpackagesKOLx64kol.pas в функции SystemTime2DateTime это
DateTime := Int64( TR.it ) / (10000000.0 * 24 * 3600 ) + Date1601;
на это:
DateTime := Int64( TR.it ) / ({$IFDEF FPC}Double(10000000.0){$ELSE}10000000.0{$ENDIF} * 24 * 3600 ) + Date1601;

После этого запусти FPC2src\_make_x32.bat, FPC2src\_make_x64.bat
карма: 26

1
Голосовали:Poputchik
Ответов: 413
Рейтинг: 57
#237: 2014-11-09 12:00:55 ЛС | профиль | цитата
Netspirit писал(а):
Замени в файлах . . .

Теперь нормально работает. Спасибо!
карма: 0

0
Ответов: 1058
Рейтинг: 76
#238: 2015-03-03 02:32:51 ЛС | профиль | цитата
На форме пустой VBJScript
[offtop]
Command line: ppc386.exe "C:\HiAsm\Elements\FPC2\code\Project45.dpr" -Fu"C:\HiAsm\compiler\FPC2\units32" -FE"\Users\admin\Projects\" -FU"C:\HiAsm\Elements\FPC2\code\units32" -Twin32 -vi
Target OS: Win32 for i386
Compiling C:\HiAsm\Elements\FPC2\code\Project45.dpr
Compiling C:\HiAsm\Elements\FPC2\code\hiMainForm_32D6BE0.pas
Compiling C:\HiAsm\Elements\FPC2\code\hiVBJScript.pas
hiVBJScript.pas(5,48) Fatal: Can't find unit ActiveKOL used by hiVBJScript
Fatal: Compilation aborted
Сборка завершена.
[/offtop]
карма: 0

0
Ответов: 4628
Рейтинг: 749
#239: 2015-03-03 11:18:30 ЛС | профиль | цитата
Не реализовано пока.
карма: 26

0
Ответов: 1304
Рейтинг: 405
#240: 2015-07-28 00:25:30 ЛС | профиль | цитата
Netspirit, столкнулся со странным поведением параллельного потока при запуске OGL, по представленной ниже схеме в основном потоке обработка потребностей OGL в параллельном расчёты. Под FPC запускается секунд на пять и вылетает под delphi работает без проблем. Так как в моём варианте OGL на API-шном окне думал проблема из за этого, пробовал "свой" TThread-поток создать, всё равно вылетает, уже добрался до критической секции а потом дошло попробовать в стандартном варианте на KOL окне такая же картина . Если будет время посмотри, может какая мысль возникнет.
code_36069.txt
карма: 3

0
файлы: 1code_36069.txt [3.7KB] [618]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)