HiAsm - ��

Mod BitmapArray (doAdd,doInseret,doDelete)

mybb@mybb.ru (andrestudio) — Tue, 30 Jun 2026 13:53:49 +0300

3042 �� Data � ��,
�� . � �� .
�� .
�� HiAsm ��
� �� .

customver - ��

mybb@mybb.ru (andrestudio) — Mon, 29 Jun 2026 05:53:00 +0300

��, ��. ��

ScreenToPNG

mybb@mybb.ru (3042) — Sat, 27 Jun 2026 16:55:11 +0300

� �� , � �� , �� UVScreenCamera:

��:

Add(PictureStream,3493138,546,224)
{
 Quality=90
}
Add(Button,8086098,413,147)
{
 @Color=255
 Left=320
 Top=55
 Width=65
 Height=25
 Caption="�������"
 Data=Integer(1)
 link(onClick,8063350:doWork1,[])
 AddHint(-70,-1,58,13,Caption)
 AddHint(-34,18,21,13,Data)
}
Add(ScreenShort,8665154,476,231)
{
 UseRegion=1
 Point(Region)
 link(onCapture,15489880:doWork2,[])
 link(Region,8063350:Var2,[])
}
Add(ChildForm,8063350,476,147)
{
 @Hint=#17:������� ���������|
}
BEGIN_SDK
  Add(EditMulti,4804366,21,21)
  {
   WorkCount=2
   VarCount=2
   Height=298
   VOffset=35
   HOffset=70
   link(doWork1,13786822:In,[])
   link(doWork2,14391666:doOperation,[(42,69)(42,153)])
   link(Var1,13799839:Var1,[(97,306)])
   link(Var2,8605154:Result,[])
  }
  Add(MainForm,10791562,413,35)
  {
   Left=35
   Top=105
   Color=8388736
   Visible=1
   BorderStyle=7
   DragForm=0
   SavePosName="PrScreener.ini\\Region"
   TransparentManager="123"
   Point(Handle)
   Point(doVisible)
   link(onCreate,1949982:doData,[])
  }
  Add(TransparentManager,11667004,560,42)
  {
   @Hint=#107:�� ���� ����� �������� ����������� � ������������ ��������� ������������� ��� ��� ������ ������������ �����|20:clPurple = $80 00 80|
   Name="123"
   FormTranspColor=8388736
   LeftWidth=20
   RightWidth=20
   TopHeight=20
   BottomHeight=20
   AddHint(72,-17,179,65,@Hint)
  }
  Add(ChildPanel,16569986,413,126)
  {
   link(onEvent1,8736232:doReset,[])
   link(Data1,696278:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,16122400,21,21)
    {
     EventCount=1
     DataCount=1
    }
    Add(Panel,16212458,119,98)
    {
     Width=400
     Height=20
     Align=2
     Color=65280
     link(onClick,10587399:doMove,[])
    }
    Add(MoveWindow,10587399,168,98)
    {
     link(Handle,16122400:Data1,[(174,60)(27,60)])
    }
    Add(ButtonRush,10641312,273,21)
    {
     Left=378
     Top=2
     Width=20
     Height=16
     Align=3
     BorderColorOver=10789024
     ColorShadowOver=16777215
     ShadowOffsetOver=0
     UpdateSpeed=0
     Caption="�"
     Glyphs=[]
     link(onClick,16122400:onEvent1,[])
    }
  END_SDK
  Add(ChildPanel,5872043,406,182)
  {
   link(Data1,7627328:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,8733418,21,21)
    {
     DataCount=1
    }
    Add(Panel,673315,91,77)
    {
     Width=400
     Height=5
     Align=4
     Color=65280
     link(onClick,15339854:doMove,[])
    }
    Add(MoveWindow,15339854,147,77)
    {
     link(Handle,8733418:Data1,[(153,49)(27,49)])
    }
  END_SDK
  Add(GetDataEx,696278,413,105)
  {
   link(Data,11045768:Var2,[])
  }
  Add(ChildPanel,13751857,364,126)
  {
   link(Data1,7627328:Var1,[(370,110)])
  }
  BEGIN_SDK
    Add(EditMulti,8840099,21,21)
    {
     DataCount=1
    }
    Add(Panel,7965088,119,98)
    {
     Top=5
     Width=5
     Height=290
     Align=1
     Color=65280
     link(onClick,4259288:doMove,[])
    }
    Add(MoveWindow,4259288,168,98)
    {
     link(Handle,8840099:Data1,[(174,60)(27,60)])
    }
  END_SDK
  Add(GetDataEx,7627328,406,105)
  {
   Angle=1
   link(Data,696278:Var1,[])
  }
  Add(ChildPanel,12797164,462,168)
  {
   link(Data1,696278:Var3,[(468,110)])
  }
  BEGIN_SDK
    Add(EditMulti,6250147,21,21)
    {
     DataCount=1
    }
    Add(Panel,16307853,119,98)
    {
     Top=5
     Width=5
     Height=290
     Align=3
     Color=65280
     link(onClick,240658:doMove,[])
    }
    Add(MoveWindow,240658,168,98)
    {
     link(Handle,6250147:Data1,[(174,60)(27,60)])
    }
  END_SDK
  Add(WinTools,335217,518,42)
  {
   link(Handle,11045768:Var3,[(524,30)(460,30)(460,82)])
  }
  Add(DoData,1949982,469,49)
  {
   Data=Integer(1)
   link(onEventData,335217:doPopup,[])
   AddHint(8,-18,21,13,Data)
  }
  Add(GetDataEx,11045768,413,77)
  {
   link(Data,10791562:Handle,[])
  }
  Add(PosWindow,9681169,98,98)
  {
   link(Handle,679457:Var1,[(104,82)])
  }
  Add(PointXY,13322257,98,196)
  {
   link(X,14391666:Result,[(104,188)(69,188)])
   link(Y,14864177:Result,[])
  }
  Add(PointXY,6469236,161,196)
  {
   link(X,2706150:Result,[])
   link(Y,8554930:Result,[(174,188)(209,188)])
  }
  Add(SizeWindow,4169557,196,98)
  {
   link(Handle,679457:Var2,[])
  }
  Add(GetDataEx,679457,196,77)
  {
   Angle=1
   link(Data,11045768:Var1,[])
  }
  Add(Math,14391666,63,147)
  {
   Op2=12
   ResultType=0
   link(onResult,14864177:doOperation,[])
   link(Op1,9681169:CurrentLeft,[(69,139)(104,139)])
  }
  Add(Math,14864177,105,147)
  {
   Op2=27
   ResultType=0
   link(onResult,2706150:doOperation,[])
   link(Op1,9681169:CurrentTop,[])
  }
  Add(Math,2706150,161,147)
  {
   OpType=1
   Op2=24
   ResultType=0
   link(onResult,8554930:doOperation,[])
   link(Op1,4169557:CurrentWidth,[(167,139)(202,139)])
  }
  Add(Math,8554930,203,147)
  {
   OpType=1
   Op2=39
   ResultType=0
   link(onResult,11532550:In,[])
   link(Op1,4169557:CurrentHeight,[])
  }
  Add(LineBreak,14063066,56,259)
  {
   link(Out,8605154:doCreateRect,[])
   Primary=[11532550,189,-112]
  }
  Add(GetDataEx,13799839,553,301)
  {
   link(Data,8736232:State,[])
  }
  Add(RGN_Rect,8605154,98,259)
  {
   Point2AsOffset=0
   link(Point1,13322257:Point,[])
   link(Point2,6469236:Point,[(111,243)(167,243)])
  }
  Add(Switch,8736232,553,119)
  {
   DataOn=Integer(1)
   DataOff=Integer(0)
   link(onSwitch,10791562:doVisible,[(597,125)(597,97)(401,97)(401,69)])
   AddHint(-15,-22,21,13,DataOff)
   AddHint(20,-23,21,13,DataOn)
  }
  Add(LineBreak,7892894,511,119)
  {
   Caption="0/1"
   link(Out,8736232:doSwitch,[])
   Primary=[13786822,-462,-63]
  }
END_SDK
Add(Hub,9163698,434,224)
{
 link(onEvent1,8063350:doWork2,[(462,230)(462,160)])
 link(onEvent2,8665154:doCapture,[])
}
Add(ScreenShort,4754156,434,280)
{
 link(onCapture,15489880:doWork3,[(522,286)])
}
Add(IndexToChanel,1084720,385,217)
{
 Data=Integer(0)
 Point(Index)
 link(onEvent1,4754156:doCapture,[(425,223)(425,286)])
 link(onEvent2,9163698:doEvent1,[])
 link(Index,8063350:Var1,[(391,198)(482,198)])
 AddHint(4,36,21,13,Data)
}
Add(HubEx,15489880,518,231)
{
 link(onEvent,3493138:doSave,[])
}

�� -��, �� - �� . 8-)

��

mybb@mybb.ru (Knjaz2005) — Fri, 19 Jun 2026 11:10:00 +0300

�� HiAsm. ��, ��-�� .

github.com

�� , �� -�� .

�� : �� , �� HiAsm �� pascal-��, �� DLL. ��-�� NativeAOT DLL, �� .NET Runtime �� . ��-�� C++-��, �� NativeAOT �� .

� �� : �� (� �� ) �� , �� , �� runtime-�� DLL. �� , �� HiAsm.

��:

- XMLNativeAOTEditor
�� XML �� NativeAOT DLL: �� XML �� /��, XPath, namespaces, �� , �� .
��: FPC2 x32/x64 ANSI/Unicode. �� compile-check � �� FPC2-��. �� NativeAOT �� NET9 � C++ ��.

- FPCWebBrowser
�� WebView2-�� FPC2 x32/x64 ANSI/Unicode. �� IE WebBrowser ��, �� Edge/WebView2.
�� FPC 1.9.x � �� D4 HiAsm �� , �� FPC2 - �� D4 ��.

- NativeAOTMail
�� SMTP/IMAP/POP3: MailSession, MailSend, MailList, MailRead, MailDelete. ��, �� , ��, �� , ��.
�� Delphi 4 � FPC/FPC2, �� : �� .

�� HiAsm � �� FPC2, �� x32/x64 � ANSI/Unicode-��. �� FPC �� : � �� 2.6.0, �� 3.2.3. �� :
https://disk.yandex.ru/d/9nHdCgy8OygKmA

DLL �� XML � Mail �� NativeAOT, �� .NET Runtime �� . �� FPCWebBrowser �� Microsoft Edge WebView2; WebView2 Runtime �� , � �� WebView2Loader.dll.

�� : GPL-3.0. �� . �� THIRD-PARTY-NOTICES.

�� -�� - �� HiAsm � �� FPC2: x32/x64, ANSI/Unicode. �� FPC2 �� , �� x64.

Innerfuse Pascal Script

mybb@mybb.ru (andrestudio) — Mon, 15 Jun 2026 13:16:10 +0300

�� Object Pascal
�� FPC �� , �� .
�� FPC

��

�� :)

