New release (v1.0.20181114)

neurolabusc · Nov 24, 2018 · 2369113 · 2369113
1 parent 59d7cab
commit 2369113
Show file tree

Hide file tree

Showing 87 changed files with 3,985 additions and 1,865 deletions.
diff --git a/ROIfilt.lfm b/ROIfilt.lfm
@@ -1,85 +1,114 @@
 object FilterROIform: TFilterROIform
   Left = 569
-  Height = 190
+  Height = 148
   Top = 107
-  Width = 240
+  Width = 297
   HorzScrollBar.Page = 209
   VertScrollBar.Page = 196
   ActiveControl = MinROIfilt
+  AutoSize = True
   BorderIcons = [biSystemMenu]
   BorderStyle = bsToolWindow
+  BorderWidth = 4
   Caption = 'Intensity filter'
-  ClientHeight = 190
-  ClientWidth = 240
-  Constraints.MaxHeight = 190
-  Constraints.MaxWidth = 240
-  Constraints.MinHeight = 190
+  ClientHeight = 148
+  ClientWidth = 297
   OnClose = FormClose
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.6.0.2'
+  LCLVersion = '2.1.0.0'
   object Label42: TLabel
-    Left = 4
-    Height = 17
-    Top = 14
-    Width = 101
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = MinROIfilt
+    AnchorSideTop.Side = asrCenter
+    Left = 8
+    Height = 16
+    Top = 10
+    Width = 90
+    BorderSpacing.Left = 4
     Caption = 'Min. Threshold'
     ParentColor = False
   end
   object FilterROIBtn: TSpeedButton
-    Left = 4
+    AnchorSideLeft.Control = Label42
+    AnchorSideTop.Control = Filter2NIfTIBtn
+    AnchorSideTop.Side = asrBottom
+    Left = 8
     Height = 25
-    Top = 143
-    Width = 221
+    Top = 87
+    Width = 280
+    BorderSpacing.Top = 4
+    Constraints.MinWidth = 280
     Caption = 'Filter VOI with highlighted'
     OnClick = FilterROIBtnClick
     ShowHint = True
     ParentShowHint = False
   end
   object Label43: TLabel
-    Left = 4
-    Height = 17
-    Top = 49
-    Width = 104
+    AnchorSideLeft.Control = Label42
+    AnchorSideTop.Control = MaxROIfilt
+    AnchorSideTop.Side = asrCenter
+    Left = 8
+    Height = 16
+    Top = 35
+    Width = 93
     Caption = 'Max. Threshold'
     Font.CharSet = 13
     ParentColor = False
     ParentFont = False
   end
   object Filter2NIfTIBtn: TSpeedButton
     Tag = 128
-    Left = 4
+    AnchorSideLeft.Control = Label42
+    AnchorSideTop.Control = MaxROIfilt
+    AnchorSideTop.Side = asrBottom
+    Left = 8
     Height = 25
-    Top = 107
-    Width = 221
+    Top = 58
+    Width = 280
+    BorderSpacing.Top = 4
+    Constraints.MinWidth = 280
     Caption = 'Save highlighted as NIfTI or VOI'
     OnClick = Filter2NIfTIBtnClick
     ShowHint = True
     ParentShowHint = False
   end
   object FiltROILabel: TLabel
+    AnchorSideLeft.Control = Label42
+    AnchorSideTop.Control = FilterROIBtn
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 17
-    Top = 81
-    Width = 28
+    Height = 16
+    Top = 116
+    Width = 25
+    BorderSpacing.Top = 4
     Caption = '       '
     ParentColor = False
   end
   object MinROIfilt: TSpinEdit
-    Left = 120
-    Height = 27
-    Top = 7
+    AnchorSideLeft.Control = Label42
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Owner
+    Left = 104
+    Height = 21
+    Top = 8
     Width = 64
+    BorderSpacing.Left = 6
+    BorderSpacing.Top = 4
     MaxValue = 254
     OnChange = MinROIfiltChange
     TabOrder = 0
     Value = 100
   end
   object MaxROIfilt: TSpinEdit
-    Left = 120
-    Height = 27
-    Top = 42
+    AnchorSideLeft.Control = MinROIfilt
+    AnchorSideTop.Control = MinROIfilt
+    AnchorSideTop.Side = asrBottom
+    Left = 104
+    Height = 21
+    Top = 33
     Width = 64
+    BorderSpacing.Top = 4
     MaxValue = 255
     OnChange = MinROIfiltChange
     TabOrder = 1

