mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 22:45:39 +02:00
56 lines
1.3 KiB
Plaintext
56 lines
1.3 KiB
Plaintext
object F_PageWidth: TF_PageWidth
|
|
Left = 381
|
|
Top = 203
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = #1064#1080#1088#1080#1085#1072' '#1089#1090#1088#1072#1085#1080#1094#1099
|
|
ClientHeight = 89
|
|
ClientWidth = 214
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = False
|
|
Position = poMainFormCenter
|
|
OnKeyPress = FormKeyPress
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object bOK: TcxButton
|
|
Left = 35
|
|
Top = 56
|
|
Width = 65
|
|
Height = 25
|
|
Caption = 'OK'
|
|
ModalResult = 1
|
|
TabOrder = 0
|
|
OnClick = bOKClick
|
|
end
|
|
object bCancel: TcxButton
|
|
Left = 120
|
|
Top = 56
|
|
Width = 65
|
|
Height = 25
|
|
Caption = #1054#1090#1084#1077#1085#1072
|
|
ModalResult = 2
|
|
TabOrder = 1
|
|
OnClick = bCancelClick
|
|
end
|
|
object edPageWidth: TcxMaskEdit
|
|
Left = 16
|
|
Top = 16
|
|
Width = 185
|
|
Height = 21
|
|
Properties.IgnoreMaskBlank = True
|
|
Properties.MaskKind = emkRegExpr
|
|
Properties.EditMask = '\d?\d?\d?\d?'
|
|
Properties.MaxLength = 0
|
|
TabOrder = 2
|
|
OnExit = edPageWidthExit
|
|
OnKeyPress = edPageWidthKeyPress
|
|
end
|
|
end
|