mybb@mybb.ru (andrestudio) — Mon, 15 Jun 2026 12:52:08 +0300

�� .
� ��, �� , �� ..� �� .
�� . ��, �� :)
�� , �� ?

��, ��

LEDFont

mybb@mybb.ru (andrestudio) — Thu, 04 Jun 2026 14:14:49 +0300

�� .
� ��
��
Full �� .

��

mybb@mybb.ru (andrestudio) — Fri, 29 May 2026 06:24:06 +0300

�� ActiveX
��
�� CoClasses �� ActiveX
�� , �� ini ��
��

��:

Add(MainForm,2953706,63,112)
{
 Width=690
 Height=344
 Caption="ActiveXinfo v1.0"
 BorderStyle=1
}
Add(InlineCode,13096425,266,63)
{
 WorkPoints=#12:doGetActiveX|15:doGetInterfaces|15:doGetProperties|
 EventPoints=#9:onClasses|12:onInterfaces|12:onProperties|7:onEnums|11:onFunctions|
 Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|32:uses kol,Share,Debug,KOLTlbUtil;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|22:     TL: TTypeLibrary;|27:     ClassesList: PStrList;|30:     InterfacesList: PStrList;|30:     PropertiesList: PStrList;|25:     EnumsList: PStrList;|28:     FunctionList: PStrList;|24:     ClassesID: integer;|27:     InterfacesID: integer;|9:   public|24:     Classes: THI_Event;|27:     Interfaces: THI_Event;|26:     onClasses: THI_Event;|29:     onInterfaces: THI_Event;|29:     onProperties: THI_Event;|24:     onEnums: THI_Event;|28:     onFunctions: THI_Event;|25:     constructor Create; |54:     procedure doGetActiveX(var dt: TData; idx: word);|57:     procedure doGetInterfaces(var dt: TData; idx: word);|57:     procedure doGetProperties(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|32:constructor THiAsmClass.Create; |5:begin|28:  ClassesList := NewStrList;|31:  InterfacesList := NewStrList;|31:  PropertiesList := NewStrList;|26:  EnumsList := NewStrList;|29:  FunctionList := NewStrList;|4:end;|0:|61:procedure THiAsmClass.doGetActiveX(var dt: TData; idx: word);|3:var|13:  i: integer;|5:begin|31:  if Assigned(TL) then TL.Free;|20:  ClassesList.Clear;|23:  InterfacesList.Clear;|23:  PropertiesList.Clear;|18:  EnumsList.Clear;|21:  FunctionList.Clear;|28:  _hi_onEvent(onClasses,'');|31:  _hi_onEvent(onInterfaces,'');|31:  _hi_onEvent(onProperties,'');|26:  _hi_onEvent(onEnums,'');|30:  _hi_onEvent(onFunctions,'');|0:|42:  TL := TTypeLibrary.Create(ToString(dt));|36:  for i := 0 to TL.CoClassCount-1 do|42:    ClassesList.Add(TL.CoClasses[i].Name);|4:    |42:  _hi_onEvent(onClasses,ClassesList.Text);|33:  for i := 0 to TL.EnumCount-1 do|36:    EnumsList.Add(TL.Enums[i].Name);|40:  _hi_onEvent(onEnums,EnumsList.Text);  |4:end;|0:|64:procedure THiAsmClass.doGetInterfaces(var dt: TData; idx: word);|3:var|13:  i: integer;|5:begin|31:  _hi_onEvent(onInterfaces,'');|23:  InterfacesList.Clear;|29:  ClassesID := ToInteger(dt);|59:  for i := 0 to TL.CoClasses[ClassesID].InterfaceCount-1 do|67:    InterfacesList.Add(TL.CoClasses[ClassesID].Interfaces[i].Name);|48:  _hi_onEvent(onInterfaces,InterfacesList.Text);|4:end;|0:|64:procedure THiAsmClass.doGetProperties(var dt: TData; idx: word);|3:var|13:  i: integer;|17:  name,s: string;|16:  t: TInterface;|5:begin|23:  PropertiesList.Clear;|21:  FunctionList.Clear;|31:  _hi_onEvent(onProperties,'');|30:  _hi_onEvent(onFunctions,'');|32:  InterfacesID := ToInteger(dt);|64:  name := TL.CoClasses[ClassesID].Interfaces[InterfacesID].Name;|2:  |38:  for i := 0 to TL.InterfaceCount-1 do|40:    if TL.Interfaces[i].Name = name then|9:    begin|28:      t := TL.Interfaces[i];|12:      Break;|10:    end;  |31:  if not Assigned(t) then Exit;|2:  |36:  for i := 0 to t.PropertyCount-1 do|7:  begin|36:    if t.Properties[i].IsHidden then|35:      _debug(t.Properties[i].Name);|67:    if (t.Properties[i].CanRead) and (t.Properties[i].ID <> 0) then|52:      FunctionList.Add('Get_'+t.Properties[i].Name);|7:       |30:    s := t.Properties[i].Name;|55:    s := s + ': ' + t.Properties[i].Value.DataTypeName;|42:    if PropertiesList.indexOf(s) = -1 then|28:      PropertiesList.Add(s);|7:  end; |49:  _hi_onEvent(onProperties, PropertiesList.Text);|2:  |36:  for i := 0 to t.FunctionCount-1 do|7:  begin|9:    //if |29:    s := t.Functions[i].Name;|26:    //FunctionList.Add(s);|4:    |6:  end;|45:  _hi_onEvent(onFunctions,FunctionList.Text);|4:end;|0:|4:end.|
 link(onClasses,12059634:doText,[])
 link(onInterfaces,10302181:doText,[(375,76)(375,118)])
 link(onProperties,9834733:doText,[(362,83)(362,167)])
 link(onEnums,12678222:doText,[(350,90)(350,216)])
 link(onFunctions,4118586:doText,[(337,97)(337,265)])
}
Add(ODialog,1009433,119,63)
{
 Filter="ocx|*.ocx|dll|*.dll"
 Title="Open ActiveX"
 NoChangeDir=1
 link(onExecute,8313438:doText,[])
}
Add(Button,10501238,63,63)
{
 Left=620
 Top=25
 Caption="Open"
 link(onClick,1009433:doExecute,[])
}
Add(Edit,8313438,182,63)
{
 Left=10
 Top=25
 Width=600
 Ctl3D=1
 Text=""
 link(onChange,13096425:doGetActiveX,[])
}
Add(ListBox,12059634,392,42)
{
 Left=10
 Top=65
 Width=120
 Height=95
 link(onClick,13096425:doGetInterfaces,[(429,55)(429,28)(256,28)(256,76)])
}
Add(Label,13851853,182,112)
{
 Left=10
 Top=5
 Width=149
 Height=17
 Caption="Path ActiveX library (*.ocx,*.dll)"
}
Add(Label,9278937,189,119)
{
 Left=10
 Top=50
 Width=53
 Height=17
 Caption="CoClasses"
}
Add(ListBox,10302181,392,91)
{
 Left=140
 Top=65
 Width=120
 Height=95
 link(onClick,13096425:doGetProperties,[(441,104)(441,16)(243,16)(243,83)])
}
Add(Label,9638729,196,126)
{
 Left=140
 Top=50
 Width=51
 Height=17
 Caption="Interfaces"
}
Add(ListBox,9834733,392,140)
{
 Left=270
 Top=65
 Width=215
 Height=95
}
Add(Label,10084264,203,133)
{
 Left=270
 Top=50
 Width=43
 Height=17
 Caption="Property"
}
Add(ListBox,12678222,392,189)
{
 Left=495
 Top=65
 Width=180
 Height=95
}
Add(Label,1653437,210,140)
{
 Left=495
 Top=50
 Width=36
 Height=17
 Caption="Enums"
}
Add(ListBox,4118586,392,238)
{
 Left=10
 Top=190
 Width=665
 Height=115
}
Add(Label,6549074,217,147)
{
 Left=10
 Top=175
 Width=127
 Height=17
 Caption="Functions and procedures"
}

Win10 �� Win7 :)

