OSDN Git Service

Correct exception handling in AppendTextLog and AppendXMLLog
[winbottle/winbottle.git] / bottleclient / LogForm.dfm
1 object frmLog: TfrmLog
2   Left = 288
3   Top = 243
4   Width = 607
5   Height = 343
6   Caption = #12525#12464' - '#12480#12502#12523#12463#12522#12483#12463#12391#20877#29983
7   Color = clBtnFace
8   Font.Charset = SHIFTJIS_CHARSET
9   Font.Color = clWindowText
10   Font.Height = -12
11   Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
12   Font.Style = []
13   OldCreateOrder = False
14   ShowHint = True
15   OnCreate = FormCreate
16   OnDestroy = FormDestroy
17   PixelsPerInch = 96
18   TextHeight = 12
19   object ToolBar: TToolBar
20     Left = 0
21     Top = 0
22     Width = 599
23     Height = 22
24     AutoSize = True
25     Caption = 'ToolBar'
26     EdgeBorders = []
27     Flat = True
28     Images = frmSender.imgIcon
29     TabOrder = 0
30     object tbtnClear: TToolButton
31       Left = 0
32       Top = 0
33       Hint = #12525#12464#28040#21435'|'#12377#12409#12390#12398#34920#31034#12373#12428#12390#12356#12427#12525#12464#12434#28040#21435#12375#12414#12377
34       Caption = #12525#12464#28040#21435
35       ImageIndex = 21
36       OnClick = tbtnClearClick
37     end
38     object tbtnOpenLog: TToolButton
39       Left = 23
40       Top = 0
41       Hint = #12525#12464#12501#12449#12452#12523#12434#38283#12367
42       Caption = #12458#12540#12503#12531'(&O)'
43       ImageIndex = 38
44       OnClick = tbtnOpenLogClick
45     end
46     object tbtnSaveLog: TToolButton
47       Left = 46
48       Top = 0
49       Hint = #12525#12464#12501#12449#12452#12523#20445#23384
50       Caption = #20445#23384
51       DropdownMenu = PopupMenuSaveLog
52       ImageIndex = 27
53       Style = tbsDropDown
54       OnClick = mnSaveLogXMLClick
55     end
56     object tbtnDownloadLog: TToolButton
57       Left = 82
58       Top = 0
59       Action = frmSender.actDownloadLog
60     end
61     object ToolButton1: TToolButton
62       Left = 105
63       Top = 0
64       Width = 8
65       Caption = 'ToolButton1'
66       ImageIndex = 29
67       Style = tbsSeparator
68     end
69     object tbtnInsertCue: TToolButton
70       Left = 113
71       Top = 0
72       Action = frmSender.actInsertCue
73     end
74     object tbtnFindBottle: TToolButton
75       Left = 136
76       Top = 0
77       Hint = #12508#12488#12523#12434#26908#32034#12377#12427
78       Caption = #26908#32034'(&F)'
79       ImageIndex = 37
80       OnClick = tbtnFindBottleClick
81     end
82     object tbtnPreviewStyle: TToolButton
83       Left = 159
84       Top = 0
85       Hint = #12525#12464#12503#12524#12499#12517#12540#12398#34920#31034#24418#24335#12434#22793#26356#12375#12414#12377
86       Caption = #12503#12524#12499#12517#12540#12473#12479#12452#12523
87       DropdownMenu = PopupMenuPreviewStyle
88       ImageIndex = 33
89       Style = tbsDropDown
90       OnClick = tbtnPreviewStyleClick
91     end
92     object tbtnListPreviewStyle: TToolButton
93       Left = 195
94       Top = 0
95       Hint = #12522#12473#12488#12398#12473#12463#12522#12503#12488#34920#31034#24418#24335#12434#22793#26356#12375#12414#12377
96       Caption = #12473#12463#12522#12503#12488#34920#31034#24418#24335
97       DropdownMenu = PopupMenuListPreviewStyle
98       ImageIndex = 41
99       Style = tbsDropDown
100       OnClick = tbtnListPreviewStyleClick
101     end
102     object ToolButton2: TToolButton
103       Left = 231
104       Top = 0
105       Width = 8
106       Caption = 'ToolButton2'
107       ImageIndex = 33
108       Style = tbsSeparator
109     end
110     object tbtnVoteMessage: TToolButton
111       Left = 239
112       Top = 0
113       Action = frmSender.actVoteMessage
114     end
115     object tbtnAgreeMessage: TToolButton
116       Left = 262
117       Top = 0
118       Action = frmSender.actAgreeMessage
119     end
120     object tbtnSendEditor: TToolButton
121       Left = 285
122       Top = 0
123       Action = frmSender.actSendToEditor
124     end
125   end
126   object pnlUpper: TPanel
127     Left = 0
128     Top = 22
129     Width = 599
130     Height = 287
131     Align = alClient
132     BevelOuter = bvNone
133     TabOrder = 1
134     object StatusBar: TStatusBar
135       Left = 0
136       Top = 268
137       Width = 599
138       Height = 19
139       Panels = <
140         item
141           Width = 80
142         end
143         item
144           Width = 50
145         end>
146     end
147     object pnlPanel: TPanel
148       Left = 0
149       Top = 0
150       Width = 599
151       Height = 268
152       Align = alClient
153       BevelOuter = bvNone
154       TabOrder = 1
155       object Splitter: TSplitter
156         Left = 0
157         Top = 156
158         Width = 599
159         Height = 3
160         Cursor = crVSplit
161         Align = alBottom
162         ResizeStyle = rsUpdate
163       end
164       object Panel1: TPanel
165         Left = 0
166         Top = 0
167         Width = 599
168         Height = 156
169         Align = alClient
170         TabOrder = 0
171         object tabBottleLog: TTabControl
172           Left = 1
173           Top = 1
174           Width = 597
175           Height = 26
176           Align = alTop
177           PopupMenu = PopupMenuTab
178           TabOrder = 0
179           OnChange = tabBottleLogChange
180           OnChanging = tabBottleLogChanging
181           OnContextPopup = tabBottleLogContextPopup
182           OnDragDrop = tabBottleLogDragDrop
183           OnDragOver = tabBottleLogDragOver
184           OnEndDrag = tabBottleLogEndDrag
185           OnMouseDown = tabBottleLogMouseDown
186         end
187         object lvwLog: TListView
188           Left = 1
189           Top = 27
190           Width = 597
191           Height = 128
192           Align = alClient
193           BevelInner = bvNone
194           BorderStyle = bsNone
195           Columns = <
196             item
197               Caption = #26085#20184
198               Width = 120
199             end
200             item
201               Caption = #12481#12515#12531#12493#12523
202               Width = 70
203             end
204             item
205               Caption = #12468#12540#12473#12488
206               Width = 60
207             end
208             item
209               Alignment = taRightJustify
210               Caption = #25237#31080
211               Width = 40
212             end
213             item
214               Alignment = taRightJustify
215               Caption = #21516#24847
216               Width = 40
217             end
218             item
219               Caption = #12473#12463#12522#12503#12488
220               Width = 400
221             end>
222           DragMode = dmAutomatic
223           HideSelection = False
224           OwnerData = True
225           OwnerDraw = True
226           ReadOnly = True
227           RowSelect = True
228           PopupMenu = PopupMenuListView
229           SmallImages = frmSender.imgIcon
230           TabOrder = 1
231           ViewStyle = vsReport
232           OnChange = lvwLogChange
233           OnClick = lvwLogClick
234           OnColumnClick = lvwLogColumnClick
235           OnCustomDrawItem = lvwLogCustomDrawItem
236           OnData = lvwLogData
237           OnDblClick = lvwLogDblClick
238           OnDrawItem = lvwLogDrawItem
239           OnEndDrag = lvwLogEndDrag
240           OnDragDrop = lvwLogDragDrop
241           OnDragOver = lvwLogDragOver
242           OnKeyPress = lvwLogKeyPress
243           OnStartDrag = lvwLogStartDrag
244         end
245       end
246       object pnlPreviewArea: TPanel
247         Left = 0
248         Top = 159
249         Width = 599
250         Height = 109
251         Align = alBottom
252         TabOrder = 1
253         inline TalkShowFrame: TfrmTalkShow
254           Left = 1
255           Top = 1
256           Width = 597
257           Height = 107
258           Align = alClient
259           TabOrder = 0
260           Visible = False
261           inherited PanelBevel: TPanel
262             Width = 597
263             Height = 107
264             inherited PaintBox: TPaintBox
265               Width = 579
266               Height = 105
267             end
268             inherited ScrollBar: TScrollBar
269               Left = 580
270               Height = 105
271             end
272           end
273         end
274         object edtScript: TRichEdit
275           Left = 1
276           Top = 1
277           Width = 597
278           Height = 107
279           Align = alClient
280           Font.Charset = SHIFTJIS_CHARSET
281           Font.Color = clWindowText
282           Font.Height = -12
283           Font.Name = #65325#65331' '#12468#12471#12483#12463
284           Font.Style = []
285           HideScrollBars = False
286           ParentFont = False
287           PopupMenu = PopupMenuPreview
288           ReadOnly = True
289           ScrollBars = ssVertical
290           TabOrder = 1
291           Visible = False
292         end
293       end
294     end
295   end
296   object SsParser: TSsParser
297     Left = 440
298     Top = 54
299   end
300   object PopupMenuPreview: TPopupMenu
301     Left = 408
302     Top = 54
303     object mnPopCopy: TMenuItem
304       Action = frmSender.actEditCopy
305     end
306   end
307   object PopupMenuListView: TPopupMenu
308     Images = frmSender.imgIcon
309     OnPopup = PopupMenuListViewPopup
310     Left = 376
311     Top = 56
312     object mnPopUpCopyScript: TMenuItem
313       Caption = #12371#12398#12473#12463#12522#12503#12488#12434#12467#12500#12540'(&C)'
314       Enabled = False
315       Hint = #12473#12463#12522#12503#12488#12434#12463#12522#12483#12503#12508#12540#12489#12395#12467#12500#12540
316       ImageIndex = 2
317       OnClick = mnPopUpCopyScriptClick
318     end
319     object mnPopUpVoteMessage: TMenuItem
320       Action = frmSender.actVoteMessage
321     end
322     object mnPopUpAgreeMessage: TMenuItem
323       Action = frmSender.actAgreeMessage
324     end
325     object N1: TMenuItem
326       Caption = '-'
327     end
328     object mnSendEditor: TMenuItem
329       Action = frmSender.actSendToEditor
330     end
331     object mnDeleteLogItem: TMenuItem
332       Action = frmSender.actDeleteLogItem
333     end
334     object N2: TMenuItem
335       Caption = '-'
336     end
337     object mnInsertCue: TMenuItem
338       Action = frmSender.actInsertCue
339     end
340     object mnJumpURL: TMenuItem
341       Caption = '&URL'#12472#12515#12531#12503
342       Enabled = False
343       Hint = 'URL'#12434#12502#12521#12454#12470#12391#38283#12367
344     end
345   end
346   object SaveDialog: TSaveDialog
347     DefaultExt = 'txt'
348     Filter = 
349       #12525#12464#12501#12449#12452#12523' (*.log)|*.log|'#12486#12461#12473#12488#12501#12449#12452#12523' (*.txt)|*.txt|XML'#12501#12449#12452#12523' (*.xml)|*.xm' +
350       'l|'#12377#12409#12390#12398#12501#12449#12452#12523' (*.*)|*.*'
351     Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
352     Title = #12525#12464#12501#12449#12452#12523#12398#20445#23384
353     Left = 344
354     Top = 56
355   end
356   object PopupMenuSaveLog: TPopupMenu
357     Left = 304
358     Top = 56
359     object mnSaveLogXML: TMenuItem
360       Caption = '&XML'#24418#24335
361       Default = True
362       OnClick = mnSaveLogXMLClick
363     end
364     object mnSaveLog: TMenuItem
365       Caption = 'sstp.log'#24418#24335'(&S)'
366       OnClick = mnSaveLogClick
367     end
368     object mnSaveLogChannel: TMenuItem
369       Caption = 'sstp.log'#24418#24335'('#12481#12515#12531#12493#12523#20184')(&C)'
370       OnClick = mnSaveLogChannelClick
371     end
372     object mnSaveLogScript: TMenuItem
373       Caption = #12473#12463#12522#12503#12488#12398#12415'(&N)'
374       OnClick = mnSaveLogScriptClick
375     end
376   end
377   object PopupMenuPreviewStyle: TPopupMenu
378     OnPopup = PopupMenuPreviewStylePopup
379     Left = 272
380     Top = 54
381     object mnPreviewStyleConversation: TMenuItem
382       Caption = #23550#35441#24418#24335'(&D)'
383       Hint = #12479#12464#12398#34920#31034#12373#12428#12394#12356#24418#24335
384       OnClick = mnPreviewStyleClick
385     end
386     object mnPreviewStyleConversationImage: TMenuItem
387       Tag = 1
388       Caption = #23550#35441#24418#24335'('#30011#20687#12354#12426')(&I)'
389       Hint = #23550#35441#24418#24335#12539#12469#12540#12501#12451#12473#12503#12524#12499#12517#12540#30011#20687#20184#12365
390       OnClick = mnPreviewStyleClick
391     end
392     object mnPreviewStyleScript: TMenuItem
393       Tag = 2
394       Caption = #12473#12463#12522#12503#12488#34920#31034'(&S)'
395       Hint = #12510#12540#12463#12450#12483#12503#12434#20840#12390#34920#31034#12375#12414#12377
396       OnClick = mnPreviewStyleClick
397     end
398     object mnPreviewStyleScriptWithLineBreak: TMenuItem
399       Tag = 3
400       Caption = #12473#12463#12522#12503#12488#34920#31034'('#25913#34892#12354#12426')(&N)'
401       Hint = #12510#12540#12463#12450#12483#12503#12434#20840#12390#34920#31034#12375#12414#12377'(\n'#12391#12398#25913#34892#12354#12426')'
402       OnClick = mnPreviewStyleClick
403     end
404   end
405   object PopupMenuTab: TPopupMenu
406     Left = 240
407     Top = 56
408     object mnCloseTab: TMenuItem
409       Caption = #38281#12376#12427'(&C)'
410       Hint = #36984#25246#12373#12428#12383#12479#12502#12434#38281#12376#12427
411       OnClick = mnCloseTabClick
412     end
413     object mnChangeTabName: TMenuItem
414       Caption = #21517#21069#12398#22793#26356'(&R)...'
415       OnClick = mnChangeTabNameClick
416     end
417   end
418   object OpenDialog: TOpenDialog
419     DefaultExt = 'xml'
420     Filter = 'XML'#12501#12449#12452#12523'(*.xml;*.xbl)|*.xml;*.xbl|'#12377#12409#12390#12398#12501#12449#12452#12523'(*.*)|*.*'
421     Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
422     Left = 344
423     Top = 88
424   end
425   object PopupMenuListPreviewStyle: TPopupMenu
426     OnPopup = PopupMenuListPreviewStylePopup
427     Left = 272
428     Top = 88
429     object mnListPreviewStyleNoColor: TMenuItem
430       Caption = #33394#20998#12369#12375#12394#12356'(&N)'
431       OnClick = mnListPreviewStyleClick
432     end
433     object mnListPreviewStyleNormal: TMenuItem
434       Tag = 1
435       Caption = #12473#12463#12522#12503#12488#34920#31034'(&T)'
436       OnClick = mnListPreviewStyleClick
437     end
438     object mnListPreviewStyleTagStripped: TMenuItem
439       Tag = 2
440       Caption = #12479#12464#30465#30053#34920#31034'(&S)'
441       OnClick = mnListPreviewStyleClick
442     end
443   end
444   object SsParserForTalkShow: TSsParser
445     Left = 440
446     Top = 88
447   end
448   object timScrollTimer: TTimer
449     Enabled = False
450     Interval = 100
451     OnTimer = timScrollTimerTimer
452     Left = 200
453     Top = 56
454   end
455 end