Templot5/edit_memo_unit.lfm at main · mattharris/Templot5 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
object edit_memo_form: Tedit_memo_form
  Left = 83
  Height = 380
  Top = 358
  Width = 740
  HorzScrollBar.Tracking = True
  VertScrollBar.Tracking = True
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSizeToolWin
  Caption = '    information  -  the  control  template'
  ClientHeight = 380
  ClientWidth = 740
  Color = 16056316
  DesignTimePPI = 120
  Font.Color = clBlack
  Font.Height = -16
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  KeyPreview = True
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '3.4.0.0'
  Scaled = False
  object Label1: TLabel
    Left = 6
    Height = 16
    Top = 8
    Width = 183
    AutoSize = False
    Caption = 'right-click for editing options'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    ParentFont = False
  end
  object datestamp_label: TLabel
    Left = 0
    Height = 4
    Top = 376
    Width = 740
    AutoSize = False
    Font.Color = clGray
    Font.Height = -7
    Font.Name = 'Arial'
    ParentFont = False
  end
  object overwrite_label: TLabel
    Cursor = crHandPoint
    Left = 260
    Height = 20
    Hint = 'press Insert key for overwrite mode'
    Top = 8
    Width = 28
    Alignment = taCenter
    AutoSize = False
    Caption = 'INS'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = overwrite_labelClick
  end
  object font_button: TButton
    Left = 194
    Height = 21
    Top = 6
    Width = 59
    Caption = 'font ...'
    TabOrder = 1
    OnClick = font_buttonClick
  end
  object ok_panel: TPanel
    Left = 666
    Height = 23
    Top = 4
    Width = 66
    Alignment = taLeftJustify
    Caption = '   O K'
    ClientHeight = 23
    ClientWidth = 66
    Color = clLime
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentBackground = False
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    OnClick = ok_panelClick
    object ok_button: TButton
      Left = 49
      Height = 14
      Top = 6
      Width = 14
      Caption = '  '
      ModalResult = 1
      TabOrder = 0
    end
  end
  object vis_edit_memo: TMemo
    Left = 8
    Height = 340
    Top = 36
    Width = 724
    BorderStyle = bsNone
    Font.Color = clNavy
    Font.Height = -17
    Font.Name = 'Comic Sans MS'
    Font.Style = [fsItalic]
    Lines.Strings = (
      'edit memo text'
    )
    ParentColor = True
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
    WantTabs = True
    WordWrap = False
    OnKeyPress = vis_edit_memoKeyPress
  end
  object cancel_button: TButton
    Left = 594
    Height = 23
    Top = 4
    Width = 60
    Cancel = True
    Caption = 'cancel'
    ModalResult = 2
    TabOrder = 2
  end
end