initial release

MultiSlice.lfm

@@ -0,0 +1,172 @@
+object MultiSliceForm: TMultiSliceForm
+  Left = 340
+  Height = 242
+  Top = 557
+  Width = 745
+  Caption = 'MultiSlice'
+  ClientHeight = 242
+  ClientWidth = 745
+  Font.Height = -11
+  Menu = MainMenu1
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnShow = FormShow
+  Position = poScreenCenter
+  LCLVersion = '1.5'
+  object MultiPanel: TScrollBox
+    Left = 0
+    Height = 242
+    Top = 0
+    Width = 745
+    HorzScrollBar.Page = 14
+    VertScrollBar.Page = 14
+    Align = alClient
+    ClientHeight = 227
+    ClientWidth = 730
+    TabOrder = 0
+    object MultiImage: TImage
+      Tag = 2
+      Cursor = crCross
+      Left = 2
+      Height = 12
+      Top = 2
+      Width = 12
+      AutoSize = True
+      Stretch = True
+    end
+  end
+  object MainMenu1: TMainMenu
+    left = 40
+    top = 8
+    object File1: TMenuItem
+      Caption = 'File'
+      object Settings1: TMenuItem
+        Caption = 'Open settings'
+        OnClick = Settings1Click
+      end
+      object Savesettings1: TMenuItem
+        Caption = 'Save settings'
+        ShortCut = 16467
+        OnClick = Savesettings1Click
+      end
+      object Saveasbitmap1: TMenuItem
+        Caption = 'Save as bitmap...'
+        OnClick = Saveasbitmap1Click
+      end
+      object Closewindow1: TMenuItem
+        Caption = 'Close window'
+        ShortCut = 16471
+        OnClick = Closewindow1Click
+      end
+    end
+    object Edit1: TMenuItem
+      Caption = 'Edit'
+      object Copy1: TMenuItem
+        Caption = 'Copy'
+        ShortCut = 16451
+        OnClick = Copy1Click
+      end
+    end
+    object View1: TMenuItem
+      Caption = 'View'
+      object OrientMenu: TMenuItem
+        Caption = 'Orient'
+        object Sagittal1: TMenuItem
+          Tag = 2
+          Caption = 'Sagittal'
+          GroupIndex = 129
+          RadioItem = True
+          OnClick = OrientClick
+        end
+        object Coronal1: TMenuItem
+          Tag = 3
+          Caption = 'Coronal'
+          GroupIndex = 129
+          RadioItem = True
+          OnClick = OrientClick
+        end
+        object Axial1: TMenuItem
+          Tag = 1
+          Caption = 'Axial'
+          Checked = True
+          GroupIndex = 129
+          RadioItem = True
+          OnClick = OrientClick
+        end
+      end
+      object OversliceMenu: TMenuItem
+        Caption = 'Overslice'
+        object N501: TMenuItem
+          Tag = -50
+          Caption = '-50%'
+          GroupIndex = 158
+          RadioItem = True
+          OnClick = OverlsiceClick
+        end
+        object N331: TMenuItem
+          Tag = -35
+          Caption = '-35%'
+          GroupIndex = 158
+          RadioItem = True
+          OnClick = OverlsiceClick
+        end
+        object N201: TMenuItem
+          Tag = -20
+          Caption = '-20%'
+          GroupIndex = 158
+          RadioItem = True
+          OnClick = OverlsiceClick
+        end
+        object N01: TMenuItem
+          Caption = '0%'
+          Checked = True
+          GroupIndex = 158
+          RadioItem = True
+          OnClick = OverlsiceClick
+        end
+        object N202: TMenuItem
+          Tag = 20
+          Caption = '20%'
+          GroupIndex = 158
+          RadioItem = True
+          OnClick = OverlsiceClick
+        end
+        object N351: TMenuItem
+          Tag = 35
+          Caption = '35%'
+          GroupIndex = 158
+          RadioItem = True
+          OnClick = OverlsiceClick
+        end
+        object N502: TMenuItem
+          Tag = 50
+          Caption = '50%'
+          GroupIndex = 158
+          RadioItem = True
+          OnClick = OverlsiceClick
+        end
+      end
+      object Orthoview: TMenuItem
+        Caption = 'Orthogonal view'
+        Checked = True
+        OnClick = OrthoviewClick
+      end
+      object SliceLabelCheck: TMenuItem
+        Caption = 'Show slice label'
+        Checked = True
+        OnClick = SliceLabelCheckClick
+      end
+      object Slices1: TMenuItem
+        Caption = 'Slices...'
+        OnClick = Slices1Click
+      end
+    end
+  end
+  object MultiSaveDialog: TSaveDialog
+    DefaultExt = '.ini'
+    Filter = 'Settings file|*.ini'
+    FilterIndex = 0
+    left = 97
+    top = 11
+  end
+end

MultiSlice.lrs

