[TaskBar]
Obj1=0,Form,1,40,Bottom,C7D0D4,,,,255
 Obj2=1,Panel,1,1,Top,DCD2C8 ;верхний бордюр
 Obj3=1,Panel,1,1,Top,FFFFFF   ;второй бордюр

 Obj4=1,Panel,50,1,Left,C7D0D4    ;область слева, например под StartButton
 Obj5=1,Panel,50,1,Right,C7D0D4  ;область справ под Tray и часы
 Obj6=1,Panel,1,20,Client,C7D0D4 ;область под таскбар
   Obj7=6,TaskBar.dll                  ;плагин, реализующий функциональность таскбара

[HighBar]
Obj1=0,Form,1,40,Top,C7D0D4,,,,230
Obj2=1,GPanel,1,1px,Bottom,A87F4C,A87F4C,Vertical,TopLeft
Obj3=1,GPanel,1,1,Client,DCC1A7,A69283,Vertical,TopLeft

library TaskBar;

uses
 Windows,
 //Messages,
 kol;

const
 HookMsg = 1317;
var
 CurHook, ServHwnd:HWND;
 instance: Hwnd;

function CBTHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
begin
 Result:=CallNextHookEx(CurHook, CODE, WParam, LParam);
 if (code=1) or (code=4) or (code=5) then
  begin
    if not IsWindow(wParam) then exit;
    if GetParent(wParam)<>0 then exit;
    if GetWindow(wParam, GW_OWNER)<>0 then exit;
    if ((GetWindowLong(wParam,GWL_EXSTYLE) and WS_EX_TOOLWINDOW)<>0) then exit;
    instance:=GetModuleHandle('TaskBar.dll');
    SendMessage(instance, HookMsg, wParam, Code);
     TextOut(GetDC(ServHwnd), 2, 20, PChar(Int2Str(HookMsg)+' '+Int2Str(wParam)+' '+Int2Str(Code)), 20);
  end;
 ServHwnd:=ServHwnd;
end;

procedure Start(HandleProg: HWND) export; stdcall;
Var
 Msg: kol.TMsg;
begin
 ServHwnd:=HandleProg;
 CurHook:= SetWindowsHookEx(WH_CBT, @CBTHook, HInstance, 0);
 if CurHook <> 0 then
  MessageBox(0, PChar('Hooked !'+Int2Str(ServHwnd)), 'Msg', MB_OK+MB_ICONINFORMATION)
 else
  MessageBox(0, 'Not Hooked!', 'Error', MB_OK+MB_ICONERROR);

 while kol.GetMessage(Msg, HandleProg, 0, 0) do
  begin
     TextOut(GetDC(ServHwnd), 200, 3, PChar(Int2Str(Msg.message)+'/'+Int2Str(Msg.wParam)+'/'+Int2Str(Msg.lParam)), 20);
    //windows.TranslateMessage(Msg);
    //windows.DispatchMessage(Msg);
    sleep(100); // Иначе цикл подвешивает систему
  end;
end;

exports
 Start;

begin

end.

program WDE;

uses
  windows, kol ;

 type TOnThreadExecute = function(Sender:PThread): Integer of object;

var
 Obj: array [0..254] of array [0..254] of PControl;
 Menu, PopUp:PMenu;
 Thread1: PThread;
 Start: procedure (HandleProg: HWND) stdcall;
 ParentObjHandle: THandle;
 DllName: String;
 hDLL: THandle;

Procedure SetWindowPos(Obj: PControl; caAlign: TControlAlign);
begin
 if not Obj.IsForm then
  Obj.Align := caAlign
 else
  begin
    Obj.Left:=0; Obj.Top:=0;
    if caAlign=caNone then
     begin
      {Obj.Left:=l;
       Obj.Top:=t;
       Obj.Width:=w;
       Obj.Height:=h;}
     end;
    if caAlign=caBottom then          //В зависимости от типа расположения панели задаем координаты формы
     begin
       Obj.Width:=GetDesktopRect.Right;
       Obj.Top:=GetDesktopRect.Bottom-Obj.Height;
     end;
    if caAlign=caTop then Obj.Width:=GetDesktopRect.Right;
    if caAlign=caRight then
     begin
       Obj.Left:=GetDesktopRect.Right-Obj.Width;
       Obj.Height:=GetDesktopRect.Bottom;
     end;
    if caAlign=caLeft then Obj.Height:=GetDesktopRect.Bottom;
  end;
end;

