327 lines
8.7 KiB
Plaintext
327 lines
8.7 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 273
|
|
Top = 120
|
|
Caption = 'DICOM Demo'
|
|
ClientHeight = 559
|
|
ClientWidth = 782
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 183
|
|
Top = 125
|
|
Height = 393
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 782
|
|
Height = 125
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object btnAnimate: TSpeedButton
|
|
Left = 11
|
|
Top = 91
|
|
Width = 109
|
|
Height = 25
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Animate'
|
|
Enabled = False
|
|
OnClick = btnAnimateClick
|
|
end
|
|
object btnOpen: TButton
|
|
Left = 11
|
|
Top = 8
|
|
Width = 109
|
|
Height = 25
|
|
Caption = 'Open...'
|
|
TabOrder = 0
|
|
OnClick = btnOpenClick
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 160
|
|
Top = 9
|
|
Width = 501
|
|
Height = 108
|
|
Caption = ' DICOM info '
|
|
TabOrder = 1
|
|
object lblImageTypeD: TLabel
|
|
Left = 13
|
|
Top = 17
|
|
Width = 61
|
|
Height = 13
|
|
Caption = 'Image Type:'
|
|
end
|
|
object lblImageTypeV: TLabel
|
|
Left = 107
|
|
Top = 17
|
|
Width = 10
|
|
Height = 13
|
|
Caption = '--'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lblAcquisitionDateV: TLabel
|
|
Left = 107
|
|
Top = 35
|
|
Width = 10
|
|
Height = 13
|
|
Caption = '--'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lblAcquisitionDateD: TLabel
|
|
Left = 13
|
|
Top = 35
|
|
Width = 81
|
|
Height = 13
|
|
Caption = 'Acquisition Date:'
|
|
end
|
|
object lblAcquisitionTimeD: TLabel
|
|
Left = 13
|
|
Top = 53
|
|
Width = 80
|
|
Height = 13
|
|
Caption = 'Acquisition Time:'
|
|
end
|
|
object lblAcquisitionTimeV: TLabel
|
|
Left = 107
|
|
Top = 53
|
|
Width = 10
|
|
Height = 13
|
|
Caption = '--'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lblAnatomicRegionD: TLabel
|
|
Left = 13
|
|
Top = 70
|
|
Width = 84
|
|
Height = 13
|
|
Caption = 'Anatomic Region:'
|
|
end
|
|
object lblAnatomicRegionV: TLabel
|
|
Left = 107
|
|
Top = 70
|
|
Width = 10
|
|
Height = 13
|
|
Caption = '--'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lblPatientsNameV: TLabel
|
|
Left = 107
|
|
Top = 87
|
|
Width = 10
|
|
Height = 13
|
|
Caption = '--'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lblPatientsNameD: TLabel
|
|
Left = 13
|
|
Top = 87
|
|
Width = 75
|
|
Height = 13
|
|
Caption = 'Patient'#39's Name:'
|
|
end
|
|
end
|
|
object btnSave: TButton
|
|
Left = 11
|
|
Top = 35
|
|
Width = 109
|
|
Height = 25
|
|
Caption = 'Save...'
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnClick = btnSaveClick
|
|
end
|
|
object btnMoreTags: TButton
|
|
Left = 698
|
|
Top = 91
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'More Info...'
|
|
Enabled = False
|
|
TabOrder = 3
|
|
OnClick = btnMoreTagsClick
|
|
end
|
|
object btnSaveAsDicom: TButton
|
|
Left = 11
|
|
Top = 63
|
|
Width = 109
|
|
Height = 25
|
|
Caption = 'Save as DICOM...'
|
|
Enabled = False
|
|
TabOrder = 4
|
|
OnClick = btnSaveAsDicomClick
|
|
end
|
|
end
|
|
object ImageEnMView1: TImageEnMView
|
|
Left = 0
|
|
Top = 125
|
|
Width = 183
|
|
Height = 393
|
|
Background = clBtnFace
|
|
ParentCtl3D = False
|
|
StoreType = ietNormal
|
|
ThumbWidth = 150
|
|
ThumbHeight = 150
|
|
HorizBorder = 4
|
|
VertBorder = 4
|
|
TextMargin = 0
|
|
OnImageSelect = ImageEnMView1ImageSelect
|
|
GridWidth = -1
|
|
SelectionWidth = 3
|
|
SelectionColor = clRed
|
|
Style = iemsACD
|
|
ThumbnailsBackground = clBtnFace
|
|
ThumbnailsBackgroundSelected = clBtnFace
|
|
MultiSelectionOptions = []
|
|
ThumbnailsBorderWidth = 0
|
|
ThumbnailsBorderColor = clBlack
|
|
OnProgress = ImageEnMView1Progress
|
|
OnFinishWork = ImageEnMView1FinishWork
|
|
OnPlayFrame = ImageEnMView1PlayFrame
|
|
Align = alLeft
|
|
TabOrder = 1
|
|
ExplicitTop = 122
|
|
ExplicitHeight = 396
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 186
|
|
Top = 125
|
|
Width = 596
|
|
Height = 393
|
|
Background = clBtnFace
|
|
ParentCtl3D = False
|
|
LegacyBitmap = False
|
|
ZoomFilter = rfTriangle
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 2
|
|
ExplicitTop = 122
|
|
ExplicitHeight = 396
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 518
|
|
Width = 782
|
|
Height = 41
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 3
|
|
object Label1: TLabel
|
|
Left = 15
|
|
Top = 11
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Zoom:'
|
|
end
|
|
object trkZoom: TTrackBar
|
|
Left = 45
|
|
Top = 6
|
|
Width = 150
|
|
Height = 30
|
|
Max = 2000
|
|
Min = 1
|
|
Frequency = 100
|
|
Position = 1
|
|
TabOrder = 0
|
|
OnChange = trkZoomChange
|
|
end
|
|
object chkQualityFilter: TCheckBox
|
|
Left = 219
|
|
Top = 12
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Quality Filter'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 1
|
|
OnClick = chkQualityFilterClick
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 328
|
|
Top = 8
|
|
Width = 444
|
|
Height = 25
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object OpenImageEnDialog1: TOpenImageEnDialog
|
|
Filter =
|
|
'File grafici comuni (*.tif;*.gif;*.jpg;*.pcx;*.bmp;*.ico;*.cur;*' +
|
|
'.png;*.dcm;*.wmf;*.emf;*.tga;*.pxm;*.wbmp;*.jp2;*.j2k;*.dcx;*.cr' +
|
|
'w;*.psd;*.iev;*.lyr;*.all;*.avi;*.mpg;*.wmv)|*.tif;*.gif;*.jpg;*' +
|
|
'.pcx;*.bmp;*.ico;*.cur;*.png;*.dcm;*.wmf;*.emf;*.tga;*.pxm;*.wbm' +
|
|
'p;*.jp2;*.j2k;*.dcx;*.crw;*.psd;*.iev;*.lyr;*.all;*.avi;*.mpg;*.' +
|
|
'wmv|Tutti (*.*)|*.*|TIFF Bitmap (*.tif;*.tiff;*.fax;*.g3n;*.g3f;' +
|
|
'*.xif)|*.tif;*.tiff;*.fax;*.g3n;*.g3f;*.xif|CompuServe Bitmap (*' +
|
|
'.gif)|*.gif|JPEG Bitmap (*.jpg;*.jpeg;*.jpe;*.jif)|*.jpg;*.jpeg;' +
|
|
'*.jpe;*.jif|PaintBrush (*.pcx)|*.pcx|Windows Bitmap (*.bmp;*.dib' +
|
|
';*.rle)|*.bmp;*.dib;*.rle|Windows Icon (*.ico)|*.ico|Windows Cur' +
|
|
'sor (*.cur)|*.cur|Portable Network Graphics (*.png)|*.png|DICOM ' +
|
|
'Bitmap (*.dcm;*.dic;*.dicom)|*.dcm;*.dic;*.dicom|Windows Metafil' +
|
|
'e (*.wmf)|*.wmf|Enhanced Windows Metafile (*.emf)|*.emf|Targa Bi' +
|
|
'tmap (*.tga;*.targa;*.vda;*.icb;*.vst;*.pix)|*.tga;*.targa;*.vda' +
|
|
';*.icb;*.vst;*.pix|Portable Pixmap, GrayMap, BitMap (*.pxm;*.ppm' +
|
|
';*.pgm;*.pbm)|*.pxm;*.ppm;*.pgm;*.pbm|Wireless Bitmap (*.wbmp)|*' +
|
|
'.wbmp|JPEG2000 (*.jp2)|*.jp2|JPEG2000 Code Stream (*.j2k;*.jpc;*' +
|
|
'.j2c)|*.j2k;*.jpc;*.j2c|Multipage PCX (*.dcx)|*.dcx|Camera RAW (' +
|
|
'*.crw;*.cr2;*.nef;*.raw;*.pef;*.raf;*.x3f;*.bay;*.orf;*.srf;*.mr' +
|
|
'w;*.dcr;*.sr2)|*.crw;*.cr2;*.nef;*.raw;*.pef;*.raf;*.x3f;*.bay;*' +
|
|
'.orf;*.srf;*.mrw;*.dcr;*.sr2|Photoshop PSD (*.psd)|*.psd|Vectori' +
|
|
'al objects (*.iev)|*.iev|Layers (*.lyr)|*.lyr|Layers and objects' +
|
|
' (*.all)|*.all|Video for Windows (*.avi)|*.avi|Mpeg (*.mpeg;*.mp' +
|
|
'g)|*.mpeg;*.mpg|Windows Media Video (*.wmv)|*.wmv'
|
|
OnPreviewFile = OpenImageEnDialog1PreviewFile
|
|
Left = 634
|
|
Top = 220
|
|
end
|
|
object SaveImageEnDialog1: TSaveImageEnDialog
|
|
Filter =
|
|
'JPEG Bitmap (JPG)|*.jpg|CompuServe Bitmap (GIF)|*.gif|TIFF Bitma' +
|
|
'p (TIF)|*.tif|PaintBrush (PCX)|*.pcx|Portable Network Graphics (' +
|
|
'PNG)|*.png|Windows Bitmap (BMP)|*.bmp|OS/2 Bitmap (BMP)|*.bmp|Ta' +
|
|
'rga Bitmap (TGA)|*.tga|Portable PixMap (PXM)|*.pxm|Portable PixM' +
|
|
'ap (PPM)|*.ppm|Portable GreyMap (PGM)|*.pgm|Portable Bitmap (PBM' +
|
|
')|*.pbm|JPEG2000 (JP2)|*.jp2|JPEG2000 Code Stream (J2K)|*.j2k|Mu' +
|
|
'ltipage PCX (DCX)|*.dcx'
|
|
OnPreviewFile = OpenImageEnDialog1PreviewFile
|
|
ExOptions = [sdShowPreview, sdShowAdvanced]
|
|
Left = 632
|
|
Top = 280
|
|
end
|
|
end
|