library Menu;

uses
 Windows,
 SysUtils,
 Classes,
 messages;

type
  TRe_Action = (A_Exit, A_Hide, A_Show, A_SoundOn, A_SoundOff);
  TRe_Menu_proc = procedure (Action: TRe_Action; Param: Integer);
  PRe_Menu_proc = ^TRe_Menu_proc;

  Var
    Message: TMsg;

{$R Pics.res}
{$R *.res}

function ScreenWidth: integer;
begin
result:=GetSystemMetrics(SM_CXVIRTUALSCREEN);
end;

function ScreenHeight: integer;
begin
result:=GetSystemMetrics(SM_CYVIRTUALSCREEN);
end;

function Create_Menu(Handle: HWND; Menu_proc: PRe_Menu_proc; X, Y: integer): HWND; stdcall;
var
 wc : TWndClassEx;  //Переменная шаблона класса окна
 xPos,yPos,nWidth,nHeight : Integer;
 TRgn, FoneRgn: HRGN;
 Dc,hMemDc: Hdc;

 PIC_Exit1, PIC_Exit2, PIC_Exit3, PIC_Fone, PIC_Hide1, PIC_Hide2, PIC_Hide3,
 PIC_Show1, PIC_Show2, PIC_Show3, PIC_Soff1, PIC_Soff2, PIC_Soff3, PIC_Son1,
 PIC_Son2, PIC_Son3: HBitmap;

function BitmapToRgn(PosX, PosY, width, height: integer; Image: HBitmap): HRGN;
var
TmpRgn: HRGN;
x, y: Byte;
ConsecutivePixels: integer;
CurrentPixel: COLORREF;
CurrentColor: COLORREF;
 TmpDC: HDC;
begin
Result := CreateRectRgn(0, 0, PosX+width-1, PosY+height-1);
 TmpDC:= CreateCompatibleDC(Dc);
 SelectObject(TmpDC,Image);
for y := 0 to height-1 - 1 do
 begin
  CurrentColor := GetPixel(TmpDC,0,y);
  ConsecutivePixels := 1;
  for x := 0 to width-1 - 1 do
   begin
    CurrentPixel := GetPixel(TmpDC,x,y);
    if CurrentColor = CurrentPixel then
     inc(ConsecutivePixels)
    else
     begin // Входим в новую зону
      if (CurrentColor = $ff00ff) or (CurrentColor = $00C8C4C8) then
       begin
        TmpRgn := CreateRectRgn(PosX+x-ConsecutivePixels, PosY+y, PosX+x, PosY+y+1);
        CombineRgn(Result, Result, TmpRgn, RGN_DIFF);
        DeleteObject(TmpRgn);
       end;
      CurrentColor := CurrentPixel;
      ConsecutivePixels := 1;
     end;
   end;
  if ((CurrentColor = $ff00ff) or (CurrentColor = $00C8C4C8)) and (ConsecutivePixels > 0) then
   begin
    TmpRgn := CreateRectRgn(PosX+x-ConsecutivePixels, PosY+y, PosX+x, PosY+y+1);
    CombineRgn(Result, Result, TmpRgn, RGN_DIFF);
    DeleteObject(TmpRgn);
   end;
 end;
   DeleteDC(TmpDC);
