HiAsm stamp component builder
Древняя работа. Но тем не менее самое то для лентяев которым в лом давить на клавиши 
Позволяет создавать скелет будущего компонента pas,ini
Так же может из любого ini файла компонента сделать IC и поместить его в буфер обмена
Пробуйте наздоровье
скачать
В IC бует примерно такой код
Код:
{*******************************************************************************
HiAsm stamp component builder v0.9 (author - andrestudio)
Component - AlphaShadow
Version - 1.0
Autor - nesco
E-mail - none
Create - вторник, 14. Апрель 2026, 19:49:22
Description:
*******************************************************************************}
unit HiAsmUnit;
interface
uses Windows,Kol,Share,Debug;
type
THiAsmClass = class(TDebug)
private
{ Var methods variable }
{ Содержит Alpha-картинку с тенью }
fResult: PBitmap;
public
{ Data points}
{ Картинка для получения Alpha-картинки с тенью }
Bitmap: THI_Event;
{ Горизонтальное смещение тени в пикселях }
ShiftX: THI_Event;
{ Вертикальное смещение тени в пикселях }
ShiftY: THI_Event;
{ Цвет прозрачности исходной картинки }
TransparentColor: THI_Event;
{ Глубина размытия тени }
DeepBlur: THI_Event;
{ Степень прозрачности тени }
AlphaValue: THI_Event;
{ Event points }
onShadow: THI_Event;
{ Events }
{ Событие происходит после получения Alpha-картинки с тенью и выдаёт
результат в поток ARG(AlphaBitmap) }
procedure _onShadow;
{ Methods }
{ Получает Alpha-картинку с тенью ARG(Bitmap, X, Y, TransparentColor,
DeepBlur, AlphaValue) }
procedure doShadow(var dt: TData; idx: Word);
{ Var procedure }
{ Содержит Alpha-картинку с тенью }
procedure Result(var dt: TData; idx: Word);
end;
implementation
{ Событие происходит после получения Alpha-картинки с тенью и выдаёт результат
в поток ARG(AlphaBitmap) }
procedure THiAsmClass._onShadow;
begin
_hi_onEvent(onShadow);
end;
{ Получает Alpha-картинку с тенью ARG(Bitmap, X, Y, TransparentColor, DeepBlur,
AlphaValue) }
procedure THiAsmClass.doShadow;
begin
end;
{ Содержит Alpha-картинку с тенью }
procedure THiAsmClass.Result;
begin
dtBitmap(dt, fResult);
end;
end.
Не сказать что всё получилось, хотел даже всё переписать заного, но что то остановило