alt1overlay.pas

(*
 *                      Alt1 Toolkit Linux
 *
 * This Source Code Form is subject to the terms of the GNU General Public License v3.0.
 *
 * Author:     dev.nandofw@gmail.com
 * Repository: https://github.com/nandofw/Linux-Alt1-Toolkit
 *
 *
 * Based on 'Alt1 Toolkit' by Skyllbert
 * Site: https://runeapps.org
 *
 *)


unit alt1overlay;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  lcltype,liboverlay;

type

  { TOverlay }

  TOverlay = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseEnter(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image1MouseEnter(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private

  public
  procedure overLaySetGroup(str:string);
  procedure overLayrefreshGroup(str:string);
  procedure overLayLine(c,w,x1,y1,x2,y2,time:integer) ;
  procedure overLayClearGroup(str:string);
  procedure overLayText(str:string;c,s,x1,y,time:integer);
  procedure overLayRect(c,x1,y,w,h,time,lw:integer);
  procedure overLayContinueGroup(str:string);
  procedure overLayFreezeGroup(str:string);

  protected

  end;
   Toverlaypoints = record
   x,y : integer;
   end;

   { Toverlaydata }

   Toverlaydata = class
    tipo : integer; //1 = line 2 = text 3 ??
    text : string;
    color : Integer;
    width : integer;
    points : array of Toverlaypoints;
    time : integer; //time out?????
    constructor Create;
    destructor Destroy; override;
   end;

   { Toverlaygroup }

   Toverlaygroup = class{}
     name : string; // group name
     data : array of Toverlaydata;
     frezzed : boolean;
     draw : boolean;
     constructor Create;
     destructor Destroy; override;
     procedure cleardata();
     procedure timeout(id: integer);
   end;

var
  Overlay: TOverlay;
  activeoverlay : integer;
  count,clear:integer;
  datagroup : array[0..11] of Toverlaygroup;
  newdata:boolean;
  useliboverlay:boolean;

implementation

{$R *.lfm}

{ Toverlaygroup }

constructor Toverlaygroup.Create;
begin
  self.data := nil;
end;

destructor Toverlaygroup.Destroy;
begin
  inherited Destroy;
end;

procedure Toverlaygroup.cleardata();
var
  x:integer;
begin
  for x:=0 to High(Self.data) do
  self.data[x] := nil;
  SetLength(self.data,0);
  self.data := nil;
end;

procedure Toverlaygroup.timeout(id: integer);
var
  x,z:integer;
begin
  z:=High(Self.data);
  for x:=id to z-1 do
  self.data[x] := Self.data[x+1];
  if z = 0 then
  self.cleardata()
  else
  SetLength(Self.data,z);
end;

{ Toverlaydata }

constructor Toverlaydata.Create;
begin

end;

destructor Toverlaydata.Destroy;
begin
  SetLength(self.points,0);
  inherited Destroy;
end;

{ TOverlay }

procedure TOverlay.Timer1Timer(Sender: TObject);
var
  x,z: integer;

begin
  for x := Low(datagroup) to High(datagroup) do
  begin
  if (not (datagroup[x].data = nil)) and (not(datagroup[x].frezzed)) then
  begin
  for z := High(datagroup[x].data) downto Low(datagroup[x].data) do
  begin
   datagroup[x].data[z].time -= 49;
  if datagroup[x].data[z].time <= 0 then
  begin
  datagroup[x].timeout(z);
  newdata:=true;
  end;
  end;
  end;
  end;
  if newdata then
  begin
  if useliboverlay then
  begin
  Timer2.Enabled:=False;
  liboverlayclear();
  for x :=  low(datagroup) to High(datagroup) do
  begin
  if (not (datagroup[x].data = nil)) and ((not(datagroup[x].frezzed)) or (datagroup[x].draw)) then
  begin
  datagroup[x].draw:= False;
  for z :=  low(datagroup[x].data) to High(datagroup[x].data) do
  begin
  case datagroup[x].data[z].tipo of
  1:
  begin
  liboverLayLine(datagroup[x].data[z].color,datagroup[x].data[z].points[0].x,datagroup[x].data[z].points[0].y,datagroup[x].data[z].points[1].x,datagroup[x].data[z].points[1].y,datagroup[x].data[z].width);
  end;
  2:
  begin
  liboverLayTextOut(datagroup[x].data[z].color,datagroup[x].data[z].points[0].x,datagroup[x].data[z].points[0].y,datagroup[x].data[z].width,datagroup[x].data[z].text);
  end;
  3:
  begin
  liboverLayrectangle(datagroup[x].data[z].color,datagroup[x].data[z].points[0].x,datagroup[x].data[z].points[0].y,datagroup[x].data[z].points[1].x,datagroup[x].data[z].points[1].y,datagroup[x].data[z].width);
  end;
  end
  end
  end
  end ;
   {$IFDEF DEBUG} WriteLn('Update overlay');{$ENDIF}
  liboverlayupdate();
  Timer2.Enabled:=True;
  end ;
   newdata:=false;
  end;
end;

procedure TOverlay.Timer2Timer(Sender: TObject);
begin
  liboverlayevent();
end;

procedure TOverlay.FormShow(Sender: TObject);
begin
  Parent:= nil;
  Visible:=false;
end;

procedure TOverlay.Image1MouseEnter(Sender: TObject);
begin

end;

procedure TOverlay.FormMouseEnter(Sender: TObject);
begin

end;

procedure TOverlay.FormClick(Sender: TObject);
begin
  //WriteLn('test')
end;

procedure TOverlay.FormCreate(Sender: TObject);
var
  x:integer;
begin
  activeoverlay := 0;
  count:=0;
  useliboverlay:= libinitoverlay(Screen.Width,Screen.Height);
  if useliboverlay then
  begin
  Visible:=false;
  Timer2.Enabled:=true;
  end else  ShowMessage('Error: Cannot start Overlay. Overlay Disabled');
  for x := Low(datagroup) to High(datagroup) do
  begin
  datagroup[x]:= Toverlaygroup.Create;
  datagroup[x].frezzed:= false;
  end;

end;

procedure TOverlay.FormDestroy(Sender: TObject);
begin
  liboverlayfree();
end;

procedure TOverlay.FormPaint(Sender: TObject);
begin

end;

procedure TOverlay.overLaySetGroup(str: string);
var
  x: integer;
  found : boolean;
begin
  //WriteLn('set '+str)  ;
  found := false;
 for x := Low(datagroup) to High(datagroup) do
 if datagroup[x].name = str then
 begin
  activeoverlay := x;
  found := true;
 end;
  if not(found) then
  begin
  inc(count);
  if (count >= 9) then count := 0;
  datagroup[count].name:=str;
  activeoverlay := count;
 end;
end;

procedure TOverlay.overLayrefreshGroup(str: string);
var
  x : integer;
begin
  for x := Low(datagroup) to High(datagroup) do
  begin
  if (CompareStr(datagroup[x].name, str) = 0) then
  begin
  datagroup[x].draw:= true;
  newdata:=true;
  end
  end
end;

procedure TOverlay.overLayLine(c,w,x1,y1,x2,y2,time:integer);
var
   x : integer;
begin
  //alt1.overLayLine(101101, 2, 10, 10, 100, 100, 1000);
  x :=  High(datagroup[activeoverlay].data)+1;
  SetLength(datagroup[activeoverlay].data,x+1);
  datagroup[activeoverlay].data[x] := Toverlaydata.Create;
  datagroup[activeoverlay].data[x].color:= c;
  datagroup[activeoverlay].data[x].tipo:= 1;
  datagroup[activeoverlay].data[x].width:=w;
  SetLength(datagroup[activeoverlay].data[x].points , 2);
  datagroup[activeoverlay].data[x].points[0].x:=x1;
  datagroup[activeoverlay].data[x].points[0].y:=y1;
  datagroup[activeoverlay].data[x].points[1].x:=x2;
  datagroup[activeoverlay].data[x].points[1].y:=y2;
  datagroup[activeoverlay].data[x].time:=time;
  newdata:=true;
end;





procedure TOverlay.overLayClearGroup(str: string);
var
  x : integer;
begin

  for x := Low(datagroup) to High(datagroup) do
  begin
 // WriteLn('cp '+str+' '+datagroup[x].name);
  if (CompareStr(datagroup[x].name, str) = 0) then
  begin
  datagroup[x].cleardata();
  end
  end ;
  Timer1Timer(nil);
end;
  //   if not(clear = -1 ) then
  //begin
  //
  //clear := -1;
  //end;
procedure TOverlay.overLayText(str:string;c,s,x1,y,time:integer);
var
  x : integer;
begin
// alt1.overLayText("" + n, a1lib.mixcolor(255, 255, 255), 20, knot.reader.pos.x + x + 6, knot.reader.pos.y + y, 7000);
  x :=  High(datagroup[activeoverlay].data)+1;
  SetLength(datagroup[activeoverlay].data,x+1);
  datagroup[activeoverlay].data[x] := Toverlaydata.Create;
  datagroup[activeoverlay].data[x].text:=str;
  datagroup[activeoverlay].data[x].color:= c; //text color
  datagroup[activeoverlay].data[x].tipo:= 2;  // type text
  datagroup[activeoverlay].data[x].width:=s; //text size
  SetLength(datagroup[activeoverlay].data[x].points , 1);
  datagroup[activeoverlay].data[x].points[0].x:=x1;
  datagroup[activeoverlay].data[x].points[0].y:=y;
  datagroup[activeoverlay].data[x].time:=time;
  newdata:=true;
end;

procedure TOverlay.overLayRect(c,x1,y,w,h,time,lw:integer);
var
  x : integer;
begin
  //	alt1.overLayRect('red', x, y, width, height, 2000, 1);
  x :=  High(datagroup[activeoverlay].data)+1;
  SetLength(datagroup[activeoverlay].data,x+1);
  datagroup[activeoverlay].data[x] := Toverlaydata.Create;
  datagroup[activeoverlay].data[x].color:= c;
  datagroup[activeoverlay].data[x].tipo:= 3; //type rect
  datagroup[activeoverlay].data[x].width:=lw;
  SetLength(datagroup[activeoverlay].data[x].points , 2);
  datagroup[activeoverlay].data[x].points[0].x:=x1;
  datagroup[activeoverlay].data[x].points[0].y:=y;
  datagroup[activeoverlay].data[x].points[1].x:=w; //width
  datagroup[activeoverlay].data[x].points[1].y:=h; //heigth
  datagroup[activeoverlay].data[x].time:=time;
  newdata:=true;
end;

procedure TOverlay.overLayContinueGroup(str: string);
var
  x : integer;
begin
  for x := Low(datagroup) to High(datagroup) do
  begin
  if (CompareStr(datagroup[x].name, str) = 0) then
  begin
  datagroup[x].frezzed:= false;
  newdata:=true;
  end
  end
end;

procedure TOverlay.overLayFreezeGroup(str: string);
var
  x : integer;
begin
  for x := Low(datagroup) to High(datagroup) do
  begin
  if (CompareStr(datagroup[x].name, str) = 0) then
  begin
  datagroup[x].frezzed:= true;
  datagroup[x].draw:= False;
  newdata:=true;
  end
  end
end;

end.