end;

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall;
Begin
 {Далее происходит цикл обработки сообщений}
 case msg of
 wm_create :
   Begin
   DC := GetWindowDC(wnd);
    PIC_Exit1 := LoadBitmap(hInstance, 'RE_M_EXIT1');
    PIC_Exit2 := LoadBitmap(hInstance, 'RE_M_EXIT2');
    PIC_Exit3 := LoadBitmap(hInstance, 'RE_M_EXIT3');
    PIC_Fone  := LoadBitmap(hInstance, 'RE_M_FONE');
    PIC_Hide1 := LoadBitmap(hInstance, 'RE_M_HIDE1');
    PIC_Hide2 := LoadBitmap(hInstance, 'RE_M_HIDE2');
    PIC_Hide3 := LoadBitmap(hInstance, 'RE_M_HIDE3');
    PIC_Show1 := LoadBitmap(hInstance, 'RE_M_SHOW1');
    PIC_Show2 := LoadBitmap(hInstance, 'RE_M_SHOW2');
    PIC_Show3 := LoadBitmap(hInstance, 'RE_M_SHOW3');
    PIC_Soff1 := LoadBitmap(hInstance, 'RE_M_SOFF1');
    PIC_Soff2 := LoadBitmap(hInstance, 'RE_M_SOFF2');
    PIC_Soff3 := LoadBitmap(hInstance, 'RE_M_SOFF3');
    PIC_Son1  := LoadBitmap(hInstance, 'RE_M_SON1');
    PIC_Son2  := LoadBitmap(hInstance, 'RE_M_SON2');
    PIC_Son3  := LoadBitmap(hInstance, 'RE_M_SON3');
    FoneRgn := BitmapToRgn(0, 0, 129, 97, PIC_Fone);
    TRgn:= CreateRectRgn(0,0,1,1);
     CombineRgn(TRgn,FoneRgn,Trgn,RGN_COPY);
     SetWindowRgn(Wnd,Trgn,True);
    WindowProc:= DefWindowProc (wnd, Msg, WParam, LParam);
   End;
 wm_paint :
   Begin
    hMemDc := CreateCompatibleDC(dc);
    SelectObject(hMemDC,PIC_Fone);
    BitBlt(dc, 0, 0, 129, 97, hMemDC, 0, 0, SRCCOPY);
    DeleteDC(hMemDC);

    WindowProc:= DefWindowProc (wnd, Msg, WParam, LParam);
   End;
 wm_destroy :  //Сообщение посылаемое при уничтожении окна
   Begin
   ReleaseDC(Wnd, Dc);

    Result:=0;
         postquitmessage(0); exit;
    WindowProc:= DefWindowProc (wnd, Msg, WParam, LParam);
   End
  else Result:=DefWindowProc(wnd,msg,wparam,lparam);
 end;
End;
begin
result:=0;

wc.cbSize:=sizeof(wc);
wc.style:=cs_hredraw or cs_vredraw;
wc.lpfnWndProc:=@WindowProc;
wc.cbClsExtra:=0;

wc.cbWndExtra:=0;
wc.hInstance:=HInstance;
wc.hIcon:=LoadIcon(0,idi_application);
wc.hCursor:=LoadCursor(0,idc_arrow);
wc.hbrBackground:=COLOR_BTNFACE+1;
wc.lpszMenuName:=nil;
wc.lpszClassName:='TRE_Menu';
RegisterClassEx(wc); //Регистрация нового класса в системе

{'заполнение переменных xPos,yPos,nWidth,nHeight}
nWidth:=129;
nHeight:=97;

if ScreenWidth-X>=nWidth then
xPos:=x else xPos:=x-nWidth;
if ScreenHeight-Y>=nHeight then
yPos:=y else yPos:=y-nHeight;

{ Создание главного окна}
result:=CreateWindowEx (
0,                    //флаги расширенных стилей
'TRE_Menu',    //имя класса окна, данное при заполнении структуры wc
'RE_Menu',          //заголовок окна
ws_overlappedwindow+WS_VISIBLE, //флаги стилей окна
{подробнdее о стилях см. после текста программы}
xPos,               //горизонтальная позиция окна
yPos,               //вертикальная позиция окна

nWidth,             //ширина окна
nHeight,            //высота окна
Handle,                  //описатель родительского окна (parent) или окна-владельца (owner)
0,                  //описатель меню окна (меню нет, нет и описателя)
Hinstance,          //описатель приложения
nil                 //address of window-creation data
);
ShowWindow(result, SW_SHOW); //Отображаем окно
UpdateWindow (Result);
end;

exports
Create_Menu index 1 name 'Create_Menu';

begin

end.