mybb@mybb.ru (andrestudio) — Thu, 28 May 2026 12:14:02 +0300

�� Debug �� Delphi7
�� Ex � ��
�� :) ��
��

��:

Add(MainForm,2953706,98,70)
{
 Point(PHandle)
}
Add(InlineCode,13011865,98,133)
{
 WorkPoints=#6:doTest|
 DataPoints=#2:ph|
 Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|17:     c: PControl;|9:   public|19:     ph: THI_Event;|48:     procedure doTest(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTest;|5:begin|26:  c := ReadControl(ph,'');|23:  c.Style := $16CF0000;|25:  c.ExStyle := $16CF0000;|15:  c.Invalidate;|4:end;|0:|4:end.|
 link(ph,2953706:PHandle,[])
}
Add(Button,8001706,35,133)
{
 Left=15
 Top=40
 link(onClick,13011865:doTest,[])
}

�� :)

mybb@mybb.ru (andrestudio) — Wed, 27 May 2026 07:28:04 +0300

�� 3 ��, �� , �� .

VssScrollbar (��)

mybb@mybb.ru (andrestudio) — Thu, 07 May 2026 12:40:04 +0300

�� .
�� :)
Full ��
��

QR-Decoder

mybb@mybb.ru (andrestudio) — Wed, 06 May 2026 11:20:00 +0300