procedure ProcessMenu(P: Pointer; Sender: PMenu; Item:Integer);
begin
   case Item of
    0: begin
         //Settings.Show;
       end;
    1: Applet.Close;
   end;
end;

function Str2TGS(Value: string): TGradientStyle;
begin
 Result:=gsHorizontal;
 if Value='Vertical' then Result:=gsVertical;
 if Value='Horizontal' then Result:=gsHorizontal;
 if Value='Rectangle' then Result:=gsRectangle;
 if Value='Elliptic' then Result:=gsElliptic;
 if Value='Rombic' then Result:=gsRombic;
 if Value='TopToBottom' then Result:=gsTopToBottom;
 if Value='BottomToTop' then Result:=gsBottomToTop;
end;

function Str2TGL(Value: string): TGradientLayout;
begin
 Result:=glTopLeft;
 if Value='TopLeft' then Result:=glTopLeft;
 if Value='Top' then Result:=glTop;
 if Value='TopRight' then Result:=glTopRight;
 if Value='Left' then Result:=glLeft;
 if Value='Center' then Result:=glCenter;
 if Value='Right' then Result:=glRight;
 if Value='BottomLeft' then Result:=glBottomLeft;
 if Value='Bottom' then Result:=glBottom;
 if Value='BottomRight' then Result:=glBottomRight;
end;

function Str2TCA(Value: string): TControlAlign;
begin
 Result:=caNone;
 if Value='Top' then Result:=caTop;
 if Value='Bottom' then Result:=caBottom;
 if Value='Right' then Result:=caRight;
 if Value='Left' then Result:=caLeft;
 if Value='Client' then Result:=caClient;
end;

Function CommaText(Value: string; Index: integer):String;
var i,j: integer;
   s:string;
begin
 s:='';
 j:=0;
 Result:='';
 for i:=1 to length(Value) do
  begin
    if Value[i]<>',' then s:=s+Value[i];
    if (Value[i]=',') or (i=length(Value)) then
     begin
       if j=Index then Result:=s;
       j:=j+1;
       s:='';
     end;
  end;
end;

function Thread1Execute(dummy:pointer;Sender: PThread): Integer;
begin
 @Start:=GetProcAddress(Hdll, 'Start');
 Start(ParentObjHandle);
 Result:=0;
end;

Procedure LoadSettings();
var StrList:PStrList;
   i,j:Integer;
   ini:PIniFile;
Label
   L_end;
begin
 ini:=OpenIniFile(ChangeFileExt(ParamStr(0),'.ini'));
 strList:= NewStrList;         //
 ini.GetSectionNames(strList); //Запрашиваем список панелей из файла настроек
  for j:=0 to strList.Count - 1 do
   if pos('Bar', strList.Items[j])>0 then //Если секция содержит данные о панели, начинаем цикл ее создания
    begin
      ini.Section:=strList.Items[j];
      i:=1;
      while ini.ValueString('Obj'+int2str(i),'')>'' do
       begin
         if pos('.dll',CommaText(ini.ValueString('Obj'+int2str(i),''),1))>0 then
          begin
            DllName:=CommaText(ini.ValueString('Obj'+int2str(i),''),1);
            hDLL:= LoadLibrary(PChar(DllName));
            ParentObjHandle:=Obj[j,Str2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),0))].Handle;
            Thread1:=NewThreadEx(TOnThreadExecute(MakeMethod(nil,@Thread1Execute)));
            goto L_end;
          end;
         if not assigned(Obj[j,i]) then
          begin
            if CommaText(ini.ValueString('Obj'+int2str(i),''),1)='Form' then
             begin
               Obj[j,i]:=NewForm(Applet, 'Form'+Int2Str(i));       //Создаем форму панели
               Menu:=NewMenu(Obj[j,i], 0, [], nil);
               PopUp:= NewMenu(Obj[j,i], 0, ['Settings','Close'], TOnMenuItem( MakeMethod(nil, @ProcessMenu )));
             end;
            if CommaText(ini.ValueString('Obj'+int2str(i),''),1)='Panel' then
             Obj[j,i]:=NewPanel(Obj[j,Str2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),0))], esNone ); //esNone esRaised esTransparent esLowered
            if CommaText(ini.ValueString('Obj'+int2str(i),''),1)='GPanel' then
             Obj[j,i]:=NewGradientPanelEx(Obj[j,Str2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),0))],0,0,gsVertical,glTopLeft);
          end;
         Obj[j,i].Border:=0;
         Obj[j,i].HasBorder:=False;
         Obj[j,i].CanResize:=True;
         Obj[j,i].StayOnTop:=True;
         Obj[j,i].Width:=Str2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),2));
         Obj[j,i].Height:=Str2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),3));
         SetWindowPos(Obj[j,i],Str2TCA(CommaText(ini.ValueString('Obj'+int2str(i),''),4)));
         Obj[j,i].Color:=Hex2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),5));
         Obj[j,i].Color1:=Hex2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),5));
         Obj[j,i].Color2:=Hex2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),6));
         Obj[j,i].SetGradientStyle(Str2TGS(CommaText(ini.ValueString('Obj'+int2str(i),''),7)));
         Obj[j,i].SetGradientLayout(Str2TGL(CommaText(ini.ValueString('Obj'+int2str(i),''),8)));
         Obj[j,i].AlphaBlend:=Str2Int(CommaText(ini.ValueString('Obj'+int2str(i),''),9));
         Obj[j,i].SetAutoPopupMenu(PopUp);
         L_end:
       i:=i+1;
      end;
    end;
 ini.Free;
