Вверх ↑
Ответов: 4630
Рейтинг: 749
#1: 2023-04-06 21:41:31 ЛС | профиль | цитата
По-моему, там ошибка в компоненте FT_Img_Point
Попробуйте заменить код в файле HiAsm\Elements\Delphi\code\hiFT_Img_Point.hws на этот и проверьте работает ли.

func doDraw(Data)
fvar(b,obj)
b = Bitmap
switch(DrawSource)
case 0:
//obj = b + '.'
obj = ''
b = 'PBitmap(' + b + '.idata).Handle,'
case 1:
obj = ''
lng.decl_loc_var(dc, 'HDC')
println(dc, ' := GetDC(', e_int(b), ');')
b = dc && ', '
case 2:
obj = ''
b = e_int(b) && ', '
end
println(obj, 'SetPixel(', b, X, ', ', Y, ', ', Color, ');')
event(onDraw, _data_)
end
Свойство Color также надо поставить отличным от clBlack, либо присоединить нужное значение к верхней точке.
карма: 26

0