Varios Updates

Author: nandofw

alt1linux.lpi

@@ -38,7 +38,7 @@
         <PackageName Value="LCL"/>
       </Item5>
     </RequiredPackages>
-    <Units Count="4">
+    <Units Count="5">
       <Unit0>
         <Filename Value="alt1linux.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -64,6 +64,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit3>
+      <Unit4>
+        <Filename Value="settings.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+      </Unit4>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -75,8 +82,15 @@
       <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
+    <CodeGeneration>
+      <Optimizations>
+        <OptimizationLevel Value="4"/>
+      </Optimizations>
+    </CodeGeneration>
     <Linking>
       <Options>
+        <PassLinkerOptions Value="True"/>
+        <LinkerOptions Value="-lX11 -lXcomposite  -lXext -lXfixes"/>
         <Win32>
           <GraphicApplication Value="True"/>
         </Win32>

alt1linux.lpr

@@ -1,13 +1,14 @@
 program alt1linux;
 
 {$mode objfpc}{$H+}
-
+{.$DEFINE DEBUG}
 uses
+
   {$IFDEF UNIX}
   cthreads,
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, runtimetypeinfocontrols, main,mainapp,simpleipc, alt1overlay;
+  Forms, runtimetypeinfocontrols, main,mainapp,simpleipc, alt1overlay, settings;
 
 var
  Client: TSimpleIPCClient;
@@ -33,6 +34,7 @@
   Application.CreateForm(Talt1app, alt1app);
   Application.CreateForm(Tmainform, mainform);
   Application.CreateForm(TOverlay, Overlay);
+  Application.CreateForm(TForm1, Form1);
   Application.Run;
   end;
 end.

alt1overlay.lfm

@@ -1,37 +1,34 @@
 object Overlay: TOverlay
-  Left = 74
+  Left = 56
   Height = 115
-  Top = 182
+  Top = 45
   Width = 148
   Align = alClient
   AlphaBlendValue = 0
   BorderIcons = []
   BorderStyle = bsNone
   Caption = 'Overlay'
-  ClientHeight = 115
-  ClientWidth = 148
-  Color = clRed
+  Color = clWhite
   FormStyle = fsSystemStayOnTop
   OnClick = FormClick
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnShow = FormShow
   ParentBiDiMode = False
   ShowInTaskBar = stNever
   LCLVersion = '1.8.4.0'
-  Visible = True
   WindowState = wsMaximized
-  object Image1: TImage
-    Left = 0
-    Height = 115
-    Top = 0
-    Width = 148
-    Align = alClient
-    Enabled = False
-    Transparent = True
-  end
   object Timer1: TTimer
-    Interval = 20
+    Interval = 50
     OnTimer = Timer1Timer
-    left = 33
-    top = 12
+    left = 8
+    top = 8
+  end
+  object Timer2: TTimer
+    Enabled = False
+    Interval = 10
+    OnTimer = Timer2Timer
+    left = 48
+    top = 8
   end
 end