end;

begin
 Applet:=NewApplet('WDE');
 LoadSettings();
 Run(Applet);
end.

library mybutton;

uses
 commm,  //important
 kol;

function UnderlinedButton(AParent:PControl;const Caption:KOLString):PControl;
 begin
   Result := NewButton(AParent, Caption);
   Result.Font.FontStyle := [fsUnderline];
 end;

 exports
 UnderlinedButton;

begin
end.

program ub;
//save as ub.dpr
uses
 commm,   //important!
 Kol,
 ub1 in 'ub1.pas';

begin
 NewForm1( Form1, nil);
 Run(Form1.form);
end.

unit ub1;
//save as ub1.pas
interface
uses
 Windows, Messages, Kol;
const
cps:KolString = 'Kol project in ' + {$IFDEF FPC}'Freepascal '{$ELSE}'Delphi '{$ENDIF} +
   {$IFDEF WIN64}'64 bits '{$ELSE}'32 bits '{$ENDIF} +
   {$IFDEF UNICODE_CTRLS}'Unicode'{$ELSE}'Ansi'{$ENDIF};
type

PForm1=^TForm1;
TForm1=object(Tobj)
 Form:pControl;
 Ub:PControl;
public
end;

procedure NewForm1( var Result: PForm1; AParent: PControl );
function NewUnderlinedButton(AParent:PControl;const Caption:KOLString):PControl; external 'mybutton.dll' name 'UnderlinedButton';

var
 Form1:pForm1;

implementation

procedure NewForm1( var Result: PForm1; AParent: PControl );
begin
 New(Result,Create);
 with Result^ do
 begin
   Form:= NewForm(AParent,cps);
   Applet:=Form;
   Form.Add2AutoFree(Result);
   ub:=NewUnderlinedButton(Form,'Test');
 end;
end;
end.

