Templot5/bitmap_viewer_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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
object bitmap_viewer_form: Tbitmap_viewer_form
  Left = 876
  Height = 775
  Top = 6
  Width = 618
  HorzScrollBar.Tracking = True
  VertScrollBar.Tracking = True
  BorderIcons = [biSystemMenu]
  Caption = '     output  preview'
  ClientHeight = 775
  ClientWidth = 618
  Color = clGray
  DesignTimePPI = 120
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnResize = FormResize
  LCLVersion = '3.4.0.0'
  Scaled = False
  object Label1: TLabel
    Left = 50
    Height = 20
    Top = 50
    Width = 50
    AutoSize = False
    Caption = 'zoom :'
    Font.Color = clWhite
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 434
    Height = 20
    Top = 50
    Width = 90
    AutoSize = False
    Caption = 'dot-for-dot'
    Font.Color = clWhite
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 100
    Height = 20
    Top = 50
    Width = 20
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'in'
    Font.Color = clWhite
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 354
    Height = 20
    Top = 50
    Width = 33
    AutoSize = False
    Caption = 'out'
    Font.Color = clWhite
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 174
    Height = 45
    Top = 4
    Width = 424
    AutoSize = False
    Caption = 'widen this window by dragging the edges  -  zoom on the mouse wheel or by using the arrow keys  -  when zoomed-in the preview image can be dragged'
    Font.Color = 14737632
    Font.Height = -12
    Font.Name = 'Arial'
    ParentFont = False
    WordWrap = True
  end
  object zoom_trackbar: TTrackBar
    Left = 122
    Height = 26
    Top = 48
    Width = 230
    Max = 20
    OnChange = zoom_trackbarChange
    PageSize = 1
    Position = 15
    TickMarks = tmBoth
    TickStyle = tsNone
    TabOrder = 2
  end
  object dot_for_dot_checkbox: TCheckBox
    Left = 404
    Height = 20
    Top = 49
    Width = 21
    Alignment = taLeftJustify
    Font.Color = clWhite
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = dot_for_dot_checkboxClick
  end
  object close_panel: TPanel
    Left = 500
    Height = 29
    Top = 8
    Width = 92
    Alignment = taLeftJustify
    Caption = '    close'
    ClientHeight = 29
    ClientWidth = 92
    Color = 10551295
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentBackground = False
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    OnClick = close_panelClick
    object close_button: TButton
      Left = 74
      Height = 13
      Top = 11
      Width = 13
      Caption = '  '
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ModalResult = 7
      ParentFont = False
      TabOrder = 0
    end
  end
  object preview_scrollbox: TScrollBox
    Left = 0
    Height = 650
    Top = 78
    Width = 600
    HorzScrollBar.Page = 575
    HorzScrollBar.Tracking = True
    VertScrollBar.Page = 625
    VertScrollBar.Tracking = True
    ClientHeight = 625
    ClientWidth = 575
    ParentBackground = False
    TabOrder = 4
    OnMouseDown = preview_scrollboxMouseDown
    OnMouseMove = preview_scrollboxMouseMove
    OnMouseUp = preview_scrollboxMouseUp
    object bitmap_image: TImage
      Left = 0
      Height = 648
      Top = 0
      Width = 598
      Enabled = False
      Stretch = True
    end
  end
  object print_panel: TPanel
    Left = 10
    Height = 29
    Top = 8
    Width = 152
    Alignment = taLeftJustify
    Caption = '    print  page'
    ClientHeight = 29
    ClientWidth = 152
    Color = 11599792
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentBackground = False
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    OnClick = print_panelClick
    object print_button: TButton
      Left = 134
      Height = 13
      Top = 11
      Width = 13
      Caption = '  '
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ModalResult = 6
      ParentFont = False
      TabOrder = 0
    end
  end
end