�� QR � �� zbarimg.exe
�� QR ��
��

PNG file -> ��

mybb@mybb.ru (andrestudio) — Thu, 30 Apr 2026 07:03:16 +0300

�� PNG �� .
400 �� -�� :)
�� ico � �� png � �� . (�� png �� )
�� GDI+ �� 32�32 �� 256�256 ��
��
Full ��

ToolBtn

mybb@mybb.ru (andrestudio) — Fri, 24 Apr 2026 14:04:37 +0300

�� ToolBar(a) � �� . �� .
�� .
�� . �� .
��

ToolBar

mybb@mybb.ru (andrestudio) — Thu, 16 Apr 2026 13:39:41 +0300

��
�� , �� .
�� .
� �� , � �� .
�� :) ��.

��
Icons=�� [��_��] �� [index_��]|5|
@XPMode=�� XP �� False �� True|14|0|True,False

� �� Windows10 �� Icons
imageres.dll=289
imageres.dll=3
shell32.dll=258

imageres.dll=255
imageres.dll=251

shell32.dll=260
shell32.dll=259
shell32.dll=263
shell32.dll=131

shell32.dll=221

��

ScreenGifRecord

mybb@mybb.ru (andrestudio) — Thu, 16 Apr 2026 12:28:00 +0300

oCam �� .
�� . �� .
� �� , �� -��
��
�� . �� . �� .
�� . (�� )
�� . ��
�� . �� Gifs � �� .