unit COMMM;
(*      system
purpose: Simple COM based memory manager replacement, tested for Delphi 4-7
 author: © 2004, Thaddy de Koning, mailto:thaddy[@]thaddy.com
 status: Use as you like, freeware, but I retain the copyrights.
         No warranties *what*so*ever*. Only Dutch is law applicable.
         (Since it understands the "WhatSoEver" part a little better than most)

Remarks: Use this if you write COM based applications and/or don't want to
         use ShareMem.pas with BORLNDMM.DLL.
         Also suitable for KOL and KOL dll's.

         *****************************************************************
         This is very simple code, but with far reaching implications.
         *****************************************************************
         Please read these comments carefully before you use this unit and
         make shure you fully understand what it does.
         *****************************************************************
         
Features: + All memory is marshalled through COM.
           This means a.o. that COM provides the reference counting across
           modules, so you don't need the ShareMem unit and don't need to
           distribute BORLNDMM.DLL when using long strings, dynamic arrays
           etc in your dll code.
           COM marshalling simply overrides and ignores Delphi's reference
           counting mechanism.
           During extensive tests I encountered no problems.
         - Because of this it may have an effect on highly specialized code
           that hacks - and I mean hacks - into the Delphi reference count
           mechanism itself, but that is very rare and you will know it when
           you do so. Most programmers need not worry about this.
         + It highly simplifies writing COM based applications since you
           can use Delphi memory access functions without having to worry how
           to allocate the memory. Simply put: getmem and coTaskMemAlloc
           are basically the same and New and (Re)Allocmem provide COM memory
           as well. Even strings and dynamic arrays etc are COM based memory,
           since they rely on these low level routines.
         + This unit guarantees that almost all means of allocating memory with
           Delphi can be used transparantly with COM with the exception of the
           VirtualAlloc - page - related low level WIN32 API.
         + Since it is all COM marshalled memory it is fully shareable
           between COM based applications written in other languages like
           VB or C++ and with some thought even with the scripting host.
         + Your existing code is suddenly COM memory compliant! Just recompile.
         + Your existing dll code maybe managed code (.net) compliant since the
           .NET garbage collection feature seems to rely on COM memory -
           management on the lowest level. Some tests done, but not extensive.
         + It has some basic garbage collection capabilities, even under
           WIN 95/98, since COM releases the orphaned memory if it knows for
           shure that the owning processes are unloaded.
           This does NOT mean your application cannot leak while running!
       -/+ It is a little slower than Delphi's default memorymanager, though,
           but the granularity - 16 bytes - is pretty good.
       -/! Read the warning below! Its use has ambiguities you may overlook.
         
    Use: Simply include it as the *first* unit in the uses clause of your
         project file (.dpr).

****************************************************************************
Warning:
         Do not forget to document that you used it! It is very easy to make
         a mistake later and it will probably break your code if you forget
         about it! Most other memory manager replacements do not have this
         ambiguous disadvantage, so be warned and be very very carefull!
         I highly recommend marking every single unit that may depend on it.
         Trust me, it is very comfortable to use but very easy to forget.
         This may be easily overlooked, even if you use a versioning system.
         *******************************************************************

*)

interface
{$DEFINE I_HAVE_READ_THE_WARNING}
{$IFNDEF I_HAVE_READ_THE_WARNING}
PLEASE READ THE WARNING!
{$ENDIF}

implementation

uses
 //Both units do not allocate memory, so are safe to use
 Windows,ActiveX;

{
Freepascal structure is different from delphi:

procedure GetMemoryManager(var MemMgr: TMemoryManager);
procedure SetMemoryManager(const MemMgr: TMemoryManager);

the TMemoryManager record is defined as follows:
 TMemoryManager = record
   NeedLock    : Boolean;
   Getmem      : Function(Size:PtrInt):Pointer;
   Freemem     : Function(var p:pointer):PtrInt;
   FreememSize : Function(var p:pointer;Size:PtrInt):PtrInt;
   AllocMem    : Function(Size:PtrInt):Pointer;
   ReAllocMem  : Function(var p:pointer;Size:PtrInt):Pointer;
   MemSize     : function(p:pointer):PtrInt;
   InitThread          : procedure;
   DoneThread          : procedure;
   RelocateHeap        : procedure;
   GetHeapStatus       : function :THeapStatus;
   GetFPCHeapStatus    : function :TFPCHeapStatus;
 end;

}
{$IFDEF FPC}
Function ComGetMem(Size:PtrInt):Pointer;
{$ELSE}
function ComGetMem(size: Integer): Pointer;
{$ENDIF}
begin
 Result := coTaskMemAlloc(size);
 {$IFOPT D+}
 FillChar(Result^,Size,$CC);
 // = int3, so you get a debug breakpoint if you
 // have troubles
 {$ENDIF}
end;

{$IFDEF FPC}
Function ComFreeMem(var p:pointer):PtrInt;
{$ELSE}
function ComFreeMem(p: Pointer): Integer;
{$ENDIF}
begin
 coTaskMemFree(P);
 Result:= 0;//!!!Magic!!!
end;

{$IFDEF FPC}
Function ComReAllocMem(var p:pointer;Size:PtrInt):Pointer;
{$ELSE}
function ComReallocMem(p: Pointer; size: Integer): Pointer;
{$ENDIF}
begin
 Result:=CoTaskMemRealloc(p,Size);
end;

const
{$IFDEF FPC}
 ComMemoryManager: TMemoryManager = (
 GetMem: @ComGetMem;
 FreeMem: @ComFreeMem;
 ReallocMem: @ComReallocMem);
{$ELSE}
 ComMemoryManager: TMemoryManager = (
 GetMem: ComGetMem;
 FreeMem: ComFreeMem;
 ReallocMem: ComReallocMem);
{$ENDIF}
var
 OldMM: TMemoryManager;

initialization
 coInitialize(nil);
 GetMemoryManager( OldMM );
 SetMemoryManager( ComMemoryManager );

