unit Glaw_Unite;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Menus, ExtDlgs, StdCtrls, Buttons, ExtCtrls,Dir_Folder,pngimage,Mini_Games,
   PlatformDefaultStyleActnCtrls, ActnPopup, ToolWin, ComCtrls,Point_collision;

type
   TForm1 = class(TForm)
     MainMenu1: TMainMenu;
     N1: TMenuItem;
     N2: TMenuItem;
     N3: TMenuItem;
     N4: TMenuItem;
     Gthcjyfb1: TMenuItem;
     OpenPictureDialog1: TOpenPictureDialog;
     Panel1: TPanel;
     Panel2: TPanel;
     Label1: TLabel;
     BitBtn1: TBitBtn;
     BitBtn2: TBitBtn;
     BitBtn3: TBitBtn;
     ScrollBox1: TScrollBox;
     ListBox1: TListBox;
     Img_Map: TImage;
     ComboBox1: TComboBox;
     ComboBox2: TComboBox;
     CheckBox1: TCheckBox;
     Image1: TImage;
     N5: TMenuItem;
     StatusBar1: TStatusBar;
     Timer1: TTimer;
     N6: TMenuItem;
     procedure N2Click(Sender: TObject);
     procedure N4Click(Sender: TObject);
     procedure BitBtn1Click(Sender: TObject);
     procedure CheckBox1Click(Sender: TObject);
     procedure N5Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
     procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
       Rect: TRect; State: TOwnerDrawState);
     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
list = ^spisok;

   spisok = record
     fil: string;
     nextsp: list;
   end;
const
   Cur_X:integer=0;
   Cur_Y:integer=0;
var
   Form1: TForm1;
   fajlo: list;
   ProgDir:string;
   Cursor_X:integer;
   Cursor_Y:integer;
   text_cursor:string;
   Text_True_and_lie:string;
   activ_mouse_move:boolean;
implementation
{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   i_png: Integer;
   fs: TSearchRec;
   i:integer;
begin
    if openpicturedialog1.Execute then begin
    img_map.Picture.LoadFromFile(openpicturedialog1.FileName);
    img_map.Height:=strtoint(combobox1.Text);
    img_map.Width:=strtoint(combobox2.Text);
    img_map.Transparent:=CheckBox1.Checked;
    end;
   i := 0;
   if FindFirst(progdir + 'картинки для создания мира\' + '*.png*',faAnyFile - faDirectory - faVolumeID, fs) = 0 then
     repeat
       inc(i);

       if (fajlo = nil) then
       begin
         new(fajlo);
       end
       else
       begin
         new(fajlo^.nextsp);
         fajlo := fajlo^.nextsp;
       end;
       fajlo^.fil := fs.Name;
       fajlo^.nextsp := nil;
       ListBox1.items.Add(fs.Name);
     until FindNext(fs) <> 0;
   findclose(fs);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then begin checkbox1.Caption:='Карта прозрачная'end else begin checkbox1.Caption:='Карта не прозрачная';end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   with img_map do begin
     Left:=Cur_X;
     Top:=Cur_Y;
     height:=cur_x;
     width:=cur_y;
   end;
   with image1 do begin
     Left:=Cur_X;
     Top:=Cur_Y;
     height:=cur_x;
     width:=cur_y;
   end;
   activ_mouse_move:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
begin
   if (True_and_lie(X,Y,form1.Left,form1.Top,form1.Height,form1.Width) = true) then begin Text_True_and_lie:='Курсор находиться на форме'; end;
   if (True_and_lie(X,Y,form1.Left,form1.Top,form1.Height,form1.Width) = false) then begin Text_True_and_lie:='Курсор за пределами формы'; end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
   var
   x_y:tpoint;
begin
   if (x >= Scrollbox1.Left + image1.Left)and(y >= scrollbox1.top + scrollbox1.Top) then begin
     image1.Left:=x + 25;
     image1.Top:=y + 25;
   end;

end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
begin
   With ListBox1 do
begin
    If odSelected in State then
      Canvas.Brush.Color:=clred { твой цвет }
    else
      Canvas.Brush.Color:=clWindow;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
end
end;

procedure TForm1.N2Click(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
   if panel1.Visible = true then panel1.Visible:=false else Panel1.Visible:=true;

end;

procedure TForm1.N5Click(Sender: TObject);
begin
   New_image_games;
   form2.Timer1.Interval:=1;
   form2.Timer1.Enabled:=true;
   form2.Panel1.Align:=alclient;
   form2.Show;
   form1.Hide;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
   Curs_X_Y:Tpoint;
   Rtext:string;
begin
   getCursorPos(Curs_X_Y);
   text_cursor:=inttostr(Curs_X_Y.X) + ' , Y =  ' + inttostr(Curs_X_Y.Y);
   if (True_and_lie(curs_x_y.X, curs_x_y.Y, scrollbox1.Left, scrollbox1.Top, scrollbox1.Width, scrollbox1.Height) = true) and (panel1.Visible = true) then begin
     activ_mouse_move:=true;
     Rtext:='находиться';
   end else begin
     activ_mouse_move:=false;
     Rtext:='не находиться';
   end;
   StatusBar1.Panels.Items[0].Text := 'Координаты курсора: X = ' + text_cursor + '! ' + Text_True_and_lie + '! Размер карты: Высота = ' + inttostr(img_map.Height) + ' , Ширина = ' + inttostr(img_map.Width) + '! Мышка ' + Rtext + ' на панели';
   end;

end.