diff --git a/ROIfilt.lrs b/ROIfilt.lrs
@@ -1,28 +1,42 @@
 { This is an automatically generated lazarus resource file }
 
 LazarusResources.Add('TFilterROIform','FORMDATA',[
-  'TPF0'#14'TFilterROIform'#13'FilterROIform'#4'Left'#3'9'#2#6'Height'#3#190#0#3
-  +'Top'#2'k'#5'Width'#3#240#0#18'HorzScrollBar.Page'#3#209#0#18'VertScrollBar.'
-  +'Page'#3#196#0#13'ActiveControl'#7#10'MinROIfilt'#11'BorderIcons'#11#12'biSy'
-  +'stemMenu'#0#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#16'Intensity fi'
-  +'lter'#12'ClientHeight'#3#190#0#11'ClientWidth'#3#240#0#21'Constraints.MaxHe'
-  +'ight'#3#190#0#20'Constraints.MaxWidth'#3#240#0#21'Constraints.MinHeight'#3
-  +#190#0#7'OnClose'#7#9'FormClose'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'po'
-  +'ScreenCenter'#10'LCLVersion'#6#7'1.6.0.2'#0#6'TLabel'#7'Label42'#4'Left'#2#4
-  +#6'Height'#2#17#3'Top'#2#14#5'Width'#2'e'#7'Caption'#6#14'Min. Threshold'#11
-  +'ParentColor'#8#0#0#12'TSpeedButton'#12'FilterROIBtn'#4'Left'#2#4#6'Height'#2
-  +#25#3'Top'#3#143#0#5'Width'#3#221#0#7'Caption'#6#27'Filter VOI with highligh'
-  +'ted'#7'OnClick'#7#17'FilterROIBtnClick'#8'ShowHint'#9#14'ParentShowHint'#8#0
-  +#0#6'TLabel'#7'Label43'#4'Left'#2#4#6'Height'#2#17#3'Top'#2'1'#5'Width'#2'h'
-  +#7'Caption'#6#14'Max. Threshold'#12'Font.CharSet'#2#13#11'ParentColor'#8#10
-  +'ParentFont'#8#0#0#12'TSpeedButton'#15'Filter2NIfTIBtn'#3'Tag'#3#128#0#4'Lef'
-  +'t'#2#4#6'Height'#2#25#3'Top'#2'k'#5'Width'#3#221#0#7'Caption'#6' Save highl'
-  +'ighted as NIfTI or VOI'#7'OnClick'#7#20'Filter2NIfTIBtnClick'#8'ShowHint'#9
-  +#14'ParentShowHint'#8#0#0#6'TLabel'#12'FiltROILabel'#4'Left'#2#8#6'Height'#2
-  +#17#3'Top'#2'Q'#5'Width'#2#28#7'Caption'#6#7'       '#11'ParentColor'#8#0#0#9
-  +'TSpinEdit'#10'MinROIfilt'#4'Left'#2'x'#6'Height'#2#27#3'Top'#2#7#5'Width'#2
-  +'@'#8'MaxValue'#3#254#0#8'OnChange'#7#16'MinROIfiltChange'#8'TabOrder'#2#0#5
-  +'Value'#2'd'#0#0#9'TSpinEdit'#10'MaxROIfilt'#4'Left'#2'x'#6'Height'#2#27#3'T'
-  +'op'#2'*'#5'Width'#2'@'#8'MaxValue'#3#255#0#8'OnChange'#7#16'MinROIfiltChang'
-  +'e'#8'TabOrder'#2#1#5'Value'#3#255#0#0#0#0
+  'TPF0'#14'TFilterROIform'#13'FilterROIform'#4'Left'#3'9'#2#6'Height'#3#148#0#3
+  +'Top'#2'k'#5'Width'#3')'#1#18'HorzScrollBar.Page'#3#209#0#18'VertScrollBar.P'
+  +'age'#3#196#0#13'ActiveControl'#7#10'MinROIfilt'#8'AutoSize'#9#11'BorderIcon'
+  +'s'#11#12'biSystemMenu'#0#11'BorderStyle'#7#12'bsToolWindow'#11'BorderWidth'
+  +#2#4#7'Caption'#6#16'Intensity filter'#12'ClientHeight'#3#148#0#11'ClientWid'
+  +'th'#3')'#1#7'OnClose'#7#9'FormClose'#6'OnShow'#7#8'FormShow'#8'Position'#7
+  +#14'poScreenCenter'#10'LCLVersion'#6#7'2.1.0.0'#0#6'TLabel'#7'Label42'#22'An'
+  +'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#10'MinROIfilt'
+  +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#16#3'Top'#2#10
+  +#5'Width'#2'Z'#18'BorderSpacing.Left'#2#4#7'Caption'#6#14'Min. Threshold'#11
+  +'ParentColor'#8#0#0#12'TSpeedButton'#12'FilterROIBtn'#22'AnchorSideLeft.Cont'
+  +'rol'#7#7'Label42'#21'AnchorSideTop.Control'#7#15'Filter2NIfTIBtn'#18'Anchor'
+  +'SideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'W'#5'Width'
+  +#3#24#1#17'BorderSpacing.Top'#2#4#20'Constraints.MinWidth'#3#24#1#7'Caption'
+  +#6#27'Filter VOI with highlighted'#7'OnClick'#7#17'FilterROIBtnClick'#8'Show'
+  +'Hint'#9#14'ParentShowHint'#8#0#0#6'TLabel'#7'Label43'#22'AnchorSideLeft.Con'
+  +'trol'#7#7'Label42'#21'AnchorSideTop.Control'#7#10'MaxROIfilt'#18'AnchorSide'
+  +'Top.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#16#3'Top'#2'#'#5'Width'#2
+  +']'#7'Caption'#6#14'Max. Threshold'#12'Font.CharSet'#2#13#11'ParentColor'#8
+  +#10'ParentFont'#8#0#0#12'TSpeedButton'#15'Filter2NIfTIBtn'#3'Tag'#3#128#0#22
+  +'AnchorSideLeft.Control'#7#7'Label42'#21'AnchorSideTop.Control'#7#10'MaxROIf'
+  +'ilt'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#25#3'Top'
+  +#2':'#5'Width'#3#24#1#17'BorderSpacing.Top'#2#4#20'Constraints.MinWidth'#3#24
+  +#1#7'Caption'#6' Save highlighted as NIfTI or VOI'#7'OnClick'#7#20'Filter2NI'
+  +'fTIBtnClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#6'TLabel'#12'FiltROILab'
+  +'el'#22'AnchorSideLeft.Control'#7#7'Label42'#21'AnchorSideTop.Control'#7#12
+  +'FilterROIBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2
+  +#16#3'Top'#2't'#5'Width'#2#25#17'BorderSpacing.Top'#2#4#7'Caption'#6#7'     '
+  +'  '#11'ParentColor'#8#0#0#9'TSpinEdit'#10'MinROIfilt'#22'AnchorSideLeft.Con'
+  +'trol'#7#7'Label42'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.'
+  +'Control'#7#5'Owner'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'@'#18
+  +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#8'MaxValue'#3#254#0#8'OnC'
+  +'hange'#7#16'MinROIfiltChange'#8'TabOrder'#2#0#5'Value'#2'd'#0#0#9'TSpinEdit'
+  +#10'MaxROIfilt'#22'AnchorSideLeft.Control'#7#10'MinROIfilt'#21'AnchorSideTop'
+  +'.Control'#7#10'MinROIfilt'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+  +'h'#6'Height'#2#21#3'Top'#2'!'#5'Width'#2'@'#17'BorderSpacing.Top'#2#4#8'Max'
+  +'Value'#3#255#0#8'OnChange'#7#16'MinROIfiltChange'#8'TabOrder'#2#1#5'Value'#3
+  +#255#0#0#0#0
 ]);
