procedure TForm1._ClickHODPers(Sender: TObject);
VAR I, I1:INTEGER;
begin
Xpers:=(Sender AS TIMAGE).Left;
Ypers:=(Sender AS TIMAGE).Top;
for i := 0 to length(HODPers)-1 do for i1 := 0 to length(HODPers[0])-1 do begin
if HODPers[i, i1] <> nil then
HODPers[i, i1].Free;
end;
end;
procedure TForm1._ClickPersonages(Sender: TObject);
begin
if Personages.Left <> 0 then begin
HODPers[(Personages.Left-32) div 32, Personages.Top div 32]:=TImage.Create(Scrollbox1);
HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Parent:=Scrollbox1;
HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Left:=Personages.Left-32;
HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Top:=Personages.Top;
HODPers[(Personages.Left-32) div 32, Personages.Top div 32].AutoSize:=True;
HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[(Personages.Left-32) div 32, Personages.Top div 32].OnClick:=_ClickHODPers;
end;
if Personages.Left+32 <> MAPS.Width then begin
HODPers[(Personages.Left+32) div 32, Personages.Top div 32]:=TImage.Create(Scrollbox1);
HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Parent:=Scrollbox1;
HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Left:=Personages.Left+32;
HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Top:=Personages.Top;
HODPers[(Personages.Left+32) div 32, Personages.Top div 32].AutoSize:=True;
HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[(Personages.Left+32) div 32, Personages.Top div 32].OnClick:=_ClickHODPers;
end;
if Personages.Top <> 0 then begin
HODPers[Personages.Left div 32, (Personages.Top-32) div 32]:=TImage.Create(Scrollbox1);
HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Parent:=Scrollbox1;
HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Left:=Personages.Left;
HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Top:=Personages.Top-32;
HODPers[Personages.Left div 32, (Personages.Top-32) div 32].AutoSize:=True;
HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[Personages.Left div 32, (Personages.Top-32) div 32].OnClick:=_ClickHODPers;
end;
if Personages.Top+32 <> MAPS.Height then begin
HODPers[Personages.Left div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Left:=Personages.Left;
HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
HODPers[Personages.Left div 32, (Personages.Top+32) div 32].AutoSize:=True;
HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[Personages.Left div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
end;
if (Personages.Left <> 0)and(Personages.Top <> 0) then begin
HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32]:=TImage.Create(Scrollbox1);
HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Parent:=Scrollbox1;
HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Left:=Personages.Left-32;
HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Top:=Personages.Top-32;
HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].AutoSize:=True;
HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].OnClick:=_ClickHODPers;
end;
if (Personages.Left <> 0)and(Personages.Top+32 <> MAPS.Height) then begin
HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Left:=Personages.Left-32;
HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].AutoSize:=True;
HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
end;
if (Personages.Left+32 <> MAPS.Width)and(Personages.Top <> 0) then begin
HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32]:=TImage.Create(Scrollbox1);
HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Parent:=Scrollbox1;
HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Left:=Personages.Left+32;
HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Top:=Personages.Top-32;
HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].AutoSize:=True;
HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].OnClick:=_ClickHODPers;
end;
if (Personages.Left+32 <> MAPS.Width)and(Personages.Top+32 <> MAPS.Height) then begin
HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Left:=Personages.Left+32;
HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].AutoSize:=True;
HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
end;
end;