https://ip76.ru/fast-pixel-post/?ysclid=lg6uxygzh1570783971
Не могли бы набросать аналог компонента рисования точки в IC? Раз он дает такой прирост в скорости. Я тоже буду пытаться, просто может у вас он уже есть?
Я так понял из поиска, что это примерно так:
canvas.Pixels[x,y]:=clRed;
--- Добавлено в 2023-04-07 21:41:26
Netspirit, точно, простите за невнимательность. Сделал цвет красным, но все равно не видно точки. Я и счетчик прикрутил, думал может точка мелкая не видно, но чето пусто:
Add(MainForm,5818658,273,217)
{
Caption="Пример использования Img_Point"
}
Add(PaintBox,14101583,413,147)
{
Left=130
Top=45
Width=100
Height=100
Align=5
}
Add(Button,9659688,329,217)
{
Left=155
Top=170
link(onClick,3404694:doNext,[(373,223)(373,177)(338,177)(338,132)])
}
Add(FTCG_Tools,3255444,413,217)
{
link(onDraw,14101583:doRefresh,[(457,223)(457,192)(401,192)(401,153)])
link(Bitmap,14101583:Bitmap,[])
link(X,3404694:Count,[(426,187)(356,187)])
}
BEGIN_SDK
Add(EditMultiEx,4411740,21,21)
{
WorkCount=#6:doDraw|
EventCount=#6:onDraw|
DataCount=#6:Bitmap|1:X|
link(doDraw,10484219:doDraw,[(35,27)(35,55)])
}
Add(FT_Img_Point,10484219,49,49)
{
X=50
Y=50
Color=65280
link(onDraw,4411740:onDraw,[(201,55)(201,27)])
link(Bitmap,4411740:Bitmap,[(55,35)(27,35)])
link(X,4411740:X,[(62,35)(34,35)])
}
END_SDK
Add(Timer,6428456,301,126)
{
}
Add(CounterEx,3404694,350,126)
{
link(onNext,3255444:doDraw,[(398,132)(398,223)])
}
Может, у меня 2К монитор и он такую тонкую точку или линию рисует что я не вижу?
Netspirit писал(а):
Все зависит от методики тестирования. Сделайте тест, который длится 10 секунд и сообщите результат.Как нить попробую.
--- Добавлено в 2023-04-07 22:00:17
Flapiotun, странно, сохраняешь вашу схему с кириллицей в названии (Узор FTCG - Flapiotun.sha) - сыпет ошибками:
C:\Progs\Programming\Hiasm_Alt\Elements\delphi\code\Share.pas(228) Error: Method 'Destroy' not found in base class
C:\Progs\Programming\Hiasm_Alt\Elements\delphi\code\Share.pas(295) Error: Method 'Destroy' not found in base class
C:\Progs\Programming\Hiasm_Alt\Elements\delphi\code\Share.pas(318) Error: Cannot override a static method
C:\Progs\Programming\Hiasm_Alt\Elements\delphi\code\Share.pas(551) Fatal: Could not compile used unit 'Debug.pas'
Без кириллицы - все ок. Впервые такую избирательность русскоязычного Хиасм вижу. Наверное именно FTCG кодогенератор руссиш не переваривает..
Поиск
Друзья
Администрация