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

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