@@ -0,0 +1,49 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TMultiSliceForm','FORMDATA',[
+  'TPF0'#15'TMultiSliceForm'#14'MultiSliceForm'#4'Left'#3'T'#1#6'Height'#3#242#0
+  +#3'Top'#3'-'#2#5'Width'#3#233#2#7'Caption'#6#10'MultiSlice'#12'ClientHeight'
+  +#3#242#0#11'ClientWidth'#3#233#2#11'Font.Height'#2#245#4'Menu'#7#9'MainMenu1'
+  +#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormSh'
+  +'ow'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#3'1.5'#0#10'TScrollBo'
+  +'x'#10'MultiPanel'#4'Left'#2#0#6'Height'#3#242#0#3'Top'#2#0#5'Width'#3#233#2
+  +#18'HorzScrollBar.Page'#2#14#18'VertScrollBar.Page'#2#14#5'Align'#7#8'alClie'
+  +'nt'#12'ClientHeight'#3#227#0#11'ClientWidth'#3#218#2#8'TabOrder'#2#0#0#6'TI'
+  +'mage'#10'MultiImage'#3'Tag'#2#2#6'Cursor'#7#7'crCross'#4'Left'#2#2#6'Height'
+  +#2#12#3'Top'#2#2#5'Width'#2#12#8'AutoSize'#9#7'Stretch'#9#0#0#0#9'TMainMenu'
+  +#9'MainMenu1'#4'left'#2'('#3'top'#2#8#0#9'TMenuItem'#5'File1'#7'Caption'#6#4
+  +'File'#0#9'TMenuItem'#9'Settings1'#7'Caption'#6#13'Open settings'#7'OnClick'
+  +#7#14'Settings1Click'#0#0#9'TMenuItem'#13'Savesettings1'#7'Caption'#6#13'Sav'
+  +'e settings'#8'ShortCut'#3'S@'#7'OnClick'#7#18'Savesettings1Click'#0#0#9'TMe'
+  +'nuItem'#13'Saveasbitmap1'#7'Caption'#6#17'Save as bitmap...'#7'OnClick'#7#18
+  +'Saveasbitmap1Click'#0#0#9'TMenuItem'#12'Closewindow1'#7'Caption'#6#12'Close'
+  +' window'#8'ShortCut'#3'W@'#7'OnClick'#7#17'Closewindow1Click'#0#0#0#9'TMenu'
+  +'Item'#5'Edit1'#7'Caption'#6#4'Edit'#0#9'TMenuItem'#5'Copy1'#7'Caption'#6#4
+  +'Copy'#8'ShortCut'#3'C@'#7'OnClick'#7#10'Copy1Click'#0#0#0#9'TMenuItem'#5'Vi'
+  +'ew1'#7'Caption'#6#4'View'#0#9'TMenuItem'#10'OrientMenu'#7'Caption'#6#6'Orie'
+  +'nt'#0#9'TMenuItem'#9'Sagittal1'#3'Tag'#2#2#7'Caption'#6#8'Sagittal'#10'Grou'
+  +'pIndex'#3#129#0#9'RadioItem'#9#7'OnClick'#7#11'OrientClick'#0#0#9'TMenuItem'
+  +#8'Coronal1'#3'Tag'#2#3#7'Caption'#6#7'Coronal'#10'GroupIndex'#3#129#0#9'Rad'
+  +'ioItem'#9#7'OnClick'#7#11'OrientClick'#0#0#9'TMenuItem'#6'Axial1'#3'Tag'#2#1
+  +#7'Caption'#6#5'Axial'#7'Checked'#9#10'GroupIndex'#3#129#0#9'RadioItem'#9#7
+  +'OnClick'#7#11'OrientClick'#0#0#0#9'TMenuItem'#13'OversliceMenu'#7'Caption'#6
+  +#9'Overslice'#0#9'TMenuItem'#4'N501'#3'Tag'#2#206#7'Caption'#6#4'-50%'#10'Gr'
+  +'oupIndex'#3#158#0#9'RadioItem'#9#7'OnClick'#7#14'OverlsiceClick'#0#0#9'TMen'
+  +'uItem'#4'N331'#3'Tag'#2#221#7'Caption'#6#4'-35%'#10'GroupIndex'#3#158#0#9'R'
+  +'adioItem'#9#7'OnClick'#7#14'OverlsiceClick'#0#0#9'TMenuItem'#4'N201'#3'Tag'
+  +#2#236#7'Caption'#6#4'-20%'#10'GroupIndex'#3#158#0#9'RadioItem'#9#7'OnClick'
+  +#7#14'OverlsiceClick'#0#0#9'TMenuItem'#3'N01'#7'Caption'#6#2'0%'#7'Checked'#9
+  +#10'GroupIndex'#3#158#0#9'RadioItem'#9#7'OnClick'#7#14'OverlsiceClick'#0#0#9
+  +'TMenuItem'#4'N202'#3'Tag'#2#20#7'Caption'#6#3'20%'#10'GroupIndex'#3#158#0#9
+  +'RadioItem'#9#7'OnClick'#7#14'OverlsiceClick'#0#0#9'TMenuItem'#4'N351'#3'Tag'
+  +#2'#'#7'Caption'#6#3'35%'#10'GroupIndex'#3#158#0#9'RadioItem'#9#7'OnClick'#7
+  +#14'OverlsiceClick'#0#0#9'TMenuItem'#4'N502'#3'Tag'#2'2'#7'Caption'#6#3'50%'
+  +#10'GroupIndex'#3#158#0#9'RadioItem'#9#7'OnClick'#7#14'OverlsiceClick'#0#0#0
+  +#9'TMenuItem'#9'Orthoview'#7'Caption'#6#15'Orthogonal view'#7'Checked'#9#7'O'
+  +'nClick'#7#14'OrthoviewClick'#0#0#9'TMenuItem'#15'SliceLabelCheck'#7'Caption'
+  +#6#16'Show slice label'#7'Checked'#9#7'OnClick'#7#20'SliceLabelCheckClick'#0
+  +#0#9'TMenuItem'#7'Slices1'#7'Caption'#6#9'Slices...'#7'OnClick'#7#12'Slices1'
+  +'Click'#0#0#0#0#11'TSaveDialog'#15'MultiSaveDialog'#10'DefaultExt'#6#4'.ini'
+  +#6'Filter'#6#19'Settings file|*.ini'#11'FilterIndex'#2#0#4'left'#2'a'#3'top'
+  +#2#11#0#0#0
+]);