Skip to content

Commit 6ebb838

Browse files
github-actions[bot]github-actions[bot]
authored
Merge pull request #209 from CanardConfit/imported
[Automation] [2025-12-10] Mirroring from the Mercury repo
2 parents 8690363 + f024c76 commit 6ebb838

File tree

8 files changed

+6871
-3602
lines changed

8 files changed

+6871
-3602
lines changed

‎astap_main.lfm‎

Lines changed: 42 additions & 42 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ object mainform1: Tmainform1
66
Width = 1333
77
AllowDropFiles = True
88
Caption = 'Astrometric Stacking Program and fits viewer (ASTAP)'
9-
ClientHeight = 612
9+
ClientHeight = 634
1010
ClientWidth = 1333
1111
Color = clForm
1212
Icon.Data = {
@@ -42,6 +42,9 @@ object mainform1: Tmainform1
4242
}
4343
KeyPreview = True
4444
Menu = MainMenu1
45+
ParentFont = True
46+
Position = poDesktopCenter
47+
LCLVersion = '4.2.0.0'
4548
OnClose = FormClose
4649
OnCreate = FormCreate
4750
OnDestroy = FormDestroy
@@ -50,9 +53,6 @@ object mainform1: Tmainform1
5053
OnPaint = FormPaint
5154
OnResize = FormResize
5255
OnShow = FormShow
53-
ParentFont = True
54-
Position = poDesktopCenter
55-
LCLVersion = '2.2.6.0'
5656
object error_get_it: TLabel
5757
Left = 217
5858
Height = 15
@@ -71,7 +71,7 @@ object mainform1: Tmainform1
7171
object StatusBar1: TStatusBar
7272
Left = 0
7373
Height = 23
74-
Top = 589
74+
Top = 611
7575
Width = 1333
7676
Panels = <
7777
item
@@ -110,7 +110,7 @@ object mainform1: Tmainform1
110110
object PairSplitter1: TPairSplitter
111111
Cursor = crVSplit
112112
Left = 0
113-
Height = 589
113+
Height = 611
114114
Top = 0
115115
Width = 1333
116116
Align = alClient
@@ -220,24 +220,24 @@ object mainform1: Tmainform1
220220
FFFFFFFFA4FFFFFFFFFFFFFFFFFFFFA4FFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFF
221221
A4FFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFF
222222
}
223-
OnClick = SpeedButton1Click
224223
ShowHint = True
225224
ParentFont = False
226225
ParentShowHint = False
226+
OnClick = SpeedButton1Click
227227
end
228228
object ra1: TEdit
229229
Left = 67
230230
Height = 27
231231
Hint = 'Right ascension of reference pixel. Normally in the middle of the image. Format 23 30 00.0 or 23.500. Double click to retrieve position from database'
232232
Top = 2
233233
Width = 95
234-
OnChange = ra1Change
235-
OnDblClick = radec_search1Click
236234
ParentShowHint = False
237235
PopupMenu = PopupMenu_ra_dec1
238236
ShowHint = True
239237
TabOrder = 0
240238
Text = '00 00 00.0'
239+
OnChange = ra1Change
240+
OnDblClick = radec_search1Click
241241
end
242242
object ra_label: TLabel
243243
Left = 169
@@ -278,11 +278,11 @@ object mainform1: Tmainform1
278278
AutoSize = True
279279
Caption = '∑ '
280280
Font.Height = -24
281-
OnClick = Stackimages1Click
282281
ParentFont = False
283282
ParentShowHint = False
284283
ShowHint = True
285284
TabOrder = 2
285+
OnClick = Stackimages1Click
286286
end
287287
object solve_button1: TButton
288288
Left = 305
@@ -298,11 +298,11 @@ object mainform1: Tmainform1
298298
Font.Name = 'Segoe UI'
299299
Font.Pitch = fpVariable
300300
Font.Quality = fqDraft
301-
OnClick = solve_button1Click
302301
ParentFont = False
303302
ParentShowHint = False
304303
ShowHint = True
305304
TabOrder = 3
305+
OnClick = solve_button1Click
306306
end
307307
object save1: TButton
308308
Left = 416
@@ -318,11 +318,11 @@ object mainform1: Tmainform1
318318
Font.Name = 'Segoe UI'
319319
Font.Pitch = fpVariable
320320
Font.Quality = fqDraft
321-
OnClick = SaveFITSwithupdatedheader1Click
322321
ParentFont = False
323322
ParentShowHint = False
324323
ShowHint = True
325324
TabOrder = 4
325+
OnClick = SaveFITSwithupdatedheader1Click
326326
end
327327
object Polynomial1: TComboBox
328328
Left = 456
@@ -342,13 +342,13 @@ object mainform1: Tmainform1
342342
'SIP Polynomial'
343343
'DSS Polynomial'
344344
)
345-
OnChange = Polynomial1Change
346345
ParentColor = True
347346
ParentFont = False
348347
ParentShowHint = False
349348
ShowHint = True
350349
TabOrder = 5
351350
Text = 'WCS'
351+
OnChange = Polynomial1Change
352352
end
353353
object data_range_groupBox1: TGroupBox
354354
Left = 1
@@ -410,12 +410,12 @@ object mainform1: Tmainform1
410410
Height = 54
411411
Top = 0
412412
Width = 210
413-
OnMouseMove = histogram1MouseMove
414413
ParentShowHint = False
415414
PopupMenu = PopupMenu_histogram1
416415
ShowHint = True
417416
StretchOutEnabled = False
418417
StretchInEnabled = False
418+
OnMouseMove = histogram1MouseMove
419419
end
420420
object Label5: TLabel
421421
Left = 4
@@ -478,12 +478,12 @@ object mainform1: Tmainform1
478478
Font.Name = 'Segoe UI'
479479
Font.Pitch = fpVariable
480480
Font.Quality = fqDraft
481-
OnEditingDone = min2EditingDone
482481
ParentFont = False
483482
ParentShowHint = False
484483
ShowHint = True
485484
TabOrder = 2
486485
Text = '0'
486+
OnEditingDone = min2EditingDone
487487
end
488488
object max2: TEdit
489489
Left = 340
@@ -497,12 +497,12 @@ object mainform1: Tmainform1
497497
Font.Name = 'Segoe UI'
498498
Font.Pitch = fpVariable
499499
Font.Quality = fqDraft
500-
OnEditingDone = max2EditingDone
501500
ParentFont = False
502501
ParentShowHint = False
503502
ShowHint = True
504503
TabOrder = 3
505504
Text = '65535'
505+
OnEditingDone = max2EditingDone
506506
end
507507
object range1: TComboBox
508508
Left = 313
@@ -531,7 +531,6 @@ object mainform1: Tmainform1
531531
'Show saturation'
532532
'Max range'
533533
)
534-
OnChange = range1Change
535534
ParentBidiMode = False
536535
ParentColor = True
537536
ParentFont = False
@@ -540,6 +539,7 @@ object mainform1: Tmainform1
540539
Style = csDropDownList
541540
TabOrder = 4
542541
Text = 'Medium'
542+
OnChange = range1Change
543543
end
544544
object stretch1: TComboBox
545545
Left = 313
@@ -572,14 +572,14 @@ object mainform1: Tmainform1
572572
'400'
573573
'800'
574574
)
575-
OnCloseUp = stretch1CloseUp
576-
OnExit = stretch1Exit
577575
ParentColor = True
578576
ParentFont = False
579577
ParentShowHint = False
580578
ShowHint = True
581579
TabOrder = 5
582580
Text = 'off'
581+
OnCloseUp = stretch1CloseUp
582+
OnExit = stretch1Exit
583583
end
584584
object saturation_factor_plot1: TTrackBar
585585
Left = 416
@@ -600,14 +600,14 @@ object mainform1: Tmainform1
600600
Font.Name = 'Segoe UI'
601601
Font.Pitch = fpVariable
602602
Font.Quality = fqDraft
603-
OnMouseUp = saturation_factor_plot1MouseUp
604-
OnMouseWheel = saturation_factor_plot1MouseWheel
605-
OnKeyUp = saturation_factor_plot1KeyUp
606603
ParentColor = False
607604
ParentFont = False
608605
ParentShowHint = False
609606
ShowHint = True
610607
TabOrder = 6
608+
OnMouseUp = saturation_factor_plot1MouseUp
609+
OnMouseWheel = saturation_factor_plot1MouseWheel
610+
OnKeyUp = saturation_factor_plot1KeyUp
611611
end
612612
object shape_histogram1: TShape
613613
Left = 72
@@ -638,13 +638,13 @@ object mainform1: Tmainform1
638638
Font.Name = 'Segoe UI'
639639
Font.Pitch = fpVariable
640640
Font.Quality = fqDraft
641-
OnMouseUp = saturation_factor_plot1MouseUp
642-
OnMouseWheel = selective_colour_saturation1MouseWheel
643-
OnKeyUp = saturation_factor_plot1KeyUp
644641
ParentFont = False
645642
ParentShowHint = False
646643
ShowHint = True
647644
TabOrder = 7
645+
OnMouseUp = saturation_factor_plot1MouseUp
646+
OnMouseWheel = selective_colour_saturation1MouseWheel
647+
OnKeyUp = saturation_factor_plot1KeyUp
648648
end
649649
end
650650
object dec1: TEdit
@@ -653,20 +653,20 @@ object mainform1: Tmainform1
653653
Hint = 'Declination of reference pixel. Normally in the middle of the image. Format +89 30 00 or 89.500. Double click to retrieve position from database.'
654654
Top = 28
655655
Width = 95
656-
OnChange = dec1Change
657-
OnDblClick = radec_search1Click
658656
ParentShowHint = False
659657
PopupMenu = PopupMenu_ra_dec1
660658
ShowHint = True
661659
TabOrder = 1
662660
Text = '+00 00 00.00'
661+
OnChange = dec1Change
662+
OnDblClick = radec_search1Click
663663
end
664664
object inversemousewheel1: TCheckBox
665665
Left = 456
666-
Height = 23
666+
Height = 19
667667
Hint = 'Inverse zoom action of the mouse wheel.'
668668
Top = 40
669-
Width = 107
669+
Width = 101
670670
Caption = 'Inverse 🖱️ wheel'
671671
Color = clBtnText
672672
Font.CharSet = ANSI_CHARSET
@@ -716,13 +716,13 @@ object mainform1: Tmainform1
716716
Lines.Strings = (
717717
''
718718
)
719-
OnChange = Memo1Change
720-
OnKeyUp = Memo1KeyUp
721719
ParentFont = False
722720
PopupMenu = PopupMenu_memo1
723721
ScrollBars = ssVertical
724722
TabOrder = 0
725723
WordWrap = False
724+
OnChange = Memo1Change
725+
OnKeyUp = Memo1KeyUp
726726
end
727727
end
728728
object TabSheet2: TTabSheet
@@ -740,11 +740,11 @@ object mainform1: Tmainform1
740740
Lines.Strings = (
741741
''
742742
)
743-
OnKeyUp = Memo1KeyUp
744743
ParentFont = False
745744
ScrollBars = ssAutoVertical
746745
TabOrder = 0
747746
WordWrap = False
747+
OnKeyUp = Memo1KeyUp
748748
end
749749
end
750750
end
@@ -755,13 +755,13 @@ object mainform1: Tmainform1
755755
Top = 2
756756
Width = 47
757757
Min = 0
758-
OnClick = UpDown1Click
759758
Orientation = udHorizontal
760759
ParentShowHint = False
761760
Position = 0
762761
ShowHint = True
763762
TabOrder = 9
764763
Visible = False
764+
OnClick = UpDown1Click
765765
end
766766
object rotation1: TLabel
767767
Left = 555
@@ -818,19 +818,19 @@ object mainform1: Tmainform1
818818
object PairSplitterSide2: TPairSplitterSide
819819
Cursor = crArrow
820820
Left = 0
821-
Height = 408
821+
Height = 430
822822
Top = 181
823823
Width = 1333
824824
ClientWidth = 1333
825-
ClientHeight = 408
825+
ClientHeight = 430
826826
object Panel1: TPanel
827827
Left = 0
828-
Height = 408
828+
Height = 430
829829
Hint = 'hint'
830830
Top = 0
831831
Width = 1333
832832
Align = alClient
833-
ClientHeight = 408
833+
ClientHeight = 430
834834
ClientWidth = 1333
835835
Color = 2105376
836836
Font.CharSet = ANSI_CHARSET
@@ -851,18 +851,18 @@ object mainform1: Tmainform1
851851
object Image1: TImage
852852
Left = 137
853853
Height = 264
854-
Top = 0
854+
Top = 7
855855
Width = 608
856856
Anchors = []
857+
ParentShowHint = False
858+
PopupMenu = PopupMenu1
859+
Stretch = True
860+
Visible = False
857861
OnMouseDown = Image1MouseDown
858862
OnMouseEnter = Image1MouseEnter
859863
OnMouseMove = Image1MouseMove
860864
OnMouseUp = Image1MouseUp
861865
OnPaint = Image1Paint
862-
ParentShowHint = False
863-
PopupMenu = PopupMenu1
864-
Stretch = True
865-
Visible = False
866866
end
867867
object shape_marker1: TShape
868868
Left = 17

‎astap_main.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -72,7 +72,7 @@ interface
7272
IniFiles;{for saving and loading settings}
7373

7474
const
75-
astap_version='2025.11.30'; // astap_version := {$I %DATE%} + ' ' + {$I %TIME%});
75+
astap_version='2025.12.09'; // astap_version := {$I %DATE%} + ' ' + {$I %TIME%});
7676
type
7777
tshapes = record //a shape and it positions
7878
shape : Tshape;

0 commit comments

Comments
 (0)