bottleclient/LogForm.dfm

   1 object frmLog: TfrmLog
   2   Left = 331
   3   Top = 618
   4   Width = 494
   5   Height = 480
   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 = 486
  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       Caption = #12458#12540#12503#12531'(&O)'
  42       ImageIndex = 38
  43       OnClick = tbtnOpenLogClick
  44     end
  45     object tbtnSaveLog: TToolButton
  46       Left = 46
  47       Top = 0
  48       Hint = #12525#12464#12501#12449#12452#12523#20445#23384
  49       Caption = #20445#23384
  50       DropdownMenu = PopupMenuSaveLog
  51       ImageIndex = 27
  52       Style = tbsDropDown
  53       OnClick = mnSaveLogXMLClick
  54     end
  55     object tbtnDownloadLog: TToolButton
  56       Left = 80
  57       Top = 0
  58       Action = frmSender.actDownloadLog
  59     end
  60     object ToolButton1: TToolButton
  61       Left = 103
  62       Top = 0
  63       Width = 8
  64       Caption = 'ToolButton1'
  65       ImageIndex = 29
  66       Style = tbsSeparator
  67     end
  68     object tbtnFindBottle: TToolButton
  69       Left = 111
  70       Top = 0
  71       Hint = #12508#12488#12523#12434#26908#32034#12377#12427
  72       Caption = #26908#32034'(&F)'
  73       ImageIndex = 37
  74       OnClick = tbtnFindBottleClick
  75     end
  76     object tbtnPreviewStyle: TToolButton
  77       Left = 134
  78       Top = 0
  79       Hint = #12525#12464#12503#12524#12499#12517#12540#12398#34920#31034#24418#24335#12434#22793#26356#12375#12414#12377
  80       Caption = 'tbtnPreviewStyle'
  81       DropdownMenu = PopupMenuPreviewStyle
  82       ImageIndex = 33
  83       Style = tbsDropDown
  84       OnClick = tbtnPreviewStyleClick
  85     end
  86     object ToolButton2: TToolButton
  87       Left = 168
  88       Top = 0
  89       Width = 8
  90       Caption = 'ToolButton2'
  91       ImageIndex = 33
  92       Style = tbsSeparator
  93     end
  94     object tbtnVoteMessage: TToolButton
  95       Left = 176
  96       Top = 0
  97       Action = frmSender.actVoteMessage
  98     end
  99     object tbtnAgreeMessage: TToolButton
 100       Left = 199
 101       Top = 0
 102       Action = frmSender.actAgreeMessage
 103     end
 104   end
 105   object pnlUpper: TPanel
 106     Left = 0
 107     Top = 22
 108     Width = 486
 109     Height = 431
 110     Align = alClient
 111     BevelOuter = bvNone
 112     TabOrder = 1
 113     object StatusBar: TStatusBar
 114       Left = 0
 115       Top = 412
 116       Width = 486
 117       Height = 19
 118       Panels = <
 119         item
 120           Width = 50
 121         end>
 122     end
 123     object pnlPanel: TPanel
 124       Left = 0
 125       Top = 0
 126       Width = 486
 127       Height = 412
 128       Align = alClient
 129       BevelOuter = bvNone
 130       TabOrder = 1
 131       object Splitter: TSplitter
 132         Left = 0
 133         Top = 314
 134         Width = 486
 135         Height = 3
 136         Cursor = crVSplit
 137         Align = alBottom
 138         ResizeStyle = rsUpdate
 139       end
 140       object edtScript: TRichEdit
 141         Left = 0
 142         Top = 317
 143         Width = 486
 144         Height = 95
 145         Align = alBottom
 146         Font.Charset = SHIFTJIS_CHARSET
 147         Font.Color = clWindowText
 148         Font.Height = -12
 149         Font.Name = #65325#65331' '#12468#12471#12483#12463
 150         Font.Style = []
 151         HideScrollBars = False
 152         ParentFont = False
 153         PopupMenu = PopupMenuPreview
 154         ReadOnly = True
 155         ScrollBars = ssVertical
 156         TabOrder = 0
 157       end
 158       object Panel1: TPanel
 159         Left = 0
 160         Top = 0
 161         Width = 486
 162         Height = 314
 163         Align = alClient
 164         TabOrder = 1
 165         object tabBottleLog: TTabControl
 166           Left = 1
 167           Top = 1
 168           Width = 484
 169           Height = 26
 170           Align = alTop
 171           PopupMenu = PopupMenuTab
 172           TabOrder = 0
 173           OnChange = tabBottleLogChange
 174           OnChanging = tabBottleLogChanging
 175           OnContextPopup = tabBottleLogContextPopup
 176           OnDragDrop = tabBottleLogDragDrop
 177           OnDragOver = tabBottleLogDragOver
 178           OnEndDrag = tabBottleLogEndDrag
 179           OnMouseDown = tabBottleLogMouseDown
 180         end
 181         object lvwLog: TListView
 182           Left = 1
 183           Top = 27
 184           Width = 484
 185           Height = 286
 186           Align = alClient
 187           BevelInner = bvNone
 188           BorderStyle = bsNone
 189           Columns = <
 190             item
 191               Caption = #26085#20184
 192               Width = 120
 193             end
 194             item
 195               Caption = #12481#12515#12531#12493#12523
 196               Width = 70
 197             end
 198             item
 199               Caption = #12468#12540#12473#12488
 200               Width = 60
 201             end
 202             item
 203               Alignment = taRightJustify
 204               Caption = #25237#31080
 205               Width = 40
 206             end
 207             item
 208               Alignment = taRightJustify
 209               Caption = #21516#24847
 210               Width = 40
 211             end
 212             item
 213               Caption = #12473#12463#12522#12503#12488
 214               Width = 400
 215             end>
 216           HideSelection = False
 217           OwnerData = True
 218           ReadOnly = True
 219           RowSelect = True
 220           PopupMenu = PopupMenuListView
 221           SmallImages = frmSender.imgIcon
 222           TabOrder = 1
 223           ViewStyle = vsReport
 224           OnChange = lvwLogChange
 225           OnClick = lvwLogClick
 226           OnColumnClick = lvwLogColumnClick
 227           OnCustomDrawItem = lvwLogCustomDrawItem
 228           OnCustomDrawSubItem = lvwLogCustomDrawSubItem
 229           OnData = lvwLogData
 230           OnDblClick = lvwLogDblClick
 231           OnKeyPress = lvwLogKeyPress
 232         end
 233       end
 234     end
 235   end
 236   object SsParser: TSsParser
 237     Left = 440
 238     Top = 54
 239   end
 240   object PopupMenuPreview: TPopupMenu
 241     Left = 408
 242     Top = 54
 243     object mnPopCopy: TMenuItem
 244       Action = frmSender.actEditCopy
 245     end
 246   end
 247   object PopupMenuListView: TPopupMenu
 248     Images = frmSender.imgIcon
 249     OnPopup = PopupMenuListViewPopup
 250     Left = 376
 251     Top = 56
 252     object mnPopUpCopyScript: TMenuItem
 253       Caption = #12371#12398'Bottle'#12473#12463#12522#12503#12488#12434#12467#12500#12540
 254       Enabled = False
 255       OnClick = mnPopUpCopyScriptClick
 256     end
 257     object mnPopUpVoteMessage: TMenuItem
 258       Action = frmSender.actVoteMessage
 259     end
 260     object mnPopUpAgreeMessage: TMenuItem
 261       Action = frmSender.actAgreeMessage
 262     end
 263     object mnJumpURL: TMenuItem
 264       Caption = '&URL'#12472#12515#12531#12503
 265       Enabled = False
 266     end
 267   end
 268   object SaveDialog: TSaveDialog
 269     DefaultExt = 'txt'
 270     Filter =
 271       #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' +
 272       'l|'#12377#12409#12390#12398#12501#12449#12452#12523' (*.*)|*.*'
 273     Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
 274     Title = #12525#12464#12501#12449#12452#12523#12398#20445#23384
 275     Left = 344
 276     Top = 56
 277   end
 278   object PopupMenuSaveLog: TPopupMenu
 279     Left = 304
 280     Top = 56
 281     object mnSaveLogXML: TMenuItem
 282       Caption = '&XML'#24418#24335
 283       Default = True
 284       OnClick = mnSaveLogXMLClick
 285     end
 286     object mnSaveLog: TMenuItem
 287       Caption = 'sstp.log'#24418#24335'(&S)'
 288       OnClick = mnSaveLogClick
 289     end
 290     object mnSaveLogChannel: TMenuItem
 291       Caption = 'sstp.log'#24418#24335'('#12481#12515#12531#12493#12523#20184')(&C)'
 292       OnClick = mnSaveLogChannelClick
 293     end
 294     object mnSaveLogScript: TMenuItem
 295       Caption = #12473#12463#12522#12503#12488#12398#12415'(&N)'
 296       OnClick = mnSaveLogScriptClick
 297     end
 298   end
 299   object PopupMenuPreviewStyle: TPopupMenu
 300     OnPopup = PopupMenuPreviewStylePopup
 301     Left = 272
 302     Top = 54
 303     object mnPreviewStyleConversation: TMenuItem
 304       Caption = #23550#35441#24418#24335'(&D)'
 305       OnClick = mnPreviewStyleClick
 306     end
 307     object mnPreviewStyleScript: TMenuItem
 308       Tag = 1
 309       Caption = #12473#12463#12522#12503#12488#34920#31034'(&S)'
 310       OnClick = mnPreviewStyleClick
 311     end
 312     object mnPreviewStyleScriptWithLineBreak: TMenuItem
 313       Tag = 2
 314       Caption = #12473#12463#12522#12503#12488#34920#31034'('#25913#34892#12354#12426')(&N)'
 315       OnClick = mnPreviewStyleClick
 316     end
 317   end
 318   object PopupMenuTab: TPopupMenu
 319     Left = 240
 320     Top = 56
 321     object mnCloseTab: TMenuItem
 322       Caption = #38281#12376#12427'(&C)'
 323       OnClick = mnCloseTabClick
 324     end
 325   end
 326   object XMLDocument: TXMLDocument
 327     Options = [doNodeAutoCreate, doNodeAutoIndent, doAttrNull, doAutoPrefix, doNamespaceDecl]
 328     Left = 208
 329     Top = 56
 330     DOMVendorDesc = 'MSXML'
 331   end
 332   object OpenDialog: TOpenDialog
 333     DefaultExt = 'xml'
 334     Filter = 'XML'#12501#12449#12452#12523'(*.xml)|*.xml|'#12377#12409#12390#12398#12501#12449#12452#12523'(*.*)|*.*'
 335     Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
 336     Left = 344
 337     Top = 88
 338   end
 339 end