diff --git a/ReadFloat.lfm b/ReadFloat.lfm
@@ -1,8 +1,8 @@
 object ReadFloatForm: TReadFloatForm
   Tag = 321
-  Left = 335
+  Left = 369
   Height = 95
-  Top = 308
+  Top = 410
   Width = 620
   HorzScrollBar.Page = 464
   VertScrollBar.Page = 94
@@ -11,38 +11,51 @@ object ReadFloatForm: TReadFloatForm
   Caption = 'Real number required'
   ClientHeight = 95
   ClientWidth = 620
-  Constraints.MaxHeight = 95
-  Constraints.MaxWidth = 620
-  Constraints.MinHeight = 95
   Constraints.MinWidth = 620
   Position = poScreenCenter
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '2.1.0.0'
   object ReadFloatLabel: TLabel
-    Left = 16
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = ReadFloatEdit
+    AnchorSideTop.Side = asrCenter
+    Left = 4
     Height = 16
-    Top = 15
-    Width = 97
+    Top = 6
+    Width = 93
     Alignment = taRightJustify
+    BorderSpacing.Left = 4
     Caption = 'Enter a number'
     ParentColor = False
   end
   object OKBtn: TButton
-    Left = 488
+    AnchorSideTop.Control = ReadFloatEdit
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 541
     Height = 25
-    Top = 55
+    Top = 29
     Width = 75
