You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
242 lines
6.7 KiB
Plaintext
242 lines
6.7 KiB
Plaintext
object viewpic: Tviewpic
|
|
Left = 326
|
|
Top = 271
|
|
Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1089#1086#1093#1088#1072#1085#1105#1085#1085#1099#1093' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1081
|
|
ClientHeight = 403
|
|
ClientWidth = 723
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 150
|
|
Constraints.MinWidth = 350
|
|
DoubleBuffered = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = False
|
|
Position = poDefault
|
|
OnCreate = FormCreate
|
|
OnKeyDown = FormKeyDown
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 420
|
|
Top = 0
|
|
Height = 403
|
|
Align = alRight
|
|
ResizeStyle = rsUpdate
|
|
ExplicitLeft = 446
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 423
|
|
Top = 0
|
|
Width = 300
|
|
Height = 403
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel1'
|
|
Ctl3D = True
|
|
DoubleBuffered = False
|
|
ParentCtl3D = False
|
|
ParentDoubleBuffered = False
|
|
TabOrder = 0
|
|
object PC: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 300
|
|
Height = 384
|
|
ActivePage = TabSheet1
|
|
Align = alClient
|
|
DoubleBuffered = True
|
|
Font.Charset = RUSSIAN_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
ParentDoubleBuffered = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object TabSheet1: TTabSheet
|
|
Margins.Left = 0
|
|
Margins.Top = 0
|
|
Margins.Right = 0
|
|
Margins.Bottom = 0
|
|
Caption = #1055#1088#1080#1085#1103#1090#1099#1077
|
|
OnShow = TabSheet1Show
|
|
object rcvlist: TListView
|
|
AlignWithMargins = True
|
|
Left = 0
|
|
Top = 0
|
|
Width = 292
|
|
Height = 356
|
|
Margins.Left = 0
|
|
Margins.Top = 0
|
|
Margins.Right = 0
|
|
Margins.Bottom = 0
|
|
Align = alClient
|
|
BorderStyle = bsNone
|
|
Columns = <>
|
|
ColumnClick = False
|
|
Ctl3D = False
|
|
FlatScrollBars = True
|
|
GridLines = True
|
|
HideSelection = False
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
SortType = stData
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
OnClick = rcvlistClick
|
|
OnCompare = rcvlistCompare
|
|
OnDblClick = rcvlistDblClick
|
|
OnKeyDown = rcvlistKeyDown
|
|
OnKeyUp = rcvlistKeyUp
|
|
OnMouseDown = rcvlistMouseDown
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = #1054#1090#1087#1088#1072#1074#1083#1077#1085#1085#1099#1077
|
|
ImageIndex = 1
|
|
OnShow = TabSheet2Show
|
|
object sndlist: TListView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 292
|
|
Height = 356
|
|
Align = alClient
|
|
BorderStyle = bsNone
|
|
Columns = <>
|
|
ColumnClick = False
|
|
Ctl3D = False
|
|
FlatScrollBars = True
|
|
GridLines = True
|
|
HideSelection = False
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
OnClick = sndlistClick
|
|
OnCompare = rcvlistCompare
|
|
OnDblClick = sndlistDblClick
|
|
OnKeyDown = sndlistKeyDown
|
|
OnKeyUp = sndlistKeyUp
|
|
OnMouseDown = sndlistMouseDown
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = #1057#1082#1088#1080#1085#1099
|
|
ImageIndex = 2
|
|
OnShow = TabSheet3Show
|
|
object scrlist: TListView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 292
|
|
Height = 356
|
|
Align = alClient
|
|
BorderStyle = bsNone
|
|
Columns = <>
|
|
ColumnClick = False
|
|
Ctl3D = False
|
|
FlatScrollBars = True
|
|
GridLines = True
|
|
HideSelection = False
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
OnClick = scrlistClick
|
|
OnCompare = rcvlistCompare
|
|
OnDblClick = scrlistDblClick
|
|
OnKeyDown = scrlistKeyDown
|
|
OnKeyUp = scrlistKeyUp
|
|
OnMouseDown = scrlistMouseDown
|
|
end
|
|
end
|
|
end
|
|
object finfo: TPanel
|
|
Left = 0
|
|
Top = 384
|
|
Width = 300
|
|
Height = 19
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
Caption = #1058#1091#1090' '#1073#1091#1076#1077#1090' '#1080#1085#1092#1072' '#1086' '#1092#1072#1081#1083#1077
|
|
Ctl3D = False
|
|
DoubleBuffered = False
|
|
Font.Charset = RUSSIAN_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = [fsBold]
|
|
ParentCtl3D = False
|
|
ParentDoubleBuffered = False
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object ScrollBox1: TScrollBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 420
|
|
Height = 403
|
|
HorzScrollBar.Smooth = True
|
|
HorzScrollBar.Tracking = True
|
|
VertScrollBar.Smooth = True
|
|
VertScrollBar.Tracking = True
|
|
Align = alClient
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
BorderStyle = bsNone
|
|
DoubleBuffered = True
|
|
Ctl3D = True
|
|
ParentCtl3D = False
|
|
ParentDoubleBuffered = False
|
|
TabOrder = 1
|
|
object img: TImage
|
|
Left = 0
|
|
Top = 0
|
|
Width = 393
|
|
Height = 390
|
|
Cursor = crSizeAll
|
|
AutoSize = True
|
|
DragCursor = crSizeAll
|
|
OnMouseDown = imgMouseDown
|
|
OnMouseMove = imgMouseMove
|
|
end
|
|
end
|
|
object rcvpop: TPopupMenu
|
|
Left = 72
|
|
Top = 8
|
|
object N1: TMenuItem
|
|
Caption = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077' '#1087#1088#1080#1085#1103#1090#1099#1077' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1103
|
|
OnClick = N1Click
|
|
end
|
|
end
|
|
object sndpop: TPopupMenu
|
|
Left = 40
|
|
Top = 8
|
|
object MenuItem1: TMenuItem
|
|
Caption = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077' '#1086#1090#1087#1088#1072#1074#1083#1077#1085#1085#1099#1077' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1103
|
|
OnClick = MenuItem1Click
|
|
end
|
|
end
|
|
object scrpop: TPopupMenu
|
|
Left = 104
|
|
Top = 8
|
|
object MenuItem2: TMenuItem
|
|
Caption = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077' '#1089#1082#1088#1080#1085#1096#1086#1090#1099
|
|
OnClick = MenuItem2Click
|
|
end
|
|
end
|
|
object OD: TOpenDialog
|
|
Filter =
|
|
#1048#1079#1086#1073#1088#1072#1078#1077#1085#1080#1103'|*.gif; *.bmp; *.jpeg; *.jpg; *.png; *.ico; *.tif; *.' +
|
|
'tiff; *.webp'
|
|
Options = [ofFileMustExist, ofEnableSizing]
|
|
Left = 8
|
|
Top = 8
|
|
end
|
|
end
|