�� :) ��
�� :)

�� 2

mybb@mybb.ru (andrestudio) — Tue, 14 Apr 2026 11:08:43 +0300

��, �� ! �� :glasses:

ChromePDFRender

mybb@mybb.ru (andrestudio) — Wed, 25 Mar 2026 08:27:30 +0300

�� PDF �� pdf.dll
full ��
��

GIFEncoder

mybb@mybb.ru (andrestudio) — Sat, 21 Mar 2026 15:44:13 +0300

�� :)
�� :)

��

GDIPCircleProgressBar

mybb@mybb.ru (andrestudio) — Fri, 13 Mar 2026 11:03:25 +0300

�� :)
�� 1.02
�� doPleaseWait
��
�� dll �� IDE. � �� :)

Create circle avatar

mybb@mybb.ru (andrestudio) — Mon, 09 Mar 2026 10:42:29 +0300

��
��

ZLIB (FPC)

mybb@mybb.ru (andrestudio) — Wed, 04 Mar 2026 14:04:46 +0300

�� FPC �� ZLIB �� (zlib.dll)
�� , � � ��, �� . ��
��

�� Code �� Code (�� )
�� dll :flag:

�� PNGFile �� FPC, �� ...

KOLJBKTrend

mybb@mybb.ru (andrestudio) — Fri, 27 Feb 2026 14:04:43 +0300