finalization
 SetMemoryManager( OldMM );
 coUninitialize;
end.
// Was that all? yes it was!

library shapes;

uses
commm,  //MUST be used in the executable as well. MUST be first unit
Windows,messages,kol;
type
 TShapeType =   (stArrowRight, stArrowLeft,
                 stArrowUp, stArrowDown,
                 stEllipse,
                 stLineHorz, stLineVert,
                 stRectangle, stRectangleRound,
                 stTriangleUp, stTriangleDown, stTriangleLeft, stTriangleRight
                 );

 PShapeData=^TShapeData;
 TShapeData = object(TObj)
 private
   FShape: TShapeType;
   procedure Paint(sender:pControl;DC:HDC);
 end;

//function NewShape(aOwner:PControl;aType:TShapeType;PenColor,BrushColor:TColor):Pcontrol;
{ Creates a Shape control
Pencolor   = Color1
BrushColor = Color2
Possible Shapes: stArrowRight,stArrowLeft,stArrowUp,stArrowDown,stEllipse,
                 stLineHorz,stLineVert,stRectangle,stRectangleRound,stTriangleUp,
                 stTriangleDown,stTriangleLeft,stTriangleRight}

function NewShape(aOwner:PControl;aType:TShapeType;PenColor,BrushColor:TColor):Pcontrol;
var
 Data:PShapeData;
begin
{Create the Shape data object}
New(Data,Create);
{Create the control as a paintbox}
if not Assigned(Applet) then
  Applet := aOwner;
Result:=NewPaintBox(aOwner).setsize(50,50);
with Result^ do
begin
  {CustomObj's are automatically free'd in the TObject destructor}
  CustomObj:=Data;
  {Set the shape}
  Data.FShape:=aType;
  {Set the paint routine}
  OnPaint:=Data.Paint;
  {Set the colors}
  Color1:=PenColor;
  Color2:=BrushColor;
  {Leave the rest transparent}
  Transparent:=true;
end;
end;

procedure TShapeData.Paint(sender:PControl;DC:HDC);
var
 PT: Integer;
begin
 with sender.canvas^ do
 begin
   Pen.Color:=sender.Color1;
   Brush.Color:=sender.Color2;
   PT := Pen.PenWidth div 2;
   case FShape of
     stRectangle: Rectangle(PT,PT, sender.Width-PT, sender.Height-PT);
     stRectangleRound: RoundRect(PT,PT, sender.Width-PT, sender.Height-PT, sender.Width div 4, sender.Height div 4);
     stEllipse: Ellipse(PT, PT, sender.Width-PT, sender.Height-PT);
     stLineHorz:
       begin
         MoveTo(0, sender.Height div 2);
         LineTo(sender.Width-1, sender.Height div 2);
       end;
     stLineVert:
       begin
         MoveTo(sender.Width div 2, 0);
         LineTo(sender.Width div 2, sender.Height-1);
       end;
     stArrowLeft:
       begin
         MoveTo(sender.Width-1, sender.Height div 2);
         LineTo(PT, sender.Height div 2);
         LineTo(sender.Height div 2, sender.Height-1);
         MoveTo(PT, sender.Height div 2);
         LineTo(sender.Height div 2, 0);
       end;
     stArrowRight:
       begin
         MoveTo(0, sender.height div 2);
         LineTo(sender.width-PT, sender.height div 2);
         LineTo(sender.width-1-(sender.height div 2), sender.height-1);
         MoveTo(sender.width-PT, sender.height div 2);
         LineTo(sender.width-1-(sender.height div 2), 0);
       end;
     stArrowUp:
       begin
         MoveTo(sender.width div 2, sender.height-1);
         LineTo(sender.width div 2, PT);
         LineTo(0, sender.width div 2);
         MoveTo(sender.width div 2, PT);
         LineTo(sender.width-1, sender.width div 2);
       end;
     stArrowDown:
       begin
         MoveTo(sender.width div 2, 0);
         LineTo(sender.width div 2, sender.height-PT);
         LineTo(0, sender.height-1-(sender.width div 2));
         MoveTo(sender.width div 2, sender.height-PT);
         LineTo(sender.width-1, sender.height-1-(sender.width div 2));
       end;
     stTriangleUp:
       Polygon([MakePoint(sender.width div 2, 0), MakePoint(sender.width-1, sender.height-1), MakePoint(0, sender.height-1)]);
     stTriangleDown:
       Polygon([MakePoint(0, 0), MakePoint(sender.width-1, 0), MakePoint(sender.width div 2, sender.height-1)]);
     stTriangleLeft:
       Polygon([MakePoint(0, sender.height div 2), MakePoint(sender.width-1, 0), MakePoint(sender.width-1, sender.height-1)]);
     stTriangleRight:
       Polygon([MakePoint(0, 0), MakePoint(sender.width-1, sender.height div 2), MakePoint(0, sender.height-1)]);
   end;
 end;
