Crosshair position and style is now saved

psa-jforestier · Dec 7, 2023 · 8f6633a · 8f6633a
1 parent edf20ff
commit 8f6633a
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 1 deletion.
diff --git a/formreticle.lfm b/formreticle.lfm
@@ -16,6 +16,7 @@ object Form1: TForm1
   OnCreate = FormCreate
   OnHide = FormHide
   OnKeyUp = FormKeyUp
+  OnMouseDown = FormMouseDown
   OnMouseEnter = FormMouseEnter
   OnMouseLeave = FormMouseLeave
   OnMouseWheel = FormMouseWheel
@@ -31,6 +32,7 @@ object Form1: TForm1
     Width = 160
     Align = alClient
     Center = True
+    OnMouseDown = Image1MouseDown
     Picture.Data = {
       1754506F727461626C654E6574776F726B47726170686963B200000089504E47
       0D0A1A0A0000000D4948445200000010000000100403000000EDDDE252000000

diff --git a/formreticle.pas b/formreticle.pas
@@ -24,12 +24,16 @@   TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure FormHide(Sender: TObject);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
     procedure FormMouseEnter(Sender: TObject);
     procedure FormMouseLeave(Sender: TObject);
     procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
       WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
     procedure FormShow(Sender: TObject);
     procedure FormWindowStateChange(Sender: TObject);
+    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
   private
          procedure LMNCHitTest(var Msg: TLMNCHitTest) ; message LM_NCHitTest;
 
@@ -145,6 +149,12 @@ procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
   end;
 end;
 
+procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  DebugLn('FormMouseDown');
+end;
+
 procedure TForm1.FormMouseEnter(Sender: TObject);
 begin
    inherited;
@@ -210,6 +220,14 @@ procedure TForm1.FormWindowStateChange(Sender: TObject);
   DebugLn('FormWindowStateChange');
 end;
 
+procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  DebugLn('Image1MouseDown');
+
+end;
+
+
 procedure TForm1.LMNCHitTest(var Msg: TLMNCHitTest);
 begin
    inherited;

diff --git a/formsplash.lfm b/formsplash.lfm
@@ -25,7 +25,7 @@ object SplashForm: TSplashForm
     Height = 15
     Top = 0
     Width = 58
-    Caption = 'X-AIM v1.0'
+    Caption = 'X-AIM v1.1'
     ParentColor = False
     OnClick = Label2Click
   end