Add(MainForm,5818658,273,427)
{
 Caption="Пример использования Img_Point"
}
Add(PaintBox,14101583,413,357)
{
 Left=130
 Top=45
 Width=100
 Height=100
}
Add(Button,9659688,329,427)
{
 Left=155
 Top=170
 link(onClick,3255444:doDraw,[])
}
Add(FTCG_Tools,3255444,413,427)
{
 link(onDraw,14101583:doRefresh,[(457,433)(457,402)(401,402)(401,363)])
 link(Bitmap,14101583:Bitmap,[])
}
BEGIN_SDK
  Add(EditMultiEx,4411740,21,21)
  {
   WorkCount=#6:doDraw|
   EventCount=#6:onDraw|
   DataCount=#6:Bitmap|
   link(doDraw,10484219:doDraw,[(35,27)(35,55)])
  }
  Add(FT_Img_Point,10484219,49,49)
  {
   X=50
   Y=50
   link(onDraw,4411740:onDraw,[(201,55)(201,27)])
   link(Bitmap,4411740:Bitmap,[(55,35)(27,35)])
  }
END_SDK

Add(MainForm,5858627,245,196)
{
 Caption="Пример использования Img_Point"
}
Add(PaintBox,14101583,385,126)
{
 Left=130
 Top=45
 Width=100
 Height=100
}
Add(Button,9659688,301,196)
{
 Left=155
 Top=170
 Data=Integer(0)
 link(onClick,3255444:doDraw,[])
}
Add(FTCG_Tools,3255444,385,196)
{
 link(onDraw,14101583:doRefresh,[(429,202)(429,171)(373,171)(373,132)])
 link(Bitmap,14101583:Bitmap,[])
}
BEGIN_SDK
  Add(EditMultiEx,4411740,196,119)
  {
   WorkCount=#6:doDraw|0:|
   EventCount=#6:onDraw|
   DataCount=#6:Bitmap|
   link(doDraw,4036230:doData,[(224,125)(224,251)])
  }
  Add(FT_Img_Point,10484219,343,231)
  {
   X=50
   Y=50
   link(onDraw,4411740:onDraw,[(435,237)(435,125)])
   link(Bitmap,4411740:Bitmap,[(349,175)(202,175)])
  }
  Add(FT_EventFromData,4036230,252,245)
  {
   link(onEvent,10484219:doDraw,[(314,251)(314,237)])
  }
END_SDK

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

C:\Program Files (x86)\HiAsm Community\HiAsm\Elements\delphi\code\hiFTCG_Tools_25D8210.pas(81) Error: Missing operator or semicolon

C:\Program Files (x86)\HiAsm Community\HiAsm\Elements\delphi\code\hiFTCG_Tools_25D8210.pas(81) Error: Incompatible types: 'Integer' and 'TData'