�� KOLJBKTrend.pas
��
��

MirrorFolders

mybb@mybb.ru (andrestudio) — Fri, 27 Feb 2026 10:54:27 +0300

�� , �� , �� . ��
��
Full �� .

��. (�� 5 ��)

mybb@mybb.ru (andrestudio) — Thu, 26 Feb 2026 04:50:11 +0300

�� . 5 �� (��).
�� HiAsm �� . (�� )
�� , ��
� �� . �� .
�� . �� .
��, �� .
�� HiAsm :idea:
�� :mybb:

HiAsm - ����������� ��������

Mod BitmapArray (doAdd,doInseret,doDelete)

customver - ������ ���������

ScreenToPNG

��������� �����������

Innerfuse Pascal Script

������� ���� :)

LEDFont

�������� �����������

Win10 ����� ��� Win7 :)

��������� :)

VssScrollbar (��������������)

QR-Decoder

PNG file -> ��������� ������

ToolBtn

ToolBar

ScreenGifRecord

����� � ���� 2

ChromePDFRender

GIFEncoder

GDIPCircleProgressBar

Create circle avatar

ZLIB (FPC)

KOLJBKTrend

MirrorFolders

������. (������ 5 ���)

HiAsm - ��

customver - ��

��

�� :)

��

Win10 �� Win7 :)

�� :)

VssScrollbar (��)

PNG file -> ��

�� 2

��. (�� 5 ��)