Add mytest

TestInsightSettings.ini

@@ -0,0 +1,3 @@
+[Config]
+BaseUrl=http://localhost:6789/tests
+ExecuteTests=0

powertools.lpi

@@ -71,6 +71,10 @@
         <Filename Value="src\os\win\win.hotkey.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="test\mytest.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -81,7 +85,7 @@
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
-      <OtherUnitFiles Value="src\view;src\os\win;src\components\config;src\model;src\components\hotkey"/>
+      <OtherUnitFiles Value="src\view;src\os\win;src\components\config;src\model;src\components\hotkey;test"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>

powertools.lpr

@@ -10,7 +10,7 @@ uses
   athreads,
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, TMainForm, App, Config, ConfigVO, pair, Hotkey, win.hotkey;
+  Forms, TMainForm, App, Config, ConfigVO, pair, Hotkey, win.hotkey, MyTest;
 
 {$R *.res}
 

src/view/tmainform.lfm

@@ -28,6 +28,7 @@ object MainUI: TMainUI
     ParentFont = False
     TabOrder = 0
     TextHint = 'Hi, Power tools'
+    OnChange = MainEditChange
     OnKeyPress = MainEditKeyPress
   end
   object MainTrayIcon: TTrayIcon

src/view/tmainform.pas

@@ -33,6 +33,7 @@ type
     ShowOrHideMenu: TMenuItem;
     TrayPopupMenu: TPopupMenu;
     procedure FormShortCut(var Msg: TLMKey; var Handled: boolean);
+    procedure MainEditChange(Sender: TObject);
     procedure ShowOrHideMainUI();
     procedure ExitMenuClick(Sender: TObject);
     procedure MainEditKeyPress(Sender: TObject; var Key: char);
@@ -43,6 +44,9 @@ type
 
   end;
 
+const
+  DEFAULT_UI_HEIGHT = 40;
+
 var
   MainUI: TMainUI;
 
@@ -69,6 +73,11 @@ begin
   end;
 end;
 
+procedure TMainUI.MainEditChange(Sender: TObject);
+begin
+
+end;
+
 procedure TMainUI.ShowOrHideMenuClick(Sender: TObject);
 begin
   MainUI.ShowOrHideMainUI();

test/mytest.pas

@@ -0,0 +1,29 @@
+unit mytest;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, fpcunit, testutils, testregistry;
+
+type
+
+  TDemoTest = class(TTestCase)
+  published
+    procedure TestHookUp;
+  end;
+
+implementation
+
+procedure TDemoTest.TestHookUp;
+begin
+  Fail('Write your own test');
+end;
+
+
+
+initialization
+
+  RegisterTest(TDemoTest);
+end.