+    Anchors = [akTop, akRight]
+    BorderSpacing.Top = 4
+    BorderSpacing.Right = 4
     BorderSpacing.InnerBorder = 4
     Caption = 'OK'
     OnClick = OKBtnClick
     TabOrder = 0
   end
   object ReadFloatEdit: TFloatSpinEdit
-    Left = 472
-    Height = 16
-    Top = 15
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 497
+    Height = 21
+    Top = 4
     Width = 119
+    Anchors = [akTop, akRight]
+    BorderSpacing.Top = 4
+    BorderSpacing.Right = 4
     DecimalPlaces = 4
-    Increment = 1
     MaxValue = 9999999999999
     MinValue = -9999999999999
     TabOrder = 1

diff --git a/ReadFloat.lrs b/ReadFloat.lrs
@@ -1,20 +1,26 @@
 { This is an automatically generated lazarus resource file }
 
 LazarusResources.Add('TReadFloatForm','FORMDATA',[
-  'TPF0'#14'TReadFloatForm'#13'ReadFloatForm'#3'Tag'#3'A'#1#4'Left'#3'O'#1#6'He'
-  +'ight'#2'_'#3'Top'#3'4'#1#5'Width'#3'l'#2#18'HorzScrollBar.Page'#3#208#1#18
+  'TPF0'#14'TReadFloatForm'#13'ReadFloatForm'#3'Tag'#3'A'#1#4'Left'#3'q'#1#6'He'
+  +'ight'#2'_'#3'Top'#3#154#1#5'Width'#3'l'#2#18'HorzScrollBar.Page'#3#208#1#18
   +'VertScrollBar.Page'#2'^'#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'
   +#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Real number required'#12'Cl'
-  +'ientHeight'#2'_'#11'ClientWidth'#3'l'#2#21'Constraints.MaxHeight'#2'_'#20'C'
-  +'onstraints.MaxWidth'#3'l'#2#21'Constraints.MinHeight'#2'_'#20'Constraints.M'
-  +'inWidth'#3'l'#2#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.6.0.4'
-  +#0#6'TLabel'#14'ReadFloatLabel'#4'Left'#2#16#6'Height'#2#16#3'Top'#2#15#5'Wi'
-  +'dth'#2'a'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#14'Enter a number'
-  +#11'ParentColor'#8#0#0#7'TButton'#5'OKBtn'#4'Left'#3#232#1#6'Height'#2#25#3
-  +'Top'#2'7'#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'OK'
-  +#7'OnClick'#7#10'OKBtnClick'#8'TabOrder'#2#0#0#0#14'TFloatSpinEdit'#13'ReadF'
-  +'loatEdit'#4'Left'#3#216#1#6'Height'#2#16#3'Top'#2#15#5'Width'#2'w'#13'Decim'
-  +'alPlaces'#2#4#9'Increment'#5#0#0#0#0#0#0#0#128#255'?'#8'MaxValue'#5#0#0#240
-  +#255')'#231#132#145'*@'#8'MinValue'#5#0#0#240#255')'#231#132#145'*'#192#8'Ta'
-  +'bOrder'#2#1#5'Value'#5#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +'ientHeight'#2'_'#11'ClientWidth'#3'l'#2#20'Constraints.MinWidth'#3'l'#2#8'P'
+  +'osition'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.1.0.0'#0#6'TLabel'#14'Re'
+  +'adFloatLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contro'
+  +'l'#7#13'ReadFloatEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#4#6
+  +'Height'#2#16#3'Top'#2#6#5'Width'#2']'#9'Alignment'#7#14'taRightJustify'#18
+  +'BorderSpacing.Left'#2#4#7'Caption'#6#14'Enter a number'#11'ParentColor'#8#0
+  +#0#7'TButton'#5'OKBtn'#21'AnchorSideTop.Control'#7#13'ReadFloatEdit'#18'Anch'
+  +'orSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
+  +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3#29#2#6'Height'#2#25#3'Top'#2#29
+  +#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#4
+  +#19'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2
+  +'OK'#7'OnClick'#7#10'OKBtnClick'#8'TabOrder'#2#0#0#0#14'TFloatSpinEdit'#13'R'
+  +'eadFloatEdit'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Contr'
+  +'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#241#1#6'He'
+  +'ight'#2#21#3'Top'#2#4#5'Width'#2'w'#7'Anchors'#11#5'akTop'#7'akRight'#0#17
+  +'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#4#13'DecimalPlaces'#2#4#8
+  +'MaxValue'#5#0#0#240#255')'#231#132#145'*@'#8'MinValue'#5#0#0#240#255')'#231
+  +#132#145'*'#192#8'TabOrder'#2#1#5'Value'#5#0#0#0#0#0#0#0#0#0#0#0#0#0
 ]);