end;

function NewArrowRight(AParent:PControl;PenColor,BrushColor:TColor):PControl;
begin
 Result := NewShape(AParent,stArrowRight,PenColor,BrushColor);
end;

function NewArrowLeft(AParent:PControl;PenColor,BrushColor:TColor):PControl;
begin
 if not Assigned(Applet) then Applet := AParent.ParentForm;
 Result := NewShape(AParent,stArrowLeft,PenColor,BrushColor);
end;

function NewArrowUp(AParent:PControl;PenColor,BrushColor:TColor):PControl;
begin
 if not Assigned(Applet) then Applet := AParent.ParentForm;
 Result := NewShape(AParent,stArrowUp,PenColor,BrushColor);
end;

function NewArrowDown(AParent:PControl;PenColor,BrushColor:TColor):PControl;
begin
 Result := NewShape(AParent,stArrowDown,PenColor,BrushColor);
end;

function NewTriangleUp(AParent:PControl;PenColor,BrushColor:TColor):PControl;
begin
 Result := NewShape(AParent,stTriangleUp,PenColor,BrushColor);
end;
function NewTriangleDown(AParent:PControl;PenColor,BrushColor:TColor):PControl;
begin
 Result := NewShape(AParent,stTriangleDown,PenColor,BrushColor);
end;
// Add more like this if you need it
//Add more like this if you need it...

exports
 NewArrowRight,
 NewArrowLeft,
 NewArrowUp,
 NewArrowDown,
 NewTriangleUp,
 NewTriangleDown;

begin
end.

program shapesdemo;
uses
 commm,  //IMPORTANT
 Kol,
 shapesapp1 in 'shapesapp1.pas';

begin
 NewForm1( Form1, nil);
 Run(Form1.form);
end.

unit shapesapp1;

interface
uses
 Windows, Messages, Kol;
const
cps:KolString = 'KOL control in a dll using commm';
type

PForm1=^TForm1;
TForm1=object(Tobj)
 Form:pControl;
 ShapeL,
 ShapeR,
 ShapeU,
 ShapeD,
 TriangleU,
 TriangleD:PControl;
public
end;

procedure NewForm1( var Result: PForm1; AParent: PControl );
function NewArrowRight(AParent:PControl;Pen,Brush:TColor):PControl; external 'shapes.dll' name 'NewArrowRight';
function NewArrowLeft(AParent:PControl;Pen,Brush:TColor):PControl; external 'shapes.dll' name 'NewArrowLeft';
function NewArrowUp(AParent:PControl;Pen,Brush:TColor):PControl; external 'shapes.dll' name 'NewArrowUp';
function NewArrowDown(AParent:PControl;Pen,Brush:TColor):PControl; external 'shapes.dll' name 'NewArrowDown';
function NewTriangleUp(AParent:PControl;Pen,Brush:TColor):PControl; external 'shapes.dll' name 'NewTriangleUp';
function NewTriangleDown(AParent:PControl;Pen,Brush:TColor):PControl; external 'shapes.dll' name 'NewTriangleDown';

var
 Form1:pForm1;

implementation

procedure NewForm1( var Result: PForm1; AParent: PControl );
begin
 New(Result,Create);
 with Result^ do
 begin
   Form:= NewForm(AParent,cps);
   Applet:=Form;
   Form.Add2AutoFree(Result);
   Form.Color := clGreen;
   ShapeL:=NewArrowLeft(Form, clBlue, clWhite).PlaceDown;
   ShapeL.Canvas.Pen.PenWidth := 4;
   ShapeR:=NewArrowRight(Form,clwhite,clRed).PlaceRight;
   ShapeU:=NewArrowUp(Form,clBlack,clYellow).PlaceDown;
   ShapeD:=NewArrowDown(Form,clRed,clBlack).PlaceRight;
   TriangleU:=NewTriangleUp(Form,clYellow,clBlack).placedown;
   TriangleD:=NewTriangleDown(Form,clBlack,clRed).placedown;

 end;
end;
end.