Add(PaintBox,2150214,315,182) { Width=500 Height=500 ClearBeforeDraw=0 link(onBeforeDraw,10466119:doDraw,[]) } Add(Img_Rectangle,10466119,364,182) { Point1=1572888 Point2=3145776 rX=3 rY=3 link(onDraw,10177031:doDraw,[]) link(Bitmap,13906585:Var2,[]) } Add(InlineCode,10177031,413,182) { WorkPoints=#6:doDraw| DataPoints=#3:BTM|4:STRM| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|15: icn:TIcon;|9: public|0:|24: BTM,STRM:THI_Event;|0:|51: procedure doDraw(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doDraw;|16:var bmp:PBitmap;|16: stm:PStream;|5:begin|33: stm := ReadStream(_Data, STRM);|26: icn.LoadFromStream(stm);|32: bmp := ReadBitmap(_Data, BTM);|36: icn.Draw(bmp.Canvas.Handle,24,24);|4:end;|0:|4:end.| link(BTM,13906585:Var3,[(419,170)]) link(STRM,1288135:Stream,[]) } Add(GetDataEx,13906585,364,165) { Angle=3 link(Data,2150214:Bitmap,[(353,170)(353,225)(321,225)]) } Add(MemoryStream,1288135,420,133) { Stream=[ZIP9E09000078DAB5D6AF6B026118C0F14744CE2BBB59FC916E18C6CD24363188980C2631894D4C621204414E18E28AB8B46E341A6DB7B47F43D81F309B06F1D9F758595CD8F31EDF837BC3FBE1E5B81F22098E7C5E383FC88B2B921591809892B2FCCCFF65CC66B337311AF1DA5114E52C8C78CDFD7E9F3E1C0E1E46F09F46BCD676BB7DDAED76F7180E868F513530E2DB2518398C3246CBC048B30F0F23C06860F40C0C07C3C7A86274304606460EA38CD1C21860CC0D8C00A381D1C39860AC0D8C2A46076384B1C4D818182D8C01C61C237E064303A38731C15863AC30C606C6086389B1C19862F40D8C3946FC2E093186186D03638DB1C2186374316A06C606638AD1C76862940C8C106388D1C6A860140C8C314617A38651C4700D8C3E4613A38491C14819186D8C0A46219EC3C81A18358C2286CB3EEE301E0D8C1246062365F51DC72858FF87FCBEFE52950F7AA604BD5214AA1CEB2A275FE5E2A95C1D955B524513B4A028143DD6454FBEE8C513BD3AA2B7A4A8BAB4A077FAA4B37C031D667775] }