home *** CD-ROM | disk | FTP | other *** search
- object WinGraduLog: TWinGraduLog
- Left = 243
- Top = 79
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Graph paper'
- ClientHeight = 271
- ClientWidth = 401
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 401
- Height = 41
- Align = alTop
- Caption = 'Subdivisions of non linear scales'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- end
- object Panel2: TPanel
- Left = 0
- Top = 41
- Width = 401
- Height = 189
- Align = alClient
- TabOrder = 1
- object Label3: TLabel
- Left = 176
- Top = 65
- Width = 127
- Height = 13
- Caption = '10 &subdivisions if division >'
- FocusControl = Edit10
- end
- object Label4: TLabel
- Left = 360
- Top = 65
- Width = 14
- Height = 13
- Caption = 'cm'
- end
- object Label5: TLabel
- Left = 176
- Top = 95
- Width = 121
- Height = 13
- Caption = '5 su&bdivisions if division >'
- FocusControl = Edit5
- end
- object Label6: TLabel
- Left = 360
- Top = 95
- Width = 14
- Height = 13
- Caption = 'cm'
- end
- object Shape1: TShape
- Left = 162
- Top = 64
- Width = 1
- Height = 81
- end
- object Label7: TLabel
- Left = 8
- Top = 160
- Width = 382
- Height = 13
- Caption =
- '(Subdivisions are not displayed on the screen. They appear only ' +
- 'on printed forms)'
- end
- object Label8: TLabel
- Left = 176
- Top = 125
- Width = 121
- Height = 13
- Caption = '2 sub&divisions if division >'
- FocusControl = Edit2
- end
- object Label9: TLabel
- Left = 360
- Top = 125
- Width = 14
- Height = 13
- Caption = 'cm'
- end
- object Shape2: TShape
- Left = 24
- Top = 11
- Width = 353
- Height = 41
- Brush.Color = clInfoBk
- end
- object Label2: TLabel
- Left = 32
- Top = 16
- Width = 313
- Height = 13
- Caption =
- 'In non linear scales, the axis range is divided in unequal int' +
- 'ervals.'
- Transparent = True
- end
- object Label1: TLabel
- Left = 32
- Top = 32
- Width = 263
- Height = 13
- Caption = 'The largest divisions can be subdivided by dotted lines :'
- Transparent = True
- end
- object Edit10: TEdit
- Left = 312
- Top = 62
- Width = 41
- Height = 21
- TabOrder = 1
- end
- object Edit5: TEdit
- Left = 312
- Top = 92
- Width = 41
- Height = 21
- TabOrder = 2
- end
- object CheckBox1: TCheckBox
- Left = 31
- Top = 95
- Width = 113
- Height = 17
- Caption = '&Create subdivisions'
- TabOrder = 0
- OnClick = CheckBox1Click
- end
- object Edit2: TEdit
- Left = 312
- Top = 122
- Width = 41
- Height = 21
- TabOrder = 3
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 230
- Width = 401
- Height = 41
- Align = alBottom
- TabOrder = 2
- object BtOK: TBitBtn
- Left = 55
- Top = 8
- Width = 75
- Height = 25
- TabOrder = 0
- TabStop = False
- OnClick = BtOKClick
- Kind = bkOK
- end
- object BtCancel: TBitBtn
- Left = 163
- Top = 8
- Width = 75
- Height = 25
- TabOrder = 1
- TabStop = False
- Kind = bkCancel
- end
- object BtUndo: TButton
- Left = 271
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Undo'
- TabOrder = 2
- TabStop = False
- OnClick = FormActivate
- end
- end
- end
-