• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: 提交


Commit MetaInfo

修訂c73b0d64978fc40be6f8ad2487a657c81458f73e (tree)
時間2005-11-23 15:17:56
作者cvs2git <cvs2git>
Commitercvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_51_0_619'.

Change Summary

差異

--- /dev/null
+++ b/Doxyfile
@@ -0,0 +1,224 @@
1+# Doxyfile 1.4.5
2+
3+#---------------------------------------------------------------------------
4+# Project related configuration options
5+#---------------------------------------------------------------------------
6+PROJECT_NAME = gikonavi
7+PROJECT_NUMBER = b51
8+OUTPUT_DIRECTORY =
9+CREATE_SUBDIRS = NO
10+OUTPUT_LANGUAGE = Japanese
11+USE_WINDOWS_ENCODING = NO
12+BRIEF_MEMBER_DESC = YES
13+REPEAT_BRIEF = YES
14+ABBREVIATE_BRIEF =
15+ALWAYS_DETAILED_SEC = NO
16+INLINE_INHERITED_MEMB = NO
17+FULL_PATH_NAMES = NO
18+STRIP_FROM_PATH =
19+STRIP_FROM_INC_PATH =
20+SHORT_NAMES = NO
21+JAVADOC_AUTOBRIEF = NO
22+MULTILINE_CPP_IS_BRIEF = NO
23+DETAILS_AT_TOP = NO
24+INHERIT_DOCS = YES
25+SEPARATE_MEMBER_PAGES = NO
26+TAB_SIZE = 2
27+ALIASES =
28+OPTIMIZE_OUTPUT_FOR_C = NO
29+OPTIMIZE_OUTPUT_JAVA = NO
30+BUILTIN_STL_SUPPORT = NO
31+DISTRIBUTE_GROUP_DOC = NO
32+SUBGROUPING = YES
33+#---------------------------------------------------------------------------
34+# Build related configuration options
35+#---------------------------------------------------------------------------
36+EXTRACT_ALL = YES
37+EXTRACT_PRIVATE = YES
38+EXTRACT_STATIC = YES
39+EXTRACT_LOCAL_CLASSES = YES
40+EXTRACT_LOCAL_METHODS = YES
41+HIDE_UNDOC_MEMBERS = NO
42+HIDE_UNDOC_CLASSES = NO
43+HIDE_FRIEND_COMPOUNDS = NO
44+HIDE_IN_BODY_DOCS = NO
45+INTERNAL_DOCS = NO
46+CASE_SENSE_NAMES = YES
47+HIDE_SCOPE_NAMES = NO
48+SHOW_INCLUDE_FILES = YES
49+INLINE_INFO = YES
50+SORT_MEMBER_DOCS = YES
51+SORT_BRIEF_DOCS = NO
52+SORT_BY_SCOPE_NAME = NO
53+GENERATE_TODOLIST = YES
54+GENERATE_TESTLIST = YES
55+GENERATE_BUGLIST = YES
56+GENERATE_DEPRECATEDLIST= YES
57+ENABLED_SECTIONS =
58+MAX_INITIALIZER_LINES = 30
59+SHOW_USED_FILES = YES
60+SHOW_DIRECTORIES = YES
61+FILE_VERSION_FILTER =
62+#---------------------------------------------------------------------------
63+# configuration options related to warning and progress messages
64+#---------------------------------------------------------------------------
65+QUIET = NO
66+WARNINGS = YES
67+WARN_IF_UNDOCUMENTED = YES
68+WARN_IF_DOC_ERROR = YES
69+WARN_NO_PARAMDOC = NO
70+WARN_FORMAT = "$file:$line: $text"
71+WARN_LOGFILE =
72+#---------------------------------------------------------------------------
73+# configuration options related to the input files
74+#---------------------------------------------------------------------------
75+INPUT =
76+FILE_PATTERNS = *.pas \
77+ *.dpr
78+RECURSIVE = YES
79+EXCLUDE =
80+EXCLUDE_SYMLINKS = NO
81+EXCLUDE_PATTERNS =
82+EXAMPLE_PATH =
83+EXAMPLE_PATTERNS =
84+EXAMPLE_RECURSIVE = NO
85+IMAGE_PATH =
86+INPUT_FILTER = pas2doxj.bat
87+FILTER_PATTERNS =
88+FILTER_SOURCE_FILES = YES
89+#---------------------------------------------------------------------------
90+# configuration options related to source browsing
91+#---------------------------------------------------------------------------
92+SOURCE_BROWSER = NO
93+INLINE_SOURCES = NO
94+STRIP_CODE_COMMENTS = YES
95+REFERENCED_BY_RELATION = YES
96+REFERENCES_RELATION = YES
97+USE_HTAGS = NO
98+VERBATIM_HEADERS = YES
99+#---------------------------------------------------------------------------
100+# configuration options related to the alphabetical class index
101+#---------------------------------------------------------------------------
102+ALPHABETICAL_INDEX = NO
103+COLS_IN_ALPHA_INDEX = 5
104+IGNORE_PREFIX =
105+#---------------------------------------------------------------------------
106+# configuration options related to the HTML output
107+#---------------------------------------------------------------------------
108+GENERATE_HTML = YES
109+HTML_OUTPUT = html
110+HTML_FILE_EXTENSION = .html
111+HTML_HEADER =
112+HTML_FOOTER =
113+HTML_STYLESHEET =
114+HTML_ALIGN_MEMBERS = YES
115+GENERATE_HTMLHELP = NO
116+CHM_FILE =
117+HHC_LOCATION =
118+GENERATE_CHI = NO
119+BINARY_TOC = NO
120+TOC_EXPAND = NO
121+DISABLE_INDEX = NO
122+ENUM_VALUES_PER_LINE = 4
123+GENERATE_TREEVIEW = NO
124+TREEVIEW_WIDTH = 250
125+#---------------------------------------------------------------------------
126+# configuration options related to the LaTeX output
127+#---------------------------------------------------------------------------
128+GENERATE_LATEX = NO
129+LATEX_OUTPUT = latex
130+LATEX_CMD_NAME = latex
131+MAKEINDEX_CMD_NAME = makeindex
132+COMPACT_LATEX = NO
133+PAPER_TYPE = a4wide
134+EXTRA_PACKAGES =
135+LATEX_HEADER =
136+PDF_HYPERLINKS = NO
137+USE_PDFLATEX = NO
138+LATEX_BATCHMODE = NO
139+LATEX_HIDE_INDICES = NO
140+#---------------------------------------------------------------------------
141+# configuration options related to the RTF output
142+#---------------------------------------------------------------------------
143+GENERATE_RTF = NO
144+RTF_OUTPUT = rtf
145+COMPACT_RTF = NO
146+RTF_HYPERLINKS = NO
147+RTF_STYLESHEET_FILE =
148+RTF_EXTENSIONS_FILE =
149+#---------------------------------------------------------------------------
150+# configuration options related to the man page output
151+#---------------------------------------------------------------------------
152+GENERATE_MAN = NO
153+MAN_OUTPUT = man
154+MAN_EXTENSION = .3
155+MAN_LINKS = NO
156+#---------------------------------------------------------------------------
157+# configuration options related to the XML output
158+#---------------------------------------------------------------------------
159+GENERATE_XML = NO
160+XML_OUTPUT = xml
161+XML_SCHEMA =
162+XML_DTD =
163+XML_PROGRAMLISTING = YES
164+#---------------------------------------------------------------------------
165+# configuration options for the AutoGen Definitions output
166+#---------------------------------------------------------------------------
167+GENERATE_AUTOGEN_DEF = NO
168+#---------------------------------------------------------------------------
169+# configuration options related to the Perl module output
170+#---------------------------------------------------------------------------
171+GENERATE_PERLMOD = NO
172+PERLMOD_LATEX = NO
173+PERLMOD_PRETTY = YES
174+PERLMOD_MAKEVAR_PREFIX =
175+#---------------------------------------------------------------------------
176+# Configuration options related to the preprocessor
177+#---------------------------------------------------------------------------
178+ENABLE_PREPROCESSING = YES
179+MACRO_EXPANSION = NO
180+EXPAND_ONLY_PREDEF = NO
181+SEARCH_INCLUDES = YES
182+INCLUDE_PATH =
183+INCLUDE_FILE_PATTERNS =
184+PREDEFINED =
185+EXPAND_AS_DEFINED =
186+SKIP_FUNCTION_MACROS = YES
187+#---------------------------------------------------------------------------
188+# Configuration::additions related to external references
189+#---------------------------------------------------------------------------
190+TAGFILES =
191+GENERATE_TAGFILE =
192+ALLEXTERNALS = NO
193+EXTERNAL_GROUPS = YES
194+PERL_PATH = /usr/bin/perl
195+#---------------------------------------------------------------------------
196+# Configuration options related to the dot tool
197+#---------------------------------------------------------------------------
198+CLASS_DIAGRAMS = YES
199+HIDE_UNDOC_RELATIONS = YES
200+HAVE_DOT = NO
201+CLASS_GRAPH = YES
202+COLLABORATION_GRAPH = YES
203+GROUP_GRAPHS = YES
204+UML_LOOK = NO
205+TEMPLATE_RELATIONS = NO
206+INCLUDE_GRAPH = YES
207+INCLUDED_BY_GRAPH = YES
208+CALL_GRAPH = NO
209+GRAPHICAL_HIERARCHY = YES
210+DIRECTORY_GRAPH = YES
211+DOT_IMAGE_FORMAT = png
212+DOT_PATH =
213+DOTFILE_DIRS =
214+MAX_DOT_GRAPH_WIDTH = 1024
215+MAX_DOT_GRAPH_HEIGHT = 1024
216+MAX_DOT_GRAPH_DEPTH = 0
217+DOT_TRANSPARENT = NO
218+DOT_MULTI_TARGETS = NO
219+GENERATE_LEGEND = YES
220+DOT_CLEANUP = YES
221+#---------------------------------------------------------------------------
222+# Configuration::additions related to the search engine
223+#---------------------------------------------------------------------------
224+SEARCHENGINE = NO
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
11 object GikoForm: TGikoForm
2- Left = 176
3- Top = 124
2+ Left = 161
3+ Top = 121
44 HorzScrollBar.Visible = False
55 VertScrollBar.Visible = False
66 AutoScroll = False
@@ -104,7 +104,6 @@ object GikoForm: TGikoForm
104104 RightClickSelect = True
105105 ShowRoot = False
106106 TabOrder = 0
107- OnChanging = TreeViewChanging
108107 OnClick = TreeViewClick
109108 OnCollapsed = TreeViewCollapsed
110109 OnCustomDraw = TreeViewCustomDraw
@@ -126,12 +125,12 @@ object GikoForm: TGikoForm
126125 DesignSize = (
127126 145
128127 25)
129- object SpeedButton1: TSpeedButton
128+ object CabinetCloseSpeedButton: TSpeedButton
130129 Left = 121
131130 Top = 4
132131 Width = 20
133132 Height = 17
134- Hint = #38281#12376#12427
133+ Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
135134 Anchors = [akRight]
136135 Flat = True
137136 Font.Charset = SHIFTJIS_CHARSET
@@ -154,7 +153,7 @@ object GikoForm: TGikoForm
154153 ShowHint = True
155154 Spacing = 0
156155 Transparent = False
157- OnClick = CabinetPanelHide
156+ OnClick = CabinetCloseSpeedButtonClick
158157 end
159158 object ToolBar1: TToolBar
160159 Left = 2
@@ -194,20 +193,20 @@ object GikoForm: TGikoForm
194193 List = True
195194 ShowCaptions = True
196195 TabOrder = 2
197- object ToolButton15: TToolButton
196+ object HistoryShowToolButton: TToolButton
198197 Left = 0
199198 Top = 0
200199 AutoSize = True
201200 Caption = #34920#31034
202201 ImageIndex = 0
203202 end
204- object ToolButton18: TToolButton
203+ object HistoryAllClearToolButton: TToolButton
205204 Left = 40
206205 Top = 0
207206 AutoSize = True
208207 Caption = #20840#12463#12522#12450
209208 ImageIndex = 1
210- OnClick = ToolButton18Click
209+ OnClick = HistoryAllClearToolButtonClick
211210 end
212211 end
213212 object FavoriteTreeView: TTreeView
@@ -251,20 +250,20 @@ object GikoForm: TGikoForm
251250 List = True
252251 ShowCaptions = True
253252 TabOrder = 4
254- object ToolButton17: TToolButton
253+ object FavoriteAddToolButton: TToolButton
255254 Left = 0
256255 Top = 0
257- Action = FavoriteAddAction
256+ Action = GikoDM.FavoriteAddAction
258257 AutoSize = True
259258 Caption = #36861#21152'...'
260259 end
261- object ToolButton19: TToolButton
260+ object FavoriteArrangeToolButton: TToolButton
262261 Left = 41
263262 Top = 0
263+ Hint = #12362#27671#12395#20837#12426#25972#29702#12480#12452#12450#12525#12464#12434#38283#12367
264264 AutoSize = True
265265 Caption = #25972#29702'...'
266- ImageIndex = 1
267- OnClick = ToolButton19Click
266+ OnClick = FavoriteArrangeToolButtonClick
268267 end
269268 end
270269 end
@@ -319,10 +318,6 @@ object GikoForm: TGikoForm
319318 OnColumnRightClick = ListViewColumnRightClick
320319 OnCustomDraw = ListViewCustomDraw
321320 OnCustomDrawItem = ListViewCustomDrawItem
322- OnData = ListViewData
323- OnDataFind = ListViewDataFind
324- OnDataHint = ListViewDataHint
325- OnDataStateChange = ListViewDataStateChange
326321 OnKeyDown = ListViewKeyDown
327322 OnKeyUp = ListViewKeyUp
328323 OnMouseDown = ListViewMouseDown
@@ -366,7 +361,7 @@ object GikoForm: TGikoForm
366361 EdgeBorders = []
367362 Flat = True
368363 HotImages = HotToobarImageList
369- Images = ToobarImageList
364+ Images = GikoDM.ToobarImageList
370365 ParentShowHint = False
371366 ShowHint = True
372367 TabOrder = 0
@@ -593,7 +588,7 @@ object GikoForm: TGikoForm
593588 EdgeBorders = []
594589 Flat = True
595590 HotImages = HotToobarImageList
596- Images = ToobarImageList
591+ Images = GikoDM.ToobarImageList
597592 ParentShowHint = False
598593 ShowHint = True
599594 TabOrder = 0
@@ -815,7 +810,6 @@ object GikoForm: TGikoForm
815810 SmallImages = MessageImageList
816811 TabOrder = 1
817812 ViewStyle = vsReport
818- OnAdvancedCustomDrawItem = MessageListViewAdvancedCustomDrawItem
819813 OnResize = MessageListViewResize
820814 end
821815 end
@@ -951,7 +945,7 @@ object GikoForm: TGikoForm
951945 EdgeBorders = []
952946 Flat = True
953947 HotImages = HotToobarImageList
954- Images = ToobarImageList
948+ Images = GikoDM.ToobarImageList
955949 ParentShowHint = False
956950 ShowHint = True
957951 TabOrder = 1
@@ -969,7 +963,7 @@ object GikoForm: TGikoForm
969963 EdgeBorders = []
970964 Flat = True
971965 HotImages = HotToobarImageList
972- Images = ToobarImageList
966+ Images = GikoDM.ToobarImageList
973967 List = True
974968 ShowCaptions = True
975969 TabOrder = 2
@@ -989,7 +983,7 @@ object GikoForm: TGikoForm
989983 object MoveToToolButton: TToolButton
990984 Left = 177
991985 Top = 0
992- Action = MoveToAction
986+ Action = GikoDM.MoveToAction
993987 AutoSize = True
994988 end
995989 end
@@ -6463,2148 +6457,157 @@ object GikoForm: TGikoForm
64636457 F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
64646458 000000000000}
64656459 end
6466- object ToobarImageList: TImageList
6467- Left = 36
6468- Top = 244
6460+ object ItemImageList: TImageList
6461+ Left = 4
6462+ Top = 276
64696463 Bitmap = {
6470- 494C010136003B00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
6471- 000000000000360000002800000040000000F0000000010020000000000000F0
6464+ 494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
6465+ 0000000000003600000028000000400000001000000001002000000000000010
6466+ 0000000000000000000000000000000000008400840084008400000000000000
64726467 0000000000000000000000000000000000000000000000000000000000000000
6468+ 0000000000000000000000000000840084008400840084008400848484008484
6469+ 8400848484008484840084848400848484008484840084848400848484008484
6470+ 8400848484008484840084848400840084008400840084008400000000000000
64736471 0000000000000000000000000000000000000000000000000000000000000000
6472+ 0000000000000000000000000000840084000000000000000000000000000000
64746473 0000000000000000000000000000000000000000000000000000000000000000
6474+ 000000000000000000000000000000000000840084008400840084848400C6C6
6475+ C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6476+ C600C6C6C600C6C6C60000000000840084008400840084008400C6C6C600FFFF
6477+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6478+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400C6C6
6479+ C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6480+ C600C6C6C600C6C6C60000000000840084000000000000000000000000000000
64756481 0000000000000000000000000000000000000000000000000000000000000000
6482+ 000000000000000000000000000000000000840084008400840084848400FFFF
6483+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6484+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6485+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6486+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6487+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6488+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64766489 0000000000000000000000000000000000000000000000000000000000000000
6490+ 000000000000000000000000000000000000840084008400840084848400FFFF
6491+ FF00848484008484840084848400848484008484840084848400848484008484
6492+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6493+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6494+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6495+ FF00848484008484840084848400848484008484840084848400848484008484
6496+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64776497 0000000000000000000000000000000000000000000000000000000000000000
6498+ 000000000000000000000000000000000000840084008400840084848400FFFF
6499+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6500+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6501+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6502+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6503+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6504+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64786505 0000000000000000000000000000000000000000000000000000000000000000
6506+ 000000000000000000000000000000000000840084008400840084848400FFFF
6507+ FF00848484008484840084848400848484008484840084848400848484008484
6508+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6509+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6510+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6511+ FF00848484008484840084848400848484008484840084848400848484008484
6512+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64796513 0000000000000000000000000000000000000000000000000000000000000000
6514+ 000000000000000000000000000000000000840084008400840084848400FFFF
6515+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6516+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6517+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6518+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6519+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6520+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64806521 0000000000000000000000000000000000000000000000000000000000000000
6522+ 000000000000000000000000000000000000840084008400840084848400FFFF
6523+ FF00848484008484840084848400848484008484840084848400848484008484
6524+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6525+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6526+ FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF00FFFF
6527+ FF00848484000000FF0084848400848484008484840084848400848484008484
6528+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64816529 0000000000000000000000000000000000000000000000000000000000000000
6530+ 000000000000000000000000000000000000840084008400840084848400FFFF
6531+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6532+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6533+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6534+ FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF000000
6535+ FF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6536+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64826537 0000000000000000000000000000000000000000000000000000000000000000
6538+ 000000000000000000000000000000000000840084008400840084848400FFFF
6539+ FF00848484008484840084848400848484008484840084848400848484008484
6540+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6541+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6542+ FF00FFFFFF00FFFFFF0084848400840084008400840084008400848484000000
6543+ FF000000FF000000FF00848484000000FF000000FF0084848400848484008484
6544+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64836545 0000000000000000000000000000000000000000000000000000000000000000
6546+ 000000000000000000000000000000000000840084008400840084848400FFFF
6547+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6548+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6549+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6550+ FF00FFFFFF00FFFFFF0084848400840084000000FF000000FF000000FF000000
6551+ FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
6552+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64846553 0000000000000000000000000000000000000000000000000000000000000000
6554+ 000000000000000000000000000000000000840084008400840084848400FFFF
6555+ FF00848484008484840084848400848484008484840084848400848484008484
6556+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6557+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6558+ FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF000000
6559+ FF00848484000000FF000000FF00848484008484840084848400848484008484
6560+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64856561 0000000000000000000000000000000000000000000000000000000000000000
6562+ 000000000000000000000000000000000000840084008400840084848400FFFF
6563+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
6564+ 0000000000000000000000000000840084008400840084008400C6C6C600FFFF
6565+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
6566+ 840084848400848484008484840084008400840084000000FF000000FF000000
6567+ FF000000FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF000000
6568+ 0000000000000000000000000000840084000000000000000000000000000000
64866569 0000000000000000000000000000000000000000000000000000000000000000
6570+ 000000000000000000000000000000000000840084008400840084848400FFFF
6571+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6572+ C600FFFFFF008484840084008400840084008400840084008400C6C6C600FFFF
6573+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6574+ FF00FFFFFF00C6C6C60084008400840084000000FF000000FF00848484000000
6575+ FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6576+ C600FFFFFF008484840084008400840084000000000000000000000000000000
64876577 0000000000000000000000000000000000000000000000000000000000000000
6578+ 000000000000000000000000000000000000840084008400840084848400FFFF
6579+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6580+ C600848484008400840084008400840084008400840084008400C6C6C600FFFF
6581+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6582+ FF00C6C6C6008400840084008400840084008400840084008400848484000000
6583+ FF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6584+ C600848484008400840084008400840084000000000000000000000000000000
64886585 0000000000000000000000000000000000000000000000000000000000000000
6586+ 0000000000000000000000000000000000008400840084008400848484008484
6587+ 8400848484008484840084848400848484008484840084848400848484008484
6588+ 8400840084008400840084008400840084008400840084008400C6C6C600C6C6
6589+ C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6590+ C600840084008400840084008400840084008400840084008400848484000000
6591+ FF0084848400848484000000FF00848484008484840084848400848484008484
6592+ 8400840084008400840084008400840084000000000000000000000000000000
64896593 0000000000000000000000000000000000000000000000000000000000000000
6594+ 000000000000000000000000000000000000424D3E000000000000003E000000
6595+ 2800000040000000100000000100010000000000800000000000000000000000
6596+ 000000000000000000000000FFFFFF0000000000000000000000000000000000
64906597 0000000000000000000000000000000000000000000000000000000000000000
64916598 0000000000000000000000000000000000000000000000000000000000000000
64926599 0000000000000000000000000000000000000000000000000000000000000000
64936600 0000000000000000000000000000000000000000000000000000000000000000
6494- 0000000000000000000000000000000000000000000000000000000000000000
6495- 0000000000000000000000000000000000000000000000000000000000000000
6496- 0000000000000000000000000000000000000000000000000000000000000000
6497- 0000000000000000000000000000000000000000000000000000000000000000
6498- 0000000000000000000000000000000000000000000000000000000000000000
6499- 0000000000000000000000000000000000000000000000000000000000000000
6500- 0000000000000000000000000000000000000000000000000000000000000000
6501- 0000000000000000000000000000000000000000000000000000000000000000
6502- 0000000000000000000000000000000000000000000000000000000000000000
6503- 0000000000000000000000000000000000000000000000000000000000000000
6504- 0000000000000000000000000000000000000000000000000000000000000000
6505- 0000000000000000000000000000000000000000000000000000000000000000
6506- 0000000000000000000000000000000000000000000000000000000000000000
6507- 0000000000000000000000000000000000000000000000000000000000000000
6508- 0000000000000000000000000000000000000000000000000000000000000000
6509- 0000000000000000000000000000000000000000000000000000000000000000
6510- 0000000000000000000000000000000000000000000000000000000000000000
6511- 0000000000000000000000000000000000000000000000000000000000000000
6512- 0000000000000000000000000000000000000000000000000000000000000000
6513- 0000000000000000000000000000000000000000000000000000000000000000
6514- 0000000000000000000000000000000000000000000000000000000000000000
6515- 0000000000000000000000000000000000000000000000000000000000000000
6516- 0000000000000000000000000000000000000000000000000000000000000000
6517- 0000000000000000000000000000000000000000000000000000000000000000
6518- 0000000000000000000000000000000000000000000000000000000000000000
6519- 0000000000000000000000000000000000000000000000000000000000000000
6520- 0000000000000000000000000000000000000000000000000000000000000000
6521- 0000000000000000000000000000000000000000000000000000000000000000
6522- 0000000000000000000000000000000000000000000000000000000000000000
6523- 0000000000000000000000000000000000000000000000000000000000000000
6524- 0000000000000000000000000000000000000000000000000000000000000000
6525- 0000000000000000000000000000000000000000000000000000000000000000
6526- 0000000000000000000000000000000000000000000000000000000000000000
6527- 0000000000000000000000000000000000000000000000000000000000000000
6528- 0000000000000000000000000000000000000000000000000000000000000000
6529- 0000000000000000000000000000000000000000000000000000000000000000
6530- 0000000000000000000000000000000000000000000000000000000000000000
6531- 0000000000000000000000000000000000000000000000000000000000000000
6532- 0000000000000000000000000000000000000000000000000000000000000000
6533- 0000000000000000000000000000000000000000000000000000000000000000
6534- 0000000000000000000000000000000000000000000000000000000000000000
6535- 0000000000000000000000000000000000000000000000000000000000000000
6536- 0000000000000000000000000000000000000000000000000000000000000000
6537- 0000000000000000000000000000000000000000000000000000000000000000
6538- 0000000000000000000000000000000000000000000000000000000000000000
6539- 0000000000000000000000000000000000000000000000000000000000000000
6540- 0000000000000000000000000000000000000000000000000000000000000000
6541- 0000000000000000000000000000000000000000000000000000000000000000
6542- 0000000000000000000000000000000000000000000000000000000000000000
6543- 0000000000000000000000000000000000000000000000000000000000000000
6544- 0000000000000000000000000000000000000000000000000000000000000000
6545- 0000000000000000000000000000000000000000000000000000000000000000
6546- 0000000000000000000000000000000000000000000000000000000000000000
6547- 0000000000000000000000000000000000000000000000000000000000000000
6548- 0000000000000000000000000000000000000000000000000000000000000000
6549- 0000000000000000000000000000000000000000000000000000000000000000
6550- 0000000000000000000000000000000000000000000000000000000000000000
6551- 0000000000000000000000000000000000000000000000000000000000000000
6552- 0000000000000000000000000000000000000000000000000000000000000000
6553- 0000000000000000000000000000000000000000000000000000000000000000
6554- 0000000000000000000000000000000000000000000000000000000000000000
6555- 0000000000000000000000000000000000000000000000000000000000000000
6556- 0000000000000000000000000000000000000000000000000000000000000000
6557- 0000000000000000000000000000000000000000000000000000000000000000
6558- 0000000000000000000000000000000000000000000000000000000000000000
6559- 0000000000000000000000000000000000000000000000000000000000000000
6560- 0000000000000000000000000000000000000000000000000000000000000000
6561- 0000000000000000000000000000000000000000000000000000000000000000
6562- 0000000000000000000000000000000000000000000000000000000000000000
6563- 0000000000000000000000000000000000000000000000000000000000000000
6564- 0000000000000000000000000000000000000000000000000000000000000000
6565- 0000000000000000000000000000000000000000000000000000000000000000
6566- 0000000000000000000000000000000000000000000000000000000000000000
6567- 0000000000000000000000000000000000000000000000000000000000000000
6568- 0000000000000000000000000000000000000000000000000000000000000000
6569- 0000000000000000000000000000000000000000000000000000000000000000
6570- 0000000000000000000000000000000000000000000000000000000000000000
6571- 0000000000000000000000000000000000000000000000000000000000000000
6572- 0000000000000000000000000000000000000000000000000000000000000000
6573- 0000000000000000000000000000000000000000000000000000000000000000
6574- 0000000000000000000000000000000000000000000000000000000000000000
6575- 0000000000000000000000000000000000000000000000000000000000000000
6576- 0000000000000000000000000000000000000000000000000000000000000000
6577- 0000000000000000000000000000000000000000000000000000000000000000
6578- 0000000000000000000000000000000000000000000000000000000000000000
6579- 0000000000000000000000000000000000000000000000000000000000000000
6580- 0000000000000000000000000000000000000000000000000000000000000000
6581- 0000000000000000000000000000000000000000000000000000000000000000
6582- 0000000000000000000000000000000000000000000000000000000000000000
6583- 0000000000000000000000000000000000000000000000000000000000000000
6584- 0000000000000000000000000000000000000000000000000000000000000000
6585- 0000000000000000000000000000000000000000000000000000000000000000
6586- 0000000000000000000000000000000000000000000000000000000000000000
6587- 0000000000000000000000000000000000000000000000000000000000000000
6588- 0000000000000000000000000000000000000000000000000000000000000000
6589- 0000000000000000000000000000000000000000000000000000000000000000
6590- 0000000000000000000000000000000000000000000000000000000000000000
6591- 0000000000000000000000000000000000000000000000000000000000000000
6592- 0000000000000000000000000000000000000000000000000000000000000000
6593- 0000000000000000000000000000000000000000000000000000000000000000
6594- 0000000000000000000000000000000000000000000000000000000000000000
6595- 0000000000000000000000000000000000000000000000000000000000000000
6596- 0000000000000000000000000000000000000000000000000000000000000000
6597- 0000000000000000000000000000000000000000000000000000000000000000
6598- 0000000000000000000000000000000000000000000000000000000000000000
6599- 0000000000000000000000000000000000000000000000000000000000000000
6600- 0000000000000000000000000000000000000000000000000000000000000000
6601- 0000000000000000000000000000000000000000000000000000000000000000
6602- 0000000000000000000000000000000000000000000000000000000000000000
6603- 0000000000000000000000000000000000000000000000000000000000000000
6604- 0000000000000000000000000000000000000000000000000000000000000000
6605- 0000000000000000000000000000000000000000000000000000000000000000
6606- 0000000000000000000000000000000000000000000000000000000000000000
6607- 0000000000000000000000000000000000000000000000000000000000000000
6608- 0000000000000000000000000000000000000000000000000000000000000000
6609- 0000000000000000000000000000008484000000000084848400000000000000
6610- 0000000000000000000000000000000000000000000000000000000000000000
6611- 0000000000008484840084848400848484008484840084848400848484000000
6612- 0000000000000000000000000000000000000000000000000000000000000000
6613- 0000000000000000000000000000000000000000000000000000000000000000
6614- 0000000000000000000000000000000000000000000000000000000000000000
6615- 0000000000000000000000000000000000000000000000000000000000000000
6616- 0000000000000000000000000000000000000000000000000000000000000000
6617- 000000000000000000000084840000000000C6C6C600C6C6C600848484000000
6618- 0000000000000000000084848400000000000000000000000000000000000000
6619- 000084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6008484
6620- 8400000000000000000000000000000000000000000000000000000000000000
6621- 0000000000000000000000000000000000000000000000000000000000000000
6622- 0000000000000000000000000000000000000000000000000000000000000000
6623- 0000000000000000000000000000000000000000000000000000000000000000
6624- 0000000000000000000000000000000000000000000000000000000000000000
6625- 000000000000008484008484840084848400FFFFFF00FFFFFF00848484000000
6626- 0000000000008484840000000000000000000000000000000000000000008484
6627- 8400C6C6C6000000000000000000000000000000000000000000000000000000
6628- 0000848484000000000000000000000000000000000000000000000000000000
6629- 0000000000000000000000000000000000000000000000000000000000000000
6630- 0000000000000000000000000000000000000000000000000000000000000000
6631- 0000000000000000000000000000000000000000000000000000000000000000
6632- 0000000000000000000000000000000000000000000000000000000000000000
6633- 00000084840000FFFF0000000000C6C6C600FFFFFF00FFFFFF00848484000000
6634- 000084848400000000000000000000000000000000000000000084848400C6C6
6635- C600C6C6C6000000000000000000FFFFFF00FFFFFF00FFFFFF00C6C6C6000000
6636- 0000000000008484840000000000000000000000000000000000000000000000
6637- 0000000000000000000000000000000000000000000000000000000000000000
6638- 0000000000000000000000000000000000000000000000000000000000000000
6639- 0000000000000000000000000000000000000000000000000000000000000000
6640- 0000000000000000000000000000000000000000000000000000000000000084
6641- 840000FFFF00FFFFFF0000000000C6C6C600FFFFFF00FFFFFF00848484000000
6642- 0000000000000000000000000000000000000000000084848400C6C6C600C6C6
6643- C600C6C6C6000000000000000000FFFFFF00C6C6C600C6C6C600C6C6C6000000
6644- 000000000000C6C6C60084848400000000000000000000000000000000000000
6645- 0000000000000000000000000000000000000000000000000000000000000000
6646- 0000000000000000000000000000000000000000000000000000000000000000
6647- 0000000000000000000000000000000000000000000000000000000000000000
6648- 00000000000000000000000000000000000000000000008484008484840000FF
6649- FF00FFFFFF0000FFFF000000000000000000FFFFFF00FFFFFF00848484000000
6650- 0000000000000000000000000000000000000000000084848400C6C6C600C6C6
6651- C600C6C6C6000000000000000000FFFFFF00C6C6C600C6C6C600C6C6C6000000
6652- 000000000000C6C6C60084848400000000000000000000000000000000000000
6653- 0000000000000000000000000000000000000000000000000000000000000000
6654- 0000000000000000000000000000000000000000000000000000000000000000
6655- 0000000000000000000000000000000000000000000000000000000000000000
6656- 0000000000000000000000000000000000000084840000FFFF00C6C6C600FFFF
6657- FF0000FFFF00FFFFFF00000000008484840000000000FFFFFF00848484000000
6658- 0000848484008484840084848400848484000000000084848400C6C6C600C6C6
6659- C600C6C6C6000000000000000000000000000000000000000000000000000000
6660- 0000C6C6C600C6C6C60084848400000000000000000000000000000000000000
6661- 0000000000000000000000000000000000000000000000000000000000000000
6662- 0000000000000000000000000000000000000000000000000000000000000000
6663- 0000000000000000000000000000000000000000000000000000000000000000
6664- 0000000000000000000000000000000000000084840000FFFF00C6C6C60000FF
6665- FF00FFFFFF0000FFFF0000000000C6C6C60000000000FFFFFF00848484000000
6666- 0000000000000000000000000000000000000000000084848400C6C6C600C6C6
6667- C600C6C6C6000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6
6668- C600C6C6C600C6C6C60084848400000000000000000000000000000000000000
6669- 0000000000000000000000000000000000000000000000000000000000000000
6670- 0000000000000000000000000000000000000000000000000000000000000000
6671- 0000000000000000000000000000000000000000000000000000000000000000
6672- 00000000000000000000000000000000000000848400FFFFFF00C6C6C600FFFF
6673- FF0000FFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00848484000000
6674- 0000000000000000000000000000000000000000000084848400C6C6C600C6C6
6675- C600C6C6C6000000000000000000FFFFFF00C6C6C600C6C6C600000000000000
6676- 0000C6C6C600C6C6C60084848400000000000000000000000000000000000000
6677- 0000000000000000000000000000000000000000000000000000000000000000
6678- 0000000000000000000000000000000000000000000000000000000000000000
6679- 0000000000000000000000000000000000000000000000000000000000000000
6680- 00000000000000000000000000000000000000000000008484000084840000FF
6681- FF00FFFFFF0000FFFF0000000000C6C6C600FFFFFF00FFFFFF00848484000000
6682- 0000848484000000000000000000000000000000000084848400C6C6C600C6C6
6683- C600C6C6C6000000000000000000FFFFFF00C6C6C600C6C6C600000000000000
6684- 0000C6C6C600C6C6C60084848400000000000000000000000000000000000000
6685- 0000000000000000000000000000000000000000000000000000000000000000
6686- 0000000000000000000000000000000000000000000000000000000000000000
6687- 0000000000000000000000000000000000000000000000000000000000000000
6688- 0000000000000000000000000000000000000000000000000000000000000084
6689- 840000FFFF00FFFFFF0000000000C6C6C600FFFFFF00FFFFFF00848484000000
6690- 000000000000848484000000000000000000000000000000000084848400C6C6
6691- C600C6C6C6000000000000000000FFFFFF00FFFFFF00FFFFFF00000000000000
6692- 0000C6C6C6008484840000000000000000000000000000000000000000000000
6693- 0000000000000000000000000000000000000000000000000000000000000000
6694- 0000000000000000000000000000000000000000000000000000000000000000
6695- 0000000000000000000000000000000000000000000000000000000000000000
6696- 0000000000000000000000000000000000000000000000000000000000000000
6697- 00000084840000FFFF008484840084848400C6C6C600FFFFFF00848484000000
6698- 0000000000000000000084848400000000000000000000000000000000008484
6699- 8400C6C6C600000000000000000000000000000000000000000000000000C6C6
6700- C600848484000000000000000000000000000000000000000000000000000000
6701- 0000000000000000000000000000000000000000000000000000000000000000
6702- 0000000000000000000000000000000000000000000000000000000000000000
6703- 0000000000000000000000000000000000000000000000000000000000000000
6704- 0000000000000000000000000000000000000000000000000000000000000000
6705- 0000000000000084840000FFFF0000000000C6C6C600C6C6C600000000000000
6706- 0000000000000000000000000000000000000000000000000000000000000000
6707- 000084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6008484
6708- 8400000000000000000000000000000000000000000000000000000000000000
6709- 0000000000000000000000000000000000000000000000000000000000000000
6710- 0000000000000000000000000000000000000000000000000000000000000000
6711- 0000000000000000000000000000000000000000000000000000000000000000
6712- 0000000000000000000000000000000000000000000000000000000000000000
6713- 0000000000000000000000848400848484000000000084848400000000000000
6714- 0000000000000000000000000000000000000000000000000000000000000000
6715- 0000000000008484840084848400848484008484840084848400848484000000
6716- 0000000000000000000000000000000000000000000000000000000000000000
6717- 0000000000000000000000000000000000000000000000000000000000000000
6718- 0000000000000000000000000000000000000000000000000000000000000000
6719- 0000000000000000000000000000000000000000000000000000000000000000
6720- 0000000000000000000000000000000000000000000000000000000000000000
6721- 0000000000000000000000000000000000000000000000000000000000000000
6722- 0000000000000000000000000000000000000000000000000000000000000000
6723- 0000000000000000000000000000000000000000000000000000000000000000
6724- 0000000000000000000000000000000000000000000000000000000000000000
6725- 0000000000000000000000000000000000000000000000000000000000000000
6726- 0000000000000000000000000000000000000000000000000000000000000000
6727- 0000000000000000000000000000000000000000000000000000000000000000
6728- 0000000000000000000000000000000000000000000000000000000000000000
6729- 0000000000000000000000000000000000000000000000000000000000000000
6730- 0000000000000000000000000000000000000000000000000000000000000000
6731- 0000000000000000000000000000000000000000000000000000000000000000
6732- 0000000000000000000000000000000000000000000000000000000000000000
6733- 0000000000000000000000000000000000000000000000000000000000000000
6734- 0000000000000000000000000000000000000000000000000000000000000000
6735- 0000000000000000000000000000000000000000000000000000000000000000
6736- 0000000000000000000000000000000000000000000000000000000000000000
6737- 0000000000000000000000000000000000000000000000000000000000000000
6738- 0000000000000000000000000000000000000000000000000000000000000000
6739- 0000000000000000000000000000000000000000000000000000000000000000
6740- 0000000000000000000000000000000000000000000000000000000000000000
6741- 0000000000000000000000000000000000000000000000000000000000000000
6742- 0000000000000000000000000000000000000000000000000000000000000000
6743- 0000000000000000000000000000000000000000000000000000000000000000
6744- 0000000000000000000000000000000000000000000000000000000000000000
6745- 0000000000000000000000000000000000000000000000000000000000000000
6746- 0000000000000000000000000000000000000000000000000000000000000000
6747- 0000000000000000000000000000000000000000000000000000000000000000
6748- 0000000000000000000000000000000000000000000000000000000000000000
6749- 0000000000000000000000000000000000000000000000000000000000000000
6750- 000000000000000000000000000000000000000000000000000000000000FFFF
6751- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6752- FF00FFFFFF000000000000000000000000000000000000000000000000000000
6753- 0000000000000000000000000000000000000000000000000000000000000000
6754- 0000000000000000000000000000000000000000000000000000000000000000
6755- 0000000000000000000000000000000000000000000000000000000000000000
6756- 0000000000000000000000000000000000000000000000000000000000000000
6757- 0000000000000000000000000000000000000000000000000000000000000000
6758- 000000000000000000000000000000000000000000000000000000000000FFFF
6759- FF00FFFFFF00000000000000000000000000000000000000000000000000FFFF
6760- FF00FFFFFF000000000000000000000000000000000000000000000000000000
6761- 0000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6762- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6763- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000
6764- 0000000000000000000000000000000000000000000000000000000000000000
6765- 0000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6766- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6767- FF00000000008484840084848400848484008484840084848400848484000000
6768- 0000FFFFFF000000000000000000000000000000000000000000000000000000
6769- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
6770- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6771- C600C6C6C600C6C6C60000000000000000000000000000000000000000000000
6772- 0000000000000000000000000000000000000000000000000000000000000000
6773- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
6774- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6775- FF00000000008484840084848400848484008484840084848400848484000000
6776- 0000FFFFFF000000000000000000000000000000000000000000000000000000
6777- 0000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6778- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6779- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000
6780- 0000000000000000000000000000000000000000000000000000000000000000
6781- 0000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6782- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6783- FF00000000008484840084848400848484008484840084848400848484000000
6784- 0000FFFFFF000000000000000000000000000000000000000000000000000000
6785- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
6786- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6787- C600C6C6C600C6C6C60000000000000000000000000000000000000000000000
6788- 0000000000000000000000000000000000000000000000000000000000000000
6789- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
6790- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6791- FF00000000008484840084848400848484008484840084848400848484000000
6792- 0000FFFFFF000000000000000000000000000000000000000000000000000000
6793- 0000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6794- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6795- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000
6796- 0000000000000000000000000000000000000000000000000000000000000000
6797- 0000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6798- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6799- FF00000000008484840084848400848484008484840084848400848484000000
6800- 0000FFFFFF000000000000000000000000000000000000000000000000000000
6801- 000000000000000000000000000000000000000000000000000000000000C6C6
6802- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6803- C600C6C6C6000000000000000000000000000000000000000000000000000000
6804- 0000000000000000000000000000000000000000000000000000000000000000
6805- 000000000000000000000000000000000000000000000000000000000000C6C6
6806- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6807- FF00000000008484840084848400848484008484840084848400848484000000
6808- 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF
6809- FF00FFFFFF00FFFFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6810- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6811- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFF
6812- FF00FFFFFF00000000000000000000000000000000000000000000000000FFFF
6813- FF00FFFFFF00FFFFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6814- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6815- FF00000000008484840084848400848484008484840084848400848484000000
6816- 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF
6817- FF00FFFFFF00FFFFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6818- C600C6C6C600C6C6C60000000000000000000000000000000000C6C6C600C6C6
6819- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFF
6820- FF00FFFFFF00000000000000000000000000000000000000000000000000FFFF
6821- FF00FFFFFF00FFFFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6822- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
6823- FF00000000008484840084848400848484008484840084848400848484000000
6824- 0000FFFFFF000000000000000000000000000000000000000000000000000000
6825- 0000000000000000000000000000000000000000000000000000000000000000
6826- 0000000000000000000000000000000000000000000000000000000000000000
6827- 0000000000000000000000000000000000000000000000000000000000000000
6828- 0000000000000000000000000000000000000000000000000000000000000000
6829- 0000000000000000000000000000000000000000000000000000000000000000
6830- 000000000000000000000000000000000000000000000000000000000000FFFF
6831- FF00FFFFFF00000000000000000000000000000000000000000000000000FFFF
6832- FF00FFFFFF000000000000000000000000000000000000000000000000000000
6833- 0000000000000000000000000000000000000000000000000000000000000000
6834- 0000000000000000000000000000000000000000000000000000000000000000
6835- 0000000000000000000000000000000000000000000000000000000000000000
6836- 0000000000000000000000000000000000000000000000000000000000000000
6837- 0000000000000000000000000000000000000000000000000000000000000000
6838- 000000000000000000000000000000000000000000000000000000000000FFFF
6839- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6840- FF00FFFFFF000000000000000000000000000000000000000000000000000000
6841- 0000000000000000000000000000000000000000000000000000000000000000
6842- 0000000000000000000000000000000000000000000000000000000000000000
6843- 0000000000000000000000000000000000000000000000000000000000000000
6844- 0000000000000000000000000000000000000000000000000000000000000000
6845- 0000000000000000000000000000000000000000000000000000000000000000
6846- 0000000000000000000000000000000000000000000000000000000000000000
6847- 0000000000000000000000000000000000000000000000000000000000000000
6848- 0000000000000000000000000000000000000000000000000000000000000000
6849- 0000000000000000000000000000000000000000000000000000000000000000
6850- 0000000000000000000000000000000000000000000000000000000000000000
6851- 0000000000000000000000000000000000000000000000000000000000000000
6852- 0000000000000000000000000000000000000000000000000000000000000000
6853- 0000000000000000000000000000000000000000000000000000000000000000
6854- 0000000000000000000000000000000000000000000000000000000000000000
6855- 0000000000000000000000000000000000000000000000000000000000000000
6856- 0000000000000000000000000000000000000000000000000000000000000000
6857- 0000000000000000000000000000000000000000000000000000000000000000
6858- 0000000000000000000000000000000000000000000000000000000000000000
6859- 0000000000000000000000000000000000000000000000000000000000000000
6860- 0000000000000000000000000000000000000000000000000000000000000000
6861- 0000000000000000000000000000000000000000000000000000000000000000
6862- 0000000000000000000000000000000000000000000000000000000000000000
6863- 0000000000000000000000000000000000000000000000000000000000000000
6864- 0000000000000000000000000000000000000000000000000000000000000000
6865- 0000000000000000000000000000000000000000000000000000000000000000
6866- 0000000000000000000000000000000000000000000000000000000000000000
6867- 0000000000000000000000000000000000000000000000000000000000000000
6868- 0000000000000000000000000000000000000000000000000000000000000000
6869- 0000000000000000000000000000000000000000000000000000000000000000
6870- 0000000000000000000000000000000000000000000000000000000000000000
6871- 0000000000000000000000000000000000000000000000000000000000000000
6872- 0000000000000000000000000000000000000000000000000000000000000000
6873- 0000000000000000000000000000000000000000000000000000000000000000
6874- 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6875- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6876- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6877- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6878- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
6879- 0000000000000000000000000000000000000000000000000000000000000000
6880- 0000000000000000000000000000000000000000000000000000000000000000
6881- 0000848484008484840000000000000000000000000000000000C6C6C6000000
6882- 00008484840000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6883- FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF000000
6884- 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6885- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
6886- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
6887- 0000000000000000000000000000000000000000000000000000000000000000
6888- 0000000000000000000000000000000000000000000000000000000000000000
6889- 0000848484008484840000000000000000000000000000000000C6C6C6000000
6890- 00008484840000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6891- FF0000000000FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF000000
6892- 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF008484
6893- 84008484840084848400FFFFFF008484840084848400FFFFFF00848484008484
6894- 840084848400FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6895- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000
6896- 0000000000000000000000000000000000000000000000000000000000000000
6897- 0000848484008484840000000000000000000000000000000000000000000000
6898- 00008484840000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6899- FF00FFFFFF00000000000000000000000000FFFFFF0000000000FFFFFF000000
6900- 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6901- FF00FFFFFF00848484008484840084848400848484008484840084848400FFFF
6902- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6903- C600C6C6C600C6C6C60000000000000000000000000000000000000000000000
6904- 0000000000000000000000000000000000000000000000000000000000000000
6905- 0000848484008484840084848400848484008484840084848400848484008484
6906- 84008484840000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6907- FF00000000000000000000000000000000000000000000000000FFFFFF000000
6908- 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6909- FF00FFFFFF00FFFFFF0084848400848484008484840084848400FFFFFF00FFFF
6910- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6911- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000
6912- 0000000000000000000000000000000000000000000000000000000000000000
6913- 0000848484008484840000000000000000000000000000000000000000008484
6914- 84008484840000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6915- FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF000000
6916- 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF008484
6917- 8400848484008484840084848400848484008484840084848400848484008484
6918- 840084848400FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6919- C600C6C6C600C6C6C60000000000000000000000000000000000000000000000
6920- 0000000000000000000000000000000000000000000000000000000000000000
6921- 00008484840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000
6922- 00008484840000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6923- FF00000000000000000000000000000000000000000000000000000000000000
6924- 000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6925- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
6926- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6927- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000
6928- 0000000000000000000000000000000000000000000000000000000000000000
6929- 00008484840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000
6930- 00008484840000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6931- FF00FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFF
6932- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6933- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
6934- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6935- C600C6C6C6000000000000000000000000000000000000000000000000000000
6936- 0000000000000000000000000000000000000000000000000000000000000000
6937- 00008484840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000
6938- 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6939- FF00000000000000000000000000000000000000000000000000000000000000
6940- 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6941- FF00848484008484840084848400848484008484840084848400848484008484
6942- 8400FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6943- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFF
6944- FF00FFFFFF000000000000000000000000000000000000000000000000000000
6945- 00008484840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000
6946- 0000C6C6C60000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6947- FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6948- FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6949- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
6950- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C600C6C6
6951- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFF
6952- FF00FFFFFF000000000000000000000000000000000000000000000000000000
6953- 0000000000000000000000000000000000000000000000000000000000000000
6954- 0000000000000000000000000000000000000000000000000000000000000000
6955- 0000000000000000000000000000000000000000000000000000000000000000
6956- 0000000000000000000000000000000000000000000000000000000000000000
6957- 0000000000000000000000000000000000000000000000000000000000000000
6958- 0000000000000000000000000000000000000000000000000000000000000000
6959- 0000000000000000000000000000000000000000000000000000000000000000
6960- 0000000000000000000000000000000000000000000000000000000000000000
6961- 0000000000000000000000000000000000000000000000000000000000000000
6962- 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
6963- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6964- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
6965- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6966- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
6967- 0000000000000000000000000000000000000000000000000000000000000000
6968- 0000000000000000000000000000000000000000000000000000000000000000
6969- 0000000000000000000000000000000000000000000000000000000000000000
6970- 0000000000000000000000000000000000000000000000000000000000000000
6971- 0000000000000000000000000000000000000000000000000000000000000000
6972- 0000000000000000000000000000000000000000000000000000000000000000
6973- 0000000000000000000000000000000000000000000000000000000000000000
6974- 0000000000000000000000000000000000000000000000000000000000000000
6975- 0000000000000000000000000000000000000000000000000000000000000000
6976- 0000000000000000000000000000000000000000000000000000000000000000
6977- 0000000000000000000000000000000000000000000000000000000000000000
6978- 0000000000000000000000000000000000000000000000000000000000000000
6979- 0000000000000000000000000000000000000000000000000000000000000000
6980- 0000000000000000000000000000000000000000000000000000000000000000
6981- 0000000000000000000000000000000000000000000000000000000000000000
6982- 0000000000000000000000000000000000000000000000000000000000000000
6983- 0000000000000000000000000000000000000000000000000000000000000000
6984- 0000000000000000000000000000000000000000000000000000000000000000
6985- 0000000000000000000000000000000000000000000000000000000000000000
6986- 0000000000000000000000000000000000000000000000000000000000000000
6987- 0000000000000000000000000000000000000000000000000000000000000000
6988- 0000000000000000000000000000000000000000000000000000000000000000
6989- 0000000000000000000000000000000000000000000000000000000000000000
6990- 0000000000000000000000000000000000000000000000000000000000000000
6991- 0000000000000000000000000000000000000000000000000000000000000000
6992- 0000000000000000000000000000000000000000000000000000000000000000
6993- 0000000000000000000000000000000000000000000000000000000000000000
6994- 0000000000000000000000000000000000000000000000000000000000000000
6995- 0000000000000000000000000000000000000000000000000000000000000000
6996- 000000000000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
6997- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6998- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400C6C6
6999- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7000- C600C6C6C600C6C6C600000000000000000000000000FFFFFF00FFFFFF00C6C6
7001- C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600C6C6C600FFFF
7002- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7003- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7004- FF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C600C6C6C600C6C6
7005- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7006- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7007- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7008- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7009- FF00C6C6C600C6C6C600FFFFFF00FFFFFF00C6C6C600C6C6C600FFFFFF00FFFF
7010- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7011- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7012- FF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C600C6C6C600C6C6
7013- C600C6C6C6000000000000000000000000000000000000000000C6C6C600C6C6
7014- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7015- FF00848484008484840084848400848484000000000084848400848484000000
7016- 0000FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7017- FF00FFFFFF00FFFFFF00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFF
7018- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7019- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7020- FF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C600000000000000
7021- 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7022- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7023- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00000000000000
7024- 0000FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7025- FF00FFFFFF00FFFFFF00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFF
7026- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7027- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7028- FF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C600C6C6C600C6C6
7029- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7030- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7031- FF00848484008484840084848400848484000000000000000000848484000000
7032- 0000FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7033- FF00C6C6C600C6C6C600FFFFFF00FFFFFF00C6C6C600C6C6C600FFFFFF00FFFF
7034- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7035- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7036- FF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C600000000000000
7037- 0000000000000000000000000000C6C6C60000000000C6C6C600C6C6C600C6C6
7038- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7039- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400FFFFFF000000
7040- 0000FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00C6C6
7041- C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600C6C6C600FFFF
7042- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7043- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7044- FF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C600C6C6C600C6C6
7045- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7046- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7047- FF00848484008484840084848400848484008484840084848400848484008484
7048- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7049- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7050- FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
7051- FF00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7052- FF0000000000000000000000000000000000C6C6C600C6C6C600000000000000
7053- 000000000000C6C6C6000000000000000000000000000000000000000000C6C6
7054- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7055- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7056- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00C6C6C600C6C6
7057- C600FFFFFF00C6C6C600C6C6C600FFFFFF00C6C6C600C6C6C600FFFFFF00FFFF
7058- FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00C6C6
7059- C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7060- FF0000000000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
7061- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7062- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7063- FF00848484008484840084848400848484008484840084848400848484008484
7064- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00C6C6C600C6C6
7065- C600FFFFFF00C6C6C600C6C6C600FFFFFF00C6C6C600C6C6C600FFFFFF00FFFF
7066- FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00C6C6
7067- C600C6C6C600FFFFFF00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFF
7068- FF0000000000000000000000000000000000C6C6C600C6C6C60000000000C6C6
7069- C60000000000C6C6C60000000000C6C6C60000000000C6C6C60000000000C6C6
7070- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7071- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7072- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7073- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7074- FF000000000000000000000000000000000000000000FFFFFF00C6C6C600C6C6
7075- C600FFFFFF00FFFFFF00FFFFFF00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFF
7076- FF0000000000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
7077- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7078- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7079- FF00848484008484840084848400848484008484840084848400848484008484
7080- 8400FFFFFF00C6C6C60000000000000000000000000000000000FFFFFF00FFFF
7081- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
7082- 00000000000000000000000000000000000000000000C6C6C600C6C6C600FFFF
7083- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600C6C6C600C6C6C6000000
7084- 000000000000000000000000000000000000C6C6C600C6C6C600000000000000
7085- 000000000000000000000000000000000000C6C6C60000000000000000000000
7086- 0000C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7087- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
7088- 0000000000000000000000000000000000000000000000000000000000000000
7089- 0000000000000000000000000000000000000000000000000000000000000000
7090- 00000000000000000000000000000000000000000000C6C6C600000000000000
7091- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
7092- C60000000000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
7093- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7094- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7095- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7096- C600FFFFFF008484840000000000000000000000000000000000000000000000
7097- 0000000000000000000000000000000000000000000000000000000000000000
7098- 0000000000000000000000000000000000000000000000000000000000000000
7099- 000000000000000000000000000000000000000000000000000000000000C6C6
7100- C600C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
7101- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7102- C600C6C6C600C6C6C600C6C6C600C6C6C600000000000000000084848400FFFF
7103- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7104- C600848484000000000000000000000000000000000000000000000000000000
7105- 0000000000000000000000000000000000000000000000000000000000000000
7106- 0000000000000000000000000000000000000000000000000000000000000000
7107- 0000000000000000000000000000000000000000000000000000000000000000
7108- 000000000000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
7109- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7110- C600C6C6C600C6C6C600C6C6C600C6C6C6000000000000000000848484008484
7111- 8400848484008484840084848400848484008484840084848400848484008484
7112- 8400000000000000000000000000000000000000000000000000000000000000
7113- 0000000000000000000000000000848484008484840084848400000000000000
7114- 0000000000000000000000000000000000008484840084848400848484008484
7115- 8400000000000000000000000000000000000000000000000000000000008484
7116- 8400848484008484840084848400000000000000000000000000000000000000
7117- 0000000000000000000000000000000000000000000000000000000000000000
7118- 0000000000000000000000000000000000000000000000000000000000000000
7119- 0000000000000000000000000000000000000000000000000000000000000000
7120- 0000000000000000000000000000000000000000000000000000000000000000
7121- 0000848484008484840084848400C6C6C600C6C6C600C6C6C600848484008484
7122- 84000000000000000000000000000000000084848400C6C6C600C6C6C6008484
7123- 8400848484000000000000000000000000000000000000000000848484008484
7124- 8400C6C6C600C6C6C60084848400000000000000000000000000000000000000
7125- 0000000000000000000000000000000000000000000000000000000000000000
7126- 0000000000000000000000000000000000000000000000000000000000000000
7127- 0000000000000000000000000000000000000000000000000000000000000000
7128- 0000000000000000000000000000000000000000000000000000000000008484
7129- 8400C6C6C600FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00C6C6C6008484
7130- 8400000000000000000000000000000000008484840084848400C6C6C600C6C6
7131- C60084848400848484008484840000000000848484008484840084848400C6C6
7132- C600C6C6C60084848400848484000000000000000000FFFFFF00FFFFFF00FFFF
7133- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7134- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7135- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7136- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000C6C6
7137- C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7138- C600848484008484840000000000000000000000000084848400C6C6C600C6C6
7139- C600C6C6C600C6C6C600848484008484840084848400C6C6C600C6C6C600C6C6
7140- C600C6C6C60084848400000000000000000000000000FFFFFF00FFFFFF00FFFF
7141- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7142- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7143- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7144- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C6008484
7145- 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
7146- FF00C6C6C600848484000000000000000000000000008484840084848400C6C6
7147- C600C6C6C600C6C6C600C6C6C60084848400C6C6C600C6C6C600C6C6C600C6C6
7148- C6008484840084848400000000000000000000000000FFFFFF00000000000000
7149- 000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF000000
7150- 000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7151- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7152- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000C6C6C6008484
7153- 8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7154- FF00C6C6C600848484008484840000000000000000000000000084848400C6C6
7155- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7156- C6008484840000000000000000000000000000000000FFFFFF00FFFFFF000000
7157- 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000FFFF
7158- FF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7159- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7160- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C60084848400FFFF
7161- FF00FFFFFF00FFFFFF00FFFFFF00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFF
7162- FF00FFFFFF00C6C6C6008484840000000000000000000000000084848400C6C6
7163- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7164- C6008484840000000000000000000000000000000000FFFFFF00FFFFFF000000
7165- 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000FFFF
7166- FF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7167- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7168- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C60000000000FFFF
7169- FF00FFFFFF00FFFFFF00C6C6C6008484840084848400C6C6C600C6C6C600FFFF
7170- FF0000000000C6C6C60084848400000000000000000000000000848484008484
7171- 8400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6008484
7172- 84008484840000000000000000000000000000000000FFFFFF00FFFFFF000000
7173- 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000FFFF
7174- FF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7175- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7176- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C60084848400FFFF
7177- FF00FFFFFF00C6C6C60084848400FFFFFF00FFFFFF008484840084848400C6C6
7178- C600FFFFFF00C6C6C6008484840000000000000000008484840084848400C6C6
7179- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7180- C6008484840084848400000000000000000000000000FFFFFF00FFFFFF000000
7181- 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000FFFF
7182- FF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7183- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7184- FF00000000000000000000000000000000000000000000000000C6C6C6008484
7185- 8400FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7186- 8400C6C6C6008484840000000000000000008484840084848400C6C6C600C6C6
7187- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7188- C600C6C6C60084848400848484000000000000000000FFFFFF00000000000000
7189- 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000FFFF
7190- FF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF00C6C6C600C6C6
7191- C600FFFFFF00C6C6C600C6C6C600FFFFFF00C6C6C600C6C6C600FFFFFF00FFFF
7192- FF00000000000000000000000000000000000000000000000000C6C6C6008484
7193- 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
7194- FF00C6C6C60084848400000000000000000084848400C6C6C600C6C6C600C6C6
7195- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7196- C600C6C6C600C6C6C600848484000000000000000000FFFFFF00FFFFFF000000
7197- 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF000000
7198- 000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00C6C6C600C6C6
7199- C600FFFFFF00C6C6C600C6C6C600FFFFFF00C6C6C600C6C6C600FFFFFF00FFFF
7200- FF0000000000000000000000000000000000000000000000000000000000C6C6
7201- C60084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7202- C600848484000000000000000000000000008484840084848400848484008484
7203- 840084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600848484008484
7204- 84008484840084848400848484000000000000000000FFFFFF00FFFFFF00FFFF
7205- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7206- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
7207- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7208- FF00000000000000000000000000000000000000000000000000000000000000
7209- 0000C6C6C600848484008484840000000000FFFFFF00FFFFFF00C6C6C6008484
7210- 8400000000000000000000000000000000000000000000000000000000000000
7211- 00008484840084848400C6C6C600C6C6C600C6C6C60084848400848484000000
7212- 0000000000000000000000000000000000000000000000000000000000000000
7213- 0000000000000000000000000000000000000000000000000000000000000000
7214- 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
7215- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
7216- 0000000000000000000000000000000000000000000000000000000000000000
7217- 000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600848484000000
7218- 0000000000000000000000000000000000000000000000000000000000000000
7219- 00000000000084848400C6C6C600C6C6C600C6C6C60084848400000000000000
7220- 00000000000000000000000000000000000000000000C6C6C600C6C6C600C6C6
7221- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7222- C600C6C6C600C6C6C600C6C6C600000000000000000000000000000000000000
7223- 0000000000000000000000000000000000000000000000000000000000000000
7224- 0000000000000000000000000000000000000000000000000000000000000000
7225- 00000000000000000000C6C6C600C6C6C600C6C6C60084848400848484000000
7226- 0000000000000000000000000000000000000000000000000000000000000000
7227- 0000000000008484840084848400C6C6C6008484840084848400000000000000
7228- 0000000000000000000000000000000000000000000000000000000000000000
7229- 0000000000000000000000000000000000000000000000000000000000000000
7230- 0000000000000000000000000000000000000000000000000000000000000000
7231- 0000000000000000000000000000000000000000000000000000000000000000
7232- 0000000000000000000000000000000000000000000000000000000000000000
7233- 000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600848484000000
7234- 0000000000000000000000000000000000000000000000000000000000000000
7235- 0000000000000000000084848400848484008484840000000000000000000000
7236- 0000000000000000000000000000000000000000000000000000000000000000
7237- 0000000000000000000000000000000000000000000000000000000000000000
7238- 0000000000000000000000000000000000000000000000000000000000000000
7239- 0000000000000000000000000000000000000000000000000000000000000000
7240- 0000000000000000000000000000000000000000000000000000848484008484
7241- 8400848484008484840084848400848484008484840084848400848484008484
7242- 8400848484008484840084848400000000000000000000000000000000000000
7243- 0000000000000000000000000000000000000000000000000000000000000000
7244- 0000000000000000000000000000000000000000000000000000848484008484
7245- 8400848484008484840084848400848484008484840084848400848484008484
7246- 8400848484008484840000000000000000000000000000000000000000000000
7247- 0000000000000000000000000000000000000000000000000000000000000000
7248- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7249- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7250- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000000000
7251- 0000000000008484840000000000000000000000000000000000000000000000
7252- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7253- FF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00000000000000
7254- 0000000000008484840000000000000000000000000000000000000000000000
7255- 0000000000000000000000000000000000000000000000000000000000000000
7256- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7257- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7258- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000008484
7259- 8400848484000000000000000000000000000000000000000000000000000000
7260- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7261- FF00FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF0000000000848484008484
7262- 8400848484008484840000000000000000000000000000000000000000000000
7263- 0000000000000000000000000000000000000000000000000000000000000000
7264- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7265- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7266- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000008484
7267- 8400C6C6C6000000000000000000000000000000000000000000000000000000
7268- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7269- FF00FFFFFF00FFFFFF00C6C6C600FFFFFF000000000084848400848484008484
7270- 8400C6C6C6008484840000000000000000000000000000000000000000008484
7271- 8400848484008484840084848400848484008484840084848400848484008484
7272- 8400848484008484840000000000000000000000000000000000C6C6C600FFFF
7273- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7274- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000008484
7275- 8400C6C6C6000000000000000000000000000000000000000000000000000000
7276- 0000000000000000000000000000000000000000000000000000C6C6C6000000
7277- 000000000000000000000000000000000000848484008484840084848400C6C6
7278- C600FFFFFF008484840000000000000000000000000000000000000000000000
7279- 0000000000000000000084848400848484008484840084848400848484000000
7280- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7281- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7282- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000008484
7283- 8400C6C6C6000000000000000000000000000000000000000000000000000000
7284- 0000000000000000000000000000000000000000000000000000000000008484
7285- 8400848484008484840084848400000000008484840084848400C6C6C600FFFF
7286- FF00C6C6C6008484840000000000000000000000000000000000000000000000
7287- 0000000000000000000000000000000000000000000000000000000000008484
7288- 8400000000000000000000000000000000000000000000000000C6C6C600FFFF
7289- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7290- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000008484
7291- 8400FFFFFF00C6C6C60000000000000000000000000000000000000000008484
7292- 8400000000000000000000000000000000000000000000000000848484008484
7293- 8400C6C6C600C6C6C600C6C6C600FFFFFF0000000000C6C6C600FFFFFF00C6C6
7294- C600FFFFFF008484840000000000000000000000000000000000000000000000
7295- 0000000000000000000000000000000000000000000000000000000000008484
7296- 8400848484000000000000000000000000000000000000000000C6C6C600FFFF
7297- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7298- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000000000
7299- 000084848400C6C6C600C6C6C60000000000000000000000000000000000C6C6
7300- C60084848400000000000000000000000000000000000000000084848400C6C6
7301- C600C6C6C600C6C6C600C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF
7302- FF00C6C6C6008484840000000000000000000000000000000000000000000000
7303- 0000000000000000000000000000000000000000000000000000000000000000
7304- 0000848484000000000000000000000000000000000000000000C6C6C600FFFF
7305- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7306- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000000000
7307- 000084848400FFFFFF00C6C6C600C6C6C6008484840084848400C6C6C600C6C6
7308- C600C6C6C600848484000000000000000000000000000000000084848400C6C6
7309- C600C6C6C600C6C6C600C6C6C600FFFFFF0000000000FFFFFF00FFFFFF00C6C6
7310- C600FFFFFF008484840000000000000000000000000000000000000000000000
7311- 0000000000000000000000000000000000000000000000000000000000000000
7312- 0000848484000000000000000000000000000000000000000000C6C6C600FFFF
7313- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7314- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000000000
7315- 00000000000084848400FFFFFF00FFFFFF00C6C6C600C6C6C600C6C6C600C6C6
7316- C600C6C6C600C6C6C6008484840000000000000000000000000084848400C6C6
7317- C600C6C6C600C6C6C600FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
7318- FF00C6C6C6008484840000000000000000000000000000000000000000000000
7319- 0000848484000000000000000000000000000000000000000000000000000000
7320- 0000848484000000000000000000000000000000000000000000C6C6C600FFFF
7321- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7322- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000000000
7323- 000000000000000000008484840084848400FFFFFF00FFFFFF00FFFFFF00C6C6
7324- C600C6C6C600C6C6C6000000000000000000000000000000000000000000FFFF
7325- FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
7326- FF00FFFFFF008484840000000000000000000000000000000000000000000000
7327- 0000848484000000000000000000000000000000000000000000000000000000
7328- 0000848484000000000000000000000000000000000000000000C6C6C600FFFF
7329- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7330- FF00FFFFFF00FFFFFF0084848400000000000000000000000000000000000000
7331- 000000000000000000000000000000000000848484008484840084848400FFFF
7332- FF00C6C6C6000000000000000000000000000000000000000000C6C6C6000000
7333- 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7334- 8400848484008484840000000000000000000000000000000000000000000000
7335- 0000848484008484840000000000000000000000000000000000000000008484
7336- 8400848484000000000000000000000000000000000000000000C6C6C600FFFF
7337- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7338- 8400848484008484840084848400000000000000000000000000000000000000
7339- 000000000000000000000000000000000000000000000000000084848400FFFF
7340- FF00000000000000000000000000000000000000000000000000C6C6C600FFFF
7341- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7342- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7343- 0000000000008484840000000000000000000000000084848400848484000000
7344- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7345- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7346- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7347- 0000000000000000000000000000000000000000000000000000848484000000
7348- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7349- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7350- FF00C6C6C6000000000000000000000000000000000000000000000000000000
7351- 0000000000000000000084848400848484008484840084848400000000000000
7352- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7353- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7354- FF00C6C6C6000000000000000000000000000000000000000000000000000000
7355- 0000000000000000000000000000000000000000000000000000848484000000
7356- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
7357- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7358- C600000000000000000000000000000000000000000000000000000000000000
7359- 0000000000000000000000000000000000000000000000000000000000000000
7360- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
7361- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7362- C600000000000000000000000000000000000000000000000000000000000000
7363- 0000000000000000000000000000000000000000000000000000000000000000
7364- 0000000000000000000000000000000000000000000000000000000000000000
7365- 0000000000000000000000000000000000000000000000000000000000000000
7366- 0000000000000000000000000000000000000000000000000000000000000000
7367- 0000000000000000000000000000000000000000000000000000000000000000
7368- 0000000000000000000000000000000000000000000000000000000000000000
7369- 0000000000000000000000000000000000000000000000000000000000000000
7370- 0000000000000000000000000000000000000000000000000000000000000000
7371- 0000000000000000000000000000000000000000000000000000000000000000
7372- 0000000000000000000000000000000000000000000000000000000000000000
7373- 0000000000000000000000000000000000000000000000000000000000000000
7374- 0000000000000000000000000000000000000000000000000000000000000000
7375- 0000000000000000000000000000000000000000000000000000000000008484
7376- 840084848400848484008484840000000000000000000000000084848400C6C6
7377- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7378- C600C6C6C600C6C6C60000000000000000000000000000000000000000000000
7379- 0000000000000000000000000000000000000000000000000000000000000000
7380- 0000000000000000000000000000000000000000000000000000000000000000
7381- 0000000000000000000000000000000000000000000000000000000000000000
7382- 0000000000000000000000000000000000008484840084848400848484008484
7383- 840084848400848484008484840084848400848484008484840000000000FFFF
7384- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7385- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7386- FF00FFFFFF00C6C6C600000000000000000000000000C6C6C600000000000000
7387- 0000000000000000000000000000000000000000000000000000000000000000
7388- 0000000000008484840000000000000000000000000084848400848484008484
7389- 8400848484008484840084848400848484008484840084848400848484008484
7390- 84008484840084848400848484000000000084848400FFFFFF00FFFFFF00C6C6
7391- C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF008484840000000000FFFF
7392- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7393- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFF
7394- FF00FFFFFF00C6C6C60000000000000000000000000084848400848484000000
7395- 0000000000000000000000000000000000000000000000000000000000000000
7396- 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
7397- FF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFF
7398- FF00C6C6C600FFFFFF00848484000000000084848400FFFFFF00C6C6C600FFFF
7399- FF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C6008484840000000000FFFF
7400- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7401- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
7402- FF00FFFFFF00C6C6C60000000000000000000000000084848400C6C6C6008484
7403- 8400000000000000000000000000000000000000000000000000000000000000
7404- 0000848484000000000000000000000000000000000084848400FFFFFF00C6C6
7405- C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6
7406- C600FFFFFF00C6C6C600848484000000000084848400FFFFFF00FFFFFF00C6C6
7407- C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF008484840000000000FFFF
7408- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7409- FF00FFFFFF00FFFFFF008484840084848400848484008484840084848400FFFF
7410- FF00FFFFFF00C6C6C6000000000000000000000000000000000084848400C6C6
7411- C600000000000000000000000000000000000000000000000000000000008484
7412- 8400000000000000000000000000000000000000000084848400FFFFFF00FFFF
7413- FF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFF
7414- FF00C6C6C600FFFFFF00848484000000000084848400FFFFFF00FFFFFF00FFFF
7415- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484840000000000FFFF
7416- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7417- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00848484008484
7418- 8400FFFFFF00C6C6C60000000000000000000000000000000000000000008484
7419- 8400C6C6C6000000000000000000000000000000000000000000848484000000
7420- 0000000000000000000000000000000000000000000084848400FFFFFF00C6C6
7421- C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6
7422- C600FFFFFF00C6C6C600848484000000000084848400FFFFFF00C6C6C600FFFF
7423- FF00C6C6C600FFFFFF00C6C6C600848484008484840084848400FFFFFF00FFFF
7424- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7425- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF008484
7426- 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7427- 0000848484008484840000000000000000000000000084848400000000000000
7428- 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
7429- FF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFF
7430- FF00C6C6C600FFFFFF0084848400000000000000000084848400FFFFFF00C6C6
7431- C600FFFFFF00C6C6C60084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7432- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7433- FF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7434- 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7435- 0000000000008484840084848400000000008484840000000000000000000000
7436- 0000000000000000000000000000000000000000000084848400FFFFFF00C6C6
7437- C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6
7438- C600FFFFFF00C6C6C60084848400000000000000000000000000848484008484
7439- 84008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7440- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7441- FF0084848400FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFF
7442- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7443- 0000000000000000000084848400848484000000000000000000000000000000
7444- 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
7445- FF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFF
7446- FF00C6C6C600FFFFFF0084848400000000000000000000000000C6C6C600FFFF
7447- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7448- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7449- FF008484840084848400FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
7450- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7451- 0000000000008484840084848400000000008484840000000000000000000000
7452- 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
7453- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7454- FF00FFFFFF00FFFFFF0084848400000000000000000000000000C6C6C600FFFF
7455- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7456- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7457- FF00FFFFFF008484840084848400848484008484840084848400FFFFFF00FFFF
7458- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7459- 000084848400C6C6C60000000000000000000000000084848400000000000000
7460- 0000000000000000000000000000000000000000000084848400FFFFFF00C6C6
7461- C600FFFFFF00C6C6C600FFFFFF00C6C6C600FFFFFF0084848400848484008484
7462- 8400848484008484840084848400000000000000000000000000C6C6C600FFFF
7463- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7464- FF00FFFFFF00FFFFFF008484840000000000000000000000000084848400FFFF
7465- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF000000
7466- 0000000000000000000000000000000000000000000000000000848484008484
7467- 8400C6C6C6000000000000000000000000000000000000000000848484000000
7468- 000000000000000000000000000000000000000000000000000084848400FFFF
7469- FF00C6C6C600FFFFFF00C6C6C600FFFFFF008484840000000000000000000000
7470- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7471- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7472- 840084848400848484008484840000000000000000000000000084848400FFFF
7473- FF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00C6C6
7474- C600FFFFFF008484840000000000000000000000000084848400C6C6C600C6C6
7475- C600000000000000000000000000000000000000000000000000000000008484
7476- 8400000000000000000000000000000000000000000000000000000000008484
7477- 8400848484008484840084848400848484000000000000000000000000000000
7478- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7479- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7480- FF00FFFFFF00C6C6C6000000000000000000000000000000000084848400FFFF
7481- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7482- C600848484000000000000000000000000000000000084848400848484008484
7483- 8400000000000000000000000000000000000000000000000000000000000000
7484- 0000000000008484840000000000000000000000000000000000000000000000
7485- 0000000000000000000000000000000000000000000000000000000000000000
7486- 0000000000000000000000000000000000000000000000000000C6C6C600FFFF
7487- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7488- FF00C6C6C6000000000000000000000000000000000000000000848484008484
7489- 8400848484008484840084848400848484008484840084848400848484008484
7490- 8400000000000000000000000000000000000000000000000000000000000000
7491- 0000000000000000000000000000000000000000000000000000000000000000
7492- 0000000000000000000000000000000000000000000000000000000000000000
7493- 0000000000000000000000000000000000000000000000000000000000000000
7494- 0000000000000000000000000000000000000000000000000000C6C6C600C6C6
7495- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7496- C600000000000000000000000000000000000000000000000000000000000000
7497- 0000000000000000000000000000000000000000000000000000000000000000
7498- 0000000000000000000000000000000000000000000000000000000000000000
7499- 0000000000000000000000000000000000000000000000000000000000000000
7500- 0000000000000000000000000000000000000000000000000000000000000000
7501- 0000000000000000000000000000000000000000000000000000000000000000
7502- 0000000000000000000000000000000000000000000000000000000000000000
7503- 0000000000000000000000000000000000000000000000000000000000000000
7504- 0000000000000000000000000000000000000000000000000000000000000000
7505- 0000000000000000000000000000000000000000000000000000000000000000
7506- 0000000000000000000000000000000000000000000000000000000000000000
7507- 0000000000000000000000000000000000000000000000000000000000000000
7508- 0000000000000000000000000000000000000000000000000000000000000000
7509- 0000000000000000000000000000000000000000000000000000000000000000
7510- 0000000000000000000084848400000000000000000000000000000000000000
7511- 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7512- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
7513- 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7514- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
7515- 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7516- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
7517- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7518- FF00000000008484840084848400848484000000000000000000848484000000
7519- 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7520- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
7521- 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7522- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000848484008484
7523- 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7524- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
7525- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
7526- 000084848400C6C6C600C6C6C600000000000000000084848400000000008484
7527- 840084848400848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFF
7528- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
7529- 000000000000FFFFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7530- C600C6C6C600C6C6C600FFFFFF00000000000000000000000000000000008484
7531- 84008484840084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7532- C600C6C6C600C6C6C600FFFFFF0000000000000000000000000000000000FFFF
7533- FF0084848400848484008484840084848400FFFFFF00FFFFFF00000000008484
7534- 8400C6C6C600C6C6C60000000000000000008484840084848400848484008484
7535- 84008484840084848400848484008484840084848400FFFFFF00FFFFFF00FFFF
7536- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
7537- 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7538- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
7539- 000084848400848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFF
7540- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
7541- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400C6C6
7542- C600C6C6C6000000000000000000000000008484840084848400848484008484
7543- 840084848400FFFFFF00FFFFFF00848484008484840084848400FFFFFF00FFFF
7544- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
7545- 000000000000FFFFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7546- C600C6C6C600C6C6C600FFFFFF00000000000000000000000000000000000000
7547- 00000000000084848400848484008484840084848400C6C6C600C6C6C600C6C6
7548- C600C6C6C600C6C6C600FFFFFF0000000000000000000000000000000000FFFF
7549- FF00848484008484840084848400FFFFFF000000000084848400C6C6C600C6C6
7550- C600000000000000000000000000000000008484840084848400848484008484
7551- 8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7552- FF00FFFFFF00FFFFFF0000000000000000000000000000000000848484000000
7553- 00000000000084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7554- FF00FFFFFF00FFFFFF00FFFFFF00000000008484840084848400848484008484
7555- 8400848484008484840084848400848484008484840084848400FFFFFF00FFFF
7556- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
7557- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C6000000
7558- 0000FFFFFF000000000000000000000000000000000084848400848484008484
7559- 8400848484008484840084848400848484008484840084848400FFFFFF00FFFF
7560- FF00FFFFFF00FFFFFF0000000000000000000000000000000000848484008484
7561- 84000000000084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7562- C600C6C6C600C6C6C600FFFFFF00000000008484840084848400848484008484
7563- 8400848484008484840084848400848484008484840084848400848484008484
7564- 8400C6C6C600C6C6C600FFFFFF0000000000000000000000000000000000FFFF
7565- FF00848484008484840084848400FFFFFF00000000000000000000000000FFFF
7566- FF00FFFFFF000000000000000000000000000000000084848400848484008484
7567- 840084848400FFFFFF00FFFFFF00848484008484840084848400FFFFFF00FFFF
7568- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000008484
7569- 84008484840084848400FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
7570- FF00FFFFFF00FFFFFF00FFFFFF00000000008484840084848400848484008484
7571- 8400848484008484840084848400848484008484840084848400FFFFFF00FFFF
7572- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
7573- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7574- FF00FFFFFF000000000000000000000000000000000000000000848484008484
7575- 84008484840084848400848484008484840084848400FFFFFF00FFFFFF00FFFF
7576- FF00FFFFFF00FFFFFF0000000000000000008484840084848400848484008484
7577- 840084848400848484008484840084848400C6C6C600C6C6C600C6C6C600C6C6
7578- C600C6C6C600C6C6C600FFFFFF00000000000000000000000000000000000000
7579- 00000000000084848400848484008484840084848400C6C6C600C6C6C600C6C6
7580- C600C6C6C600C6C6C600FFFFFF0000000000000000000000000000000000FFFF
7581- FF00848484008484840084848400848484008484840084848400848484008484
7582- 8400FFFFFF000000000000000000000000000000000000000000000000008484
7583- 840084848400848484008484840084848400FFFFFF0084848400FFFFFF00FFFF
7584- FF00FFFFFF00FFFFFF0000000000000000000000000000000000848484008484
7585- 8400000000008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7586- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
7587- 000084848400848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFF
7588- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
7589- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7590- FF00FFFFFF000000000000000000000000000000000000000000000000000000
7591- 0000FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF000000
7592- 0000000000000000000000000000000000000000000084848400848484008484
7593- 84008484840084848400848484008484840084848400C6C6C600C6C6C600C6C6
7594- C600C6C6C600C6C6C600FFFFFF00000000000000000000000000000000008484
7595- 84008484840084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7596- C600C6C6C600C6C6C600FFFFFF0000000000000000000000000000000000FFFF
7597- FF00848484008484840084848400848484008484840084848400848484008484
7598- 8400FFFFFF000000000000000000000000000000000000000000000000000000
7599- 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
7600- 0000FFFFFF000000000000000000000000008484840084848400000000008484
7601- 84008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7602- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000848484008484
7603- 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7604- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
7605- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7606- FF00FFFFFF000000000000000000000000000000000000000000000000000000
7607- 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
7608- 0000000000000000000000000000000000000000000000000000000000008484
7609- 8400000000008484840084848400000000000000000000000000000000000000
7610- 0000000000000000000000000000000000000000000000000000000000000000
7611- 0000000000000000000000000000000000000000000000000000000000000000
7612- 0000000000000000000000000000000000000000000000000000000000000000
7613- 0000000000000000000000000000000000000000000000000000000000000000
7614- 0000000000000000000000000000000000000000000000000000000000000000
7615- 0000000000000000000000000000000000000000000000000000000000000000
7616- 0000000000000000000000000000000000000000000000000000000000008484
7617- 8400000000000000000084848400000000000000000000000000000000000000
7618- 0000000000000000000000000000000000000000000000000000000000000000
7619- 0000000000000000000000000000000000000000000000000000000000000000
7620- 0000000000000000000000000000000000000000000000000000000000000000
7621- 0000000000000000000000000000000000000000000000000000000000000000
7622- 0000000000000000000000000000000000000000000000000000000000000000
7623- 0000000000000000000000000000000000000000000000000000000000000000
7624- 0000000000000000000000000000000000000000000000000000000000000000
7625- 0000000000000000000000000000000000000000000000000000000000000000
7626- 0000000000000000000000000000000000000000000000000000000000000000
7627- 0000000000000000000000000000000000000000000000000000000000000000
7628- 0000000000000000000000000000000000000000000000000000000000000000
7629- 0000000000000000000000000000000000000000000000000000000000000000
7630- 0000000000000000000000000000000000000000000000000000000000000000
7631- 0000000000000000000000000000000000000000000000000000000000000000
7632- 0000000000000000000000000000000000000000000000000000000000000000
7633- 0000000000000000000000000000000000000000000000000000000000000000
7634- 0000000000000000000000000000000000000000000000000000000000000000
7635- 0000000000000000000000000000000000000000000000000000000000000000
7636- 0000000000000000000000000000000000000000000000000000000000000000
7637- 0000000000000000000000000000000000000000000000000000000000000000
7638- 0000000000000000000000000000000000000000000000000000848484008484
7639- 8400848484008484840084848400848484008484840084848400848484008484
7640- 8400848484000000000000000000000000000000000000000000000000000000
7641- 0000000000000000000000000000000000000000000000000000000000000000
7642- 0000000000000000000000000000000000000000000000000000000000000000
7643- 0000000000000000000000000000000000000000000000000000000000000000
7644- 0000000000000000000000000000000000000000000000000000000000000000
7645- 0000000000000000000000000000848484008484840084848400000000000000
7646- 0000000000000000000000000000000000000000000000000000000000000000
7647- 0000000000000000000000000000000000000000000000000000000000000000
7648- 0000000000000000000000000000000000000000000000000000000000000000
7649- 0000000000000000000000000000000000000000000000000000000000000000
7650- 0000000000000000000000000000000000000000000000000000000000000000
7651- 0000000000000000000000000000000000008484840000000000000000000000
7652- 0000000000000000000000000000000000000000000000000000000000000000
7653- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7654- 0000000000000000000000000000000000000000000000000000000000000000
7655- 0000000000000000000000000000000000008484840000000000000000000000
7656- 0000000000000000000000000000000000000000000000000000000000000000
7657- 0000848484000000000000000000000000000000000084848400000000000000
7658- 0000000000000000000000000000000000000000000000000000000000008484
7659- 8400000000000000000000000000000000008484840000000000000000000000
7660- 0000848484000000000000000000000000000000000000000000000000000000
7661- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7662- 0000000000000000000000000000000000000000000000000000000000000000
7663- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7664- 0000000000000000000000000000000000000000000000000000000000000000
7665- 0000FFFFFF0084848400000000000000000000000000FFFFFF00848484000000
7666- 000000000000000000000000000000000000000000000000000000000000FFFF
7667- FF00848484000000000000000000000000008484840000000000000000008484
7668- 8400FFFFFF000000000000000000000000000000000000000000000000000000
7669- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7670- 0000000000000000000000000000000000000000000000000000000000000000
7671- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7672- 0000000000000000000000000000000000000000000000000000000000000000
7673- 0000FFFFFF00FFFFFF00848484000000000000000000FFFFFF00FFFFFF008484
7674- 840000000000000000000000000000000000000000000000000000000000FFFF
7675- FF00FFFFFF00848484000000000000000000848484000000000084848400FFFF
7676- FF00FFFFFF000000000000000000000000000000000000000000000000000000
7677- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7678- 0000000000000000000000000000000000000000000000000000000000000000
7679- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7680- 8400000000000000000000000000000000000000000000000000000000000000
7681- 0000FFFFFF00FFFFFF00FFFFFF008484840000000000FFFFFF00FFFFFF00FFFF
7682- FF0084848400000000000000000000000000000000000000000000000000FFFF
7683- FF00FFFFFF00FFFFFF0084848400000000008484840084848400FFFFFF00FFFF
7684- FF00FFFFFF000000000000000000000000000000000000000000000000000000
7685- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7686- 0000000000000000000000000000000000000000000000000000000000000000
7687- 000000000000000000000000000084848400FFFFFF0000000000000000000000
7688- 0000000000000000000000000000000000000000000000000000000000000000
7689- 000084848400FFFFFF0084848400000000000000000084848400FFFFFF008484
7690- 8400000000000000000000000000000000000000000000000000000000008484
7691- 8400FFFFFF00848484000000000000000000848484000000000084848400FFFF
7692- FF00848484000000000000000000000000000000000000000000000000000000
7693- 000000000000000000000000000084848400FFFFFF0000000000000000000000
7694- 0000000000000000000000000000000000000000000000000000000000000000
7695- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7696- 0000000000000000000000000000000000000000000000000000000000000000
7697- 0000848484008484840000000000000000000000000084848400848484000000
7698- 0000000000000000000000000000000000000000000000000000000000008484
7699- 8400848484000000000000000000000000008484840000000000000000008484
7700- 8400848484000000000000000000000000000000000000000000000000000000
7701- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7702- 8400000000000000000000000000000000000000000000000000000000000000
7703- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7704- 0000000000000000000000000000000000000000000000000000000000000000
7705- 0000848484000000000000000000000000000000000084848400000000000000
7706- 0000000000000000000000000000000000000000000000000000000000008484
7707- 8400000000000000000000000000000000008484840000000000000000000000
7708- 0000848484000000000000000000000000000000000000000000000000000000
7709- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7710- 0000000000000000000000000000000000000000000000000000000000000000
7711- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7712- 0000000000000000000000000000000000000000000000000000000000000000
7713- 0000000000000000000000000000000000000000000000000000000000000000
7714- 0000000000000000000000000000000000000000000000000000000000000000
7715- 0000000000000000000000000000000000008484840000000000000000000000
7716- 0000000000000000000000000000000000000000000000000000000000000000
7717- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7718- 0000000000000000000000000000000000000000000000000000000000000000
7719- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7720- 0000000000000000000000000000000000000000000000000000000000000000
7721- 0000000000000000000000000000000000000000000000000000000000000000
7722- 0000000000000000000000000000000000000000000000000000000000000000
7723- 0000000000000000000000000000000000008484840000000000000000000000
7724- 0000000000000000000000000000000000000000000000000000000000000000
7725- 0000000000000000000000000000000000008484840000000000000000000000
7726- 0000000000000000000000000000000000000000000000000000000000000000
7727- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7728- 0000000000000000000000000000000000000000000000000000000000000000
7729- 0000000000000000000000000000000000000000000000000000000000000000
7730- 0000000000000000000000000000000000000000000000000000000000000000
7731- 0000000000000000000000000000000000008484840000000000000000000000
7732- 0000000000000000000000000000000000000000000000000000000000000000
7733- 0000000000000000000000000000000000000000000000000000000000000000
7734- 0000000000000000000000000000000000000000000000000000000000000000
7735- 0000000000000000000000000000848484008484840084848400000000000000
7736- 0000000000000000000000000000000000000000000000000000000000000000
7737- 0000000000000000000000000000000000000000000000000000000000000000
7738- 0000000000000000000000000000000000000000000000000000000000000000
7739- 0000000000000000000000000000000000000000000000000000000000000000
7740- 0000000000000000000000000000000000000000000000000000848484008484
7741- 8400848484008484840084848400848484008484840084848400848484008484
7742- 8400848484000000000000000000000000000000000000000000000000000000
7743- 0000000000000000000000000000000000000000000000000000000000000000
7744- 0000000000000000000000000000000000000000000000000000000000000000
7745- 0000000000000000000000000000000000000000000000000000000000000000
7746- 0000000000000000000000000000000000000000000000000000000000000000
7747- 0000000000000000000000000000000000000000000000000000000000000000
7748- 0000000000000000000000000000000000000000000000000000000000000000
7749- 0000000000000000000000000000000000000000000000000000000000000000
7750- 0000000000000000000000000000000000000000000000000000000000000000
7751- 0000000000000000000000000000000000000000000000000000000000000000
7752- 0000000000000000000000000000000000000000000000000000000000000000
7753- 0000000000000000000000000000000000000000000000000000000000000000
7754- 0000000000000000000000000000000000000000000000000000000000000000
7755- 0000000000000000000000000000000000000000000000000000000000000000
7756- 0000000000000000000000000000000000000000000000000000000000000000
7757- 0000000000000000000000000000000000000000000000000000000000000000
7758- 0000000000000000000000000000000000000000000000000000000000000000
7759- 0000000000000000000000000000000000000000000000000000000000000000
7760- 0000000000000000000000000000000000000000000000000000000000000000
7761- 0000000000000000000000000000000000000000000000000000000000000000
7762- 0000000000000000000000000000000000000000000000000000000000000000
7763- 0000000000000000000000000000000000000000000000000000000000000000
7764- 0000000000000000000000000000000000000000000000000000000000000000
7765- 0000000000000000000000000000000000000000000000000000000000000000
7766- 0000000000000000000000000000000000000000000000000000000000000000
7767- 0000000000000000000000000000000000000000000000000000000000000000
7768- 0000000000000000000000000000000000000000000000000000000000000000
7769- 0000000000000000000000000000000000000000000000000000000000000000
7770- 0000000000000000000000000000000000000000000000000000000000000000
7771- 0000000000000000000000000000000000000000000000000000000000000000
7772- 0000000000000000000000000000000000000000000000000000000000000000
7773- 0000000000000000000000000000000000000000000000000000000000000000
7774- 0000000000000000000000000000000000000000000000000000000000000000
7775- 0000000000000000000000000000000000000000000000000000000000000000
7776- 0000000000000000000000000000000000000000000000000000000000000000
7777- 0000000000000000000000000000000000000000000000000000000000000000
7778- 0000000000000000000000000000000000000000000000000000000000000000
7779- 0000000000000000000000000000000000008484840000000000000000000000
7780- 0000000000000000000000000000000000000000000000000000000000000000
7781- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7782- 8400000000000000000000000000000000000000000000000000000000000000
7783- 0000000000000000000000000000000000000000000000000000000000000000
7784- 0000000000000000000000000000000000000000000000000000000000000000
7785- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7786- 8400000000000000000000000000000000000000000000000000000000000000
7787- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7788- 0000000000000000000000000000000000000000000000000000000000000000
7789- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7790- 0000000000000000000000000000000000000000000000000000000000000000
7791- 0000000000000000000084848400000000000000000000000000000000008484
7792- 8400000000000000000000000000000000000000000000000000000000000000
7793- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7794- 0000000000000000000000000000000000000000000000000000000000000000
7795- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7796- 0000000000000000000000000000000000000000000000000000000000000000
7797- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7798- 0000000000000000000000000000000000000000000000000000000000000000
7799- 00000000000084848400FFFFFF0000000000000000000000000084848400FFFF
7800- FF00000000000000000000000000000000000000000000000000000000000000
7801- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7802- 0000000000000000000000000000000000000000000000000000000000000000
7803- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7804- 8400000000000000000000000000000000000000000000000000000000000000
7805- 0000000000000000000000000000000000008484840000000000000000000000
7806- 0000000000000000000000000000000000000000000000000000000000000000
7807- 000084848400FFFFFF00FFFFFF00000000000000000084848400FFFFFF00FFFF
7808- FF00000000000000000000000000000000000000000000000000000000000000
7809- 0000000000000000000000000000000000008484840000000000000000000000
7810- 0000000000000000000000000000000000000000000000000000000000000000
7811- 0000000000000000000000000000000000000000000000000000000000000000
7812- 0000000000000000000000000000000000000000000000000000000000000000
7813- 0000000000000000000000000000000000000000000000000000000000000000
7814- 0000000000000000000000000000000000000000000000000000000000008484
7815- 8400FFFFFF00FFFFFF00FFFFFF000000000084848400FFFFFF00FFFFFF00FFFF
7816- FF00000000000000000000000000000000000000000000000000000000000000
7817- 0000000000000000000000000000000000000000000000000000000000000000
7818- 0000000000000000000000000000000000000000000000000000000000000000
7819- 0000000000000000000000000000000000008484840000000000000000000000
7820- 0000000000000000000000000000000000000000000000000000848484008484
7821- 8400848484008484840084848400848484008484840084848400848484008484
7822- 8400848484000000000000000000000000000000000000000000000000000000
7823- 000084848400FFFFFF0084848400000000000000000084848400FFFFFF008484
7824- 8400000000000000000000000000000000000000000000000000000000000000
7825- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7826- 8400000000000000000000000000000000000000000000000000000000000000
7827- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7828- 0000000000000000000000000000000000000000000000000000000000000000
7829- 0000000000000000000000000000000000008484840000000000000000000000
7830- 0000000000000000000000000000000000000000000000000000000000000000
7831- 0000000000008484840084848400000000000000000000000000848484008484
7832- 8400000000000000000000000000000000000000000000000000000000000000
7833- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7834- 0000000000000000000000000000000000000000000000000000000000000000
7835- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7836- 0000000000000000000000000000000000000000000000000000000000000000
7837- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7838- 0000000000000000000000000000000000000000000000000000000000000000
7839- 0000000000000000000084848400000000000000000000000000000000008484
7840- 8400000000000000000000000000000000000000000000000000000000000000
7841- 000000000000000000000000000084848400FFFFFF0084848400000000000000
7842- 0000000000000000000000000000000000000000000000000000000000000000
7843- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7844- 8400000000000000000000000000000000000000000000000000000000000000
7845- 0000000000000000000084848400FFFFFF00FFFFFF00FFFFFF00848484000000
7846- 0000000000000000000000000000000000000000000000000000000000000000
7847- 0000000000000000000000000000000000000000000000000000000000000000
7848- 0000000000000000000000000000000000000000000000000000000000000000
7849- 0000000000000000000000000000000000008484840000000000000000000000
7850- 0000000000000000000000000000000000000000000000000000000000000000
7851- 0000000000000000000000000000000000000000000000000000000000000000
7852- 0000000000000000000000000000000000000000000000000000000000000000
7853- 000000000000848484008484840084848400FFFFFF00FFFFFF00FFFFFF008484
7854- 8400000000000000000000000000000000000000000000000000000000000000
7855- 0000000000000000000000000000000000000000000000000000000000000000
7856- 0000000000000000000000000000000000000000000000000000000000000000
7857- 0000000000000000000000000000000000000000000000000000000000000000
7858- 0000000000000000000000000000000000000000000000000000000000000000
7859- 0000000000000000000000000000000000000000000000000000000000000000
7860- 0000000000000000000000000000000000000000000000000000000000000000
7861- 0000000000000000000000000000000000000000000000000000000000000000
7862- 0000000000000000000000000000000000000000000000000000000000000000
7863- 0000000000000000000000000000000000000000000000000000000000000000
7864- 0000000000000000000000000000000000000000000000000000000000000000
7865- 0000000000000000000000000000000000000000000000000000000000000000
7866- 0000000000000000000000000000000000000000000000000000000000000000
7867- 0000000000000000000000000000000000000000000000000000000000000000
7868- 0000000000000000000000000000000000000000000000000000000000000000
7869- 0000000000000000000000000000000000000000000000000000000000000000
7870- 0000000000000000000000000000000000000000000000000000000000000000
7871- 0000000000000000000000000000000000000000000000000000000000000000
7872- 0000000000000000000000000000000000000000000000000000000000000000
7873- 0000000000000000000000000000000000000000000000000000000000000000
7874- 0000000000000000000000000000000000000000000000000000000000000000
7875- 0000000000000000000000000000000000000000000000000000000000000000
7876- 0000000000000000000000000000000000000000000000000000000000000000
7877- 0000000000000000000000000000000000000000000000000000000000000000
7878- 0000000000000000000000000000000000000000000000000000000000000000
7879- 0000000000000000000000000000000000000000000000000000000000000000
7880- 0000000000000000000000000000000000000000000000000000000000000000
7881- 0000000000000000000000000000000000000000000000000000000000000000
7882- 0000000000000000000000000000000000000000000000000000000000000000
7883- 0000000000000000000000000000000000000000000000000000000000000000
7884- 0000000000000000000000000000000000000000000000000000000000000000
7885- 0000000000000000000000000000000000000000000000000000000000000000
7886- 0000000000000000000000000000000000000000000000000000000000000000
7887- 0000000000000000000000000000000000000000000000000000000000000000
7888- 000000000000000000000000000000000000000000000000000084848400C6C6
7889- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7890- C600C6C6C600C6C6C60000000000000000000000000000000000000000000000
7891- 0000000000000000000000000000000000000000000000000000000000000000
7892- 000000000000000000000000000000000000000000000000000084848400C6C6
7893- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
7894- C600C6C6C600C6C6C60000000000000000000000000000000000000000000000
7895- 0000000000000000000000000000000000000000000000000000000000000000
7896- 000000000000000000000000000000000000000000000000000084848400FFFF
7897- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7898- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7899- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7900- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7901- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7902- FF00FFFFFF00C6C6C60000000000000000000000000000000000848484008484
7903- 8400000000000000000000000000000000000000000000000000000000000000
7904- 000000000000000000000000000000000000000000000000000084848400FFFF
7905- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7906- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7907- FF00FFFFFF00848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFF
7908- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7909- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFF
7910- FF00FFFFFF00C6C6C600000000000000000084848400C6C6C600000000000000
7911- 0000848484008484840000000000000000000000000000000000000000000000
7912- 000000000000000000000000000000000000000000000000000084848400FFFF
7913- FF00848484008484840084848400FFFFFF00FFFFFF0084848400848484008484
7914- 840084848400C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7915- FF008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7916- 8400FFFFFF00FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7917- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
7918- FF00FFFFFF00C6C6C600000000000000000084848400C6C6C600000000008484
7919- 8400848484008484840000000000000000000000000000000000000000000000
7920- 000000000000000000000000000000000000000000000000000084848400FFFF
7921- FF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484
7922- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7923- FF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484
7924- 840084848400FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7925- FF00FFFFFF00FFFFFF008484840084848400848484008484840084848400FFFF
7926- FF00FFFFFF00C6C6C600000000000000000084848400C6C6C600C6C6C6000000
7927- 0000C6C6C6000000000000000000000000000000000084848400C6C6C600C6C6
7928- C600C6C6C600C6C6C6000000000000000000000000000000000084848400FFFF
7929- FF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484
7930- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00848484008484
7931- 8400848484008484840084848400FFFFFF00FFFFFF0084848400848484008484
7932- 84008484840084848400FFFFFF0000000000000000000000000084848400FFFF
7933- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00848484008484
7934- 8400FFFFFF00C6C6C600000000000000000084848400FFFFFF00C6C6C600C6C6
7935- C60000000000C6C6C60000000000000000000000000084848400FFFFFF00C6C6
7936- C600C6C6C600000000000000000000000000000000000000000084848400FFFF
7937- FF00FFFFFF00FFFFFF0084848400848484008484840084848400848484008484
7938- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF008484
7939- 84008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7940- 8400FFFFFF00FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7941- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF008484
7942- 8400FFFFFF00C6C6C60000000000000000000000000084848400FFFFFF00C6C6
7943- C600C6C6C600C6C6C60000000000848484000000000084848400C6C6C600FFFF
7944- FF00C6C6C600C6C6C6000000000000000000000000000000000084848400FFFF
7945- FF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF008484840084848400FFFF
7946- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7947- FF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484
7948- 8400FFFFFF00FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7949- FF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
7950- 8400FFFFFF00C6C6C6000000000000000000000000000000000000000000FFFF
7951- FF00C6C6C600C6C6C60000000000000000008484840084848400FFFFFF008484
7952- 8400FFFFFF00C6C6C600C6C6C60000000000000000000000000084848400FFFF
7953- FF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF008484840084848400FFFF
7954- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7955- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484840084848400FFFF
7956- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7957- FF0084848400FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFF
7958- FF00FFFFFF00C6C6C60000000000000000000000000000000000FFFFFF00C6C6
7959- C600FFFFFF00C6C6C60000000000848484000000000084848400848484000000
7960- 000084848400FFFFFF00C6C6C60000000000000000000000000084848400FFFF
7961- FF00FFFFFF00FFFFFF00FFFFFF00848484008484840084848400FFFFFF00FFFF
7962- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
7963- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
7964- FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000084848400FFFF
7965- FF008484840084848400FFFFFF008484840084848400FFFFFF00FFFFFF00FFFF
7966- FF00FFFFFF00C6C6C60000000000000000008484840084848400848484008484
7967- 8400848484008484840000000000000000000000000084848400000000000000
7968- 00008484840084848400FFFFFF0000000000000000000000000084848400FFFF
7969- FF00FFFFFF00FFFFFF00FFFFFF00848484008484840084848400FFFFFF00FFFF
7970- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7971- 0000000000000000000000000000000000000000000000000000000000000000
7972- 000000000000000000000000000000000000000000000000000084848400FFFF
7973- FF00FFFFFF008484840084848400848484008484840084848400FFFFFF00FFFF
7974- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
7975- 000084848400C6C6C60084848400848484008484840084848400848484008484
7976- 84000000000084848400C6C6C60000000000000000000000000084848400FFFF
7977- FF00FFFFFF00FFFFFF00FFFFFF00848484008484840084848400FFFFFF000000
7978- 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
7979- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
7980- 000000000000000000000000000000000000000000000000000084848400FFFF
7981- FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF000000
7982- 0000000000000000000000000000000000000000000000000000000000000000
7983- 00000000000084848400FFFFFF00FFFFFF00C6C6C60084848400848484000000
7984- 0000C6C6C600C6C6C6000000000000000000000000000000000084848400FFFF
7985- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7986- C600FFFFFF00848484000000000000000000000000000000000000000000FFFF
7987- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
7988- 000000000000000000000000000000000000000000000000000084848400FFFF
7989- FF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00C6C6
7990- C600FFFFFF008484840000000000000000000000000000000000000000000000
7991- 0000000000000000000084848400848484008484840084848400848484000000
7992- 000084848400848484000000000000000000000000000000000084848400FFFF
7993- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7994- C600848484000000000000000000000000000000000000000000000000000000
7995- 0000000000000000000000000000000000000000000000000000000000000000
7996- 000000000000000000000000000000000000000000000000000084848400FFFF
7997- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
7998- C600848484000000000000000000000000000000000000000000000000000000
7999- 0000000000000000000000000000000000000000000000000000000000000000
8000- 0000000000000000000000000000000000000000000000000000848484008484
8001- 8400848484008484840084848400848484008484840084848400848484008484
8002- 8400000000000000000000000000000000000000000000000000000000000000
8003- 0000000000000000000000000000000000000000000000000000000000000000
8004- 0000000000000000000000000000000000000000000000000000848484008484
8005- 8400848484008484840084848400848484008484840084848400848484008484
8006- 8400000000000000000000000000000000000000000000000000000000000000
8007- 0000000000000000000000000000000000000000000000000000000000000000
8008- 0000000000000000000000000000000000000000000000000000000000000000
8009- 0000000000000000000000000000000000000000000000000000000000000000
8010- 0000000000000000000000000000000000000000000084848400848484008484
8011- 8400848484008484840084848400848484000000000000000000000000000000
8012- 0000000000000000000000000000000000000000000000000000000000000000
8013- 0000000000000000000000000000000000000000000000000000000000000000
8014- 0000000000000000000000000000000000000000000000000000000000000000
8015- 0000000000000000000000000000000000000000000000000000000000000000
8016- 0000000000000000000000000000000000000000000000000000000000000000
8017- 0000000000000000000000000000000000000000000000000000000000000000
8018- 00000000000000000000000000000000000000000000C6C6C600FFFFFF00FFFF
8019- FF00FFFFFF00FFFFFF00FFFFFF00848484000000000084848400C6C6C600C6C6
8020- C600C6C6C600C6C6C600C6C6C600000000000000000000000000000000000000
8021- 0000000000000000000084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8022- C600C6C6C600C6C6C6000000000000000000000000000000000084848400C6C6
8023- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8024- C600C6C6C600C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8025- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8026- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C600FFFFFF00FFFF
8027- FF00FFFFFF00FFFFFF00FFFFFF00848484000000000084848400FFFFFF00FFFF
8028- FF00FFFFFF00FFFFFF00C6C6C600000000000000000000000000000000000000
8029- 0000000000000000000000000000000000000000000000000000000000000000
8030- 000000000000C6C6C6000000000000000000000000000000000084848400FFFF
8031- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8032- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8033- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8034- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C600FFFFFF00FFFF
8035- FF00FFFFFF00FFFFFF00FFFFFF00848484000000000084848400FFFFFF008484
8036- 840084848400FFFFFF00C6C6C600000000000000000000000000000000000000
8037- 000084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8038- C60000000000C6C6C6000000000000000000000000000000000084848400FFFF
8039- FF00848484008484840084848400848484008484840084848400848484008484
8040- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8041- FF00FFFFFF008484840084848400848484008484840084848400848484008484
8042- 8400FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C600FFFFFF00FFFF
8043- FF00FFFFFF00FFFFFF00FFFFFF00848484000000000084848400FFFFFF00FFFF
8044- FF00FFFFFF00FFFFFF00C6C6C600000000000000000000000000000000000000
8045- 000000000000000000000000000000000000000000000000000000000000C6C6
8046- C60000000000C6C6C6000000000000000000000000000000000084848400FFFF
8047- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8048- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8049- FF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8050- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C600FFFFFF00FFFF
8051- FF00FFFFFF00FFFFFF00FFFFFF00848484000000000084848400FFFFFF008484
8052- 840084848400FFFFFF00C6C6C60000000000000000000000000084848400C6C6
8053- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000C6C6
8054- C60000000000C6C6C6000000000000000000000000000000000084848400FFFF
8055- FF00848484008484840084848400848484008484840084848400848484008484
8056- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8057- FF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8058- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C600FFFFFF00FFFF
8059- FF00FFFFFF00FFFFFF00FFFFFF00848484000000000084848400FFFFFF00FFFF
8060- FF00FFFFFF00FFFFFF00C6C6C60000000000000000000000000084848400FFFF
8061- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C60000000000C6C6
8062- C60000000000C6C6C6000000000000000000000000000000000084848400FFFF
8063- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8064- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF008484
8065- 840084848400848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFF
8066- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000C6C6C600C6C6C600C6C6
8067- C600C6C6C600C6C6C600C6C6C600848484000000000084848400848484008484
8068- 840084848400848484008484840000000000000000000000000084848400FFFF
8069- FF0084848400848484008484840084848400FFFFFF00C6C6C60000000000C6C6
8070- C60000000000C6C6C60000000000000000000000000000000000C6C6C600FFFF
8071- FF0084848400C6C6C60084848400848484008484840084848400848484008484
8072- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8073- FF00848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8074- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
8075- 0000000000000000000000000000000000000000000084848400848484008484
8076- 840084848400848484008484840084848400000000000000000084848400FFFF
8077- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C60000000000C6C6
8078- C600000000000000000000000000000000000000000000000000C6C6C600C6C6
8079- C600FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8080- FF00FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8081- FF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8082- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000084848400C6C6C600C6C6
8083- C600C6C6C600C6C6C600C6C6C6000000000000000000C6C6C600FFFFFF00FFFF
8084- FF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000000084848400FFFF
8085- FF0084848400848484008484840084848400FFFFFF00C6C6C60000000000C6C6
8086- C60000000000848484000000000000000000000000000000000084848400C6C6
8087- C600C6C6C600C6C6C60084848400C6C6C600C6C6C60084848400848484008484
8088- 8400FFFFFF00C6C6C600000000000000000000000000FFFFFF00FFFFFF00FFFF
8089- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8090- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000084848400FFFFFF00FFFF
8091- FF00FFFFFF00FFFFFF00C6C6C6000000000000000000C6C6C600FFFFFF00FFFF
8092- FF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000000084848400FFFF
8093- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600000000000000
8094- 000000000000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
8095- C600C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFF
8096- FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000
8097- 0000000000000000000000000000000000000000000000000000000000000000
8098- 0000000000000000000000000000000000000000000084848400FFFFFF008484
8099- 840084848400FFFFFF00C6C6C6000000000000000000C6C6C600FFFFFF00FFFF
8100- FF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000000084848400FFFF
8101- FF0084848400848484008484840084848400FFFFFF00C6C6C600000000008484
8102- 8400000000000000000000000000000000000000000000000000C6C6C600C6C6
8103- C60084848400C6C6C600C6C6C600848484008484840084848400848484008484
8104- 8400FFFFFF00C6C6C60000000000000000000000000000000000FFFFFF00FFFF
8105- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
8106- 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
8107- FF00FFFFFF00FFFFFF00C6C6C6000000000000000000C6C6C600FFFFFF00FFFF
8108- FF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000000084848400FFFF
8109- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
8110- 00000000000000000000000000000000000000000000C6C6C600C6C6C600C6C6
8111- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFFFF000000
8112- 000000000000000000000000000000000000000000000000000000000000FFFF
8113- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
8114- 0000000000000000000000000000000000000000000084848400FFFFFF008484
8115- 840084848400FFFFFF00C6C6C6000000000000000000C6C6C600FFFFFF00FFFF
8116- FF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000000084848400FFFF
8117- FF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF0084848400000000000000
8118- 000000000000000000000000000000000000C6C6C600C6C6C60084848400C6C6
8119- C600C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
8120- C600FFFFFF008484840000000000000000000000000000000000000000000000
8121- 0000000000000000000000000000000000000000000000000000000000000000
8122- 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
8123- FF00FFFFFF00FFFFFF00C6C6C6000000000000000000C6C6C600FFFFFF00FFFF
8124- FF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000000084848400FFFF
8125- FF00FFFFFF00FFFFFF00FFFFFF00C6C6C6008484840000000000000000000000
8126- 000000000000000000000000000000000000000000000000000084848400C6C6
8127- C600FFFFFF00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
8128- C600848484000000000000000000000000000000000000000000000000000000
8129- 0000000000000000000000000000000000000000000000000000000000000000
8130- 0000000000000000000000000000000000000000000084848400848484008484
8131- 84008484840084848400848484000000000000000000C6C6C600C6C6C600C6C6
8132- C600C6C6C600C6C6C600C6C6C600848484000000000000000000848484008484
8133- 8400848484008484840084848400848484000000000000000000000000000000
8134- 000000000000000000000000000000000000000000000000000084848400C6C6
8135- C6008484840084848400C6C6C600848484008484840084848400848484008484
8136- 8400000000000000000000000000000000000000000000000000000000000000
8137- 0000000000000000000000000000000000000000000000000000000000000000
8138- 0000000000000000000000000000000000000000000000000000000000000000
8139- 0000000000000000000000000000000000000000000000000000000000000000
8140- 0000000000000000000000000000000000000000000000000000000000000000
8141- 0000000000000000000000000000000000000000000000000000000000000000
8142- 0000000000000000000000000000000000000000000000000000000000000000
8143- 0000000000000000000000000000000000000000000000000000000000000000
8144- 0000000000000000000000000000000000000000000000000000000000000000
8145- 0000000000000000000000000000000000000000000000000000000000000000
8146- 0000000000000000000000000000000000000000000000000000000000000000
8147- 0000000000000000000000000000000000000000000000000000000000000000
8148- 0000000000000000000000000000000000000000000000000000000000000000
8149- 0000000000000000000000000000000000000000000000000000000000000000
8150- 0000000000000000000000000000000000000000000000000000000000000000
8151- 0000000000000000000000000000000000000000000000000000000000000000
8152- 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
8153- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8154- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8155- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8156- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8157- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8158- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8159- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8160- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8161- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8162- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8163- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8164- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8165- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8166- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8167- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8168- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8169- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8170- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8171- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8172- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00848484008484
8173- 840084848400848484008484840084848400FFFFFF0084848400848484008484
8174- 840084848400FFFFFF00FFFFFF000000000000000000FFFFFF00848484008484
8175- 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400848484008484
8176- 8400FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8177- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8178- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8179- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8180- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8181- FF008484840084848400FFFFFF00FFFFFF008484840084848400FFFFFF00FFFF
8182- FF008484840084848400FFFFFF000000000000000000FFFFFF0084848400FFFF
8183- FF0084848400FFFFFF008484840084848400FFFFFF0084848400FFFFFF008484
8184- 8400FFFFFF0084848400FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8185- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8186- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8187- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8188- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8189- FF008484840084848400FFFFFF00FFFFFF008484840084848400FFFFFF00FFFF
8190- FF008484840084848400FFFFFF000000000000000000FFFFFF00848484008484
8191- 8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFF
8192- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8193- FF00FFFFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8194- C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF00FFFFFF00FFFF
8195- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8196- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8197- FF008484840084848400FFFFFF00FFFFFF008484840084848400FFFFFF00FFFF
8198- FF008484840084848400FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8199- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8200- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8201- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8202- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8203- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8204- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00848484008484
8205- 84008484840084848400FFFFFF00FFFFFF008484840084848400FFFFFF00FFFF
8206- FF008484840084848400FFFFFF000000000000000000FFFFFF00848484008484
8207- 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400848484008484
8208- 8400FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8209- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8210- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8211- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8212- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8213- FF008484840084848400FFFFFF00FFFFFF00FFFFFF0084848400848484008484
8214- 840084848400FFFFFF00FFFFFF000000000000000000FFFFFF0084848400FFFF
8215- FF0084848400FFFFFF008484840084848400FFFFFF0084848400FFFFFF008484
8216- 8400FFFFFF0084848400FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8217- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8218- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8219- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8220- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8221- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8222- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00848484008484
8223- 8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFF
8224- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8225- FF00FFFFFF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8226- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8227- FF00C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF
8228- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8229- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8230- FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
8231- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8232- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
8233- 0000000000000000000000000000000000000000000000000000000000000000
8234- 0000000000000000000000000000000000000000000000000000000000000000
8235- 0000000000000000000000000000000000000000000000000000000000000000
8236- 0000000000000000000000000000000000000000000000000000000000000000
8237- 0000000000000000000000000000000000000000000000000000000000000000
8238- 0000000000000000000000000000000000000000000000000000000000000000
8239- 0000000000000000000000000000000000000000000000000000000000000000
8240- 00000000000000000000000000000000000000000000C6C6C600C6C6C600C6C6
8241- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8242- C600C6C6C600C6C6C600C6C6C6000000000000000000C6C6C600C6C6C600C6C6
8243- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8244- C600C6C6C600C6C6C600C6C6C6000000000000000000C6C6C600C6C6C600C6C6
8245- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8246- C600C6C6C600C6C6C600C6C6C6000000000000000000C6C6C600C6C6C600C6C6
8247- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8248- C600C6C6C600C6C6C600C6C6C600000000000000000000000000000000000000
8249- 0000000000000000000000000000000000000000000000000000000000000000
8250- 0000000000000000000000000000000000000000000000000000000000000000
8251- 0000000000000000000000000000000000000000000000000000000000000000
8252- 0000000000000000000000000000000000000000000000000000000000000000
8253- 0000000000000000000000000000000000000000000000000000000000000000
8254- 0000000000000000000000000000000000000000000000000000000000000000
8255- 0000000000000000000000000000000000000000000000000000000000000000
8256- 0000000000000000000000000000000000000000000000000000000000000000
8257- 0000000000000000000000000000000000000000000000000000000000000000
8258- 0000000000000000000000000000000000000000000000000000000000000000
8259- 0000000000000000000000000000000000000000000000000000000000000000
8260- 0000000000000000000000000000000000000000000000000000000000000000
8261- 0000000000000000000000000000000000000000000000000000000000000000
8262- 0000000000000000000000000000000000000000000000000000000000000000
8263- 0000000000000000000000000000000000000000000000000000000000000000
8264- 0000000000000000000000000000000000000000000000000000000000000000
8265- 0000000000000000000000000000000000000000000000000000000000000000
8266- 0000000000000000000000000000000000000000000000000000000000000000
8267- 0000000000000000000000000000000000000000000000000000000000000000
8268- 0000000000000000000000000000000000000000000000000000000000000000
8269- 0000000000000000000000000000000000000000000000000000000000000000
8270- 0000000000000000000000000000000000000000000000000000000000000000
8271- 0000000000000000000000000000000000000000000000000000000000000000
8272- 0000000000000000000000000000000000008484840084848400848484008484
8273- 8400848484008484840084848400848484008484840084848400848484008484
8274- 8400848484008484840000000000000000000000000000000000000000000000
8275- 0000000000000000000000000000000000000000000000000000000000000000
8276- 0000000000000000000000000000000000000000000000000000000000000000
8277- 0000000000008484840084848400848484008484840084848400848484000000
8278- 0000000000000000000000000000000000000000000000000000000000000000
8279- 0000000000000000000000000000000000000000000000000000000000000000
8280- 00000000000000000000000000000000000084848400C6C6C600FFFFFF00FFFF
8281- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8282- FF00C6C6C60084848400848484000000000000000000FFFFFF00FFFFFF00FFFF
8283- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8284- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000008484
8285- 8400848484008484840084848400848484008484840084848400848484008484
8286- 8400848484000000000000000000000000000000000000000000000000000000
8287- 0000000000000000000000000000000000000000000000000000000000000000
8288- 00000000000000000000000000000000000084848400C6C6C600848484008484
8289- 8400848484008484840084848400848484008484840084848400848484008484
8290- 8400C6C6C60084848400848484000000000000000000FFFFFF00FFFFFF00FFFF
8291- FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFF
8292- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000848484008484
8293- 8400848484008484840084848400848484008484840084848400848484008484
8294- 8400848484008484840000000000000000000000000000000000000000000000
8295- 0000000000000000000000000000000000000000000000000000000000000000
8296- 00000000000000000000000000000000000084848400C6C6C600C6C6C600C6C6
8297- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600848484008484
8298- 8400C6C6C60084848400848484000000000000000000FFFFFF00FFFFFF00FFFF
8299- FF00FFFFFF000000000000000000FFFFFF00FFFFFF000000000000000000FFFF
8300- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000848484008484
8301- 8400848484008484840084848400848484008484840084848400848484008484
8302- 840084848400848484000000000000000000C6C6C60000000000000000000000
8303- 0000000000000000000000000000000000000000000000000000000000000000
8304- 00000000000000000000000000000000000084848400C6C6C600C6C6C600C6C6
8305- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600848484008484
8306- 8400C6C6C60084848400848484000000000000000000FFFFFF00FFFFFF00FFFF
8307- FF0000000000C6C6C60000000000FFFFFF00FFFFFF0000000000C6C6C6000000
8308- 0000FFFFFF00FFFFFF00FFFFFF00000000000000000084848400848484008484
8309- 8400848484008484840084848400848484008484840084848400848484008484
8310- 84008484840084848400848484000000000000000000C6C6C600000000000000
8311- 000000000000000000000000000000000000C6C6C60000000000000000000000
8312- 00000000000000000000000000000000000084848400FFFFFF00FFFFFF00FFFF
8313- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8314- FF00FFFFFF0084848400848484000000000000000000FFFFFF00FFFFFF000000
8315- 0000C6C6C600C6C6C60000000000FFFFFF00FFFFFF0000000000C6C6C600C6C6
8316- C60000000000FFFFFF00FFFFFF00000000000000000084848400848484008484
8317- 840084848400FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF008484
8318- 8400848484008484840084848400000000000000000000000000C6C6C600C6C6
8319- C60000000000000000000000000000000000C6C6C600C6C6C600000000000000
8320- 0000000000000000000000000000000000000000000084848400C6C6C600C6C6
8321- C600C6C6C600C6C6C600C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
8322- C600C6C6C600C6C6C600848484000000000000000000FFFFFF00FFFFFF00FFFF
8323- FF0000000000C6C6C60000000000FFFFFF00FFFFFF0000000000C6C6C6000000
8324- 0000FFFFFF00FFFFFF00FFFFFF00000000000000000084848400848484008484
8325- 84008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484
8326- 840084848400848484008484840000000000000000000000000000000000C6C6
8327- C600C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C6000000
8328- 0000000000000000000000000000000000000000000000000000848484008484
8329- 8400848484008484840000000000FFFFFF000000000084848400848484008484
8330- 84008484840084848400848484000000000000000000FFFFFF00FFFFFF00FFFF
8331- FF00FFFFFF000000000000000000FFFFFF00FFFFFF000000000000000000FFFF
8332- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000084848400848484008484
8333- 8400848484008484840084848400FFFFFF00FFFFFF0084848400848484008484
8334- 8400848484008484840084848400000000000000000000000000000000000000
8335- 0000C6C6C600C6C6C60000000000C6C6C600C6C6C60000000000C6C6C600C6C6
8336- C600000000000000000000000000000000000000000000000000000000000000
8337- 00000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000848484000000
8338- 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
8339- FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFF
8340- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000084848400848484008484
8341- 84008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484
8342- 8400848484008484840084848400000000000000000000000000000000000000
8343- 000000000000C6C6C600C6C6C600C6C6C600000000000000000000000000C6C6
8344- C600C6C6C6000000000000000000000000000000000000000000000000000000
8345- 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008484
8346- 84000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
8347- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8348- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000084848400848484008484
8349- 840084848400FFFFFF00FFFFFF008484840084848400FFFFFF00FFFFFF008484
8350- 8400848484008484840084848400000000000000000000000000000000000000
8351- 00000000000000000000C6C6C600C6C6C6000000000000000000000000000000
8352- 0000C6C6C600C6C6C60000000000000000000000000000000000000000000000
8353- 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
8354- 0000848484000000000000000000000000000000000000000000000000000000
8355- 0000000000000000000000000000000000000000000000000000000000000000
8356- 0000000000000000000000000000000000000000000000000000848484008484
8357- 8400848484008484840084848400848484008484840084848400848484008484
8358- 8400848484008484840000000000000000000000000000000000000000000000
8359- 0000000000000000000000000000C6C6C6000000000000000000000000000000
8360- 00000000000000000000C6C6C600000000000000000000000000000000000000
8361- 00000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000
8362- 0000000000008484840000000000000000000000000000000000FFFFFF00FFFF
8363- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
8364- 0000000000000000000000000000000000000000000000000000848484008484
8365- 8400848484008484840084848400848484008484840084848400848484008484
8366- 8400848484008484840000000000000000000000000000000000000000000000
8367- 0000000000000000000000000000000000000000000000000000000000000000
8368- 0000000000000000000000000000C6C6C6000000000000000000000000000000
8369- 00000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000848484000000
8370- 000000000000000000000000000000000000000000000000000000000000FFFF
8371- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
8372- 0000000000000000000000000000000000000000000000000000000000008484
8373- 8400848484008484840084848400848484008484840084848400848484008484
8374- 8400848484000000000000000000000000000000000000000000000000000000
8375- 0000000000000000000000000000000000000000000000000000000000000000
8376- 0000000000000000000000000000000000000000000000000000000000000000
8377- 00000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000848484000000
8378- 0000000000000000000000000000000000000000000000000000000000000000
8379- 0000000000000000000000000000000000000000000000000000000000000000
8380- 0000000000000000000000000000000000000000000000000000000000000000
8381- 0000000000008484840084848400848484008484840084848400848484000000
8382- 0000000000000000000000000000000000000000000000000000000000000000
8383- 0000000000000000000000000000000000000000000000000000000000000000
8384- 0000000000000000000000000000000000000000000000000000000000000000
8385- 0000000000000000000000000000000000000000000000000000000000000000
8386- 0000000000000000000000000000000000000000000000000000000000000000
8387- 0000000000000000000000000000000000000000000000000000000000000000
8388- 0000000000000000000000000000000000000000000000000000000000000000
8389- 0000000000000000000000000000000000000000000000000000000000000000
8390- 0000000000000000000000000000000000000000000000000000000000000000
8391- 0000000000000000000000000000000000000000000000000000000000000000
8392- 000000000000000000000000000000000000424D3E000000000000003E000000
8393- 2800000040000000F00000000100010000000000800700000000000000000000
8394- 000000000000000000000000FFFFFF0000000000000000000000000000000000
8395- 0000000000000000000000000000000000000000000000000000000000000000
8396- 0000000000000000000000000000000000000000000000000000000000000000
8397- 0000000000000000000000000000000000000000000000000000000000000000
8398- 00000000000000000000000000000000FE7FFFFF00000000FC3FF81F00000000
8399- F81DF00F00000000F01BE00700000000E017C00300000000801F800100000000
8400- 001F8001000000000010800100000000001F800100000000001F800100000000
8401- 8017800100000000E01BC00300000000F01DE00700000000F83FF00F00000000
8402- FC3FF81F00000000FE7FFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFC003
8403- FFFFFFFFFFFFC003FC01803FFC01C003FC01803C3C01C003FC01803C3C01C003
8404- FC01803C3C01C003FC01803C3C01C003FC01803C3C01C003C00180000001C003
8405- C00180000001C003C00180000001C003C00180000001C003FFFFFFFC3FFFC003
8406- FFFFFFFC3FFFC003FFFFFFFFFFFFFFFFFF7EFFFFFFFFFFFFBFFF00000000FFFF
8407- F00300000000FFFFE00300000000803FE00300000000803FE00300000000803F
8408- E00300000000803F200300000000803FE00200000000803FE003000000008003
8409- E003000000008003E003000000008003E003000000008003FFFF00000000FFFF
8410- BF7D00000000FFFF7F7EFFFFFFFFFFFFFFFFFFFFFFFFC001000000000000C001
8411- 000000000000C001000000000000C001000000000000C001000000000000C001
8412- 000000000000C001000000000000C001000000000000C001000700070000C001
8413- 000700070000C001000700070000C001000700070000C001800F000F0000C003
8414- FFFFFFE70000C007FFFFFFFF0000C00FFE3F0FE1FFFFFFFFF00F07C100000000
8415- E00F010100000000E003800300000000C003800300000000C001C00700000000
8416- 8001C007000000008001C007000000008001800300000000C003000100000007
8417- C003000100000007E007000100000007F00FF01F00000007F81FF83F0000800F
8418- FC1FF83F0000FFFFF81FFC7FFFFFFFFFC001F8FFC003FFFFC001F1FFC003FFFF
8419- C001E3FFC003FFFFC001E3FFC003E003C001E3DFC003FC1FC001E3CFC003FFEF
8420- C001E1C78003FFE7C001F0038003FFF7C001F0018003FFF7C001F8008003F7F7
8421- C001FC01C003F7F7C001FF03C003F3E7C001FFC7C003FB9FC003FFCFC007FC3F
8422- C007FFDFC00FFFFFC00FFFFFFFFFFFFFC001FFFFFFFF8001C001FFFFC0000001
8423- C0019FFB80000001C0018FFF80000001C00187F780000001C001C7EF80000001
8424- C001E3CF80000001C001F19F80008001C001F83F8000C001C001FC7F8000C001
8425- C001F83F8000C001C001F19F8001C001C001C3CFC07FC001C00387E7E0FFC003
8426- C0078FFBFFFFC007C00FFFFFFFFFC00FFFFFFFFFFFFFE001F000F000C001E001
8427- F000F000C000C001F000C000C000A001F000E000C0010001F000F000C0030001
8428- F000F000C0030001D0000000C0038001C0000000C0038001E0000000C003C001
8429- 0000F000C003E001C000F000C003E0018000E000C003E0032000C000C003E007
8430- E000F000C003E00FEDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC3FC003
8431- FFFFFE7FFC3FC003EF7FDE7BFC3FFE7FE73FCE73FC3FFC3FE31FC663FC3FF81F
8432- E10FC243FC3FF00FE007C003FC3FE007E007C003E007FC3FE10FC243F00FFC3F
8433- E31FC663F81FFC3FE73FCE73FC3FFC3FEF7FDE7BFE7FFC3FFFFFFE7FC003FC3F
8434- FFFFFFFFC003FC3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
8435- FFFFFFFFE007FFFFE007FE7FF00FFEF7F00FFC3FF81FFCE7F81FF81FFC3FF8C7
8436- FC3FF00FFE7FF087FE7FE007C003E007E007FE7FC003E007F00FFC3FFE7FF087
8437- F81FF81FFC3FF8C7FC3FF00FF81FFCE7FE7FE007F00FFEF7FFFFFFFFE007FFFF
8438- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC001FFFFC001FFFFC0010000C001CC1F
8439- C0010000C001800FC0010000C0010007C0010000C0010000C0010000C0010001
8440- C0010000C0010001C0010000C0018001C0010000C001C000C0010000C0018000
8441- C0010000C0010000C0010000C001F000C001803FC001F801C003C07FC003FC13
8442- C007E0FFC007FFFFC00FFFFFC00FFFFFFFFF8080FC01C00100008080FC01C001
8443- 00008080F001C00100008080F001C00100008080C001C00100008080C001C001
8444- 00008080C001C00100008080C001C00100008080C001C00100008080C003C001
8445- 00008080C007000100008080C00FC001803F8080C01F8001C07F8080C03F0003
8446- E0FF8080C07FC007FFFF8080C0FFC00FFFFFFFFFFFFFFFFF0000000000000000
8447- 0000000000000000000000000000000000000000000000000000000000000000
8448- 0000000000000000000000000000000000000000000000000000000000000000
8449- 0000000000000000000000000000000000000000000000000000000000000000
8450- 0000000000000000FFFFFFFFFFFFFFFF8003FFFFF81FFFFF00010000E007FFFF
8451- 00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
8452- 000000000000861F800000000000C20FC00100000000E007F81F00000000F043
8453- F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
8454- F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
8455- 000000000000}
8456- end
8457- object ItemImageList: TImageList
8458- Left = 4
8459- Top = 276
8460- Bitmap = {
8461- 494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
8462- 0000000000003600000028000000400000001000000001002000000000000010
8463- 0000000000000000000000000000000000008400840084008400000000000000
8464- 0000000000000000000000000000000000000000000000000000000000000000
8465- 0000000000000000000000000000840084008400840084008400848484008484
8466- 8400848484008484840084848400848484008484840084848400848484008484
8467- 8400848484008484840084848400840084008400840084008400000000000000
8468- 0000000000000000000000000000000000000000000000000000000000000000
8469- 0000000000000000000000000000840084000000000000000000000000000000
8470- 0000000000000000000000000000000000000000000000000000000000000000
8471- 000000000000000000000000000000000000840084008400840084848400C6C6
8472- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8473- C600C6C6C600C6C6C60000000000840084008400840084008400C6C6C600FFFF
8474- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8475- FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400C6C6
8476- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8477- C600C6C6C600C6C6C60000000000840084000000000000000000000000000000
8478- 0000000000000000000000000000000000000000000000000000000000000000
8479- 000000000000000000000000000000000000840084008400840084848400FFFF
8480- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8481- FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8482- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8483- FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
8484- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8485- FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8486- 0000000000000000000000000000000000000000000000000000000000000000
8487- 000000000000000000000000000000000000840084008400840084848400FFFF
8488- FF00848484008484840084848400848484008484840084848400848484008484
8489- 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8490- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8491- FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
8492- FF00848484008484840084848400848484008484840084848400848484008484
8493- 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8494- 0000000000000000000000000000000000000000000000000000000000000000
8495- 000000000000000000000000000000000000840084008400840084848400FFFF
8496- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8497- FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8498- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8499- FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
8500- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8501- FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8502- 0000000000000000000000000000000000000000000000000000000000000000
8503- 000000000000000000000000000000000000840084008400840084848400FFFF
8504- FF00848484008484840084848400848484008484840084848400848484008484
8505- 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8506- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8507- FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
8508- FF00848484008484840084848400848484008484840084848400848484008484
8509- 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8510- 0000000000000000000000000000000000000000000000000000000000000000
8511- 000000000000000000000000000000000000840084008400840084848400FFFF
8512- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8513- FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8514- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8515- FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
8516- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8517- FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8518- 0000000000000000000000000000000000000000000000000000000000000000
8519- 000000000000000000000000000000000000840084008400840084848400FFFF
8520- FF00848484008484840084848400848484008484840084848400848484008484
8521- 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8522- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8523- FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF00FFFF
8524- FF00848484000000FF0084848400848484008484840084848400848484008484
8525- 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8526- 0000000000000000000000000000000000000000000000000000000000000000
8527- 000000000000000000000000000000000000840084008400840084848400FFFF
8528- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8529- FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8530- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8531- FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF000000
8532- FF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8533- FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8534- 0000000000000000000000000000000000000000000000000000000000000000
8535- 000000000000000000000000000000000000840084008400840084848400FFFF
8536- FF00848484008484840084848400848484008484840084848400848484008484
8537- 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8538- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8539- FF00FFFFFF00FFFFFF0084848400840084008400840084008400848484000000
8540- FF000000FF000000FF00848484000000FF000000FF0084848400848484008484
8541- 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8542- 0000000000000000000000000000000000000000000000000000000000000000
8543- 000000000000000000000000000000000000840084008400840084848400FFFF
8544- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8545- FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8546- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8547- FF00FFFFFF00FFFFFF0084848400840084000000FF000000FF000000FF000000
8548- FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
8549- FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8550- 0000000000000000000000000000000000000000000000000000000000000000
8551- 000000000000000000000000000000000000840084008400840084848400FFFF
8552- FF00848484008484840084848400848484008484840084848400848484008484
8553- 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
8554- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8555- FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF000000
8556- FF00848484000000FF000000FF00848484008484840084848400848484008484
8557- 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
8558- 0000000000000000000000000000000000000000000000000000000000000000
8559- 000000000000000000000000000000000000840084008400840084848400FFFF
8560- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
8561- 0000000000000000000000000000840084008400840084008400C6C6C600FFFF
8562- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
8563- 840084848400848484008484840084008400840084000000FF000000FF000000
8564- FF000000FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF000000
8565- 0000000000000000000000000000840084000000000000000000000000000000
8566- 0000000000000000000000000000000000000000000000000000000000000000
8567- 000000000000000000000000000000000000840084008400840084848400FFFF
8568- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
8569- C600FFFFFF008484840084008400840084008400840084008400C6C6C600FFFF
8570- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8571- FF00FFFFFF00C6C6C60084008400840084000000FF000000FF00848484000000
8572- FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
8573- C600FFFFFF008484840084008400840084000000000000000000000000000000
8574- 0000000000000000000000000000000000000000000000000000000000000000
8575- 000000000000000000000000000000000000840084008400840084848400FFFF
8576- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
8577- C600848484008400840084008400840084008400840084008400C6C6C600FFFF
8578- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
8579- FF00C6C6C6008400840084008400840084008400840084008400848484000000
8580- FF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
8581- C600848484008400840084008400840084000000000000000000000000000000
8582- 0000000000000000000000000000000000000000000000000000000000000000
8583- 0000000000000000000000000000000000008400840084008400848484008484
8584- 8400848484008484840084848400848484008484840084848400848484008484
8585- 8400840084008400840084008400840084008400840084008400C6C6C600C6C6
8586- C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
8587- C600840084008400840084008400840084008400840084008400848484000000
8588- FF0084848400848484000000FF00848484008484840084848400848484008484
8589- 8400840084008400840084008400840084000000000000000000000000000000
8590- 0000000000000000000000000000000000000000000000000000000000000000
8591- 000000000000000000000000000000000000424D3E000000000000003E000000
8592- 2800000040000000100000000100010000000000800000000000000000000000
8593- 000000000000000000000000FFFFFF0000000000000000000000000000000000
8594- 0000000000000000000000000000000000000000000000000000000000000000
8595- 0000000000000000000000000000000000000000000000000000000000000000
8596- 0000000000000000000000000000000000000000000000000000000000000000
8597- 0000000000000000000000000000000000000000000000000000000000000000
8598- 000000000000}
8599- end
8600- object MessageImageList: TImageList
8601- Height = 12
8602- Width = 32
8603- Left = 36
8604- Top = 276
8605- Bitmap = {
8606- 494C010104000900040020000C00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
8607- 0000000000003600000028000000800000002400000001002000000000000048
6601+ 000000000000}
6602+ end
6603+ object MessageImageList: TImageList
6604+ Height = 12
6605+ Width = 32
6606+ Left = 36
6607+ Top = 276
6608+ Bitmap = {
6609+ 494C010104000900040020000C00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
6610+ 0000000000003600000028000000800000002400000001002000000000000048
86086611 0000000000000000000000000000000000000000000000000000000000000000
86096612 0000000000000000000000000000000000000000000000000000000000000000
86106613 0000000000000000000000000000000000000000000000000000000000000000
@@ -9458,60 +7461,56 @@ object GikoForm: TGikoForm
94587461 object FileMenu: TMenuItem
94597462 Caption = #12501#12449#12452#12523'(&F)'
94607463 object L4: TMenuItem
9461- Action = LoginAction
7464+ Action = GikoDM.LoginAction
94627465 AutoCheck = True
94637466 end
94647467 object B4: TMenuItem
9465- Action = NewBoardAction
7468+ Action = GikoDM.NewBoardAction
94667469 end
94677470 object N7: TMenuItem
94687471 Caption = '-'
94697472 end
94707473 object DeleteMenu: TMenuItem
9471- Action = LogDeleteAction
7474+ Action = GikoDM.LogDeleteAction
94727475 end
94737476 object N28: TMenuItem
94747477 Caption = '-'
94757478 end
94767479 object S4: TMenuItem
9477- Action = SelectTextClearAction
7480+ Action = GikoDM.SelectTextClearAction
94787481 end
94797482 object N29: TMenuItem
9480- Action = NameTextClearAction
9481- Caption = #12524#12473#12456#12487#12451#12479#21517#21069#23653#27508#20840#28040#21435'(&N)'
7483+ Action = GikoDM.NameTextClearAction
94827484 end
94837485 object N30: TMenuItem
9484- Action = MailTextClearAction
9485- Caption = #12524#12473#12456#12487#12451#12479#12513#12540#12523#23653#27508#20840#28040#21435'(&N)'
7486+ Action = GikoDM.MailTextClearAction
94867487 end
94877488 object N15: TMenuItem
94887489 Caption = '-'
94897490 end
94907491 object TabSave: TMenuItem
9491- Action = TabsSaveAction
7492+ Action = GikoDM.TabsSaveAction
94927493 end
94937494 object TabOpen: TMenuItem
9494- Action = TabsOpenAction
7495+ Action = GikoDM.TabsOpenAction
94957496 end
94967497 object N66: TMenuItem
94977498 Caption = #36984#25246#12473#12524#12483#12489#12434#20445#23384
94987499 object SelectThreadSave: TMenuItem
9499- Action = SelectItemSaveForHTML
9500- Caption = 'HTML'#21270#12377#12427
7500+ Action = GikoDM.SelectItemSaveForHTML
95017501 end
95027502 object dat1: TMenuItem
9503- Action = SelectItemSaveForDat
9504- Caption = 'DAT'#12398#12414#12414
7503+ Action = GikoDM.SelectItemSaveForDat
95057504 end
95067505 end
95077506 object ExportFavoriteFileAction1: TMenuItem
9508- Action = ExportFavoriteFile
7507+ Action = GikoDM.ExportFavoriteFile
95097508 end
95107509 object N61: TMenuItem
95117510 Caption = '-'
95127511 end
95137512 object ExitMenu: TMenuItem
9514- Action = ExitAction
7513+ Action = GikoDM.ExitAction
95157514 end
95167515 end
95177516 object ViewMenu: TMenuItem
@@ -9519,78 +7518,78 @@ object GikoForm: TGikoForm
95197518 object T2: TMenuItem
95207519 Caption = #12484#12540#12523#12496#12540'(&T)'
95217520 object StdToolBarMenu: TMenuItem
9522- Action = StdToolBarVisibleAction
7521+ Action = GikoDM.StdToolBarVisibleAction
95237522 AutoCheck = True
95247523 end
95257524 object AddressToolBarMenu: TMenuItem
9526- Action = AddressBarVisibleAction
7525+ Action = GikoDM.AddressBarVisibleAction
95277526 AutoCheck = True
95287527 end
95297528 object L7: TMenuItem
9530- Action = LinkBarVisibleAction
7529+ Action = GikoDM.LinkBarVisibleAction
95317530 AutoCheck = True
95327531 end
95337532 object N25: TMenuItem
95347533 Caption = '-'
95357534 end
95367535 object L3: TMenuItem
9537- Action = ListToolBarVisibleAction
7536+ Action = GikoDM.ListToolBarVisibleAction
95387537 AutoCheck = True
95397538 end
95407539 object S3: TMenuItem
9541- Action = ListNameBarVisibleAction
7540+ Action = GikoDM.ListNameBarVisibleAction
95427541 AutoCheck = True
95437542 end
95447543 object N26: TMenuItem
95457544 Caption = '-'
95467545 end
95477546 object B3: TMenuItem
9548- Action = BrowserToolBarVisibleAction
7547+ Action = GikoDM.BrowserToolBarVisibleAction
95497548 AutoCheck = True
95507549 end
95517550 object R2: TMenuItem
9552- Action = BrowserNameBarVisibleAction
7551+ Action = GikoDM.BrowserNameBarVisibleAction
95537552 AutoCheck = True
95547553 end
95557554 object T4: TMenuItem
95567555 Caption = #12502#12521#12454#12470#12479#12502'(&T)'
95577556 object Show1: TMenuItem
9558- Action = BrowserTabVisibleAction
7557+ Action = GikoDM.BrowserTabVisibleAction
95597558 AutoCheck = True
95607559 end
95617560 object N34: TMenuItem
95627561 Caption = '-'
95637562 end
95647563 object T5: TMenuItem
9565- Action = BrowserTabTopAction
7564+ Action = GikoDM.BrowserTabTopAction
95667565 AutoCheck = True
95677566 GroupIndex = 1
95687567 RadioItem = True
95697568 end
95707569 object B5: TMenuItem
9571- Action = BrowserTabBottomAction
7570+ Action = GikoDM.BrowserTabBottomAction
95727571 AutoCheck = True
95737572 GroupIndex = 1
95747573 RadioItem = True
95757574 end
95767575 object N35: TMenuItem
95777576 Caption = '-'
9578- GroupIndex = 1
7577+ GroupIndex = 2
95797578 end
95807579 object A8: TMenuItem
9581- Action = BrowserTabTabStyleAction
7580+ Action = GikoDM.BrowserTabTabStyleAction
95827581 AutoCheck = True
95837582 GroupIndex = 2
95847583 RadioItem = True
95857584 end
95867585 object U2: TMenuItem
9587- Action = BrowserTabButtonStyleAction
7586+ Action = GikoDM.BrowserTabButtonStyleAction
95887587 AutoCheck = True
95897588 GroupIndex = 2
95907589 RadioItem = True
95917590 end
95927591 object F1: TMenuItem
9593- Action = BrowserTabFlatStyleAction
7592+ Action = GikoDM.BrowserTabFlatStyleAction
95947593 AutoCheck = True
95957594 GroupIndex = 2
95967595 RadioItem = True
@@ -9600,53 +7599,53 @@ object GikoForm: TGikoForm
96007599 object CabinetMenu: TMenuItem
96017600 Caption = #12461#12515#12499#12493#12483#12488'(&C)'
96027601 object H1: TMenuItem
9603- Action = CabinetHistoryAction
7602+ Action = GikoDM.CabinetHistoryAction
96047603 AutoCheck = True
96057604 RadioItem = True
96067605 end
96077606 object N54: TMenuItem
9608- Action = CabinetFavoriteAction
7607+ Action = GikoDM.CabinetFavoriteAction
96097608 AutoCheck = True
96107609 end
96117610 object N4: TMenuItem
96127611 Caption = '-'
96137612 end
96147613 object CabinetVisibleMenu: TMenuItem
9615- Action = CabinetVisibleAction
7614+ Action = GikoDM.CabinetVisibleAction
96167615 AutoCheck = True
96177616 end
96187617 end
96197618 object MessageMenu: TMenuItem
9620- Action = MsgBarVisibleAction
7619+ Action = GikoDM.MsgBarVisibleAction
96217620 AutoCheck = True
96227621 end
96237622 object StatusBarMenu: TMenuItem
9624- Action = StatusBarVisibleAction
7623+ Action = GikoDM.StatusBarVisibleAction
96257624 AutoCheck = True
96267625 end
96277626 object MMSep03: TMenuItem
96287627 Caption = '-'
96297628 end
96307629 object LargeIconMenu: TMenuItem
9631- Action = LargeIconAction
7630+ Action = GikoDM.LargeIconAction
96327631 GroupIndex = 2
96337632 RadioItem = True
96347633 end
96357634 object SmallIconMenu: TMenuItem
96367635 Tag = 1
9637- Action = SmallIconAction
7636+ Action = GikoDM.SmallIconAction
96387637 GroupIndex = 2
96397638 RadioItem = True
96407639 end
96417640 object ListMenu: TMenuItem
96427641 Tag = 2
9643- Action = ListIconAction
7642+ Action = GikoDM.ListIconAction
96447643 GroupIndex = 2
96457644 RadioItem = True
96467645 end
96477646 object DetailMenu: TMenuItem
96487647 Tag = 3
9649- Action = DetailIconAction
7648+ Action = GikoDM.DetailIconAction
96507649 GroupIndex = 2
96517650 RadioItem = True
96527651 end
@@ -9655,12 +7654,12 @@ object GikoForm: TGikoForm
96557654 GroupIndex = 2
96567655 end
96577656 object H3: TMenuItem
9658- Action = ArrangeAction
7657+ Action = GikoDM.ArrangeAction
96597658 AutoCheck = True
96607659 GroupIndex = 2
96617660 end
96627661 object I1: TMenuItem
9663- Action = PaneInitAction
7662+ Action = GikoDM.PaneInitAction
96647663 GroupIndex = 2
96657664 end
96667665 object N27: TMenuItem
@@ -9668,56 +7667,52 @@ object GikoForm: TGikoForm
96687667 GroupIndex = 2
96697668 end
96707669 object N10: TMenuItem
9671- Action = StopAction
7670+ Action = GikoDM.StopAction
96727671 GroupIndex = 2
96737672 end
96747673 end
96757674 object B1: TMenuItem
96767675 Caption = #26495'(&B)'
96777676 object N3: TMenuItem
9678- Action = ListNumberVisibleAction
7677+ Action = GikoDM.ListNumberVisibleAction
96797678 AutoCheck = True
96807679 end
96817680 object U1: TMenuItem
9682- Action = UpFolderAction
7681+ Action = GikoDM.UpFolderAction
96837682 end
96847683 object N2: TMenuItem
96857684 Caption = '-'
96867685 end
96877686 object A1: TMenuItem
9688- Action = AllItemAction
7687+ Action = GikoDM.AllItemAction
96897688 AutoCheck = True
96907689 GroupIndex = 1
96917690 RadioItem = True
9692- ShortCut = 16433
96937691 end
96947692 object L1: TMenuItem
9695- Action = LogItemAction
7693+ Action = GikoDM.LogItemAction
96967694 AutoCheck = True
96977695 GroupIndex = 1
96987696 RadioItem = True
9699- ShortCut = 16434
97007697 end
97017698 object N5: TMenuItem
9702- Action = NewItemAction
7699+ Action = GikoDM.NewItemAction
97037700 AutoCheck = True
97047701 GroupIndex = 1
97057702 RadioItem = True
9706- ShortCut = 16435
97077703 end
97087704 object S2: TMenuItem
9709- Action = SelectItemAction
7705+ Action = GikoDM.SelectItemAction
97107706 AutoCheck = True
97117707 GroupIndex = 1
97127708 RadioItem = True
9713- ShortCut = 16436
97147709 end
97157710 object N39: TMenuItem
97167711 Caption = '-'
97177712 GroupIndex = 1
97187713 end
97197714 object T6: TMenuItem
9720- Action = ThreadEditorAction
7715+ Action = GikoDM.ThreadEditorAction
97217716 GroupIndex = 1
97227717 end
97237718 object N19: TMenuItem
@@ -9725,11 +7720,11 @@ object GikoForm: TGikoForm
97257720 GroupIndex = 1
97267721 end
97277722 object KidokuMenu: TMenuItem
9728- Action = KidokuAction
7723+ Action = GikoDM.KidokuAction
97297724 GroupIndex = 1
97307725 end
97317726 object MidokuMenu: TMenuItem
9732- Action = MidokuAction
7727+ Action = GikoDM.MidokuAction
97337728 GroupIndex = 1
97347729 end
97357730 object N23: TMenuItem
@@ -9737,31 +7732,31 @@ object GikoForm: TGikoForm
97377732 GroupIndex = 1
97387733 end
97397734 object OpenLogFolder: TMenuItem
9740- Action = LogFolderOpenAction
7735+ Action = GikoDM.LogFolderOpenAction
97417736 GroupIndex = 1
97427737 end
97437738 object B6: TMenuItem
9744- Action = BoardIEAction
7739+ Action = GikoDM.BoardIEAction
97457740 GroupIndex = 1
97467741 end
97477742 object BrowsBoradHeadAction1: TMenuItem
9748- Action = BrowsBoradHeadAction
7743+ Action = GikoDM.BrowsBoradHeadAction
97497744 GroupIndex = 1
97507745 end
97517746 object URLC3: TMenuItem
9752- Action = SelectItemURLCopyAction
7747+ Action = GikoDM.SelectItemURLCopyAction
97537748 GroupIndex = 1
97547749 end
97557750 object SelectItemNameCopyAction1: TMenuItem
9756- Action = SelectItemNameCopyAction
7751+ Action = GikoDM.SelectItemNameCopyAction
97577752 GroupIndex = 1
97587753 end
97597754 object URLN2: TMenuItem
9760- Action = SelectItemNameURLCopyAction
7755+ Action = GikoDM.SelectItemNameURLCopyAction
97617756 GroupIndex = 1
97627757 end
97637758 object AllSelectMenu: TMenuItem
9764- Action = AllSelectAction
7759+ Action = GikoDM.AllSelectAction
97657760 GroupIndex = 1
97667761 end
97677762 object N21: TMenuItem
@@ -9769,39 +7764,39 @@ object GikoForm: TGikoForm
97697764 GroupIndex = 1
97707765 end
97717766 object D1: TMenuItem
9772- Action = SelectListReloadAction
7767+ Action = GikoDM.SelectListReloadAction
97737768 GroupIndex = 1
97747769 end
97757770 object D2: TMenuItem
9776- Action = SelectThreadReloadAction
7771+ Action = GikoDM.SelectThreadReloadAction
97777772 GroupIndex = 1
97787773 end
97797774 end
97807775 object S1: TMenuItem
97817776 Caption = #12473#12524'(&R)'
97827777 object G2: TMenuItem
9783- Action = BrowserMaxAction
7778+ Action = GikoDM.BrowserMaxAction
97847779 end
97857780 object About1: TMenuItem
9786- Action = BrowserMinAction
7781+ Action = GikoDM.BrowserMinAction
97877782 end
97887783 object N11: TMenuItem
97897784 Caption = '-'
97907785 end
97917786 object T3: TMenuItem
9792- Action = ScrollTopAction
7787+ Action = GikoDM.ScrollTopAction
97937788 end
97947789 object L2: TMenuItem
9795- Action = ScrollLastAction
7790+ Action = GikoDM.ScrollLastAction
97967791 end
97977792 object N12: TMenuItem
9798- Action = ScrollNewAction
7793+ Action = GikoDM.ScrollNewAction
97997794 end
98007795 object K1: TMenuItem
9801- Action = ScrollKokoAction
7796+ Action = GikoDM.ScrollKokoAction
98027797 end
98037798 object N74: TMenuItem
9804- Action = JumpToNumOfResAction
7799+ Action = GikoDM.JumpToNumOfResAction
98057800 GroupIndex = 1
98067801 end
98077802 object N13: TMenuItem
@@ -9809,12 +7804,12 @@ object GikoForm: TGikoForm
98097804 GroupIndex = 1
98107805 end
98117806 object A11: TMenuItem
9812- Action = AllResAction
7807+ Action = GikoDM.AllResAction
98137808 AutoCheck = True
98147809 GroupIndex = 1
98157810 end
98167811 object S5: TMenuItem
9817- Action = SelectResAction
7812+ Action = GikoDM.SelectResAction
98187813 AutoCheck = True
98197814 GroupIndex = 1
98207815 end
@@ -9823,7 +7818,7 @@ object GikoForm: TGikoForm
98237818 GroupIndex = 1
98247819 end
98257820 object R1: TMenuItem
9826- Action = EditorAction
7821+ Action = GikoDM.EditorAction
98277822 GroupIndex = 1
98287823 end
98297824 object N14: TMenuItem
@@ -9834,11 +7829,11 @@ object GikoForm: TGikoForm
98347829 Caption = #12479#12502'(&T)'
98357830 GroupIndex = 1
98367831 object C1: TMenuItem
9837- Action = BrowserTabCloseAction
7832+ Action = GikoDM.BrowserTabCloseAction
98387833 GroupIndex = 1
98397834 end
98407835 object V1: TMenuItem
9841- Action = NotSelectTabCloseAction
7836+ Action = GikoDM.NotSelectTabCloseAction
98427837 GroupIndex = 1
98437838 end
98447839 object N24: TMenuItem
@@ -9846,7 +7841,7 @@ object GikoForm: TGikoForm
98467841 GroupIndex = 1
98477842 end
98487843 object D4: TMenuItem
9849- Action = ActiveLogDeleteAction
7844+ Action = GikoDM.ActiveLogDeleteAction
98507845 GroupIndex = 1
98517846 end
98527847 object N62: TMenuItem
@@ -9854,7 +7849,7 @@ object GikoForm: TGikoForm
98547849 GroupIndex = 1
98557850 end
98567851 object A6: TMenuItem
9857- Action = AllTabCloseAction
7852+ Action = GikoDM.AllTabCloseAction
98587853 GroupIndex = 1
98597854 end
98607855 object N17: TMenuItem
@@ -9862,19 +7857,19 @@ object GikoForm: TGikoForm
98627857 GroupIndex = 1
98637858 end
98647859 object L5: TMenuItem
9865- Action = LeftmostTabSelectAction
7860+ Action = GikoDM.LeftmostTabSelectAction
98667861 GroupIndex = 1
98677862 end
98687863 object L6: TMenuItem
9869- Action = LeftTabSelectAction
7864+ Action = GikoDM.LeftTabSelectAction
98707865 GroupIndex = 1
98717866 end
98727867 object A7: TMenuItem
9873- Action = RightTabSelectAction
7868+ Action = GikoDM.RightTabSelectAction
98747869 GroupIndex = 1
98757870 end
98767871 object R3: TMenuItem
9877- Action = RightmostTabSelectAction
7872+ Action = GikoDM.RightmostTabSelectAction
98787873 GroupIndex = 1
98797874 end
98807875 end
@@ -9883,23 +7878,23 @@ object GikoForm: TGikoForm
98837878 GroupIndex = 1
98847879 end
98857880 object T1: TMenuItem
9886- Action = ShowThreadAction
7881+ Action = GikoDM.ShowThreadAction
98877882 GroupIndex = 1
98887883 end
98897884 object B2: TMenuItem
9890- Action = ShowBoardAction
7885+ Action = GikoDM.ShowBoardAction
98917886 GroupIndex = 1
98927887 end
98937888 object URLC2: TMenuItem
9894- Action = URLCopyAction
7889+ Action = GikoDM.URLCopyAction
98957890 GroupIndex = 1
98967891 end
98977892 object T9: TMenuItem
9898- Action = NameCopyAction
7893+ Action = GikoDM.NameCopyAction
98997894 GroupIndex = 1
99007895 end
99017896 object URLN1: TMenuItem
9902- Action = NameURLCopyAction
7897+ Action = GikoDM.NameURLCopyAction
99037898 GroupIndex = 1
99047899 end
99057900 object N49: TMenuItem
@@ -9907,15 +7902,15 @@ object GikoForm: TGikoForm
99077902 GroupIndex = 1
99087903 end
99097904 object A2: TMenuItem
9910- Action = ItemReloadAction
7905+ Action = GikoDM.ItemReloadAction
99117906 GroupIndex = 1
99127907 end
99137908 object N8: TMenuItem
99147909 Caption = '-'
99157910 GroupIndex = 1
99167911 end
9917- object N42: TMenuItem
9918- Action = AntiIndividualAbonDlgAction
7912+ object AntiIndivAbonMenuItem: TMenuItem
7913+ Action = GikoDM.AntiIndividualAbonDlgAction
99197914 Caption = #20491#21029#12354#12412#65374#12435#35299#38500
99207915 GroupIndex = 1
99217916 Hint = #20491#21029#12354#12412#65374#12435#35299#38500
@@ -9929,42 +7924,42 @@ object GikoForm: TGikoForm
99297924 object ToolMenu: TMenuItem
99307925 Caption = #12484#12540#12523'(&T)'
99317926 object Find1: TMenuItem
9932- Action = SearchAction
7927+ Action = GikoDM.SearchAction
99337928 end
99347929 object RoundMenu: TMenuItem
9935- Action = RoundAction
7930+ Action = GikoDM.RoundAction
99367931 end
99377932 object MMSep04: TMenuItem
99387933 Caption = '-'
99397934 end
99407935 object K3: TMenuItem
9941- Action = KotehanAction
7936+ Action = GikoDM.KotehanAction
99427937 end
99437938 object K2: TMenuItem
9944- Action = KeySettingAction
7939+ Action = GikoDM.KeySettingAction
99457940 end
99467941 object T7: TMenuItem
9947- Action = ToolBarSettingAction
7942+ Action = GikoDM.ToolBarSettingAction
99487943 end
99497944 object N40: TMenuItem
99507945 Caption = '-'
99517946 end
99527947 object NG1: TMenuItem
9953- Action = EditNGAction
7948+ Action = GikoDM.EditNGAction
99547949 end
99557950 object NG2: TMenuItem
99567951 Caption = 'NG'#12527#12540#12489#35501#12415#36796#12415
99577952 object GoBack: TMenuItem
9958- Caption = #19968#12388#21069
9959- OnClick = GoBackClick
7953+ Action = GikoDM.GoBackAction
7954+ Caption = #19968#12388#21069#12408
99607955 end
99617956 object Reload: TMenuItem
7957+ Action = GikoDM.ReloadAction
99627958 Caption = #20877#35501#12415#36796#12415
9963- OnClick = ReloadClick
99647959 end
99657960 object GoFoward: TMenuItem
7961+ Action = GikoDM.GoFowardAction
99667962 Caption = #19968#12388#24460#12429
9967- OnClick = GoFowardClick
99687963 end
99697964 end
99707965 object N43: TMenuItem
@@ -9974,41 +7969,41 @@ object GikoForm: TGikoForm
99747969 Caption = #12503#12521#12464#12452#12531'(&P)'
99757970 end
99767971 object OptionMenu: TMenuItem
9977- Action = OptionAction
7972+ Action = GikoDM.OptionAction
99787973 end
99797974 end
99807975 object HelpMenu: TMenuItem
99817976 Caption = #12504#12523#12503'(&H)'
99827977 object H4: TMenuItem
9983- Action = GikoHelpAction
7978+ Action = GikoDM.GikoHelpAction
99847979 end
99857980 object WikiFAQ: TMenuItem
9986- Action = WikiFAQWebPageAction
9987- Caption = #12462#12467#12490#12499'Wiki FAQ'
7981+ Action = GikoDM.WikiFAQWebPageAction
7982+ Caption = #12462#12467#12490#12499'Wili FAQ'
99887983 end
99897984 object N36: TMenuItem
99907985 Caption = '-'
99917986 end
99927987 object G1: TMenuItem
9993- Action = GikoNaviWebPageAction
7988+ Action = GikoDM.GikoNaviWebPageAction
99947989 end
99957990 object MonazillaWebPageAction1: TMenuItem
9996- Action = MonazillaWebPageAction
7991+ Action = GikoDM.MonazillaWebPageAction
99977992 end
99987993 object N2N1: TMenuItem
9999- Action = BBS2chWebPageAction
7994+ Action = GikoDM.BBS2chWebPageAction
100007995 end
100017996 object N1: TMenuItem
100027997 Caption = '-'
100037998 end
100047999 object F2: TMenuItem
10005- Action = GikoFolderOpenAction
8000+ Action = GikoDM.GikoFolderOpenAction
100068001 end
100078002 object N38: TMenuItem
100088003 Caption = '-'
100098004 end
100108005 object AboutMenu: TMenuItem
10011- Action = AboutAction
8006+ Action = GikoDM.AboutAction
100128007 end
100138008 end
100148009 end
@@ -10025,1238 +8020,48 @@ object GikoForm: TGikoForm
100258020 Left = 100
100268021 Top = 308
100278022 end
10028- object ActionList: TActionList
10029- Images = ToobarImageList
10030- Left = 5
10031- Top = 372
10032- object OnlyAHundredResAction: TAction
10033- Category = #12473#12524#12483#12489
10034- AutoCheck = True
10035- Caption = #26368#26032'100'#12524#12473#12398#12415#34920#31034'(&H)'
10036- GroupIndex = 2
10037- Hint = #26368#26032'100'#12524#12473#12398#12415#34920#31034
10038- ImageIndex = 38
10039- OnExecute = OnlyAHundredResActionExecute
10040- end
10041- object OnlyKokoResAction: TAction
10042- Category = #12473#12524#12483#12489
10043- AutoCheck = True
10044- Caption = #26410#35501#12524#12473#12398#12415#34920#31034'(&K)'
10045- GroupIndex = 2
10046- Hint = #26410#35501#12524#12473#12398#12415#34920#31034
10047- ImageIndex = 46
10048- OnExecute = OnlyKokoResActionExecute
10049- end
10050- object LoginAction: TAction
10051- Category = #12501#12449#12452#12523
10052- AutoCheck = True
10053- Caption = #12525#12464#12452#12531'(&L)'
10054- Hint = #12525#12464#12452#12531#65295#12525#12464#12450#12454#12488#12434#12377#12427
10055- ImageIndex = 3
10056- OnExecute = LoginActionExecute
10057- end
10058- object NewBoardAction: TAction
10059- Category = #12501#12449#12452#12523
10060- Caption = #26495#26356#26032'(&B)...'
10061- Hint = #12508#12540#12489#26356#26032#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
10062- OnExecute = NewBoardActionExecute
10063- end
10064- object LogDeleteAction: TAction
10065- Category = #12501#12449#12452#12523
10066- Caption = #12525#12464#21066#38500'(&D)'
10067- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#21066#38500#12377#12427
10068- ShortCut = 46
10069- OnExecute = LogDeleteActionExecute
10070- OnUpdate = SelectThreadReloadActionUpdate
10071- end
10072- object KidokuAction: TAction
10073- Category = #32232#38598
10074- Caption = #26082#35501#12395#12377#12427'(&K)'
10075- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#26082#35501#12395#12377#12427
10076- OnExecute = KidokuActionExecute
10077- end
10078- object StdToolBarVisibleAction: TAction
10079- Category = #34920#31034
10080- AutoCheck = True
10081- Caption = #27161#28310#12484#12540#12523#12496#12540'(&S)'
10082- Checked = True
10083- Hint = #27161#28310#12484#12540#12523#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10084- OnExecute = StdToolBarVisibleActionExecute
10085- end
10086- object AddressBarVisibleAction: TAction
10087- Category = #34920#31034
10088- AutoCheck = True
10089- Caption = #12450#12489#12524#12473#12496#12540'(&A)'
10090- Checked = True
10091- Hint = #12450#12489#12524#12473#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10092- OnExecute = AddressBarVisibleActionExecute
10093- end
10094- object LinkBarVisibleAction: TAction
10095- Category = #34920#31034
10096- AutoCheck = True
10097- Caption = #12522#12531#12463#12496#12540'(&K)'
10098- Checked = True
10099- Hint = #12522#12531#12463#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10100- OnExecute = LinkBarVisibleActionExecute
10101- end
10102- object ListToolBarVisibleAction: TAction
10103- Category = #34920#31034
10104- AutoCheck = True
10105- Caption = #12522#12473#12488#12484#12540#12523#12496#12540'(&L)'
10106- Checked = True
10107- Hint = #12522#12473#12488#12484#12540#12523#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10108- OnExecute = ListToolBarVisibleActionExecute
10109- end
10110- object SearchAction: TAction
10111- Category = #12484#12540#12523
10112- Caption = #12525#12464#26908#32034'(&S)'
10113- Hint = #12525#12464#26908#32034#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
10114- ImageIndex = 34
10115- ShortCut = 16454
10116- OnExecute = SearchActionExecute
10117- end
10118- object GikoNaviWebPageAction: TAction
10119- Category = #12504#12523#12503
10120- Caption = #12462#12467#12490#12499#12398#12454#12455#12502#12469#12452#12488'(&G)'
10121- Hint = #12462#12467#12490#12499#12398#12454#12455#12502#12469#12452#12488#12434#34920#31034#12377#12427
10122- OnExecute = GikoNaviWebPageActionExecute
10123- end
10124- object MonazillaWebPageAction: TAction
10125- Category = #12504#12523#12503
10126- Caption = #12514#12490#12472#12521#12398#12454#12455#12502#12469#12452#12488'(&M)'
10127- Hint = #12514#12490#12472#12521#12398#12454#12455#12502#12469#12452#12488#12434#34920#31034#12377#12427
10128- OnExecute = MonazillaWebPageActionExecute
10129- end
10130- object BBS2chWebPageAction: TAction
10131- Category = #12504#12523#12503
10132- Caption = '2'#12385#12419#12435#12397#12427#12488#12483#12503#12506#12540#12472'(&N)'
10133- Hint = '2'#12385#12419#12435#12397#12427#12488#12483#12503#12506#12540#12472#12434#34920#31034#12377#12427
10134- OnExecute = BBS2chWebPageActionExecute
10135- end
10136- object GikoFolderOpenAction: TAction
10137- Category = #12504#12523#12503
10138- Caption = #12462#12467#12490#12499#12501#12457#12523#12480#12434#38283#12367'(&F)'
10139- Hint = #12462#12467#12490#12499#12398#12501#12457#12523#12480#12434#38283#12367
10140- OnExecute = GikoFolderOpenActionExecute
10141- end
10142- object AboutAction: TAction
10143- Category = #12504#12523#12503
10144- Caption = #12496#12540#12472#12519#12531#24773#22577'(&A)...'
10145- Hint = #12496#12540#12472#12519#12531#24773#22577#12434#34920#31034#12377#12427
10146- OnExecute = AboutActionExecute
10147- end
10148- object SelectTextClearAction: TAction
10149- Category = #12501#12449#12452#12523
10150- Caption = #32094#36796#12415#23653#27508#28040#21435'(&S)'
10151- Hint = #32094#36796#12415#23653#27508#12434#28040#21435#12377#12427
10152- OnExecute = SelectTextClearActionExecute
10153- end
10154- object NameTextClearAction: TAction
10155- Category = #12501#12449#12452#12523
10156- Caption = #12524#12473#12456#12487#12451#12479#21517#21069#23653#27508#28040#21435'(&N)'
10157- Hint = #12524#12473#12456#12487#12451#12479#12398#21517#21069#23653#27508#12434#28040#21435#12377#12427
10158- OnExecute = NameTextClearActionExecute
10159- end
10160- object MailTextClearAction: TAction
10161- Category = #12501#12449#12452#12523
10162- Caption = #12524#12473#12456#12487#12451#12479#12513#12540#12523#23653#27508#28040#21435'(&N)'
10163- Hint = #12524#12473#12456#12487#12451#12479#12398#12513#12540#12523#23653#27508#12434#28040#21435#12377#12427
10164- OnExecute = MailTextClearActionExecute
10165- end
10166- object ExitAction: TAction
10167- Category = #12501#12449#12452#12523
10168- Caption = #32066#20102'(&X)'
10169- Hint = #12462#12467#12490#12499#12434#32066#20102#12377#12427
10170- OnExecute = ExitActionExecute
10171- end
10172- object ListNameBarVisibleAction: TAction
10173- Category = #34920#31034
10174- AutoCheck = True
10175- Caption = #12522#12473#12488#21517#31216'(&I)'
10176- Checked = True
10177- Hint = #12522#12473#12488#21517#31216#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10178- OnExecute = ListNameBarVisibleActionExecute
10179- end
10180- object BrowserToolBarVisibleAction: TAction
10181- Category = #34920#31034
10182- AutoCheck = True
10183- Caption = #12502#12521#12454#12470#12484#12540#12523#12496#12540'(&B)'
10184- Checked = True
10185- Hint = #12502#12521#12454#12470#12484#12540#12523#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10186- OnExecute = BrowserToolBarVisibleActionExecute
10187- end
10188- object BrowserNameBarVisibleAction: TAction
10189- Category = #34920#31034
10190- AutoCheck = True
10191- Caption = #12502#12521#12454#12470#21517#31216'(&R)'
10192- Checked = True
10193- Hint = #12502#12521#12454#12470#21517#31216#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10194- OnExecute = BrowserNameBarVisibleActionExecute
10195- end
10196- object MsgBarVisibleAction: TAction
10197- Category = #34920#31034
10198- AutoCheck = True
10199- Caption = #12513#12483#12475#12540#12472#12496#12540'(&E)'
10200- Hint = #12513#12483#12475#12540#12472#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10201- OnExecute = MsgBarVisibleActionExecute
10202- end
10203- object MsgBarCloseAction: TAction
10204- Category = #34920#31034
10205- Caption = #38281#12376#12427'(&C)'
10206- Hint = #12513#12483#12475#12540#12472#12496#12540#12434#38281#12376#12427
10207- OnExecute = MsgBarCloseActionExecute
10208- end
10209- object StatusBarVisibleAction: TAction
10210- Category = #34920#31034
10211- AutoCheck = True
10212- Caption = #12473#12486#12540#12479#12473#12496#12540'(&U)'
10213- Hint = #12473#12486#12540#12479#12473#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10214- OnExecute = StatusBarVisibleActionExecute
10215- end
10216- object CabinetBBSAction: TAction
10217- Category = #34920#31034
10218- AutoCheck = True
10219- Caption = #25522#31034#26495'(&N)'
10220- Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#12434#25522#31034#26495#12395#12377#12427
10221- ImageIndex = 35
10222- OnExecute = CabinetBBSActionExecute
10223- end
10224- object CabinetHistoryAction: TAction
10225- Category = #34920#31034
10226- AutoCheck = True
10227- Caption = #23653#27508#12522#12473#12488'(&H)'
10228- Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#12434#23653#27508#12522#12473#12488#12395#12377#12427
10229- ImageIndex = 36
10230- OnExecute = CabinetHistoryActionExecute
10231- end
10232- object OnlyNewResAction: TAction
10233- Category = #12473#12524#12483#12489
10234- AutoCheck = True
10235- Caption = #26032#30528#12524#12473#12398#12415#34920#31034'(&N)'
10236- GroupIndex = 2
10237- Hint = #26032#30528#12524#12473#12398#12415#34920#31034
10238- ImageIndex = 45
10239- OnExecute = OnlyNewResActionExecute
10240- end
10241- object CabinetFavoriteAction: TAction
10242- Category = #34920#31034
10243- AutoCheck = True
10244- Caption = #12362#27671#12395#20837#12426'(&A)'
10245- Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#12434#12362#27671#12395#20837#12426#12522#12473#12488#12395#12377#12427
10246- ImageIndex = 37
10247- OnExecute = CabinetFavoriteActionExecute
10248- end
10249- object CabinetVisibleAction: TAction
10250- Category = #34920#31034
10251- AutoCheck = True
10252- Caption = #12461#12515#12499#12493#12483#12488#34920#31034'(&O)'
10253- Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10254- ImageIndex = 1
10255- OnExecute = CabinetVisibleActionExecute
10256- end
10257- object ListNumberVisibleAction: TAction
10258- Category = #26495
10259- AutoCheck = True
10260- Caption = #12522#12473#12488#30058#21495#34920#31034'(&N)'
10261- Hint = #12522#12473#12488#30058#21495#34920#31034#12434#22793#26356#12377#12427
10262- ImageIndex = 6
10263- OnExecute = ListNumberVisibleActionExecute
10264- end
10265- object UpFolderAction: TAction
10266- Category = #26495
10267- Caption = #19978#12408'(&U)'
10268- Hint = #19978#20301#12501#12457#12523#12480#12395#31227#21205#12377#12427
10269- ImageIndex = 8
10270- ShortCut = 8
10271- OnExecute = UpFolderActionExecute
10272- OnUpdate = UpFolderActionUpdate
10273- end
10274- object CabinetCloseAction: TAction
10275- Category = #34920#31034
10276- Caption = #38281#12376#12427'(&C)'
10277- Hint = #12461#12515#12499#12493#12483#12488#12434#38281#12376#12427
10278- end
10279- object IconStyle: TAction
10280- Category = #26495
10281- Caption = #34920#31034'(&V)'
10282- Hint = #34920#31034
10283- ImageIndex = 7
10284- OnExecute = IconStyleExecute
10285- end
10286- object LargeIconAction: TAction
10287- Category = #34920#31034
10288- Caption = #22823#12365#12356#12450#12452#12467#12531'(&G)'
10289- GroupIndex = 2
10290- Hint = #12522#12473#12488#12434#22823#12365#12356#12450#12452#12467#12531#34920#31034#12395#12377#12427
10291- OnExecute = LargeIconActionExecute
10292- end
10293- object SmallIconAction: TAction
10294- Category = #34920#31034
10295- Caption = #23567#12373#12356#12450#12452#12467#12531'(&M)'
10296- GroupIndex = 2
10297- Hint = #12522#12473#12488#12434#23567#12373#12356#12450#12452#12467#12531#34920#31034#12395#12377#12427
10298- OnExecute = SmallIconActionExecute
10299- end
10300- object ListIconAction: TAction
10301- Category = #34920#31034
10302- Caption = #19968#35239'(&L)'
10303- GroupIndex = 2
10304- Hint = #12522#12473#12488#12434#19968#35239#34920#31034#12395#12377#12427
10305- OnExecute = ListIconActionExecute
10306- end
10307- object DetailIconAction: TAction
10308- Category = #34920#31034
10309- Caption = #35443#32048'(&D)'
10310- GroupIndex = 2
10311- Hint = #12522#12473#12488#12434#35443#32048#34920#31034#12395#12377#12427
10312- OnExecute = DetailIconActionExecute
10313- end
10314- object MidokuAction: TAction
10315- Category = #32232#38598
10316- Caption = #26410#35501#12395#12377#12427'(&M)'
10317- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#26410#35501#12395#12377#12427
10318- OnExecute = MidokuActionExecute
10319- end
10320- object AllSelectAction: TAction
10321- Category = #32232#38598
10322- Caption = #12377#12409#12390#36984#25246'(&A)'
10323- Hint = #12522#12473#12488#12434#12377#12409#12390#36984#25246#12377#12427
10324- ShortCut = 16449
10325- OnExecute = AllSelectActionExecute
10326- OnUpdate = AllSelectActionUpdate
10327- end
10328- object AllItemAction: TAction
10329- Category = #26495
10330- AutoCheck = True
10331- Caption = #12377#12409#12390#12398#12473#12524#12483#12489#12434#34920#31034'(&A)'
10332- GroupIndex = 1
10333- Hint = #12473#12524#12483#12489#12434#12377#12409#12390#34920#31034#12377#12427
10334- ImageIndex = 9
10335- OnExecute = AllItemActionExecute
10336- OnUpdate = DependActiveListTBoardActionUpdate
10337- end
10338- object LogItemAction: TAction
10339- Category = #26495
10340- AutoCheck = True
10341- Caption = #12525#12464#26377#12426#12473#12524#12483#12489#34920#31034'(&L)'
10342- GroupIndex = 1
10343- Hint = #12525#12464#26377#12426#12473#12524#12483#12489#12398#12415#34920#31034#12377#12427
10344- ImageIndex = 10
10345- OnExecute = LogItemActionExecute
10346- OnUpdate = DependActiveListTBoardActionUpdate
10347- end
10348- object NewItemAction: TAction
10349- Category = #26495
10350- AutoCheck = True
10351- Caption = #26032#30528#12473#12524#12483#12489#34920#31034'(&N)'
10352- GroupIndex = 1
10353- Hint = #26032#30528#12473#12524#12483#12489#12398#12415#34920#31034#12377#12427
10354- ImageIndex = 11
10355- OnExecute = NewItemActionExecute
10356- OnUpdate = DependActiveListTBoardActionUpdate
10357- end
10358- object ThreadRangeAction: TAction
10359- Category = #26495
10360- AutoCheck = True
10361- Caption = #12473#12524#12483#12489#12398#34920#31034#31684#22258#12434#35373#23450'(&H)'
10362- GroupIndex = 1
10363- Hint = #12473#12524#12483#12489#12398#34920#31034#31684#22258#12434#35373#23450
10364- ImageIndex = 10
10365- OnExecute = ThreadRangeActionExecute
10366- OnUpdate = DependActiveCntentActionUpdate
10367- end
10368- object SelectItemAction: TAction
10369- Category = #26495
10370- AutoCheck = True
10371- Caption = #12473#12524#12483#12489#32094#36796#12415#34920#31034'(&S)...'
10372- GroupIndex = 1
10373- Hint = #12473#12524#12483#12489#32094#36796#12415#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
10374- ImageIndex = 12
10375- OnExecute = SelectItemActionExecute
10376- OnUpdate = DependActiveListTBoardActionUpdate
10377- end
10378- object StopAction: TAction
10379- Category = #34920#31034
10380- Caption = #20013#27490'(&S)'
10381- Hint = #12480#12454#12531#12525#12540#12489#12434#20013#27490#12377#12427
10382- ImageIndex = 2
10383- ShortCut = 27
10384- OnExecute = StopActionExecute
10385- end
10386- object OptionAction: TAction
10387- Category = #12484#12540#12523
10388- Caption = #12458#12503#12471#12519#12531'(&O)...'
10389- Hint = #12458#12503#12471#12519#12531#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
10390- OnExecute = OptionActionExecute
10391- end
10392- object RoundAction: TAction
10393- Category = #12484#12540#12523
10394- Caption = #24033#22238#12434#23455#34892'(&R)...'
10395- Hint = #24033#22238#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
10396- ImageIndex = 0
10397- OnExecute = RoundActionExecute
10398- end
10399- object BrowserMaxAction: TAction
10400- Category = #12473#12524#12483#12489
10401- Caption = #12473#12524#12434#22823#12365#12367#34920#31034'(&E)'
10402- Hint = #12473#12524#12483#12489#34920#31034#12456#12522#12450#12434#22823#12365#12367#34920#31034#12377#12427
10403- ImageIndex = 16
10404- OnExecute = BrowserMaxActionExecute
10405- end
10406- object BrowserMinAction: TAction
10407- Category = #12473#12524#12483#12489
10408- Caption = #12473#12524#12434#23567#12373#12367#34920#31034'(&W)'
10409- Hint = #12473#12524#12483#12489#34920#31034#12456#12522#12450#12434#23567#12373#12367#34920#31034#12377#12427
10410- ImageIndex = 17
10411- OnExecute = BrowserMinActionExecute
10412- end
10413- object ScrollTopAction: TAction
10414- Category = #12473#12524#12483#12489
10415- Caption = #20808#38957#12408#31227#21205'(&T)'
10416- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#20808#38957#12408#31227#21205#12377#12427
10417- ImageIndex = 22
10418- OnExecute = ScrollTopActionExecute
10419- OnUpdate = DependActiveCntentLogActionUpdate
10420- end
10421- object ScrollLastAction: TAction
10422- Category = #12473#12524#12483#12489
10423- Caption = #26368#24460#12408#31227#21205'(&L)'
10424- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#26368#24460#12408#31227#21205#12377#12427
10425- ImageIndex = 23
10426- OnExecute = ScrollLastActionExecute
10427- OnUpdate = DependActiveCntentLogActionUpdate
10428- end
10429- object ScrollNewAction: TAction
10430- Category = #12473#12524#12483#12489
10431- Caption = #26032#30528#12408#31227#21205'(&N)'
10432- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#26032#30528#12408#31227#21205#12377#12427
10433- ImageIndex = 24
10434- OnExecute = ScrollNewActionExecute
10435- OnUpdate = DependActiveCntentLogActionUpdate
10436- end
10437- object ScrollKokoAction: TAction
10438- Category = #12473#12524#12483#12489
10439- Caption = #12467#12467#12414#12391#35501#12435#12384#12408#31227#21205'(&K)'
10440- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#12467#12467#12414#12391#35501#12435#12384#12408#31227#21205#12377#12427
10441- ImageIndex = 25
10442- OnExecute = ScrollKokoActionExecute
10443- OnUpdate = ScrollKokoActionUpdate
10444- end
10445- object EditorAction: TAction
10446- Category = #12473#12524#12483#12489
10447- Caption = #12524#12473#26360#12365#36796#12415'(&R)'
10448- Hint = #12524#12473#26360#12365#36796#12415#12454#12451#12531#12489#12454#12434#34920#31034#12377#12427
10449- ImageIndex = 26
10450- ShortCut = 16466
10451- OnExecute = EditorActionExecute
10452- OnUpdate = DependActiveCntentActionUpdate
10453- end
10454- object IEAction: TAction
10455- Category = #12473#12524#12483#12489
10456- Caption = #12502#12521#12454#12470#12391#34920#31034'(&B)'
10457- Hint = #12473#12524#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
10458- ImageIndex = 27
10459- OnExecute = IEActionExecute
10460- OnUpdate = DependActiveCntentActionUpdate
10461- end
10462- object ShowThreadAction: TAction
10463- Category = #12473#12524#12483#12489
10464- Caption = #12473#12524#12483#12489#12434#12502#12521#12454#12470#12391#34920#31034'(&S)'
10465- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
10466- ImageIndex = 27
10467- OnExecute = ShowThreadActionExecute
10468- OnUpdate = DependActiveCntentActionUpdate
10469- end
10470- object ShowBoardAction: TAction
10471- Category = #12473#12524#12483#12489
10472- Caption = #26495#12434#12502#12521#12454#12470#12391#34920#31034'(&B)'
10473- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#26495#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
10474- ImageIndex = 27
10475- OnExecute = ShowBoardActionExecute
10476- OnUpdate = DependActiveCntentActionUpdate
10477- end
10478- object URLCopyAction: TAction
10479- Category = #12473#12524#12483#12489
10480- Caption = 'URL'#12434#12467#12500#12540'(&C)'
10481- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398'URL'#12434#12467#12500#12540#12377#12427
10482- OnExecute = URLCopyActionExecute
10483- OnUpdate = DependActiveCntentActionUpdate
10484- end
10485- object NameCopyAction: TAction
10486- Category = #12473#12524#12483#12489
10487- Caption = #12473#12524#12483#12489#21517#12434#12467#12500#12540'(&T)'
10488- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#21517#12434#12467#12500#12540#12377#12427
10489- OnExecute = NameCopyActionExecute
10490- OnUpdate = DependActiveCntentActionUpdate
10491- end
10492- object NameURLCopyAction: TAction
10493- Category = #12473#12524#12483#12489
10494- Caption = #12473#12524#12483#12489#21517#12392'URL'#12434#12467#12500#12540'(&M)'
10495- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#21517#12392'URL'#12434#12467#12500#12540#12377#12427
10496- OnExecute = NameURLCopyActionExecute
10497- OnUpdate = DependActiveCntentActionUpdate
10498- end
10499- object ItemReloadAction: TAction
10500- Category = #12473#12524#12483#12489
10501- Caption = #12473#12524#12483#12489#12480#12454#12531#12525#12540#12489'(&A)'
10502- Hint = #34920#31034#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#12480#12454#12531#12525#12540#12489#12377#12427
10503- ImageIndex = 28
10504- OnExecute = ItemReloadActionExecute
10505- OnUpdate = DependActiveCntentActionUpdate
10506- end
10507- object ThreadEditorAction: TAction
10508- Category = #26495
10509- Caption = #26032#12473#12524#20316#25104'(&T)'
10510- Hint = #26032#12473#12524#26360#12365#36796#12415#12454#12451#12531#12489#12454#12434#34920#31034#12377#12427
10511- ImageIndex = 26
10512- OnExecute = ThreadEditorActionExecute
10513- OnUpdate = DependActiveListTBoardActionUpdate
10514- end
10515- object BoardIEAction: TAction
10516- Category = #26495
10517- Caption = #12502#12521#12454#12470#12391#34920#31034'(&B)'
10518- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#26495#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
10519- ImageIndex = 27
10520- OnExecute = BoardIEActionExecute
10521- OnUpdate = DependActiveListTBoardActionUpdate
10522- end
10523- object SelectItemURLCopyAction: TAction
10524- Category = #26495
10525- Caption = 'URL'#12434#12467#12500#12540'(&C)'
10526- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12398'URL'#12434#12467#12500#12540#12377#12427
10527- OnExecute = SelectItemURLCopyActionExecute
10528- OnUpdate = SelectItemNameCopyActionUpdate
10529- end
10530- object SelectItemNameCopyAction: TAction
10531- Category = #26495
10532- Caption = #21517#21069#12434#12467#12500#12540'(&C)'
10533- Hint = #36984#25246#12373#12428#12390#12356#12427#26495#12398#21517#21069#12434#12467#12500#12540#12377#12427
10534- OnExecute = SelectItemNameCopyActionExecute
10535- OnUpdate = SelectItemNameCopyActionUpdate
10536- end
10537- object SelectItemNameURLCopyAction: TAction
10538- Category = #26495
10539- Caption = #21517#21069#12392'URL'#12434#12467#12500#12540'(&N)'
10540- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12398#21517#21069#12392'URL'#12434#12467#12500#12540#12377#12427
10541- OnExecute = SelectItemNameURLCopyActionExecute
10542- OnUpdate = SelectItemNameCopyActionUpdate
10543- end
10544- object SelectListReloadAction: TAction
10545- Category = #26495
10546- Caption = #36984#25246#12473#12524#12483#12489#19968#35239#12480#12454#12531#12525#12540#12489'(&D)'
10547- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#19968#35239#12434#12480#12454#12531#12525#12540#12489#12377#12427
10548- ImageIndex = 13
10549- OnExecute = SelectListReloadActionExecute
10550- OnUpdate = SelectListReloadActionUpdate
10551- end
10552- object SelectThreadReloadAction: TAction
10553- Category = #26495
10554- Caption = #36984#25246#12473#12524#12483#12489#12480#12454#12531#12525#12540#12489'(&E)'
10555- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#12480#12454#12531#12525#12540#12489#12377#12427
10556- ImageIndex = 14
10557- OnExecute = SelectThreadReloadActionExecute
10558- OnUpdate = SelectThreadReloadActionUpdate
10559- end
10560- object BrowserTabCloseAction: TAction
10561- Category = #12473#12524#12483#12489
10562- Caption = #12450#12463#12486#12451#12502#12479#12502#12434#38281#12376#12427'(&X)'
10563- Hint = #29694#22312#38283#12356#12390#12356#12427#12479#12502#12434#38281#12376#12427
10564- ImageIndex = 41
10565- OnExecute = BrowserTabCloseActionExecute
10566- OnUpdate = AllTabCloseActionUpdate
10567- end
10568- object NotSelectTabCloseAction: TAction
10569- Category = #12473#12524#12483#12489
10570- Caption = #12450#12463#12486#12451#12502#12479#12502#20197#22806#12434#38281#12376#12427'(&V)'
10571- Hint = #29694#22312#38283#12356#12390#12356#12427#12479#12502#20197#22806#12434#20840#12390#38281#12376#12427
10572- ImageIndex = 39
10573- OnExecute = NotSelectTabCloseActionExecute
10574- OnUpdate = RightTabCloseActionUpdate
10575- end
10576- object AllTabCloseAction: TAction
10577- Category = #12473#12524#12483#12489
10578- Caption = #12377#12409#12390#12398#12479#12502#12434#38281#12376#12427'(&Z)'
10579- Hint = #12377#12409#12390#12398#12479#12502#12434#38281#12376#12427
10580- ImageIndex = 40
10581- OnExecute = AllTabCloseActionExecute
10582- OnUpdate = AllTabCloseActionUpdate
10583- end
10584- object KokomadeAction: TAction
10585- Tag = -1
10586- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
10587- Caption = #12467#12467#12414#12391#35501#12435#12384'(&K)'
10588- OnExecute = KokomadeActionExecute
10589- end
10590- object ZenbuAction: TAction
10591- Tag = -1
10592- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
10593- Caption = #20840#37096#35501#12435#12384'(&A)'
10594- OnExecute = ZenbuActionExecute
10595- end
10596- object KokoResAction: TAction
10597- Tag = -1
10598- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
10599- Caption = #12467#12467#12395#12524#12473'(&R)'
10600- OnExecute = KokoResActionExecute
10601- end
10602- object TreeSelectBoradReload: TAction
10603- Tag = -1
10604- Category = #12484#12522#12540#12509#12483#12503#12450#12483#12503
10605- Caption = #12473#12524#12483#12489#19968#35239#12480#12454#12531#12525#12540#12489'(&D)'
10606- Hint = #12473#12524#12483#12489#19968#35239#12434#12480#12454#12531#12525#12540#12489#12377#12427
10607- OnExecute = TreeSelectBoradReloadExecute
10608- end
10609- object TreeSelectThreadReload: TAction
10610- Tag = -1
10611- Category = #12484#12522#12540#12509#12483#12503#12450#12483#12503
10612- Caption = #36984#25246#12473#12524#12483#12489#12480#12454#12531#12525#12540#12489'(&E)'
10613- Hint = #36984#25246#12373#12428#12383#12473#12524#12483#12489#12434#12480#12454#12531#12525#12540#12489#12377#12427
10614- OnExecute = TreeSelectThreadReloadExecute
10615- end
10616- object TreeSelectURLCopy: TAction
10617- Tag = -1
10618- Category = #12484#12522#12540#12509#12483#12503#12450#12483#12503
10619- Caption = 'URL'#12434#12467#12500#12540'(&C)'
10620- Hint = #36984#25246#12373#12428#12383#26495#12398'URL'#12434#12467#12500#12540#12377#12427
10621- OnExecute = TreeSelectURLCopyExecute
10622- end
10623- object SelectReservAction: TAction
10624- Category = #26495
10625- Caption = #12473#12524#12483#12489#24033#22238#20104#32004'(&R)'
10626- Hint = #12473#12524#12483#12489#24033#22238#20104#32004
10627- ImageIndex = 15
10628- OnExecute = SelectReservActionExecute
10629- OnUpdate = SelectReservActionUpdate
10630- end
10631- object SelectNewRoundName: TAction
10632- Category = #26495
10633- Caption = #26032#12375#12356#21517#21069#12391#24033#22238#20104#32004
10634- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12395#26032#12375#12356#21517#21069#12391#24033#22238#12434#25351#23450#12377#12427
10635- OnExecute = SelectNewRoundNameExecute
10636- end
10637- object SelectDeleteRound: TAction
10638- Category = #26495
10639- Caption = #24033#22238#20104#32004#21066#38500
10640- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12398#24033#22238#12434#21066#38500#12377#12427
10641- OnExecute = SelectDeleteRoundExecute
10642- end
10643- object KeySettingAction: TAction
10644- Category = #12484#12540#12523
10645- Caption = #12461#12540#35373#23450'(&K)...'
10646- Hint = #12461#12540#35373#23450#12480#12452#12450#12525#12464#12434#38283#12367
10647- OnExecute = KeySettingActionExecute
10648- end
10649- object ArrangeAction: TAction
10650- Category = #34920#31034
10651- AutoCheck = True
10652- Caption = #32294#27178#37197#32622#12434#22793#26356#12377#12427'(&H)'
10653- Hint = #12522#12473#12488#12392#12502#12521#12454#12470#12398#32294#27178#37197#32622#12434#22793#26356#12377#12427
10654- ImageIndex = 4
10655- OnExecute = ArrangeActionExecute
10656- end
10657- object ActiveLogDeleteAction: TAction
10658- Category = #12473#12524#12483#12489
10659- Caption = #12450#12463#12486#12451#12502#12479#12502#12398#12525#12464#12434#21066#38500'(&D)'
10660- Hint = #29694#22312#38283#12356#12390#12356#12427#12479#12502#12398#12473#12524#12483#12489#12434#21066#38500#12377#12427
10661- ImageIndex = 29
10662- OnExecute = ActiveLogDeleteActionExecute
10663- OnUpdate = DependActiveCntentActionUpdate
10664- end
10665- object TreeSelectNameURLCopy: TAction
10666- Tag = -1
10667- Category = #12484#12522#12540#12509#12483#12503#12450#12483#12503
10668- Caption = #21517#21069#12392'URL'#12434#12467#12500#12540'(&N)'
10669- Hint = #36984#25246#12373#12428#12383#26495#12398#21517#21069#12392'URL'#12434#12467#12500#12540#12377#12427
10670- OnExecute = TreeSelectNameURLCopyExecute
10671- end
10672- object PaneInitAction: TAction
10673- Category = #34920#31034
10674- Caption = #12506#12452#12531#12398#12469#12452#12474#12434#21021#26399#21270#12377#12427'(&I)'
10675- Hint = #12506#12452#12531#12398#12469#12452#12474#12434#21021#26399#21270#12377#12427
10676- OnExecute = PaneInitActionExecute
10677- end
10678- object LeftmostTabSelectAction: TAction
10679- Category = #12473#12524#12483#12489
10680- Caption = #19968#30058#24038#12398#12479#12502#36984#25246'(&F)'
10681- Hint = #19968#30058#24038#12398#12479#12502#12434#36984#25246#12377#12427
10682- ImageIndex = 50
10683- OnExecute = LeftmostTabSelectActionExecute
10684- OnUpdate = LeftTabSelectActionUpdate
10685- end
10686- object LeftTabSelectAction: TAction
10687- Category = #12473#12524#12483#12489
10688- Caption = #24038#12398#12479#12502#36984#25246'(&G)'
10689- Hint = #24038#12398#12479#12502#12434#36984#25246#12377#12427
10690- ImageIndex = 48
10691- OnExecute = LeftTabSelectActionExecute
10692- OnUpdate = LeftTabSelectActionUpdate
10693- end
10694- object RightTabSelectAction: TAction
10695- Category = #12473#12524#12483#12489
10696- Caption = #21491#12398#12479#12502#36984#25246'(&H)'
10697- Hint = #21491#12398#12479#12502#12434#36984#25246#12377#12427
10698- ImageIndex = 47
10699- OnExecute = RightTabSelectActionExecute
10700- OnUpdate = RightTabSelectActionUpdate
10701- end
10702- object RightmostTabSelectAction: TAction
10703- Category = #12473#12524#12483#12489
10704- Caption = #19968#30058#21491#12398#12479#12502#36984#25246'(&J)'
10705- Hint = #19968#30058#21491#12398#12479#12502#12434#36984#25246#12377#12427
10706- ImageIndex = 49
10707- OnExecute = RightmostTabSelectActionExecute
10708- OnUpdate = RightTabSelectActionUpdate
10709- end
10710- object FavoriteAddAction: TAction
10711- Category = #12362#27671#12395#20837#12426
10712- Caption = #12362#27671#12395#20837#12426#12398#36861#21152'(&A)...'
10713- Hint = #12362#27671#12395#20837#12426#36861#21152#12480#12452#12450#12525#12464#12434#38283#12367
10714- OnExecute = FavoriteAddActionExecute
10715- OnUpdate = DependActiveCntentActionUpdate
10716- end
10717- object BoardFavoriteAddAction: TAction
10718- Category = #26495
10719- Caption = #12362#27671#12395#20837#12426#12395#36861#21152'(&F)...'
10720- Hint = #36984#25246#12373#12428#12390#12356#12427#26495#12434#12362#27671#12395#20837#12426#12395#36861#21152#12377#12427
10721- OnExecute = BoardFavoriteAddActionExecute
10722- OnUpdate = BoardFavoriteAddActionUpdate
10723- end
10724- object ThreadFavoriteAddAction: TAction
10725- Category = #12473#12524#12483#12489
10726- Caption = #12362#27671#12395#20837#12426#12395#36861#21152'(&F)...'
10727- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#12362#27671#12395#20837#12426#12395#36861#21152#12377#12427
10728- OnExecute = ThreadFavoriteAddActionExecute
10729- OnUpdate = SelectThreadReloadActionUpdate
10730- end
10731- object TreeSelectFavoriteAddAction: TAction
10732- Tag = -1
10733- Category = #12484#12522#12540#12509#12483#12503#12450#12483#12503
10734- Caption = #12362#27671#12395#20837#12426#12395#36861#21152'(&F)...'
10735- Hint = #12362#27671#12395#20837#12426#12395#36861#21152#12377#12427
10736- OnExecute = TreeSelectFavoriteAddActionExecute
10737- end
10738- object FavoriteArrangeAction: TAction
10739- Category = #12362#27671#12395#20837#12426
10740- Caption = #12362#27671#12395#20837#12426#12398#25972#29702'(&O)...'
10741- Hint = #12362#27671#12395#20837#12426#25972#29702#12480#12452#12450#12525#12464#12434#38283#12367
10742- OnExecute = FavoriteArrangeActionExecute
10743- end
10744- object MoveToAction: TAction
10745- Category = #12450#12489#12524#12473#12496#12540
10746- Caption = #31227#21205
10747- Hint = #12450#12489#12524#12473#12496#12540#12395#34920#31034#12375#12390#12356#12427#12450#12489#12524#12473#12408#31227#21205#12377#12427
10748- ImageIndex = 33
10749- OnExecute = MoveToActionExecute
10750- end
10751- object BrowserTabVisibleAction: TAction
10752- Category = #34920#31034
10753- AutoCheck = True
10754- Caption = #34920#31034'(&V)'
10755- Hint = #12502#12521#12454#12470#12479#12502#12398#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
10756- OnExecute = BrowserTabVisibleActionExecute
10757- end
10758- object BrowserTabTopAction: TAction
10759- Category = #34920#31034
10760- AutoCheck = True
10761- Caption = #19978#12395#34920#31034'(&T)'
10762- Hint = #12502#12521#12454#12470#12479#12502#12434#19978#12395#34920#31034#12377#12427
10763- OnExecute = BrowserTabTopActionExecute
10764- end
10765- object BrowserTabBottomAction: TAction
10766- Category = #34920#31034
10767- AutoCheck = True
10768- Caption = #19979#12395#34920#31034'(&B)'
10769- Hint = #12502#12521#12454#12470#12479#12502#12434#19979#12395#34920#31034#12377#12427
10770- OnExecute = BrowserTabBottomActionExecute
10771- end
10772- object BrowserTabTabStyleAction: TAction
10773- Category = #34920#31034
10774- AutoCheck = True
10775- Caption = #12479#12502' '#12473#12479#12452#12523'(&A)'
10776- Hint = #12502#12521#12454#12470#12479#12502#12398#12473#12479#12452#12523#12434#12479#12502#12473#12479#12452#12523#12395#12377#12427
10777- OnExecute = BrowserTabTabStyleActionExecute
10778- end
10779- object BrowserTabButtonStyleAction: TAction
10780- Category = #34920#31034
10781- AutoCheck = True
10782- Caption = #12508#12479#12531' '#12473#12479#12452#12523'(&U)'
10783- Hint = #12502#12521#12454#12470#12479#12502#12398#12473#12479#12452#12523#12434#12508#12479#12531#12473#12479#12452#12523#12395#12377#12427
10784- OnExecute = BrowserTabButtonStyleActionExecute
10785- end
10786- object BrowserTabFlatStyleAction: TAction
10787- Category = #34920#31034
10788- AutoCheck = True
10789- Caption = #12501#12521#12483#12488#12508#12479#12531' '#12473#12479#12452#12523'(&F)'
10790- Hint = #12502#12521#12454#12470#12479#12502#12398#12473#12479#12452#12523#12434#12501#12521#12483#12488#12508#12479#12531#12473#12479#12452#12523#12395#12377#12427
10791- OnExecute = BrowserTabFlatStyleActionExecute
10792- end
10793- object GikoHelpAction: TAction
10794- Category = #12504#12523#12503
10795- Caption = #12462#12467#12490#12499' '#12504#12523#12503'(&H)'
10796- Hint = #12462#12467#12490#12499#12398#12504#12523#12503#12434#34920#31034#12377#12427
10797- OnExecute = GikoHelpActionExecute
10798- end
10799- object KotehanAction: TAction
10800- Category = #12484#12540#12523
10801- Caption = #12467#12486#12495#12531#35373#23450'(&H)...'
10802- Hint = #12467#12486#12495#12531#35373#23450#12480#12452#12450#12525#12464#12434#38283#12367
10803- OnExecute = KotehanActionExecute
10804- end
10805- object ToolBarSettingAction: TAction
10806- Category = #12484#12540#12523
10807- Caption = #12484#12540#12523#12496#12540#35373#23450'(&T)...'
10808- Hint = #12484#12540#12523#12496#12540#35373#23450#12480#12452#12450#12525#12464#12434#38283#12367
10809- OnExecute = ToolBarSettingActionExecute
10810- end
10811- object SelectResAction: TAction
10812- Category = #12473#12524#12483#12489
10813- AutoCheck = True
10814- Caption = #12524#12473#32094#36796#12415#34920#31034'(&S)...'
10815- GroupIndex = 2
10816- Hint = #12524#12473#12398#20869#23481#12434#32094#36796#12416
10817- ImageIndex = 12
10818- OnExecute = SelectResActionExecute
10819- OnUpdate = DependActiveCntentLogActionUpdate
10820- end
10821- object AllResAction: TAction
10822- Category = #12473#12524#12483#12489
10823- AutoCheck = True
10824- Caption = #12377#12409#12390#12398#12524#12473#12434#34920#31034'(&A)'
10825- GroupIndex = 2
10826- Hint = #12377#12409#12390#12398#12524#12473#12434#34920#31034#12377#12427
10827- ImageIndex = 9
10828- OnExecute = AllResActionExecute
10829- end
10830- object EditNGAction: TAction
10831- Category = 'NGword'
10832- Caption = 'NG'#12527#12540#12489#12501#12449#12452#12523#32232#38598
10833- Hint = 'NG'#12527#12540#12489#12501#12449#12452#12523#32232#38598
10834- ImageIndex = 43
10835- OnExecute = EditNGActionExecute
10836- end
10837- object ReloadAction: TAction
10838- Category = 'NGword'
10839- Caption = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#20877#35501#12415#36796#12415#65289
10840- Hint = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#20877#35501#12415#36796#12415#65289
10841- OnExecute = ReloadClick
10842- end
10843- object GoFowardAction: TAction
10844- Category = 'NGword'
10845- Caption = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#19968#12388#24460#12429#65289
10846- Hint = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#19968#12388#24460#12429#65289
10847- OnExecute = GoFowardClick
10848- end
10849- object GoBackAction: TAction
10850- Category = 'NGword'
10851- Caption = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#19968#12388#21069#65289
10852- Hint = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#19968#12388#21069#65289
10853- OnExecute = GoBackClick
10854- end
10855- object CancellIndividualAbon: TAction
10856- Category = 'NGword'
10857- Caption = #20491#21029#12354#12412#12540#12435#35299#38500
10858- Hint = #20491#21029#12354#12412#12540#12435#35299#38500
10859- end
10860- object TreeSelectSearchBoardName: TAction
10861- Tag = -1
10862- Category = #12484#12522#12540#12509#12483#12503#12450#12483#12503
10863- Caption = #26495#21517#26908#32034
10864- Hint = #26495#21517#26908#32034
10865- OnExecute = TreeSelectSearchBoardNameExecute
10866- end
10867- object FavoriteTreeViewRenameAction: TAction
10868- Tag = -1
10869- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10870- Caption = #21517#21069#12398#22793#26356'(&M)'
10871- Hint = #12362#27671#12395#20837#12426#12398#21517#21069#12434#32232#38598#12377#12427
10872- ImageIndex = 26
10873- OnExecute = FavoriteTreeViewRenameActionExecute
10874- end
10875- object FavoriteTreeViewNewFolderAction: TAction
10876- Tag = -1
10877- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10878- Caption = #26032#12375#12356#12501#12457#12523#12480#12398#20316#25104'(&W)'
10879- Hint = #26032#12375#12367#12362#27671#12395#20837#12426#12395#12501#12457#12523#12480#12434#20316#25104#12377#12427
10880- ImageIndex = 31
10881- OnExecute = FavoriteTreeViewNewFolderActionExecute
10882- end
10883- object FavoriteTreeViewDeleteAction: TAction
10884- Tag = -1
10885- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10886- Caption = #21066#38500'(&D)'
10887- Hint = #12371#12398#12362#27671#12395#20837#12426#12434#21066#38500#12377#12427
10888- ImageIndex = 29
10889- OnExecute = FavoriteTreeViewDeleteActionExecute
10890- end
10891- object FavoriteTreeViewBrowseFolderAction: TAction
10892- Tag = -1
10893- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10894- Caption = #12371#12428#12425#12434#12377#12409#12390#38283#12367'(&A)'
10895- Hint = #12371#12398#12501#12457#12523#12480#12395#20837#12387#12390#12356#12427#12362#27671#12395#20837#12426#12434#20840#12390#38283#12367
10896- OnExecute = FavoriteTreeViewBrowseFolderActionExecute
10897- end
10898- object FavoriteTreeViewReloadAction: TAction
10899- Tag = -1
10900- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10901- Caption = #12480#12454#12531#12525#12540#12489'(&R)'
10902- Hint = #36984#25246#12373#12428#12390#12356#12427#12362#27671#12395#20837#12426#12434#12480#12454#12531#12525#12540#12489#12377#12427
10903- ImageIndex = 14
10904- OnExecute = FavoriteTreeViewReloadActionExecute
10905- end
10906- object FavoriteTreeViewURLCopyAction: TAction
10907- Tag = -1
10908- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10909- Caption = 'URL'#12434#12467#12500#12540'(&C)'
10910- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12398'URL'#12434#12467#12500#12540#12377#12427
10911- OnExecute = FavoriteTreeViewURLCopyActionExecute
10912- end
10913- object FavoriteTreeViewNameCopyAction: TAction
10914- Tag = -1
10915- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10916- Caption = #21517#21069#12434#12467#12500#12540'(&C)'
10917- Hint = #36984#25246#12373#12428#12390#12356#12427#26495#12398#21517#21069#12434#12467#12500#12540#12377#12427
10918- OnExecute = FavoriteTreeViewNameCopyActionExecute
10919- end
10920- object FavoriteTreeViewNameURLCopyAction: TAction
10921- Tag = -1
10922- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10923- Caption = #21517#21069#12392'URL'#12434#12467#12500#12540'(&N)'
10924- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12398#21517#21069#12392'URL'#12434#12467#12500#12540#12377#12427
10925- OnExecute = FavoriteTreeViewNameURLCopyActionExecute
10926- end
10927- object FavoriteTreeViewLogDeleteAction: TAction
10928- Tag = -1
10929- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10930- Caption = #12525#12464#21066#38500'(&D)'
10931- Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#21066#38500#12377#12427
10932- OnExecute = FavoriteTreeViewLogDeleteActionExecute
10933- end
10934- object ResRangeAction: TAction
10935- Category = #12473#12524#12483#12489
10936- AutoCheck = True
10937- Caption = #34920#31034#31684#22258
10938- GroupIndex = 2
10939- Hint = #12524#12473#12398#34920#31034#31684#22258#12434#35373#23450
10940- ImageIndex = 38
10941- OnExecute = ResRangeActionExecute
10942- end
10943- object ExportFavoriteFile: TFileSaveAs
10944- Category = #12501#12449#12452#12523
10945- Caption = #12362#27671#12395#20837#12426#12398#12456#12463#12473#12509#12540#12488
10946- Dialog.Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
10947- Hint = #12362#27671#12395#20837#12426#12398#12456#12463#12473#12509#12540#12488
10948- BeforeExecute = ExportFavoriteFileBeforeExecute
10949- OnAccept = ExportFavoriteFileAccept
10950- end
10951- object FavoriteTreeViewBrowseBoardAction: TAction
10952- Tag = -1
10953- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10954- Caption = #26495#12434#12502#12521#12454#12470#12391#34920#31034'(&B)'
10955- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#26495#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
10956- ImageIndex = 27
10957- end
10958- object FavoriteTreeViewBrowseThreadAction: TAction
10959- Tag = -1
10960- Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
10961- Caption = #12473#12524#12483#12489#12434#12502#12521#12454#12470#12391#34920#31034'(&S)'
10962- Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
10963- ImageIndex = 27
10964- OnExecute = FavoriteTreeViewBrowseThreadActionExecute
10965- end
10966- object UpBoardAction: TAction
10967- Category = #12473#12524#12483#12489
10968- Caption = #26495#12434#34920#31034
10969- Hint = #12371#12398#12473#12524#12483#12489#12434#21547#12416#12473#12524#12483#12489#19968#35239#12434#34920#31034
10970- ImageIndex = 8
10971- OnExecute = UpBoardActionExecute
10972- OnUpdate = DependActiveCntentActionUpdate
10973- end
10974- object KoreCopy: TAction
10975- Tag = -1
10976- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
10977- Caption = #12371#12398#12524#12473#12467#12500#12540
10978- Hint = #36984#25246#12375#12383#12524#12473#12434#12467#12500#12540#12377#12427
10979- OnExecute = KoreCopyExecute
10980- end
10981- object TreeSelectNameCopy: TAction
10982- Tag = -1
10983- Category = #12484#12522#12540#12509#12483#12503#12450#12483#12503
10984- Caption = #21517#21069#12434#12467#12500#12540'(&Y)'
10985- Hint = #36984#25246#12373#12428#12383#26495#12398#21517#21069#12434#12467#12500#12540#12377#12427
10986- OnExecute = TreeSelectNameCopyExecute
10987- end
10988- object SetFocusForBrowserAction: TAction
10989- Category = #34920#31034
10990- Caption = #12502#12521#12454#12470#12395#12501#12457#12540#12459#12473#12434#24403#12390#12427
10991- Hint = #12502#12521#12454#12470#12395#12501#12457#12540#12459#12473#12434#24403#12390#12427
10992- OnExecute = SetFocusForBrowserActionExecute
10993- OnUpdate = SetFocusForBrowserActionUpdate
10994- end
10995- object SetFocusForThreadListAction: TAction
10996- Category = #34920#31034
10997- Caption = #12473#12524#12483#12489#19968#35239#12395#12501#12457#12540#12459#12473#12434#24403#12390#12427
10998- Hint = #12473#12524#12483#12489#19968#35239#12395#12501#12457#12540#12459#12473#12434#24403#12390#12427
10999- OnExecute = SetFocusForThreadListActionExecute
11000- end
11001- object SetFocusForCabinetAction: TAction
11002- Category = #34920#31034
11003- Caption = #12461#12515#12499#12493#12483#12488#12395#12501#12457#12540#12459#12473#12434#24403#12390#12427
11004- Hint = #12461#12515#12499#12493#12483#12488#12395#12501#12457#12540#12459#12473#12434#24403#12390#12427
11005- OnExecute = SetFocusForCabinetActionExecute
11006- OnUpdate = SetFocusForCabinetActionUpdate
11007- end
11008- object FileRun1: TFileRun
11009- Tag = -1
11010- Category = #12501#12449#12452#12523
11011- Browse = False
11012- BrowseDlg.Title = #23455#34892
11013- Caption = #23455#34892'(&R)...'
11014- FileName = 'notepad'
11015- Hint = #23455#34892'|'#12450#12503#12522#12465#12540#12471#12519#12531#12398#23455#34892
11016- Operation = 'open'
11017- ShowCmd = scShowNormal
11018- end
11019- object ThreadlistMaxAndFocusAction: TAction
11020- Category = #34920#31034
11021- Caption = #12473#12524#12483#12489#19968#35239#12434#26368#22823#21270#12375#12390#12501#12457#12540#12459#12473#12434#24403#12390#12427
11022- Hint = #12473#12524#12483#12489#19968#35239#12434#26368#22823#21270#12375#12390#12501#12457#12540#12459#12473#12434#24403#12390#12427
11023- OnExecute = ThreadlistMaxAndFocusActionExecute
11024- end
11025- object BrowserMaxAndFocusAction: TAction
11026- Category = #34920#31034
11027- Caption = #12473#12524#34920#31034#12434#26368#22823#21270#12375#12390#12501#12457#12540#12459#12473#12434#24403#12390#12427
11028- Hint = #12473#12524#34920#31034#12434#26368#22823#21270#12375#12390#12501#12457#12540#12459#12473#12434#24403#12390#12427
11029- OnExecute = BrowserMaxAndFocusActionExecute
11030- OnUpdate = SetFocusForBrowserActionUpdate
11031- end
11032- object SelectItemSaveForHTML: TAction
11033- Category = #12501#12449#12452#12523
11034- Caption = 'SelectItemSaveForHTML'
11035- Hint = #36984#25246#12473#12524#12483#12489#12434'HTML'#21270#12375#12390#20445#23384
11036- ImageIndex = 44
11037- OnExecute = SelectItemSaveForHTMLExecute
11038- end
11039- object SelectItemSaveForDat: TAction
11040- Category = #12501#12449#12452#12523
11041- Caption = 'SelectItemSaveForHTML'
11042- Hint = #36984#25246#12473#12524#12483#12489#12434'DAT'#24418#24335#12398#12414#12414#20445#23384
11043- ImageIndex = 44
11044- OnExecute = SelectItemSaveForDatExecute
11045- end
11046- object FileSaveAs1: TFileSaveAs
11047- Tag = -1
11048- Category = #12501#12449#12452#12523
11049- Caption = #21517#21069#12434#20184#12369#12390#20445#23384'(&A)...'
11050- Hint = #21029#21517#12391#20445#23384'|'#29694#22312#12398#12501#12449#12452#12523#12395#26032#12375#12356#21517#21069#12434#12388#12369#12390#20445#23384
11051- ImageIndex = 44
11052- end
11053- object LogFolderOpenAction: TAction
11054- Category = #26495
11055- Caption = 'Explorer'#12391'Log'#12501#12457#12523#12480#12434#38283#12367
11056- Hint = 'Explorer'#12391'Log'#12501#12457#12523#12480#12434#38283#12367
11057- OnExecute = LogFolderOpenActionExecute
11058- OnUpdate = SelectListReloadActionUpdate
11059- end
11060- object TabsSaveAction: TAction
11061- Category = #12501#12449#12452#12523
11062- Caption = #12479#12502#12398#38918#30058#12434#20445#23384
11063- Hint = #12479#12502#12398#38918#30058#12434#20445#23384
11064- OnExecute = TabsSaveActionExecute
11065- end
11066- object TabsOpenAction: TAction
11067- Category = #12501#12449#12452#12523
11068- Caption = #12479#12502#12398#38918#30058#12434#24489#20803
11069- Hint = #12479#12502#12398#38918#30058#12434#24489#20803
11070- OnExecute = TabsOpenActionExecute
11071- end
11072- object BrowsBoradHeadAction: TAction
11073- Tag = -1
11074- Category = #26495
11075- Caption = 'Head.txt'#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
11076- Hint = 'Head.txt'#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
11077- ImageIndex = 42
11078- Visible = False
11079- OnExecute = BrowsBoradHeadActionExecute
11080- OnUpdate = SelectListReloadActionUpdate
11081- end
11082- object TabAutoSaveAction: TAction
11083- Category = #12501#12449#12452#12523
11084- Caption = #12479#12502#12398#38918#30058#12434#33258#21205#20445#23384
11085- Hint = #12479#12502#12398#38918#30058#12434#33258#21205#20445#23384
11086- OnExecute = TabAutoSaveActionExecute
11087- end
11088- object TabAutoLoadAction: TAction
11089- Category = #12501#12449#12452#12523
11090- Caption = #12479#12502#12398#38918#30058#12434#33258#21205#24489#20803
11091- Hint = #12479#12502#12398#38918#30058#12434#33258#21205#24489#20803
11092- OnExecute = TabAutoLoadActionExecute
11093- end
11094- object JumpToNumOfResAction: TAction
11095- Category = #12473#12524#12483#12489
11096- Caption = #25351#23450#12375#12383#30058#21495#12398#12524#12473#12395#39131#12406
11097- Hint = #25351#23450#12375#12383#30058#21495#12398#12524#12473#12395#39131#12406
11098- ShortCut = 16455
11099- OnExecute = JumpToNumOfResActionExecute
11100- OnUpdate = DependActiveCntentLogActionUpdate
11101- end
11102- object FavoriteTreeViewCollapseAction: TAction
11103- Category = #12362#27671#12395#20837#12426
11104- Caption = #12362#27671#12395#20837#12426#12484#12522#12540#12434#12377#12409#12390#38281#12376#12427
11105- Hint = #12362#27671#12395#20837#12426#12484#12522#12540#12434#12377#12409#12390#38281#12376#12427
11106- OnExecute = FavoriteTreeViewCollapseActionExecute
11107- end
11108- object RightTabCloseAction: TAction
11109- Category = #12473#12524#12483#12489
11110- Caption = #12450#12463#12486#12451#12502#12394#12479#12502#12424#12426#21491#12434#38281#12376#12427
11111- Hint = #12450#12463#12486#12451#12502#12394#12479#12502#12424#12426#21491#12434#38281#12376#12427
11112- OnExecute = RightTabCloseActionExecute
11113- OnUpdate = RightTabCloseActionUpdate
11114- end
11115- object LeftTabCloseAction: TAction
11116- Category = #12473#12524#12483#12489
11117- Caption = #12450#12463#12486#12451#12502#12394#12479#12502#12424#12426#24038#12434#38281#12376#12427
11118- Hint = #12450#12463#12486#12451#12502#12394#12479#12502#12424#12426#24038#12434#38281#12376#12427
11119- OnExecute = LeftTabCloseActionExecute
11120- OnUpdate = RightTabCloseActionUpdate
11121- end
11122- object SameIDResAnchorAction: TAction
11123- Tag = -1
11124- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
11125- Caption = #21516'ID'#12408#12398#12524#12473#12450#12531#12459#12540#34920#31034
11126- Hint = #21516'ID'#12408#12398#12524#12473#12450#12531#12459#12540#34920#31034
11127- OnExecute = SameIDResAnchorActionExecute
11128- end
11129- object IndividualAbon1Action: TAction
11130- Tag = -1
11131- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
11132- Caption = #12354#12412#65374#12435
11133- Hint = #12354#12412#65374#12435
11134- OnExecute = IndividualAbon1ActionExecute
11135- end
11136- object IndividualAbon0Action: TAction
11137- Tag = -1
11138- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
11139- Caption = #36879#26126#12354#12412#65374#12435
11140- Hint = #36879#26126#12354#12412#65374#12435
11141- OnExecute = IndividualAbon0ActionExecute
11142- end
11143- object AntiIndividualAbonAction: TAction
11144- Tag = -1
11145- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
11146- Caption = #12371#12398#12524#12473
11147- Hint = #12371#12398#12524#12473
11148- OnExecute = AntiIndividualAbonActionExecute
11149- end
11150- object AntiIndividualAbonDlgAction: TAction
11151- Tag = -1
11152- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
11153- Caption = #12524#12473#30058#21495#25351#23450
11154- Hint = #12524#12473#30058#21495#25351#23450
11155- OnExecute = AntiIndividualAbonDlgActionExecute
11156- OnUpdate = DependActiveCntentLogActionUpdate
11157- end
11158- object IndividualAbonID1Action: TAction
11159- Tag = -1
11160- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
11161- Caption = #12354#12412#65374#12435
11162- Hint = #12354#12412#65374#12435
11163- OnExecute = IndividualAbonID1ActionExecute
11164- end
11165- object IndividualAbonID0Action: TAction
11166- Tag = -1
11167- Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
11168- Caption = #36879#26126#12354#12412#65374#12435
11169- Hint = #36879#26126#12354#12412#65374#12435
11170- OnExecute = IndividualAbonID0ActionExecute
11171- end
11172- object MuteAction: TAction
11173- Category = #12484#12540#12523
11174- AutoCheck = True
11175- Caption = #12511#12517#12540#12488
11176- Hint = #12511#12517#12540#12488
11177- ImageIndex = 52
11178- OnExecute = MuteActionExecute
11179- end
11180- object SortActiveColumnAction: TAction
11181- Category = #26495
11182- Caption = #29694#22312#12398#12459#12521#12512#12434#12477#12540#12488#12377#12427
11183- Hint = #29694#22312#12398#12459#12521#12512#12434#12477#12540#12488#12377#12427
11184- OnExecute = SortActiveColumnActionExecute
11185- end
11186- object SortNextColumnAction: TAction
11187- Category = #26495
11188- Caption = #21491#38563#12398#12459#12521#12512#12434#12477#12540#12488
11189- Hint = #21491#38563#12398#12459#12521#12512#12434#12477#12540#12488
11190- OnExecute = SortNextColumnActionExecute
11191- end
11192- object SortPrevColumnAction: TAction
11193- Category = #26495
11194- Caption = #24038#38563#12398#12459#12521#12512#12434#12477#12540#12488
11195- Hint = #24038#38563#12398#12459#12521#12512#12434#12477#12540#12488
11196- OnExecute = SortPrevColumnActionExecute
11197- end
11198- object BeLogInOutAction: TAction
11199- Category = #12501#12449#12452#12523
11200- Caption = 'Be2ch'#12395#12525#12464#12452#12531'/'#12525#12464#12450#12454#12488#12377#12427
11201- Hint = 'Be2ch'#12395#12525#12464#12452#12531'/'#12525#12464#12450#12454#12488#12377#12427
11202- ImageIndex = 53
11203- OnExecute = BeLogInOutActionExecute
11204- OnUpdate = BeLogInOutActionUpdate
11205- end
11206- object UnSelectedListViewAction: TAction
11207- Category = #34920#31034
11208- Caption = #12473#12524#12483#12489#19968#35239#12398#36984#25246#12434#35299#38500#12377#12427
11209- Hint = #12473#12524#12483#12489#19968#35239#12398#36984#25246#12434#35299#38500#12377#12427
11210- OnExecute = UnSelectedListViewActionExecute
11211- end
11212- object WikiFAQWebPageAction: TAction
11213- Category = #12504#12523#12503
11214- Caption = 'WikiFAQWebPageAction'
11215- OnExecute = WikiFAQWebPageActionExecute
11216- end
11217- end
112188023 object BrowserPopupMenu: TPopupMenu
112198024 Left = 68
112208025 Top = 276
112218026 object ShowThreadMenu: TMenuItem
11222- Action = ShowThreadAction
8027+ Action = GikoDM.ShowThreadAction
112238028 end
112248029 object ShowBoardMenu: TMenuItem
11225- Action = ShowBoardAction
8030+ Action = GikoDM.ShowBoardAction
112268031 end
112278032 object URLC1: TMenuItem
11228- Action = URLCopyAction
8033+ Action = GikoDM.URLCopyAction
112298034 end
112308035 object T8: TMenuItem
11231- Action = NameCopyAction
8036+ Action = GikoDM.NameCopyAction
112328037 end
112338038 object URL1: TMenuItem
11234- Action = NameURLCopyAction
8039+ Action = GikoDM.NameURLCopyAction
112358040 end
112368041 end
112378042 object ListIconPopupMenu: TPopupMenu
112388043 Left = 68
112398044 Top = 308
112408045 object LargeIconPMenu: TMenuItem
11241- Action = LargeIconAction
8046+ Action = GikoDM.LargeIconAction
112428047 GroupIndex = 2
112438048 RadioItem = True
112448049 end
112458050 object SmallIconPMenu: TMenuItem
112468051 Tag = 1
11247- Action = SmallIconAction
8052+ Action = GikoDM.SmallIconAction
112488053 GroupIndex = 2
112498054 RadioItem = True
112508055 end
112518056 object ListPMenu: TMenuItem
112528057 Tag = 2
11253- Action = ListIconAction
8058+ Action = GikoDM.ListIconAction
112548059 GroupIndex = 2
112558060 RadioItem = True
112568061 end
112578062 object DetailPMenu: TMenuItem
112588063 Tag = 3
11259- Action = DetailIconAction
8064+ Action = GikoDM.DetailIconAction
112608065 GroupIndex = 2
112618066 RadioItem = True
112628067 end
@@ -11273,16 +8078,16 @@ object GikoForm: TGikoForm
112738078 Left = 68
112748079 Top = 244
112758080 object ItemRoundPMenu: TMenuItem
11276- Action = SelectThreadReloadAction
8081+ Action = GikoDM.SelectThreadReloadAction
112778082 end
112788083 object ItemReservPMenu: TMenuItem
11279- Action = SelectReservAction
8084+ Action = GikoDM.SelectReservAction
112808085 end
112818086 object LPMSep01: TMenuItem
112828087 Caption = '-'
112838088 end
112848089 object ListRoundPMenu: TMenuItem
11285- Action = SelectListReloadAction
8090+ Action = GikoDM.SelectListReloadAction
112868091 end
112878092 object ListReservPMenu: TMenuItem
112888093 Caption = #12473#12524#12483#12489#19968#35239#24033#22238#20104#32004'(&R)'
@@ -11292,40 +8097,40 @@ object GikoForm: TGikoForm
112928097 Caption = '-'
112938098 end
112948099 object BoardFavoriteAddMenu: TMenuItem
11295- Action = BoardFavoriteAddAction
8100+ Action = GikoDM.BoardFavoriteAddAction
112968101 end
112978102 object ThreadFavoriteAddMenu: TMenuItem
11298- Action = ThreadFavoriteAddAction
8103+ Action = GikoDM.ThreadFavoriteAddAction
112998104 end
113008105 object N32: TMenuItem
113018106 Caption = '-'
113028107 end
113038108 object KidokuPMenu: TMenuItem
11304- Action = KidokuAction
8109+ Action = GikoDM.KidokuAction
113058110 end
113068111 object MidokuPMenu: TMenuItem
11307- Action = MidokuAction
8112+ Action = GikoDM.MidokuAction
113088113 end
113098114 object N55: TMenuItem
113108115 Caption = '-'
113118116 end
113128117 object UrlCopyPMenu: TMenuItem
11313- Action = SelectItemURLCopyAction
8118+ Action = GikoDM.SelectItemURLCopyAction
113148119 end
113158120 object C2: TMenuItem
11316- Action = SelectItemNameCopyAction
8121+ Action = GikoDM.SelectItemNameCopyAction
113178122 end
113188123 object NameUrlCopyPMenu: TMenuItem
11319- Action = SelectItemNameURLCopyAction
8124+ Action = GikoDM.SelectItemNameURLCopyAction
113208125 end
113218126 object AllSelectPMenu: TMenuItem
11322- Action = AllSelectAction
8127+ Action = GikoDM.AllSelectAction
113238128 end
113248129 object LPMSep05: TMenuItem
113258130 Caption = '-'
113268131 end
113278132 object DeletePMenu: TMenuItem
11328- Action = LogDeleteAction
8133+ Action = GikoDM.LogDeleteAction
113298134 end
113308135 object LPMSep06: TMenuItem
113318136 Caption = '-'
@@ -11333,25 +8138,25 @@ object GikoForm: TGikoForm
113338138 object ViewPMenu: TMenuItem
113348139 Caption = #34920#31034'(&V)'
113358140 object LargeIconLPMenu: TMenuItem
11336- Action = LargeIconAction
8141+ Action = GikoDM.LargeIconAction
113378142 GroupIndex = 2
113388143 RadioItem = True
113398144 end
113408145 object SmallIconLPMenu: TMenuItem
113418146 Tag = 1
11342- Action = SmallIconAction
8147+ Action = GikoDM.SmallIconAction
113438148 GroupIndex = 2
113448149 RadioItem = True
113458150 end
113468151 object ListLPMenu: TMenuItem
113478152 Tag = 2
11348- Action = ListIconAction
8153+ Action = GikoDM.ListIconAction
113498154 GroupIndex = 2
113508155 RadioItem = True
113518156 end
113528157 object DetailLPMenu: TMenuItem
113538158 Tag = 3
11354- Action = DetailIconAction
8159+ Action = GikoDM.DetailIconAction
113558160 GroupIndex = 2
113568161 RadioItem = True
113578162 end
@@ -11362,22 +8167,22 @@ object GikoForm: TGikoForm
113628167 Left = 68
113638168 Top = 372
113648169 object KokomadePMenu: TMenuItem
11365- Action = KokomadeAction
8170+ Action = GikoDM.KokomadeAction
113668171 end
113678172 object AllPMenu: TMenuItem
11368- Action = ZenbuAction
8173+ Action = GikoDM.ZenbuAction
113698174 end
113708175 object MenuItem1: TMenuItem
113718176 Caption = '-'
113728177 end
113738178 object MenuItem2: TMenuItem
11374- Action = KokoResAction
8179+ Action = GikoDM.KokoResAction
113758180 end
113768181 object N64: TMenuItem
113778182 Caption = '-'
113788183 end
113798184 object N63: TMenuItem
11380- Action = KoreCopy
8185+ Action = GikoDM.KoreCopy
113818186 end
113828187 object N41: TMenuItem
113838188 Caption = '-'
@@ -11386,35 +8191,35 @@ object GikoForm: TGikoForm
113868191 Caption = #12371#12398#12524#12473
113878192 object IndividualAbon1: TMenuItem
113888193 Tag = 1
11389- Action = IndividualAbon1Action
8194+ Action = GikoDM.IndividualAbon1Action
113908195 end
113918196 object IndividualAbon2: TMenuItem
11392- Action = IndividualAbon0Action
8197+ Action = GikoDM.IndividualAbon0Action
113938198 end
113948199 end
113958200 object ID3: TMenuItem
113968201 Caption = #12371#12398#12524#12473#12398'ID'
113978202 object ID2: TMenuItem
11398- Action = IndividualAbonID1Action
8203+ Action = GikoDM.IndividualAbonID1Action
113998204 end
114008205 object N71: TMenuItem
11401- Action = IndividualAbonID0Action
8206+ Action = GikoDM.IndividualAbonID0Action
114028207 end
114038208 end
114048209 object N52: TMenuItem
114058210 Caption = #20491#21029#12354#12412#65374#12435#35299#38500
114068211 object AntiIndividualAbon: TMenuItem
11407- Action = AntiIndividualAbonAction
8212+ Action = GikoDM.AntiIndividualAbonAction
114088213 end
114098214 object N51: TMenuItem
11410- Action = AntiIndividualAbonDlgAction
8215+ Action = GikoDM.AntiIndividualAbonDlgAction
114118216 end
114128217 end
114138218 object N70: TMenuItem
114148219 Caption = '-'
114158220 end
114168221 object ID1: TMenuItem
11417- Action = SameIDResAnchorAction
8222+ Action = GikoDM.SameIDResAnchorAction
114188223 end
114198224 end
114208225 object BrowserTabPopupMenu: TPopupMenu
@@ -11423,14 +8228,13 @@ object GikoForm: TGikoForm
114238228 Left = 68
114248229 Top = 404
114258230 object A4: TMenuItem
11426- Action = ItemReloadAction
8231+ Action = GikoDM.ItemReloadAction
114278232 end
114288233 object N16: TMenuItem
114298234 Caption = '-'
114308235 end
114318236 object A9: TMenuItem
11432- Action = FavoriteAddAction
11433- Caption = #12362#27671#12395#20837#12426#12395#36861#21152'(&A)...'
8237+ Action = GikoDM.FavoriteAddAction
114348238 end
114358239 object dummy1: TMenuItem
114368240 Caption = 'dummy1'
@@ -11439,28 +8243,28 @@ object GikoForm: TGikoForm
114398243 Caption = '-'
114408244 end
114418245 object Close1: TMenuItem
11442- Action = BrowserTabCloseAction
8246+ Action = GikoDM.BrowserTabCloseAction
114438247 end
114448248 object A3: TMenuItem
11445- Action = NotSelectTabCloseAction
8249+ Action = GikoDM.NotSelectTabCloseAction
114468250 end
114478251 object N72: TMenuItem
11448- Action = LeftTabCloseAction
8252+ Action = GikoDM.LeftTabCloseAction
114498253 end
114508254 object N73: TMenuItem
11451- Action = RightTabCloseAction
8255+ Action = GikoDM.RightTabCloseAction
114528256 end
114538257 object N18: TMenuItem
114548258 Caption = '-'
114558259 end
114568260 object D3: TMenuItem
11457- Action = ActiveLogDeleteAction
8261+ Action = GikoDM.ActiveLogDeleteAction
114588262 end
114598263 object N20: TMenuItem
114608264 Caption = '-'
114618265 end
114628266 object A5: TMenuItem
11463- Action = AllTabCloseAction
8267+ Action = GikoDM.AllTabCloseAction
114648268 end
114658269 end
114668270 object TreePopupMenu: TPopupMenu
@@ -11468,51 +8272,51 @@ object GikoForm: TGikoForm
114688272 Left = 68
114698273 Top = 436
114708274 object TreeSelectThreadPupupMenu: TMenuItem
11471- Action = TreeSelectThreadReload
8275+ Action = GikoDM.TreeSelectThreadReload
114728276 end
114738277 object TreeSelectBoardPupupMenu: TMenuItem
11474- Action = TreeSelectBoradReload
8278+ Action = GikoDM.TreeSelectBoradReload
114758279 end
114768280 object TPMSep01: TMenuItem
114778281 Caption = '-'
114788282 end
114798283 object TreeSelectFavoriteAddPupupMenu: TMenuItem
11480- Action = TreeSelectFavoriteAddAction
8284+ Action = GikoDM.TreeSelectFavoriteAddAction
114818285 end
114828286 object N33: TMenuItem
114838287 Caption = '-'
114848288 end
114858289 object TreeSelectURLPupupMenu: TMenuItem
11486- Action = TreeSelectURLCopy
8290+ Action = GikoDM.TreeSelectURLCopy
114878291 end
114888292 object TreeSelectNamePupupMenu: TMenuItem
11489- Action = TreeSelectNameCopy
8293+ Action = GikoDM.TreeSelectNameCopy
114908294 end
114918295 object TreeSelectNameURLPupupMenu: TMenuItem
11492- Action = TreeSelectNameURLCopy
8296+ Action = GikoDM.TreeSelectNameURLCopy
114938297 end
114948298 object TreeSelectLogDeleteSeparator: TMenuItem
114958299 Caption = '-'
114968300 end
114978301 object TreeSelectLogDeletePopupMenu: TMenuItem
11498- Action = FavoriteTreeViewLogDeleteAction
8302+ Action = GikoDM.FavoriteTreeViewLogDeleteAction
114998303 end
115008304 object N65: TMenuItem
115018305 Caption = '-'
115028306 end
115038307 object SearchBoardName: TMenuItem
11504- Action = TreeSelectSearchBoardName
8308+ Action = GikoDM.TreeSelectSearchBoardName
115058309 end
115068310 end
115078311 object CabinetSelectPopupMenu: TPopupMenu
115088312 Left = 68
115098313 Top = 468
115108314 object H2: TMenuItem
11511- Action = CabinetHistoryAction
8315+ Action = GikoDM.CabinetHistoryAction
115128316 AutoCheck = True
115138317 end
115148318 object A13: TMenuItem
11515- Action = CabinetFavoriteAction
8319+ Action = GikoDM.CabinetFavoriteAction
115168320 AutoCheck = True
115178321 end
115188322 end
@@ -11541,82 +8345,82 @@ object GikoForm: TGikoForm
115418345 Hint = #29694#22312#34920#31034#12375#12390#12356#12427#26495#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
115428346 end
115438347 object MenuItem5: TMenuItem
11544- Action = SelectItemURLCopyAction
8348+ Action = GikoDM.SelectItemURLCopyAction
115458349 end
115468350 object MenuItem6: TMenuItem
11547- Action = SelectItemNameURLCopyAction
8351+ Action = GikoDM.SelectItemNameURLCopyAction
115488352 end
115498353 object URLN3: TMenuItem
11550- Action = SelectItemNameCopyAction
8354+ Action = GikoDM.SelectItemNameCopyAction
115518355 end
115528356 end
115538357 object MainCoolBarPopupMenu: TPopupMenu
115548358 Left = 100
115558359 Top = 404
115568360 object StdToolBarVisiblePMenu: TMenuItem
11557- Action = StdToolBarVisibleAction
8361+ Action = GikoDM.StdToolBarVisibleAction
115588362 AutoCheck = True
115598363 end
115608364 object AddressToolBarVisiblePMenu: TMenuItem
11561- Action = AddressBarVisibleAction
8365+ Action = GikoDM.AddressBarVisibleAction
115628366 AutoCheck = True
115638367 end
115648368 object LinkToolBarVisiblePMenu: TMenuItem
11565- Action = LinkBarVisibleAction
8369+ Action = GikoDM.LinkBarVisibleAction
115668370 AutoCheck = True
115678371 end
115688372 object N44: TMenuItem
115698373 Caption = '-'
115708374 end
115718375 object L9: TMenuItem
11572- Action = ListToolBarVisibleAction
8376+ Action = GikoDM.ListToolBarVisibleAction
115738377 AutoCheck = True
115748378 end
115758379 object I3: TMenuItem
11576- Action = ListNameBarVisibleAction
8380+ Action = GikoDM.ListNameBarVisibleAction
115778381 AutoCheck = True
115788382 end
115798383 object N45: TMenuItem
115808384 Caption = '-'
115818385 end
115828386 object B9: TMenuItem
11583- Action = BrowserToolBarVisibleAction
8387+ Action = GikoDM.BrowserToolBarVisibleAction
115848388 AutoCheck = True
115858389 end
115868390 object R5: TMenuItem
11587- Action = BrowserNameBarVisibleAction
8391+ Action = GikoDM.BrowserNameBarVisibleAction
115888392 AutoCheck = True
115898393 end
115908394 object T12: TMenuItem
115918395 Caption = #12502#12521#12454#12470#12479#12502'(&T)'
115928396 object Show3: TMenuItem
11593- Action = BrowserTabVisibleAction
8397+ Action = GikoDM.BrowserTabVisibleAction
115948398 AutoCheck = True
115958399 end
115968400 object N46: TMenuItem
115978401 Caption = '-'
115988402 end
115998403 object T13: TMenuItem
11600- Action = BrowserTabTopAction
8404+ Action = GikoDM.BrowserTabTopAction
116018405 AutoCheck = True
116028406 end
116038407 object B10: TMenuItem
11604- Action = BrowserTabBottomAction
8408+ Action = GikoDM.BrowserTabBottomAction
116058409 AutoCheck = True
116068410 end
116078411 object N47: TMenuItem
116088412 Caption = '-'
116098413 end
116108414 object A12: TMenuItem
11611- Action = BrowserTabTabStyleAction
8415+ Action = GikoDM.BrowserTabTabStyleAction
116128416 AutoCheck = True
116138417 end
116148418 object U4: TMenuItem
11615- Action = BrowserTabButtonStyleAction
8419+ Action = GikoDM.BrowserTabButtonStyleAction
116168420 AutoCheck = True
116178421 end
116188422 object F4: TMenuItem
11619- Action = BrowserTabFlatStyleAction
8423+ Action = GikoDM.BrowserTabFlatStyleAction
116208424 AutoCheck = True
116218425 end
116228426 end
@@ -11624,7 +8428,7 @@ object GikoForm: TGikoForm
116248428 Caption = '-'
116258429 end
116268430 object T14: TMenuItem
11627- Action = ToolBarSettingAction
8431+ Action = GikoDM.ToolBarSettingAction
116288432 end
116298433 end
116308434 object FavoriteTreePopupMenu: TPopupMenu
@@ -11632,46 +8436,46 @@ object GikoForm: TGikoForm
116328436 Left = 99
116338437 Top = 436
116348438 object FavoriteTreeBrowseFolderPopupMenu: TMenuItem
11635- Action = FavoriteTreeViewBrowseFolderAction
8439+ Action = GikoDM.FavoriteTreeViewBrowseFolderAction
116368440 end
116378441 object N57: TMenuItem
116388442 Caption = '-'
116398443 end
116408444 object FavoriteTreeDeletePopupMenu: TMenuItem
11641- Action = FavoriteTreeViewDeleteAction
8445+ Action = GikoDM.FavoriteTreeViewDeleteAction
116428446 end
116438447 object FavoriteTreeRenamePopupMenu: TMenuItem
11644- Action = FavoriteTreeViewRenameAction
8448+ Action = GikoDM.FavoriteTreeViewRenameAction
116458449 end
116468450 object N56: TMenuItem
116478451 Caption = '-'
116488452 end
116498453 object FavoriteTreeNewFolderPopupMenu: TMenuItem
11650- Action = FavoriteTreeViewNewFolderAction
8454+ Action = GikoDM.FavoriteTreeViewNewFolderAction
116518455 end
116528456 object N58: TMenuItem
116538457 Caption = '-'
116548458 end
116558459 object FavoriteTreeURLCopyPopupMenu: TMenuItem
11656- Action = FavoriteTreeViewURLCopyAction
8460+ Action = GikoDM.FavoriteTreeViewURLCopyAction
116578461 end
116588462 object FavoriteTreeNameCopyPopupMenu: TMenuItem
11659- Action = FavoriteTreeViewNameCopyAction
8463+ Action = GikoDM.FavoriteTreeViewNameCopyAction
116608464 end
116618465 object FavoriteTreeNameURLCopyPopupMenu: TMenuItem
11662- Action = FavoriteTreeViewNameURLCopyAction
8466+ Action = GikoDM.FavoriteTreeViewNameURLCopyAction
116638467 end
116648468 object N60: TMenuItem
116658469 Caption = '-'
116668470 end
116678471 object FavoriteTreeReloadPopupMenu: TMenuItem
11668- Action = FavoriteTreeViewReloadAction
8472+ Action = GikoDM.FavoriteTreeViewReloadAction
116698473 end
116708474 object N59: TMenuItem
116718475 Caption = '-'
116728476 end
116738477 object FavoriteTreeLogDeletePopupMenu: TMenuItem
11674- Action = FavoriteTreeViewLogDeleteAction
8478+ Action = GikoDM.FavoriteTreeViewLogDeleteAction
116758479 end
116768480 end
116778481 object BBSSelectPopupMenu: TPopupMenu
@@ -11682,26 +8486,26 @@ object GikoForm: TGikoForm
116828486 Left = 37
116838487 Top = 472
116848488 object A14: TMenuItem
11685- Action = AllResAction
8489+ Action = GikoDM.AllResAction
116868490 AutoCheck = True
116878491 end
116888492 object N1001: TMenuItem
11689- Action = OnlyAHundredResAction
8493+ Action = GikoDM.OnlyAHundredResAction
116908494 AutoCheck = True
116918495 end
116928496 object N501: TMenuItem
11693- Action = OnlyKokoResAction
8497+ Action = GikoDM.OnlyKokoResAction
116948498 AutoCheck = True
116958499 end
116968500 object N22: TMenuItem
11697- Action = OnlyNewResAction
8501+ Action = GikoDM.OnlyNewResAction
116988502 AutoCheck = True
116998503 end
117008504 object N69: TMenuItem
117018505 Caption = '-'
117028506 end
117038507 object S7: TMenuItem
11704- Action = SelectResAction
8508+ Action = GikoDM.SelectResAction
117058509 AutoCheck = True
117068510 end
117078511 end
@@ -11709,22 +8513,22 @@ object GikoForm: TGikoForm
117098513 Left = 37
117108514 Top = 436
117118515 object A15: TMenuItem
11712- Action = AllItemAction
8516+ Action = GikoDM.AllItemAction
117138517 AutoCheck = True
117148518 end
117158519 object L8: TMenuItem
11716- Action = LogItemAction
8520+ Action = GikoDM.LogItemAction
117178521 AutoCheck = True
117188522 end
117198523 object N67: TMenuItem
11720- Action = NewItemAction
8524+ Action = GikoDM.NewItemAction
117218525 AutoCheck = True
117228526 end
117238527 object N68: TMenuItem
117248528 Caption = '-'
117258529 end
117268530 object S6: TMenuItem
11727- Action = SelectItemAction
8531+ Action = GikoDM.SelectItemAction
117288532 AutoCheck = True
117298533 end
117308534 end
@@ -11732,4 +8536,11 @@ object GikoForm: TGikoForm
117328536 Left = 37
117338537 Top = 403
117348538 end
8539+ object GikoApplicationEvents: TApplicationEvents
8540+ OnDeactivate = GikoApplicationEventsDeactivate
8541+ OnException = GikoApplicationEventsException
8542+ OnMessage = GikoApplicationEventsMessage
8543+ Left = 4
8544+ Top = 373
8545+ end
117358546 end
--- a/Giko.pas
+++ b/Giko.pas
@@ -4,7 +4,7 @@ interface
44
55 uses
66 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7- OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math,
7+ OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils,
88 {$IF Defined(DELPRO) }
99 SHDocVw,
1010 MSHTML,
@@ -13,16 +13,12 @@ uses
1313 MSHTML_TLB,
1414 {$IFEND}
1515 IdHTTP, ActiveX, ActnList, ImgList,
16- ToolWin, Buttons, {Clipbrd,} {HTTPApp,} YofUtils, IdComponent,
17- ShellAPI, UrlMon, Tabs, IdGlobal, StrUtils,
18- CommCtrl, IniFiles, Dialogs,
19- GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
20- Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
21- FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
22- HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
23- IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain,
24- StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent,
25- IdTCPClient, Gesture;
16+ ToolWin, Buttons, IdComponent, UrlMon, Tabs, IdGlobal, StrUtils,
17+ CommCtrl, Dialogs, GikoSystem, Setting, BoardGroup, ThreadControl, ItemDownload,
18+ Editor, RoundData, GikoPanel, Favorite, HTMLDocumentEvent,
19+ HintWindow, GikoCoolBar, GikoListView, Search, ExternalBoardManager,
20+ ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection,
21+ IdBaseComponent, IdTCPClient, AppEvnts;
2622
2723 type
2824 TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);
@@ -50,44 +46,16 @@ type
5046 MessageListView: TListView;
5147 MessageSplitter: TSplitter;
5248 Panel3: TPanel;
53- SpeedButton1: TSpeedButton;
49+ CabinetCloseSpeedButton: TSpeedButton;
5450 ToolBar1: TToolBar;
5551 CabinetSelectToolButton: TToolButton;
5652 HistoryToolBar: TToolBar;
57- ToolButton15: TToolButton;
58- ToolButton18: TToolButton;
53+ HistoryShowToolButton: TToolButton;
54+ HistoryAllClearToolButton: TToolButton;
5955 ItemIcon16: TImageList;
6056 ItemIcon32: TImageList;
6157 HotToobarImageList: TImageList;
62- ToobarImageList: TImageList;
6358 ItemImageList: TImageList;
64- ActionList: TActionList;
65- LogDeleteAction: TAction;
66- KidokuAction: TAction;
67- StdToolBarVisibleAction: TAction;
68- SearchAction: TAction;
69- GikoNaviWebPageAction: TAction;
70- AboutAction: TAction;
71- ExitAction: TAction;
72- MsgBarVisibleAction: TAction;
73- StatusBarVisibleAction: TAction;
74- LargeIconAction: TAction;
75- SmallIconAction: TAction;
76- ListIconAction: TAction;
77- DetailIconAction: TAction;
78- CabinetBBSAction: TAction;
79- CabinetHistoryAction: TAction;
80- CabinetVisibleAction: TAction;
81- MidokuAction: TAction;
82- AllSelectAction: TAction;
83- UpFolderAction: TAction;
84- ListNumberVisibleAction: TAction;
85- AllItemAction: TAction;
86- LogItemAction: TAction;
87- NewItemAction: TAction;
88- SelectItemAction: TAction;
89- ShowThreadAction: TAction;
90- StopAction: TAction;
9159 MainMenu: TMainMenu;
9260 FileMenu: TMenuItem;
9361 DeleteMenu: TMenuItem;
@@ -117,20 +85,16 @@ type
11785 G1: TMenuItem;
11886 N1: TMenuItem;
11987 AboutMenu: TMenuItem;
120- IconStyle: TAction;
12188 BrowserPopupMenu: TPopupMenu;
12289 ShowThreadMenu: TMenuItem;
12390 ShowBoardMenu: TMenuItem;
124- ShowBoardAction: TAction;
12591 ListIconPopupMenu: TPopupMenu;
12692 LargeIconPMenu: TMenuItem;
12793 SmallIconPMenu: TMenuItem;
12894 ListPMenu: TMenuItem;
12995 DetailPMenu: TMenuItem;
130- CabinetCloseAction: TAction;
13196 ClosePopupMenu: TPopupMenu;
13297 CloseMenu: TMenuItem;
133- OptionAction: TAction;
13498 U1: TMenuItem;
13599 N3: TMenuItem;
136100 B1: TMenuItem;
@@ -140,7 +104,6 @@ type
140104 L1: TMenuItem;
141105 N5: TMenuItem;
142106 S2: TMenuItem;
143- RoundAction: TAction;
144107 ListPopupMenu: TPopupMenu;
145108 ListRoundPMenu: TMenuItem;
146109 ListReservPMenu: TMenuItem;
@@ -162,19 +125,9 @@ type
162125 T1: TMenuItem;
163126 B2: TMenuItem;
164127 N8: TMenuItem;
165- URLCopyAction: TAction;
166128 URLC1: TMenuItem;
167129 N9: TMenuItem;
168130 N10: TMenuItem;
169- MsgBarCloseAction: TAction;
170- ScrollTopAction: TAction;
171- ScrollLastAction: TAction;
172- ScrollNewAction: TAction;
173- ScrollKokoAction: TAction;
174- EditorAction: TAction;
175- IEAction: TAction;
176- ItemReloadAction: TAction;
177- BrowserMaxAction: TAction;
178131 G2: TMenuItem;
179132 N11: TMenuItem;
180133 T3: TMenuItem;
@@ -186,22 +139,13 @@ type
186139 R1: TMenuItem;
187140 A2: TMenuItem;
188141 N15: TMenuItem;
189- SelectListReloadAction: TAction;
190- SelectThreadReloadAction: TAction;
191142 KokoPopupMenu: TPopupMenu;
192143 KokomadePMenu: TMenuItem;
193144 AllPMenu: TMenuItem;
194145 MenuItem1: TMenuItem;
195146 MenuItem2: TMenuItem;
196- BrowserTabCloseAction: TAction;
197147 BrowserTabPopupMenu: TPopupMenu;
198148 Close1: TMenuItem;
199- KokomadeAction: TAction;
200- ZenbuAction: TAction;
201- KokoResAction: TAction;
202- SelectItemURLCopyAction: TAction;
203- SelectReservAction: TAction;
204- NotSelectTabCloseAction: TAction;
205149 A3: TMenuItem;
206150 N16: TMenuItem;
207151 A4: TMenuItem;
@@ -210,11 +154,6 @@ type
210154 TreeSelectBoardPupupMenu: TMenuItem;
211155 TPMSep01: TMenuItem;
212156 TreeSelectURLPupupMenu: TMenuItem;
213- TreeSelectBoradReload: TAction;
214- TreeSelectThreadReload: TAction;
215- TreeSelectURLCopy: TAction;
216- ListToolBarVisibleAction: TAction;
217- BrowserToolBarVisibleAction: TAction;
218157 T2: TMenuItem;
219158 L3: TMenuItem;
220159 B3: TMenuItem;
@@ -223,16 +162,10 @@ type
223162 H2: TMenuItem;
224163 ItemReservPMenu: TMenuItem;
225164 RoundNamePopupMenu: TPopupMenu;
226- SelectNewRoundName: TAction;
227- SelectDeleteRound: TAction;
228- NewBoardAction: TAction;
229165 N7: TMenuItem;
230166 B4: TMenuItem;
231- LoginAction: TAction;
232167 L4: TMenuItem;
233- KeySettingAction: TAction;
234168 K2: TMenuItem;
235- AllTabCloseAction: TAction;
236169 A5: TMenuItem;
237170 A6: TMenuItem;
238171 C1: TMenuItem;
@@ -242,10 +175,7 @@ type
242175 D2: TMenuItem;
243176 MessageImageList: TImageList;
244177 ProgressBar: TProgressBar;
245- ArrangeAction: TAction;
246178 URL1: TMenuItem;
247- NameURLCopyAction: TAction;
248- SelectItemNameURLCopyAction: TAction;
249179 NameUrlCopyPMenu: TMenuItem;
250180 URLC2: TMenuItem;
251181 URLN1: TMenuItem;
@@ -269,52 +199,34 @@ type
269199 BrowserBoardNameLabel: TLabel;
270200 ItemImage: TImage;
271201 BrowserNameLabel: TLabel;
272- ActiveLogDeleteAction: TAction;
273202 D3: TMenuItem;
274203 N25: TMenuItem;
275204 N26: TMenuItem;
276- ListNameBarVisibleAction: TAction;
277205 D4: TMenuItem;
278- BrowserNameBarVisibleAction: TAction;
279206 S3: TMenuItem;
280207 R2: TMenuItem;
281- TreeSelectNameURLCopy: TAction;
282208 TreeSelectNameURLPupupMenu: TMenuItem;
283209 N27: TMenuItem;
284210 H3: TMenuItem;
285- PaneInitAction: TAction;
286211 I1: TMenuItem;
287212 BrowserTabToolBar: TToolBar;
288213 BrowserTab: TTabControl;
289- BrowserMinAction: TAction;
290214 About1: TMenuItem;
291215 N28: TMenuItem;
292- SelectTextClearAction: TAction;
293- MailTextClearAction: TAction;
294- NameTextClearAction: TAction;
295216 S4: TMenuItem;
296217 N29: TMenuItem;
297218 N30: TMenuItem;
298- LeftmostTabSelectAction: TAction;
299- LeftTabSelectAction: TAction;
300- RightTabSelectAction: TAction;
301- RightmostTabSelectAction: TAction;
302219 N31: TMenuItem;
303220 L5: TMenuItem;
304221 L6: TMenuItem;
305222 A7: TMenuItem;
306223 R3: TMenuItem;
307224 FavoriteMenu: TMenuItem;
308- FavoriteAddAction: TAction;
309225 N32: TMenuItem;
310226 BoardFavoriteAddMenu: TMenuItem;
311- BoardFavoriteAddAction: TAction;
312- ThreadFavoriteAddAction: TAction;
313227 ThreadFavoriteAddMenu: TMenuItem;
314- TreeSelectFavoriteAddAction: TAction;
315228 N33: TMenuItem;
316229 TreeSelectFavoriteAddPupupMenu: TMenuItem;
317- FavoriteArrangeAction: TAction;
318230 FavoriteTreeView: TTreeView;
319231 StateIconImageList: TImageList;
320232 TopPanel: TPanel;
@@ -328,61 +240,42 @@ type
328240 AddressToolBar: TToolBar;
329241 AddressComboBox: TComboBox;
330242 MoveToToolButton: TToolButton;
331- MoveToAction: TAction;
332243 AddressImageList: TImageList;
333- AddressBarVisibleAction: TAction;
334244 AddressToolBarMenu: TMenuItem;
335245 T4: TMenuItem;
336- BrowserTabVisibleAction: TAction;
337246 Show1: TMenuItem;
338247 N34: TMenuItem;
339- BrowserTabTopAction: TAction;
340- BrowserTabBottomAction: TAction;
341248 T5: TMenuItem;
342249 B5: TMenuItem;
343250 N35: TMenuItem;
344- BrowserTabTabStyleAction: TAction;
345- BrowserTabButtonStyleAction: TAction;
346- BrowserTabFlatStyleAction: TAction;
347251 A8: TMenuItem;
348252 U2: TMenuItem;
349253 F1: TMenuItem;
350254 PreviewTimer: TTimer;
351- MonazillaWebPageAction: TAction;
352255 MonazillaWebPageAction1: TMenuItem;
353- GikoHelpAction: TAction;
354256 N36: TMenuItem;
355257 H4: TMenuItem;
356- KotehanAction: TAction;
357258 K3: TMenuItem;
358- LinkBarVisibleAction: TAction;
359259 L7: TMenuItem;
360260 N37: TMenuItem;
361261 A9: TMenuItem;
362262 ChevronPopupMenu: TPopupMenu;
363- BBS2chWebPageAction: TAction;
364263 N2N1: TMenuItem;
365264 N38: TMenuItem;
366- GikoFolderOpenAction: TAction;
367265 F2: TMenuItem;
368266 LinkToolBar: TToolBar;
369267 a10: TMenuItem;
370- ThreadEditorAction: TAction;
371268 N39: TMenuItem;
372269 T6: TMenuItem;
373270 N40: TMenuItem;
374271 LinkBarPopupMenu: TPopupMenu;
375- ToolBarSettingAction: TAction;
376272 T7: TMenuItem;
377273 ThreadPopupMenu: TPopupMenu;
378274 MenuItem4: TMenuItem;
379275 MenuItem5: TMenuItem;
380276 MenuItem6: TMenuItem;
381277 T8: TMenuItem;
382- NameCopyAction: TAction;
383- BoardIEAction: TAction;
384278 URLN3: TMenuItem;
385- SelectItemNameCopyAction: TAction;
386279 SelectItemNameCopyAction1: TMenuItem;
387280 B6: TMenuItem;
388281 T9: TMenuItem;
@@ -412,46 +305,33 @@ type
412305 F4: TMenuItem;
413306 N48: TMenuItem;
414307 T14: TMenuItem;
415- SelectResAction: TAction;
416308 ToolButton16: TToolButton;
417- AllResAction: TAction;
418309 N50: TMenuItem;
419310 A11: TMenuItem;
420311 S5: TMenuItem;
421312 Reload: TMenuItem;
422313 GoBack: TMenuItem;
423314 GoFoward: TMenuItem;
424- EditNGAction: TAction;
425- ReloadAction: TAction;
426- GoFowardAction: TAction;
427- GoBackAction: TAction;
428315 IndividualAbon1: TMenuItem;
429316 N41: TMenuItem;
430317 IndividualAbon2: TMenuItem;
431- N42: TMenuItem;
432- CancellIndividualAbon: TAction;
318+ AntiIndivAbonMenuItem: TMenuItem;
433319 AntiIndividualAbon: TMenuItem;
434320 N49: TMenuItem;
435321 N51: TMenuItem;
436322 N52: TMenuItem;
437323 SearchBoardName: TMenuItem;
438324 TreeSelectLogDeleteSeparator: TMenuItem;
439- TreeSelectSearchBoardName: TAction;
440- CabinetFavoriteAction: TAction;
441325 N54: TMenuItem;
442326 A13: TMenuItem;
443327 FavoriteTreePopupMenu: TPopupMenu;
444- FavoriteTreeViewRenameAction: TAction;
445328 FavoriteTreeRenamePopupMenu: TMenuItem;
446- FavoriteTreeViewNewFolderAction: TAction;
447329 FavoriteTreeNewFolderPopupMenu: TMenuItem;
448330 N56: TMenuItem;
449- FavoriteTreeViewDeleteAction: TAction;
450331 FavoriteTreeDeletePopupMenu: TMenuItem;
451332 FavoriteToolBar: TToolBar;
452- ToolButton17: TToolButton;
453- ToolButton19: TToolButton;
454- FavoriteTreeViewBrowseFolderAction: TAction;
333+ FavoriteAddToolButton: TToolButton;
334+ FavoriteArrangeToolButton: TToolButton;
455335 FavoriteTreeBrowseFolderPopupMenu: TMenuItem;
456336 N57: TMenuItem;
457337 FavoriteTreeReloadPopupMenu: TMenuItem;
@@ -461,123 +341,65 @@ type
461341 FavoriteTreeLogDeletePopupMenu: TMenuItem;
462342 N59: TMenuItem;
463343 FavoriteTreeNameURLCopyPopupMenu: TMenuItem;
464- FavoriteTreeViewReloadAction: TAction;
465- FavoriteTreeViewURLCopyAction: TAction;
466- FavoriteTreeViewNameCopyAction: TAction;
467- FavoriteTreeViewNameURLCopyAction: TAction;
468- FavoriteTreeViewLogDeleteAction: TAction;
469- ResRangeAction: TAction;
470344 ToolButton20: TToolButton;
471345 N60: TMenuItem;
472346 ExportFavoriteFileAction1: TMenuItem;
473- ExportFavoriteFile: TFileSaveAs;
474347 N6: TMenuItem;
475348 N17: TMenuItem;
476- FavoriteTreeViewBrowseBoardAction: TAction;
477- FavoriteTreeViewBrowseThreadAction: TAction;
478- UpBoardAction: TAction;
479349 N18: TMenuItem;
480350 N20: TMenuItem;
481- N24: TMenuItem;
351+ N24: TMenuItem;
482352 N62: TMenuItem;
483353 N61: TMenuItem;
484354 N63: TMenuItem;
485- KoreCopy: TAction;
486355 N64: TMenuItem;
487356 dummy1: TMenuItem;
488357 TreeSelectLogDeletePopupMenu: TMenuItem;
489358 N65: TMenuItem;
490359 BBSSelectPopupMenu: TPopupMenu;
491360 PlugInMenu: TMenuItem;
492- TreeSelectNameCopy: TAction;
493- TreeSelectNamePupupMenu: TMenuItem;
361+ TreeSelectNamePupupMenu: TMenuItem;
494362 BrowserPanel: TPanel;
495- SetFocusForBrowserAction: TAction;
496- SetFocusForThreadListAction: TAction;
497- SetFocusForCabinetAction: TAction;
498- FileRun1: TFileRun;
499- ThreadlistMaxAndFocusAction: TAction;
500- BrowserMaxAndFocusAction: TAction;
501363 SelectTimer: TTimer;
502364 SelectThreadSave: TMenuItem;
503- SelectItemSaveForHTML: TAction;
504- FileSaveAs1: TFileSaveAs;
505365 N55: TMenuItem;
506366 N66: TMenuItem;
507367 dat1: TMenuItem;
508- SelectItemSaveForDat: TAction;
509- LogFolderOpenAction: TAction;
510368 OpenLogFolder: TMenuItem;
511369 Browser: TWebBrowser;
512370 TabSave: TMenuItem;
513371 TabOpen: TMenuItem;
514- TabsSaveAction: TAction;
515- TabsOpenAction: TAction;
516372 ResRangePopupMenu: TPopupMenu;
517373 N1001: TMenuItem;
518374 N501: TMenuItem;
519375 N22: TMenuItem;
520- OnlyAHundredResAction: TAction;
521- OnlyNewResAction: TAction;
522- OnlyKokoResAction: TAction;
523376 A14: TMenuItem;
524- BrowsBoradHeadAction: TAction;
525377 BrowsBoradHeadAction1: TMenuItem;
526- ThreadRangeAction: TAction;
527378 ThreadRangePopupMenu: TPopupMenu;
528379 A15: TMenuItem;
529380 L8: TMenuItem;
530- N67: TMenuItem;
381+ N67: TMenuItem;
531382 N68: TMenuItem;
532383 S6: TMenuItem;
533384 N69: TMenuItem;
534385 S7: TMenuItem;
535- TabAutoSaveAction: TAction;
536- TabAutoLoadAction: TAction;
537386 ListColumnPopupMenu: TPopupMenu;
538- JumpToNumOfResAction: TAction;
539- FavoriteTreeViewCollapseAction: TAction;
540- RightTabCloseAction: TAction;
541- LeftTabCloseAction: TAction;
542387 N70: TMenuItem;
543- SameIDResAnchorAction: TAction;
544388 ID1: TMenuItem;
545- IndividualAbon1Action: TAction;
546- IndividualAbon0Action: TAction;
547- AntiIndividualAbonAction: TAction;
548- AntiIndividualAbonDlgAction: TAction;
549- IndividualAbonID1Action: TAction;
550389 ID2: TMenuItem;
551390 N53: TMenuItem;
552391 ID3: TMenuItem;
553- IndividualAbonID0Action: TAction;
554392 N71: TMenuItem;
555- MuteAction: TAction;
556393 N72: TMenuItem;
557394 N73: TMenuItem;
558- SortActiveColumnAction: TAction;
559- SortNextColumnAction: TAction;
560- SortPrevColumnAction: TAction;
561- BeLogInOutAction: TAction;
562- UnSelectedListViewAction: TAction;
563395 SelectComboBoxPanel: TPanel;
564396 SelectComboBoxSplitter: TImage;
565397 ToolButton1: TToolButton;
566398 N74: TMenuItem;
567399 WikiFAQ: TMenuItem;
568- WikiFAQWebPageAction: TAction;
400+ GikoApplicationEvents: TApplicationEvents;
569401 procedure FormCreate(Sender: TObject);
570402 procedure FormDestroy(Sender: TObject);
571- procedure CabinetPanelHide(Sender: TObject);
572- procedure ListViewData(Sender: TObject; Item: TListItem);
573- procedure ListViewDataFind(Sender: TObject; Find: TItemFind;
574- const FindString: String; const FindPosition: TPoint;
575- FindData: Pointer; StartIndex: Integer; Direction: TSearchDirection;
576- Wrap: Boolean; var Index: Integer);
577- procedure ListViewDataHint(Sender: TObject; StartIndex,
578- EndIndex: Integer);
579- procedure ListViewDataStateChange(Sender: TObject; StartIndex,
580- EndIndex: Integer; OldState, NewState: TItemStates);
581403 procedure BrowserStatusTextChange(Sender: TObject;
582404 const Text: WideString);
583405 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -586,7 +408,6 @@ type
586408 procedure ListViewKeyDown(Sender: TObject; var Key: Word;
587409 Shift: TShiftState);
588410 procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
589- procedure ListViewSort(Sender: TObject; Column: TListColumn);
590411 procedure MenuToolBarCustomDrawButton(Sender: TToolBar;
591412 Button: TToolButton; State: TCustomDrawState;
592413 var DefaultDraw: Boolean);
@@ -605,65 +426,10 @@ type
605426 Shift: TShiftState; X, Y: Integer);
606427 procedure TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
607428 procedure MessageListViewResize(Sender: TObject);
608- procedure ExitActionExecute(Sender: TObject);
609- procedure AllSelectActionExecute(Sender: TObject);
610- procedure StdToolBarVisibleActionExecute(Sender: TObject);
611- procedure MsgBarVisibleActionExecute(Sender: TObject);
612- procedure StatusBarVisibleActionExecute(Sender: TObject);
613- procedure LargeIconActionExecute(Sender: TObject);
614- procedure SmallIconActionExecute(Sender: TObject);
615- procedure ListIconActionExecute(Sender: TObject);
616- procedure DetailIconActionExecute(Sender: TObject);
617- procedure SearchActionExecute(Sender: TObject);
618- procedure OptionActionExecute(Sender: TObject);
619- procedure GikoNaviWebPageActionExecute(Sender: TObject);
620- procedure AboutActionExecute(Sender: TObject);
621- procedure CabinetHistoryActionExecute(Sender: TObject);
622429 procedure CabinetVisible( isVisible : Boolean );
623- procedure CabinetVisibleActionExecute(Sender: TObject);
624- procedure AllItemActionExecute(Sender: TObject);
625- procedure LogItemActionExecute(Sender: TObject);
626- procedure NewItemActionExecute(Sender: TObject);
627- procedure SelectItemActionExecute(Sender: TObject);
628- procedure ListNumberVisibleActionExecute(Sender: TObject);
629- procedure UpFolderActionExecute(Sender: TObject);
630- procedure IconStyleExecute(Sender: TObject);
631- procedure RoundActionExecute(Sender: TObject);
632- procedure StopActionExecute(Sender: TObject);
633- procedure MsgBarCloseActionExecute(Sender: TObject);
634- procedure BrowserMaxActionExecute(Sender: TObject);
635- procedure ScrollTopActionExecute(Sender: TObject);
636- procedure ScrollLastActionExecute(Sender: TObject);
637- procedure ScrollNewActionExecute(Sender: TObject);
638- procedure ScrollKokoActionExecute(Sender: TObject);
639- procedure EditorActionExecute(Sender: TObject);
640- procedure IEActionExecute(Sender: TObject);
641- procedure ShowThreadActionExecute(Sender: TObject);
642- procedure ShowBoardActionExecute(Sender: TObject);
643- procedure URLCopyActionExecute(Sender: TObject);
644- procedure ItemReloadActionExecute(Sender: TObject);
645- procedure SelectListReloadActionExecute(Sender: TObject);
646- procedure SelectThreadReloadActionExecute(Sender: TObject);
647- procedure SelectListReloadActionUpdate(Sender: TObject);
648- procedure UpFolderActionUpdate(Sender: TObject);
649430 procedure FormResize(Sender: TObject);
650- procedure ScrollKokoActionUpdate(Sender: TObject);
651- procedure SelectThreadReloadActionUpdate(Sender: TObject);
652- procedure LogDeleteActionExecute(Sender: TObject);
653- procedure KokomadeActionExecute(Sender: TObject);
654- procedure ZenbuActionExecute(Sender: TObject);
655- procedure KokoResActionExecute(Sender: TObject);
656431 procedure ListPopupMenuPopup(Sender: TObject);
657- procedure SelectItemURLCopyActionExecute(Sender: TObject);
658- procedure AllSelectActionUpdate(Sender: TObject);
659- procedure BrowserTabCloseActionExecute(Sender: TObject);
660- procedure NotSelectTabCloseActionExecute(Sender: TObject);
661- procedure TreeSelectBoradReloadExecute(Sender: TObject);
662- procedure TreeSelectThreadReloadExecute(Sender: TObject);
663- procedure TreeSelectURLCopyExecute(Sender: TObject);
664432 procedure TreePopupMenuPopup(Sender: TObject);
665- procedure ListToolBarVisibleActionExecute(Sender: TObject);
666- procedure BrowserToolBarVisibleActionExecute(Sender: TObject);
667433 procedure BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
668434 var Cancel: WordBool);
669435 procedure ListSplitterMoved(Sender: TObject);
@@ -677,66 +443,19 @@ type
677443 Y: Integer);
678444 procedure BrowserDocumentComplete(Sender: TObject;
679445 const pDisp: IDispatch; var URL: OleVariant);
680- procedure SelectReservActionUpdate(Sender: TObject);
681446 procedure RoundNamePopupMenuPopup(Sender: TObject);
682- procedure SelectNewRoundNameExecute(Sender: TObject);
683- procedure SelectDeleteRoundExecute(Sender: TObject);
684- procedure SelectReservActionExecute(Sender: TObject);
685- procedure NewBoardActionExecute(Sender: TObject);
686- procedure LoginActionExecute(Sender: TObject);
687- procedure KeySettingActionExecute(Sender: TObject);
688- procedure AllTabCloseActionExecute(Sender: TObject);
689- procedure ArrangeActionExecute(Sender: TObject);
690- procedure NameURLCopyActionExecute(Sender: TObject);
691- procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
692- procedure AllTabCloseActionUpdate(Sender: TObject);
693- procedure ActiveLogDeleteActionExecute(Sender: TObject);
694- procedure ListNameBarVisibleActionExecute(Sender: TObject);
695- procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
696- procedure TreeSelectNameURLCopyExecute(Sender: TObject);
697- procedure PaneInitActionExecute(Sender: TObject);
698447 procedure FormShow(Sender: TObject);
699448 procedure BrowserTabToolBarResize(Sender: TObject);
700- procedure BrowserMinActionExecute(Sender: TObject);
701- procedure SelectTextClearActionExecute(Sender: TObject);
702- procedure NameTextClearActionExecute(Sender: TObject);
703- procedure MailTextClearActionExecute(Sender: TObject);
704- procedure LeftmostTabSelectActionExecute(Sender: TObject);
705- procedure LeftTabSelectActionExecute(Sender: TObject);
706- procedure RightTabSelectActionExecute(Sender: TObject);
707- procedure RightmostTabSelectActionExecute(Sender: TObject);
708- procedure LeftTabSelectActionUpdate(Sender: TObject);
709- procedure RightTabSelectActionUpdate(Sender: TObject);
710449 procedure FavoriteMenuClick(Sender: TObject);
711- procedure FavoriteAddActionExecute(Sender: TObject);
712- procedure BoardFavoriteAddActionExecute(Sender: TObject);
713- procedure BoardFavoriteAddActionUpdate(Sender: TObject);
714- procedure ThreadFavoriteAddActionExecute(Sender: TObject);
715- procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
716- procedure FavoriteArrangeActionExecute(Sender: TObject);
717450 procedure MainCoolBarResize(Sender: TObject);
718- procedure MoveToActionExecute(Sender: TObject);
719451 procedure AddressToolBarResize(Sender: TObject);
720452 procedure AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
721453 Shift: TShiftState);
722- procedure AddressBarVisibleActionExecute(Sender: TObject);
723454 procedure BrowserEnter(Sender: TObject);
724455 procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
725- procedure BrowserTabVisibleActionExecute(Sender: TObject);
726- procedure BrowserTabTopActionExecute(Sender: TObject);
727- procedure BrowserTabBottomActionExecute(Sender: TObject);
728- procedure BrowserTabTabStyleActionExecute(Sender: TObject);
729- procedure BrowserTabButtonStyleActionExecute(Sender: TObject);
730- procedure BrowserTabFlatStyleActionExecute(Sender: TObject);
731456 procedure PreviewTimerTimer(Sender: TObject);
732457 procedure MessageHideButtonClick(Sender: TObject);
733- procedure MonazillaWebPageActionExecute(Sender: TObject);
734- procedure GikoHelpActionExecute(Sender: TObject);
735- procedure ToolButton18Click(Sender: TObject);
736- procedure KotehanActionExecute(Sender: TObject);
737- procedure LinkBarVisibleActionExecute(Sender: TObject);
738- procedure BBS2chWebPageActionExecute(Sender: TObject);
739- procedure GikoFolderOpenActionExecute(Sender: TObject);
458+ procedure HistoryAllClearToolButtonClick(Sender: TObject);
740459 procedure MainCoolBarBandInfo(Sender: TObject;
741460 var BandInfo: PReBarBandInfoA);
742461 procedure MainCoolBarChevronClick(Sender: TObject;
@@ -750,23 +469,12 @@ type
750469 procedure BrowserCoolBarChevronClick(Sender: TObject;
751470 RebarChevron: PNMRebarChevron);
752471 procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);
753- procedure ThreadEditorActionExecute(Sender: TObject);
754- procedure ToolBarSettingActionExecute(Sender: TObject);
755- procedure NameCopyActionExecute(Sender: TObject);
756- procedure BoardIEActionExecute(Sender: TObject);
757- procedure SelectItemNameCopyActionExecute(Sender: TObject);
758- procedure SelectItemNameCopyActionUpdate(Sender: TObject);
759472 procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
760473 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
761474 procedure SelectComboBoxChange(Sender: TObject);
762475 procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
763476 Shift: TShiftState);
764477 procedure SelectComboBoxExit(Sender: TObject);
765- procedure SelectResActionExecute(Sender: TObject);
766- procedure AllResActionExecute(Sender: TObject);
767- procedure ReloadClick(Sender: TObject);
768- procedure GoBackClick(Sender: TObject);
769- procedure GoFowardClick(Sender: TObject);
770478 procedure SelectComboBoxSplitterMouseMove(Sender: TObject;
771479 Shift: TShiftState; X, Y: Integer);
772480 procedure SelectComboBoxSplitterMouseDown(Sender: TObject;
@@ -775,8 +483,6 @@ type
775483 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
776484 procedure StatusBarResize(Sender: TObject);
777485 procedure SelectComboBoxEnter(Sender: TObject);
778- procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
779- procedure CabinetFavoriteActionExecute(Sender: TObject);
780486 procedure FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
781487 Y: Integer);
782488 procedure FavoriteTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
@@ -785,23 +491,12 @@ type
785491 procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
786492 Shift: TShiftState);
787493 procedure FavoriteTreePopupMenuPopup(Sender: TObject);
788- procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
789- procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
790- procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
791- procedure ToolButton19Click(Sender: TObject);
792- procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
793494 procedure FavoriteTreeViewDblClick(Sender: TObject);
794- procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
795- procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
796- procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
797- procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
798- procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
799495 procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
800496 procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
801497 Shift: TShiftState; X, Y: Integer);
802498 procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
803499 State: TDragState; var Accept: Boolean);
804- procedure ResRangeActionExecute(Sender: TObject);
805500 procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
806501 Y: Integer);
807502 procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
@@ -810,15 +505,9 @@ type
810505 var Handled: Boolean);
811506 procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
812507 var Handled: Boolean);
813- procedure ExportFavoriteFileAccept(Sender: TObject);
814- procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
815- procedure CabinetBBSActionExecute(Sender: TObject);
816- procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
817508 procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
818- procedure UpBoardActionExecute(Sender: TObject);
819509 procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
820510 var Handled: Boolean);
821- procedure KoreCopyExecute(Sender: TObject);
822511 procedure BrowserTabPopupMenuPopup(Sender: TObject);
823512 procedure BrowserTabResize(Sender: TObject);
824513 procedure TreeViewClick(Sender: TObject);
@@ -828,36 +517,11 @@ type
828517 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
829518 procedure MessagePanelResize(Sender: TObject);
830519 procedure OnResized;
831- procedure TreeSelectNameCopyExecute(Sender: TObject);
832520 procedure FavoriteTreeViewMouseUp(Sender: TObject;
833- Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
834- procedure SetFocusForBrowserActionExecute(Sender: TObject);
835- procedure SetFocusForBrowserActionUpdate(Sender: TObject);
836- procedure SetFocusForThreadListActionExecute(Sender: TObject);
837- procedure SetFocusForCabinetActionExecute(Sender: TObject);
838- procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
839- procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
840- procedure SetFocusForCabinetActionUpdate(Sender: TObject);
841- procedure SelectTimerTimer(Sender: TObject);
842- procedure SelectItemSaveForHTMLExecute(Sender: TObject);
843- procedure KidokuActionExecute(Sender: TObject);
844- procedure MidokuActionExecute(Sender: TObject);
845- procedure SelectItemSaveForDatExecute(Sender: TObject);
846- procedure LogFolderOpenActionExecute(Sender: TObject);
847- procedure TabsSaveActionExecute(Sender: TObject);
848- procedure TabsOpenActionExecute(Sender: TObject);
849- procedure OnlyAHundredResActionExecute(Sender: TObject);
850- procedure OnlyKokoResActionExecute(Sender: TObject);
851- procedure OnlyNewResActionExecute(Sender: TObject);
852- procedure BrowsBoradHeadActionExecute(Sender: TObject);
853- procedure EditNGActionExecute(Sender: TObject);
854- procedure ThreadRangeActionExecute(Sender: TObject);
855- procedure TabAutoSaveActionExecute(Sender: TObject);
856- procedure TabAutoLoadActionExecute(Sender: TObject);
521+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
522+ procedure SelectTimerTimer(Sender: TObject);
857523 procedure ListViewColumnRightClick(Sender: TObject;
858524 Column: TListColumn; Point: TPoint);
859- procedure JumpToNumOfResActionExecute(Sender: TObject);
860- procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
861525 procedure ListViewCustomDrawItem(Sender: TCustomListView;
862526 Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
863527 procedure FormActivate(Sender: TObject);
@@ -865,50 +529,30 @@ type
865529 procedure MenuToolBarResize(Sender: TObject);
866530 procedure ListToolBarResize(Sender: TObject);
867531 procedure BrowserToolBarResize(Sender: TObject);
868- procedure RightTabCloseActionExecute(Sender: TObject);
869- procedure RightTabCloseActionUpdate(Sender: TObject);
870- procedure LeftTabCloseActionExecute(Sender: TObject);
871- procedure SameIDResAnchorActionExecute(Sender: TObject);
872- procedure IndividualAbon1ActionExecute(Sender: TObject);
873- procedure IndividualAbon0ActionExecute(Sender: TObject);
874- procedure AntiIndividualAbonActionExecute(Sender: TObject);
875- procedure AntiIndividualAbonDlgActionExecute(Sender: TObject);
876- procedure IndividualAbonID1ActionExecute(Sender: TObject);
877- procedure IndividualAbonID0ActionExecute(Sender: TObject);
878- procedure KokoPopupMenuPopup(Sender: TObject);
879- procedure MuteActionExecute(Sender: TObject);
880- procedure SortActiveColumnActionExecute(Sender: TObject);
881- procedure SortNextColumnActionExecute(Sender: TObject);
882- procedure SortPrevColumnActionExecute(Sender: TObject);
883- procedure MessageListViewAdvancedCustomDrawItem(
884- Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
885- Stage: TCustomDrawStage; var DefaultDraw: Boolean);
886- procedure BeLogInOutActionExecute(Sender: TObject);
532+ procedure KokoPopupMenuPopup(Sender: TObject);
887533 procedure BeLogInOutActionUpdate(Sender: TObject);
888- procedure UnSelectedListViewActionExecute(Sender: TObject);
889534 procedure ListViewKeyUp(Sender: TObject; var Key: Word;
890535 Shift: TShiftState);
891536 procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode;
892537 var AllowEdit: Boolean);
893- procedure WikiFAQWebPageActionExecute(Sender: TObject);
538+ procedure CabinetCloseSpeedButtonClick(Sender: TObject);
539+ procedure FavoriteArrangeToolButtonClick(Sender: TObject);
540+ procedure GikoApplicationEventsMessage(var Msg: tagMSG;
541+ var Handled: Boolean);
542+ procedure GikoApplicationEventsDeactivate(Sender: TObject);
543+ procedure GikoApplicationEventsException(Sender: TObject; E: Exception);
894544 private
895545 { Private 宣言 }
896546 FSortIndex: Integer;
897547 FSortOrder: Boolean;
898-
899548 FEnabledCloseButton: Boolean;
900-// ThreadCreate: TThreadCreate;
901-
902549 FClickNode: TTreeNode;
903550 FHttpState: Boolean;
904551 FHint: TResPopup;
905552 FPreviewBrowser: TWebBrowser;
906553 FPreviewURL: string;
907-
908554 FBrowserSizeHeight: Integer;
909555 FBrowserSizeWidth: Integer;
910-
911-// FFavorite: TFavorite;
912556 FTabHintIndex: Integer;
913557 FListStyle: TViewStyle; //リストアイコンスタイル
914558 FItemNoVisible: Boolean; //リスト番号表示フラグ
@@ -921,30 +565,19 @@ type
921565 FWorkCount: Integer;
922566 FNameCookie: string;
923567 FMailCookie: string;
924-// FLastRoundTime: TDateTime;
925- BrowserNullTab: TBrowserRecord;
926-// DoubleClickOccurred: array [TMouseButton] of Boolean;
927568 FDownloadTitle: string; //ダウンロード中のタイトル名
928569 FDownloadMax: Integer; //ダウンロード中の最大サイズ
929570 FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント
930-
931- // Fkeynum : Integer; //キーボードレスポップアップ用
932-
933571 IsDraggingSelectComboBox : Boolean;
934572 DraggingSelectComboBoxPosition : TPoint;
935-
936573 FSearchDialog: TSearchDialog;
937-
938574 FDropSpaceNode: TTreeNode;
939-
940575 FDragTime : Cardinal; ///< リンクのD&D用
941576 FDragButton : TToolButton; ///< リンクのD&D用にDragしてるButton保存
942577 FDragWFirst : Boolean; ///< WebTabのD&D用
943-
944578 FListViewBackGroundColor : TColor; ///< ListViewのBackGroundColor
945579 FUseOddResOddColor : Boolean; ///< 取得レス数とスレッドのレス数が違ったときに他の色で表示
946580 FOddColor : TColor; ///< その色
947-
948581 FSelectResWord : string; ///< レス絞込ワード
949582 FIsIgnoreResize : TResizeType; ///< リサイズイベントを無視するかどうか
950583 FIsMinimize : TMinimizeType; ///< 最小化している最中か
@@ -957,49 +590,26 @@ type
957590 FIsHandledWheel : Boolean; ///< 既に受け取った WM_MOUSEWHEEL かどうか
958591 DiffComp: Boolean; //Add by Genyakun スレが更新されたときにTrueになる
959592 FOrigenCaption: String; //お気に入りツリーのアイテム編集時の編集前の文字列
960- procedure SetBoardTreeNode( inBBS : TBBS );
961- function SetCategoryListItem(ABBS2ch: TBBS): Integer;
962- function SetBoardListItem(Category: TCategory): Integer;
963- function SetThreadListItem(Board: TBoard): Integer;
964-// function GetRoundName(index: integer): string;
965-
966593 procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
967594 procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
968595 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
969596 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
970597 procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
971-
972-
973598 procedure ListClick;
974599 procedure ListDoubleClick(Shift: TShiftState);
975- procedure BrowserMovement(const AName: string); overload;
976- procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
977- procedure SelectListItem(List: TList);
978- procedure DeleteTab(ThreadItem: TThreadItem); overload;
979- procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
980600 function Hook(var Message: TMessage): Boolean;
981601 procedure AddRoundNameMenu(MenuItem: TMenuItem);
982- procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
983- procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
984- procedure SetSelectRoundName(Sender: TObject);
985- function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
986-
987602 procedure SetMenuFont;
988603 procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
989604 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
990605 procedure FavoriteClick(Sender: TObject); overload;
991606 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
992- procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
993607 function OnDocumentContextMenu(Sender: TObject): WordBool;
994- procedure SetResPopupText(ThreadItem : TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
995608 procedure ShowTextPopup;
996- procedure SetLinkBar;
997609 function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
998610 procedure MenuBarChevronMenu;
999611 procedure LinkBarChevronMenu;
1000612 procedure ToolBarChevronMenu(ToolBar: TToolBar);
1001- procedure ModifySelectList;
1002- procedure FavoriteBrowseFolder( node: TTreeNode );
1003613 procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
1004614 procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1005615 procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@@ -1012,8 +622,6 @@ type
1012622 //
1013623 procedure SetListViewBackGroundColor(value: TColor);
1014624 procedure BBSMenuItemOnClick( Sender : TObject );
1015- //
1016- procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1017625 /// CoolBar の設定を変数に保存
1018626 procedure SaveCoolBarSettings;
1019627 procedure SaveMainCoolBarSettings;
@@ -1029,41 +637,20 @@ type
1029637 procedure TreeClick( Node : TTreeNode );
1030638 /// TreeView がダブルクリックされた
1031639 procedure TreeDoubleClick( Node : TTreeNode );
1032- /// ギコナビのメッセージループを横取りします
1033- procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1034- /// ブラウザのキーダウンイベント
1035- /// イベントを取り扱った場合は True を返す
1036-// function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1037640 /// 各所にあるキャビネット・ BBS メニューをセット/更新
1038641 procedure SetBBSMenu;
1039- function WebBrowserClick(Sender: TObject): WordBool;
1040- procedure SkinorCSSFilesCopy(path: string);
1041642 /// タブ取得
1042643 function GetTabURLs(AStringList: TStringList) : Boolean;
1043- /// タブ保存
1044- function SaveTabURLs : Boolean;
1045- /// タブ読み出し
1046- function LoadTabURLs : Boolean;
1047- /// バンド幅を再計算・再設定する
1048- procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1049- /// ListView の Column を真のカラムに変換
1050- function ActiveListTrueColumn( column : TListColumn ) : TListColumn;
1051644 /// ListColumnPopupMenu アイテムのクリックイベント
1052645 procedure ListColumnPopupMenuOnClick( Sender : TObject );
1053646 // BrowserRecordについているFBrowserを外す
1054647 procedure ReleaseBrowser( BRecord: TBrowserRecord);
1055- //! マウスジェスチャー開始
1056- procedure OnGestureStart(Sender: TObject);
1057- //! マウスジェスチャー中
1058- procedure OnGestureMove(Sender: TObject);
1059- //! マウスジェスチャー終了
1060- procedure OnGestureEnd(Sender: TObject);
1061648 //! 絞り込み文字列設定
1062649 procedure SetSelectWord( const text : string );
1063- //ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ
1064- procedure RepaintAllTabsBrowser();
1065- //リンクの文字列からレスポップアップ用のURLに変換する
1066- function GetRespopupURL(AText, AThreadURL : string): string;
650+ //現在のカーソルを取得する
651+ function GetScreenCursor(): TCursor;
652+ //カーソルを設定する
653+ procedure SetScreenCursor(Cursor : TCursor);
1067654 protected
1068655 procedure CreateParams(var Params: TCreateParams); override;
1069656 procedure WndProc(var Message: TMessage); override;
@@ -1073,34 +660,44 @@ type
1073660
1074661 public
1075662 { Public 宣言 }
1076- LastRoundTime: TDateTime;
663+ LastRoundTime: TDateTime;
664+ BrowserNullTab: TBrowserRecord;
1077665 FControlThread: TThreadControl;
1078666 procedure MoveToURL(const inURL: string);
1079- function InsertBrowserTab(
1080- ThreadItem : TThreadItem;
1081- ActiveTab : Boolean = True
1082- ) : TBrowserRecord;
667+ function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;
1083668 procedure ReloadBBS;
1084669 function GetHttpState: Boolean;
1085670 procedure SetEnabledCloseButton(Enabled: Boolean);
1086671 function GetTreeNode(Data: TObject): TTreeNode;
1087- procedure AppFormDeactivate(Sender: TObject);
1088672 procedure ListViewAllSelect;
1089673 property ListStyle: TViewStyle read FListStyle write FListStyle;
1090674 property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1091675 property ViewType: TGikoViewType read FViewType write FViewType;
1092676 property NameCookie: string read FNameCookie write FNameCookie;
1093677 property MailCookie: string read FMailCookie write FMailCookie;
678+ property ClickNode: TTreeNode read FClickNode write FClickNode;
679+ property TreeType: TGikoTreeType read FTreeType write FTreeType;
680+ property ActiveContent: TBrowserRecord read FActiveContent write FActiveContent;
681+ property ResRangeMenuSelect: Longint read FResRangeMenuSelect write FResRangeMenuSelect;
682+ property SelectResWord : string read FSelectResWord write FSelectResWord;
683+ property BrowserSizeWidth: Integer read FBrowserSizeWidth write FBrowserSizeWidth;
684+ property BrowserSizeHeight: Integer read FBrowserSizeHeight write FBrowserSizeHeight;
685+ property SearchDialog: TSearchDialog read FSearchDialog write FSearchDialog;
686+ property ToolBarSettingSender : TToolBarSettingSenderType
687+ read FToolBarSettingSender write FToolBarSettingSender;
688+ property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;
689+ property SortIndex: Integer read FSortIndex write FSortIndex;
690+ property SortOrder: Boolean read FSortOrder write FSortOrder;
691+ property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;
692+ property WorkCount: Integer read FWorkCount write FWorkCount;
1094693 procedure SetContent(inThread: TBrowserRecord);
1095694 function GetActiveContent: TThreadItem;
1096695 function GetActiveList: TObject;
696+
1097697 procedure SetListViewType(AViewType: TGikoViewType); overload;
1098698 procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1099- procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1100- procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1101699 procedure PlaySound(SoundEventName: string);
1102700 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1103- procedure DeleteHistory( threadItem: TThreadItem );
1104701 procedure ClearHistory;
1105702 procedure SaveHistory;
1106703 procedure LoadHistory;
@@ -1132,16 +729,63 @@ type
1132729 procedure IndividualAbon(Atag, Atype : Integer);
1133730 //IDアンカー追加
1134731 procedure IDAnchorPopup(Abody :string);
732+ //ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ
733+ procedure RepaintAllTabsBrowser();
734+ //リンクバー設定
735+ procedure SetLinkBar;
736+ procedure FavoriteBrowseFolder( node: TTreeNode );
737+ //スレッドのダウンロード
738+ procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
739+ //板のダウンロード
740+ procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
741+ //履歴から削除
742+ procedure DeleteHistory( threadItem: TThreadItem );
743+ //タブを削除
744+ procedure DeleteTab(ThreadItem: TThreadItem); overload;
745+ procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
746+ //現在表示しているスレッドをスクロール
747+ procedure BrowserMovement(const AName: string); overload;
748+ //指定したブラウザをスクロール
749+ procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
750+ //ApplicationのMainFormを取得する
751+ function GetMainForm(): TComponent;
752+ procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
753+ //! マウスジェスチャー開始
754+ procedure OnGestureStart(Sender: TObject);
755+ //! マウスジェスチャー中
756+ procedure OnGestureMove(Sender: TObject);
757+ //! マウスジェスチャー終了
758+ procedure OnGestureEnd(Sender: TObject);
759+ /// バンド幅を再計算・再設定する
760+ procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
761+ //スクリーン上にEditorFormがいるか
762+ function EditorFormExists(): boolean;
763+ //スクリーン上にいるすべてのEditorFormから名前履歴を削除する
764+ procedure AllEditroFormNameTextClearClear();
765+ //スクリーン上にいるすべてのEditorFormからメール履歴を削除する
766+ procedure AllEditroFormMailTextClearClear();
767+ //ListViewで選択されているアイテムを取得する
768+ procedure SelectListItem(List: TList);
769+ /// タブ保存
770+ function SaveTabURLs : Boolean;
771+ /// タブ読み出し
772+ function LoadTabURLs : Boolean;
773+ //指定したレスをコピーする
774+ procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
775+ //
776+ procedure ModifySelectList;
777+ //
778+ procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
779+ //
780+ procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
781+ //
782+ procedure SetSelectRoundName(Sender: TObject);
783+ //
784+ function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
785+ //
786+ function WebBrowserClick(Sender: TObject): WordBool;
1135787 published
1136788 property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1137- //TActionでGetActiveContentがnil以外で有効になる
1138- procedure DependActiveCntentActionUpdate(Sender: TObject);
1139- //TActionでGetActiveContentがnil以外かつログを持っていると有効になる
1140- procedure DependActiveCntentLogActionUpdate(Sender: TObject);
1141- //TActionでActiveListがTBoardで有効になる
1142- procedure DependActiveListTBoardActionUpdate(Sender: TObject);
1143- //例外処理されなかった例外を処理する
1144- procedure AppException(Sender: TObject; E: Exception);
1145789 end;
1146790
1147791 TFavoriteMenuItem = class(TMenuItem)
@@ -1188,36 +832,25 @@ var
1188832 implementation
1189833
1190834 uses
835+ GikoUtil, IndividualAbon, Math, Kotehan, KeySetting,
836+ YofUtils, ShellAPI, ToolBarUtil, ToolBarSetting,
837+ GikoXMLDoc, RoundName, IniFiles, FavoriteAdd,
838+ FavoriteArrange, AddressHistory, Preview, Gesture,
1191839 About, Option, Round, Splash, Sort, ListSelect, Imm,
1192840 NewBoard, MojuUtils, Clipbrd, GikoBayesian,Y_TextConverter,
1193- HTMLCreate;
841+ HTMLCreate, ListViewUtils, GikoDataModule;
1194842
1195843 const
1196844 CAPTION_NAME: string = 'ギコナビ';
1197845 BLANK_HTML: string = 'about:blank';
1198- SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索';
1199- SELECTCOMBOBOX_COLOR: TColor = clWindow;
846+ BROWSER_COUNT = 5; //ブラウザの数
1200847 //D&D閾値
1201848 DandD_THRESHOLD = 5; //D&Dの閾値(pixcel)
1202- //ツリー・リストアイコン
1203- ITEM_ICON_2CH1 = 0; //2chアイコン
1204- ITEM_ICON_2CH2 = 1; //2chアイコン
1205- ITEM_ICON_CATEGORY1 = 2; //カテゴリアイコン
1206- ITEM_ICON_CATEGORY2 = 3; //カテゴリアイコン
1207- ITEM_ICON_BOARD_NOSUBJECT = 3; //読み込まれていない板アイコン
1208- ITEM_ICON_BOARD1 = 4; //板アイコン
1209- ITEM_ICON_BOARD2 = 5; //板アイコン
1210- ITEM_ICON_THREADLOG1 = 6; //スレアイコン(ログあり)
1211- ITEM_ICON_THREADLOG2 = 7; //スレアイコン(ログあり)
1212- ITEM_ICON_THREAD1 = 8; //スレアイコン(ログなし)
1213- ITEM_ICON_THREAD2 = 9; //スレアイコン(ログなし)
1214- ITEM_ICON_THREADNEW1 = 10; //スレアイコン(新着)
1215- ITEM_ICON_THREADNEW2 = 11; //スレアイコン(新着)
1216- ITEM_ICON_SORT1 = 12; //ソートアイコン
1217- ITEM_ICON_SORT2 = 13; //ソートアイコン
1218- ITEM_ICON_BOARD_LOG = 17; //スレログあり板アイコン
1219- ITEM_ICON_BOARD_NEW = 18; //スレ新着板アイコン
1220-
849+ //プレビューファイル名
850+ HTML_FILE_NAME = 'temp_preview.html';
851+ //スレッド絞込みボックス
852+ SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索';
853+ SELECTCOMBOBOX_COLOR: TColor = clWindow;
1221854 //ツールバーアイコン
1222855 TOOL_ICON_HEIGHT_MAX = 16; //高さ最大アイコン
1223856 TOOL_ICON_HEIGHT_MIN = 17; //高さ最小アイコン
@@ -1225,26 +858,17 @@ const
1225858 TOOL_ICON_WIDTH_MAX = 19; //幅最大アイコン
1226859 TOOL_ICON_WIDTH_MIN = 20; //幅最小アイコン
1227860 TOOL_ICON_WIDTH_NORMAL = 21; //幅標準アイコン
1228-
861+ ITEM_ICON_THREADLOG1 = 6; //スレアイコン(ログあり)
862+ ITEM_ICON_THREADLOG2 = 7; //スレアイコン(ログあり)
1229863 TOOL_ICON_FAV_FOLDER = 30; //お気に入りフォルダアイコン
1230864 TOOL_ICON_FAV_BOARD = 31; //お気に入り板アイコン
1231865 TOOL_ICON_FAV_THREAD = 32; //お気に入りスレアイコン
1232-
1233- HTML_FILE_NAME = 'temp_preview.html';
1234-
1235- WM_XBUTTONDOWN = $020B;
1236- WM_XBUTTONUP = $020C;
1237- WM_XBUTTONDBLCLK = $020D;
1238- XBUTTON1 = $0001;
1239- XBUTTON2 = $0002;
866+ //メッセージID
1240867 USER_TREECLICK = WM_USER + 2000;
1241868 USER_RESIZED = WM_USER + 2001;
1242869 USER_MINIMIZED = WM_USER + 2002;
1243870 USER_SETLINKBAR = WM_USER + 2003;
1244871 USER_DOCUMENTCOMPLETE = WM_USER + 2004; ///< wParam : TWebBrowser
1245- SELECTTIME_INTERBAL = 110;
1246-
1247- BROWSER_COUNT = 5; //ブラウザの数
1248872 {$R *.DFM}
1249873
1250874 procedure TGikoForm.CreateParams(var Params: TCreateParams);
@@ -1283,12 +907,7 @@ begin
1283907 FTreeType := gttNone;
1284908 // 起動時に保存されてしまう対策
1285909 FStartUp := true;
1286-// LockWindowUpdate(Self.Handle);
1287- Application.OnDeactivate := AppFormDeactivate;
1288- //Self.OnDeactivate := AppFormDeactivate;
1289910 Application.HookMainWindow(Hook);
1290- Application.OnException := AppException; //処理されない例外を補足
1291-// Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ
1292911 FIsIgnoreResize := rtResizing;
1293912
1294913 FSearchDialog := nil;
@@ -1339,13 +958,13 @@ begin
1339958 CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
1340959
1341960 //メッセージバー
1342- MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
1343- MsgBarVisibleActionExecute(nil);
961+ GikoDM.MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
962+ GikoDM.MsgBarVisibleActionExecute(nil);
1344963 MessagePanel.Height := GikoSys.Setting.MessegeBarHeight;
1345964
1346965 //ステータスバー
1347- StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
1348- StatusBarVisibleActionExecute(nil);
966+ GikoDM.StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
967+ GikoDM.StatusBarVisibleActionExecute(nil);
1349968
1350969 //フォント・色設定
1351970 TreeView.Items.BeginUpdate;
@@ -1379,7 +998,7 @@ begin
1379998 ListView.Items.EndUpdate;
1380999 end;
13811000 //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
1382- ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
1001+ GikoDM.ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
13831002
13841003 //ブラウザタブフォント
13851004 BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
@@ -1463,8 +1082,8 @@ begin
14631082 FMailCookie := '';
14641083
14651084 //スレ全部表示ボタンを押された状態にする
1466- AllItemAction.Checked := True;
1467- AllResAction.Checked := True;
1085+ GikoDM.AllItemAction.Checked := True;
1086+ GikoDM.AllResAction.Checked := True;
14681087
14691088 //ブラウザサイズ変更の初期化
14701089 FBrowserSizeHeight := GikoSys.Setting.ListHeight;
@@ -1481,43 +1100,43 @@ begin
14811100 FavoriteDM.SetFavTreeView(FavoriteTreeView);
14821101 FavoriteDM.ReadFavorite;
14831102
1484- ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1485- ArrangeAction.Execute;
1103+ GikoDM.ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1104+ GikoDM.ArrangeAction.Execute;
14861105
14871106 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
14881107 case GikoSys.Setting.ListWidthState of
14891108 glsMax: begin
14901109 ViewPanel.Width := 1;
1491- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1492- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1110+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1111+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
14931112 end;
14941113 glsMin: begin
14951114 ViewPanel.Width := GikoSys.Setting.ListWidth;
1496- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1497- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1115+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1116+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
14981117 end;
14991118 else begin
15001119 ViewPanel.Width := GikoSys.Setting.ListWidth;
1501- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1502- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1120+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1121+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
15031122 end;
15041123 end;
15051124 end else begin
15061125 case GikoSys.Setting.ListHeightState of
15071126 glsMax: begin
15081127 ViewPanel.Height := 1;
1509- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1510- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1128+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1129+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
15111130 end;
15121131 glsMin: begin
15131132 ViewPanel.Height := GikoSys.Setting.ListHeight;
1514- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1515- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1133+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1134+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
15161135 end;
15171136 else begin
15181137 ViewPanel.Height := GikoSys.Setting.ListHeight;
1519- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1520- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1138+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1139+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
15211140 end;
15221141 end;
15231142 end;
@@ -1551,9 +1170,9 @@ begin
15511170
15521171 MakeDefaultINIFile();
15531172 //ツールボタン読み込み
1554- ReadToolBarSetting(ActionList, StdToolBar);
1555- ReadToolBarSetting(ActionList, ListToolBar);
1556- ReadToolBarSetting(ActionList, BrowserToolBar);
1173+ ReadToolBarSetting(GikoDM.GikoFormActionList, StdToolBar);
1174+ ReadToolBarSetting(GikoDM.GikoFormActionList, ListToolBar);
1175+ ReadToolBarSetting(GikoDM.GikoFormActionList, BrowserToolBar);
15571176 SetToolBarPopup;
15581177
15591178 //ListToolBarにいるかもしれない絞込みComboBoxを配置
@@ -1561,7 +1180,7 @@ begin
15611180 try
15621181 for i := ListToolBar.ControlCount - 1 downto 0 do
15631182 begin
1564- if ListToolBar.Controls[ i ].Action = SelectItemAction then
1183+ if ListToolBar.Controls[ i ].Action = GikoDM.SelectItemAction then
15651184 begin
15661185 SelectComboBoxPanel.Left := ListToolBar.Controls[ i ].Left;
15671186 SelectComboBoxPanel.Width := GikoSys.Setting.SelectComboBoxWidth;
@@ -1611,19 +1230,19 @@ begin
16111230 case GikoSys.ResRange of
16121231 Ord( grrAll ):
16131232 begin
1614- AllResAction.Execute;
1233+ GikoDM.AllResAction.Execute;
16151234 end;
16161235 Ord( grrSelect ):
16171236 begin
16181237 SelectComboBox.Text := SelectComboBox.Items[ 1 ];
1619- SelectResAction.Checked := True;
1238+ GikoDM.SelectResAction.Checked := True;
16201239 end;
16211240 else
16221241 // ResRangeAction.Execute;
16231242 case FResRangeMenuSelect of
1624- Ord( grrKoko ): OnlyKokoResAction.Checked := True;
1625- Ord( grrNew ): OnlyNewResAction.Checked := True;
1626- 100: OnlyAHundredResAction.Checked := True;
1243+ Ord( grrKoko ): GikoDM.OnlyKokoResAction.Checked := True;
1244+ Ord( grrNew ): GikoDM.OnlyNewResAction.Checked := True;
1245+ 100: GikoDM.OnlyAHundredResAction.Checked := True;
16271246 end;
16281247 end;
16291248
@@ -1632,17 +1251,17 @@ begin
16321251 case GikoSys.Setting.ThreadRange of
16331252 gtrAll:
16341253 begin
1635- AllItemAction.Checked := True;
1254+ GikoDM.AllItemAction.Checked := True;
16361255 ViewType := gvtAll;
16371256 end;
16381257 gtrLog:
16391258 begin
1640- LogItemAction.Checked := True;
1259+ GikoDM.LogItemAction.Checked := True;
16411260 ViewType := gvtLog;
16421261 end;
16431262 gtrNew:
16441263 begin
1645- NewItemAction.Checked := True;
1264+ GikoDM.NewItemAction.Checked := True;
16461265 ViewType := gvtNew;
16471266 end;
16481267 end;
@@ -1656,11 +1275,11 @@ begin
16561275 + 'これから、「2ちゃんねる」のアドレス一覧をダウンロードします' + #13#10
16571276 + '次に出てくる画面で、「更新」ボタンを押してください。';
16581277 MsgBox(SplashWindow.Handle, msg, 'ギコナビ', MB_OK or MB_ICONINFORMATION);
1659- NewBoardAction.Execute;
1278+ GikoDM.NewBoardAction.Execute;
16601279 end;
16611280
16621281 //キー設定読み込み
1663- GikoSys.LoadKeySetting(ActionList);
1282+ GikoSys.LoadKeySetting(GikoDM.GikoFormActionList);
16641283
16651284 //最終巡回時間
16661285 // FLastRoundTime := 0;
@@ -1668,27 +1287,28 @@ begin
16681287 //ResHint
16691288 FHint := TResPopup.Create(Self);
16701289
1290+ ListView.OnData := TListViewUtils.ListViewData;
1291+
16711292 // 最後に選択されたキャビネットの復元
16721293 CabinetVisible( False );
16731294 if GikoSys.Setting.CabinetVisible then begin
16741295 i := CabinetSelectPopupMenu.Items.Count - 1;
16751296 if GikoSys.Setting.CabinetIndex = i - 1 then
1676- CabinetHistoryAction.Execute
1297+ GikoDM.CabinetHistoryAction.Execute
16771298 else if GikoSys.Setting.CabinetIndex = i then
1678- CabinetFavoriteAction.Execute
1299+ GikoDM.CabinetFavoriteAction.Execute
16791300 else begin
16801301 if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
16811302 ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
16821303 // 起動時に保存されてしまう対策 2
16831304 FIsIgnoreResize := rtResizing;
1684- CabinetBBSAction.Execute;
1305+ GikoDM.CabinetBBSAction.Execute;
16851306 end;
16861307 end else begin
16871308 ShowBBSTreeOld( BBSs[ 0 ] );
16881309 PostMessage( Handle, USER_TREECLICK, 0, 0 );
16891310 end;
16901311
1691-
16921312 //引数があったらスレを開く(未取得ならダウンロード)
16931313 for i := 1 to ParamCount do begin
16941314 MoveToURL(ParamStr(i));
@@ -1713,7 +1333,7 @@ begin
17131333 // マウスジェスチャー
17141334 MouseGesture := TMouseGesture.Create;
17151335 GikoSys.Setting.Gestures.LoadGesture(
1716- GikoSys.Setting.GetGestureFileName, ActionList );
1336+ GikoSys.Setting.GetGestureFileName, GikoDM.GikoFormActionList );
17171337 MouseGesture.Margin := GikoSys.Setting.Gestures.Margin;
17181338 MouseGesture.OnGestureStart := OnGestureStart;
17191339 MouseGesture.OnGestureMove := OnGestureMove;
@@ -1726,12 +1346,16 @@ begin
17261346
17271347 //オートログイン
17281348 if GikoSys.Setting.AutoLogin then
1729- LoginAction.Execute;
1349+ GikoDM.LoginAction.Execute;
17301350
1731- MuteAction.Checked := GikoSys.Setting.Mute;
1351+ GikoDM.MuteAction.Checked := GikoSys.Setting.Mute;
17321352
17331353 GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin;
1734-// LockWindowUpdate(0);
1354+
1355+ //キャプションが上書きされてしまうので、ここで再設定
1356+ FavoriteAddToolButton.Caption := '追加...';
1357+ AntiIndivAbonMenuItem.Caption := '個別あぼ〜ん解除';
1358+
17351359 end;
17361360
17371361 // CoolBar の設定を変数に保存
@@ -1849,9 +1473,6 @@ begin
18491473 end;
18501474
18511475 end;
1852-
1853-//
1854-//
18551476 //
18561477 procedure TGikoForm.FormShow(Sender: TObject);
18571478 begin
@@ -1860,42 +1481,42 @@ begin
18601481
18611482 //FormCreateでやると可視設定が反映されない場合があるのでFormShowでやることにした
18621483 //ツールバー表示
1863- StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1864- StdToolBarVisibleActionExecute( nil );
1865- AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1866- AddressBarVisibleActionExecute( nil );
1867- LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1868- LinkBarVisibleActionExecute( nil );
1869- ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1870- ListToolBarVisibleActionExecute( nil );
1871- ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1872- ListNameBarVisibleActionExecute( nil );
1873- BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1874- BrowserToolBarVisibleActionExecute( nil );
1875- BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1876- BrowserNameBarVisibleActionExecute( nil );
1484+ GikoDM.StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1485+ GikoDM.StdToolBarVisibleActionExecute( nil );
1486+ GikoDM.AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1487+ GikoDM.AddressBarVisibleActionExecute( nil );
1488+ GikoDM.LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1489+ GikoDM.LinkBarVisibleActionExecute( nil );
1490+ GikoDM.ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1491+ GikoDM.ListToolBarVisibleActionExecute( nil );
1492+ GikoDM.ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1493+ GikoDM.ListNameBarVisibleActionExecute( nil );
1494+ GikoDM.BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1495+ GikoDM.BrowserToolBarVisibleActionExecute( nil );
1496+ GikoDM.BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1497+ GikoDM.BrowserNameBarVisibleActionExecute( nil );
18771498
18781499 //ブラウザタブ
1879- BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1880- BrowserTabVisibleActionExecute(nil);
1500+ GikoDM.BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1501+ GikoDM.BrowserTabVisibleActionExecute(nil);
18811502
18821503 if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1883- BrowserTabTopAction.Checked := True;
1884- BrowserTabTopActionExecute(nil);
1504+ GikoDM.BrowserTabTopAction.Checked := True;
1505+ GikoDM.BrowserTabTopActionExecute(nil);
18851506 end else begin
1886- BrowserTabBottomAction.Checked := True;
1887- BrowserTabBottomActionExecute(nil);
1507+ GikoDM.BrowserTabBottomAction.Checked := True;
1508+ GikoDM.BrowserTabBottomActionExecute(nil);
18881509 end;
18891510
18901511 if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1891- BrowserTabTabStyleAction.Checked := True;
1892- BrowserTabTabStyleActionExecute(nil);
1512+ GikoDM.BrowserTabTabStyleAction.Checked := True;
1513+ GikoDM.BrowserTabTabStyleActionExecute(nil);
18931514 end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1894- BrowserTabButtonStyleAction.Checked := True;
1895- BrowserTabButtonStyleActionExecute(nil);
1515+ GikoDM.BrowserTabButtonStyleAction.Checked := True;
1516+ GikoDM.BrowserTabButtonStyleActionExecute(nil);
18961517 end else begin
1897- BrowserTabFlatStyleAction.Checked := True;
1898- BrowserTabFlatStyleActionExecute(nil);
1518+ GikoDM.BrowserTabFlatStyleAction.Checked := True;
1519+ GikoDM.BrowserTabFlatStyleActionExecute(nil);
18991520 end;
19001521
19011522 // ListView のヘッダドラッグ
@@ -1911,7 +1532,7 @@ begin
19111532 //TabAutoLoad
19121533 //FormCreteから移動。
19131534 if GikoSys.Setting.TabAutoLoadSave then begin
1914- TabAutoLoadAction.Execute;
1535+ GikoDM.TabAutoLoadAction.Execute;
19151536 end;
19161537 //にちゃん語案内サポート機能
19171538 if GikoSys.Setting.GengoSupport then begin
@@ -1933,7 +1554,7 @@ begin
19331554 end else begin
19341555 CanClose := True;
19351556 if GikoSys.Setting.TabAutoLoadSave then begin
1936- TabAutoSaveAction.Execute;
1557+ GikoDM.TabAutoSaveAction.Execute;
19371558 end;
19381559 end;
19391560 { //2ch言語ファイルFree
@@ -1941,7 +1562,6 @@ begin
19411562 GikoSys.Setting.Gengo.Free;
19421563 end;
19431564 }
1944- //Application.HookMainWindow(Hook);
19451565 Application.UnhookMainWindow(Hook);
19461566 Application.Terminate;
19471567 end;
@@ -1953,8 +1573,6 @@ var
19531573 wp : TWindowPlacement;
19541574 tmpBool : Boolean;
19551575 begin
1956-// Application.OnDeactivate := nil;
1957-// Self.OnDeactivate := nil;
19581576 // マウスジェスチャー開放
19591577 try
19601578 MouseGesture.UnHook;
@@ -1975,11 +1593,11 @@ begin
19751593 GikoSys.Setting.WindowMax := WindowState = wsMaximized;
19761594
19771595 GikoSys.Setting.ListStyle := ListView.ViewStyle;
1978- GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1596+ GikoSys.Setting.CabinetVisible := GikoDM.CabinetVisibleAction.Checked;
19791597 GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
19801598 GikoSys.Setting.ListHeight := FBrowserSizeHeight;
19811599 GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1982- if ArrangeAction.Checked then
1600+ if GikoDM.ArrangeAction.Checked then
19831601 GikoSys.Setting.ListOrientation := gloVertical
19841602 else
19851603 GikoSys.Setting.ListOrientation := gloHorizontal;
@@ -2021,7 +1639,7 @@ begin
20211639 //タブクローズ
20221640 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
20231641 GikoSys.Setting.ShowDialogForAllTabClose := false;
2024- AllTabCloseAction.Execute;
1642+ GikoDM.AllTabCloseAction.Execute;
20251643 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
20261644 except
20271645 end;
@@ -2115,16 +1733,6 @@ begin
21151733 except
21161734 end;
21171735
2118- {
2119- try
2120- for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2121- if BoardPlugIns[ i ] <> nil then
2122- BoardPlugIns[ i ].Free;
2123- BoardPlugIns[ i ] := nil;
2124- end;
2125- except
2126- end;
2127- }
21281736 try
21291737 if FEvent <> nil then
21301738 FEvent.Free;
@@ -2145,13 +1753,6 @@ begin
21451753 LockWindowUpdate(0);
21461754 end;
21471755
2148-//キャビネット×ボタンクリック
2149-procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2150-begin
2151- CabinetVisibleAction.Execute;
2152-// CabinetPanelVisible(false);
2153-end;
2154-
21551756 // 各所にあるキャビネット・ BBS メニューをセット/更新
21561757 procedure TGikoForm.SetBBSMenu;
21571758 var
@@ -2205,7 +1806,7 @@ begin
22051806 //タブクローズ
22061807 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
22071808 GikoSys.Setting.ShowDialogForAllTabClose := false;
2208- AllTabCloseAction.Execute;
1809+ GikoDM.AllTabCloseAction.Execute;
22091810 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
22101811
22111812 SetContent(BrowserNullTab);
@@ -2290,732 +1891,120 @@ begin
22901891
22911892 LockWindowUpdate(0);
22921893 //
2293- TabsOpenAction.Execute;
1894+ GikoDM.TabsOpenAction.Execute;
22941895 end;
22951896
2296-//ボードツリー設定
2297-procedure TGikoForm.SetBoardTreeNode(
2298- inBBS : TBBS
2299-);
1897+
1898+procedure TGikoForm.BrowserStatusTextChange(Sender: TObject; const Text: WideString);
23001899 var
2301- i, j, k: integer;
2302- Root: TTreeNode;
2303- CategoryNode: TTreeNode;
2304- BoardNode: TTreeNode;
2305- Category: TCategory;
2306- Board: TBoard;
1900+ p: TPoint;
1901+ s: string;
1902+ tmp2: string;
1903+ URL: string;
1904+ ATitle: Boolean;
1905+
1906+ threadItem : TThreadItem;
1907+ board : TBoard;
1908+ Protocol, Host, Path, Document, Port, Bookmark: string;
1909+
1910+ wkInt: Integer;
1911+ wkIntSt: Integer;
1912+ wkIntTo: Integer;
1913+ ActiveFileName: string;
1914+ e: IHTMLElement;
1915+ Ext: string;
1916+ PathRec: TPathRec;
23071917 begin
2308- // 板リストの設定
2309- FActiveBBS := inBBS;
2310- TreeView.Items.BeginUpdate;
2311- TreeView.Items.Clear;
1918+ if not( TObject(Sender) is TWebBrowser )then
1919+ Exit;
23121920 try
2313- if not inBBS.IsBoardFileRead then
2314- GikoSys.ReadBoardFile( inBBS );
23151921 try
2316- //if SplashWindow <> nil then
2317- //SplashWindow.ProgressBar.Max := inBBS.Count;
2318- // SplashWindow.ProgressBar.Max := inBBS.Count + Length(BBSs) * 20;
2319- except
2320- end;
2321-
2322- // キャビネット表示前に再ソート
2323- if ( GikoSys.Setting.BBSSortIndex <> 0 ) or ( GikoSys.Setting.BBSSortOrder <> true ) then begin
2324- Sort.SortOrder := true;
2325- Sort.SortIndex := 0;
2326- Sort.SortNoFlag := true;
2327- inBBS.Sort(CategorySortProc);
2328- end;
2329-
2330- Root := TreeView.Items.Add( nil, inBBS.Title );
2331- Root.ImageIndex := ITEM_ICON_2CH1;
2332- Root.SelectedIndex := ITEM_ICON_2CH2;
2333- Root.Data := inBBS;
2334- for i := inBBS.Count - 1 downto 0 do begin
2335- Category := TCategory(inBBS.Items[i]);
2336- CategoryNode := TreeView.Items.AddChildFirst(Root, Category.Title);
2337- CategoryNode.Data := Category;
2338- CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
2339- CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
2340-
2341- // キャビネット表示前に再ソート
2342- if ( GikoSys.Setting.CategorySortIndex <> 0 ) or ( GikoSys.Setting.CategorySortOrder <> true ) then begin
2343- Sort.SortOrder := true;
2344- Sort.SortIndex := 0;
2345- Sort.SortNoFlag := true;
2346- Category.CustomSort(BoardSortProc);
2347- end;
2348-
2349- for j := Category.Count - 1 downto 0 do begin
2350- Board := TBoard(Category.Items[j]);
2351- Board.BeginUpdate;
2352- BoardNode := TreeView.Items.AddChildFirst(CategoryNode, Board.Title);
2353- BoardNode.Data := Board;
2354- //if (Board.LastGetTime = 0) or (Board.LastGetTime = ZERO_DATE) then begin
2355- if not Board.IsLogFile then begin
2356- BoardNode.ImageIndex := ITEM_ICON_BOARD_NOSUBJECT;
2357- BoardNode.SelectedIndex := ITEM_ICON_BOARD_NOSUBJECT;
2358- end else begin
2359- BoardNode.ImageIndex := ITEM_ICON_BOARD1;
2360- BoardNode.SelectedIndex := ITEM_ICON_BOARD2;
2361- for k := 0 to Board.Count - 1 do begin
2362- if Board.Items[ k ].IsLogFile then begin
2363- BoardNode.ImageIndex := ITEM_ICON_BOARD_LOG;
2364- BoardNode.SelectedIndex := ITEM_ICON_BOARD_LOG;
2365-
2366- Break;
2367- end;
2368- end;
1922+ if (TWebBrowser(Sender) <> nil) and (not TWebBrowser(Sender).Busy) and (Assigned(TWebBrowser(Sender).Document)) then begin
1923+ if LowerCase(OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset) <> 'shift_jis' then begin
1924+ OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset := 'shift_jis';
23691925 end;
2370- Board.EndUpdate;
23711926 end;
2372-
2373- CategoryNode.Expanded := Category.NodeExpand;
2374-
2375- //if SplashWindow <> nil then begin
2376- // SplashWindow.ProgressBar.StepIt;
2377- //Application.ProcessMessages;
2378- // SplashWindow.Update;
2379- //end;
1927+ except
23801928 end;
23811929 finally
2382- TreeView.Items.EndUpdate;
23831930 end;
2384-end;
2385-
2386-function TGikoForm.SetCategoryListItem(ABBS2ch: TBBS): Integer;
2387-var
2388- TitleColumn : TListColumn;
2389- ListColumn : TListColumn;
2390- i, id, idx : Integer;
2391-begin
2392- ListView.Items.BeginUpdate;
1931+ if PreviewTimer.Enabled then
1932+ PreviewTimer.Enabled := False;
1933+ Application.CancelHint;
23931934 try
2394- Screen.Cursor := crHourGlass;
1935+ if GetActiveContent <> nil then
1936+ ActiveFileName := ChangeFileExt(ExtractFileName(GetActiveContent.FileName), '')
1937+ else
1938+ ActiveFileName := '';
1939+ except
1940+ FActiveContent := nil;
1941+ Exit;
1942+ end;
23951943
2396- ListView.Columns.Clear;
2397- TitleColumn := ListView.Columns.Add;
2398- TitleColumn.Caption := GikoBBSColumnCaption[ Ord( gbbscTitle ) ];
2399- TitleColumn.Width := GikoSys.Setting.BBSColumnWidth[ Ord( gbbscTitle ) ];
2400- idx := 0;
2401- for i := 0 to GikoSys.Setting.BBSColumnOrder.Count - 1 do begin
2402- if GikoSys.Setting.BBSColumnOrder[ i ] = gbbscTitle then begin
2403- TitleColumn.Tag := i;
2404- idx := i;
2405- end else begin
2406- id := Ord( GikoSys.Setting.BBSColumnOrder[ i ] );
2407- if (Integer( Low( TGikoBBSColumnID ) ) <= id) and
2408- (id <= Integer( High( TGikoBBSColumnID ) )) then begin
2409- ListColumn := ListView.Columns.Add;
2410- // ListColumn.Tag := id;
2411- ListColumn.Tag := i;
2412- ListColumn.Caption := GikoBBSColumnCaption[ id ];
2413- ListColumn.Width := GikoSys.Setting.BBSColumnWidth[ id ];
2414- end;
2415- end;
2416- end;
2417- TitleColumn.Index := idx;
1944+ StatusBar.Panels[1].Text := Text;
24181945
2419- ListView.Items.Count := 0;
2420- ListView.Items.Clear;
2421- ListView.Items.Count := ABBS2ch.Count;
2422-
2423-// UpFolderAction.Enabled := False;
2424-// AllItemAction.Enabled := False;
2425-// LogItemAction.Enabled := False;
2426-// NewItemAction.Enabled := False;
2427-// SelectItemAction.Enabled := False;
2428-// ListDownloadToolButton.Enabled := False;
2429-// BoardReservToolButton.Enabled := False;
2430-// ListThreadDownloadToolButton.Enabled := False;
2431-
2432- ListNameLabel.Caption := ABBS2ch.Title;
2433- FolderImage.Picture := nil;
2434- ItemIcon16.GetBitmap(1, FolderImage.Picture.Bitmap);
2435-
2436- FSortIndex := GikoSys.Setting.BBSSortIndex;
2437- FSortOrder := GikoSys.Setting.BBSSortOrder;
2438- for i := ListView.Columns.Count - 1 downto 0 do begin
2439- idx := ListView.Column[ i ].Tag;
2440- if FSortIndex = Ord( GikoSys.Setting.BBSColumnOrder[ idx ] ) then
2441- ListViewSort( nil, ListView.Column[ i ] );
2442- end;
2443-
2444- Result := ABBS2ch.Count;
2445- finally
2446- Screen.Cursor := crDefault;
2447- ListView.Items.EndUpdate;
1946+ if FHint <> nil then begin
1947+ FHint.ReleaseHandle;
1948+ FHint.ClearAllRes;
24481949 end;
2449-end;
1950+ if FPreviewBrowser <> nil then
1951+ ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
24501952
2451-function TGikoForm.SetBoardListItem(Category: TCategory): Integer;
2452-var
2453- TitleColumn : TListColumn;
2454- ListColumn : TListColumn;
2455- i, id, idx : Integer;
2456-begin
2457- ListView.Items.BeginUpdate;
2458- try
2459- Screen.Cursor := crHourGlass;
1953+ if not GikoSys.Setting.UnActivePopup then
1954+ if not GikoForm.Active then
1955+ Exit;
24601956
2461- ListView.Columns.Clear;
2462- TitleColumn := ListView.Columns.Add;
2463- TitleColumn.Caption := GikoCategoryColumnCaption[ Ord( gccTitle ) ];
2464- TitleColumn.Width := GikoSys.Setting.CategoryColumnWidth[ Ord( gccTitle ) ];
2465- idx := 0;
2466- for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
2467- if GikoSys.Setting.CategoryColumnOrder[ i ] = gccTitle then begin
2468- TitleColumn.Tag := i;
2469- idx := i;
2470- end else begin
2471- id := Ord( GikoSys.Setting.CategoryColumnOrder[ i ] );
2472- if (Integer( Low( TGikoCategoryColumnID ) ) <= id) and
2473- (id <= Integer( High( TGikoCategoryColumnID ) )) then begin
2474- ListColumn := ListView.Columns.Add;
2475-// ListColumn.Tag := id;
2476- ListColumn.Tag := i;
2477- ListColumn.Caption := GikoCategoryColumnCaption[ id ];
2478- ListColumn.Width := GikoSys.Setting.CategoryColumnWidth[ id ];
1957+//file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10
1958+//file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10-15
1959+
1960+ s := '';
1961+ Ext := AnsiLowerCase(ExtractFileExt(Text));
1962+ if (Pos('http://', Text) = 1) and (GikoSys.Setting.PreviewVisible) and
1963+ ((Ext = '.jpg') or (Ext = '.jpeg') or (Ext = '.gif') or (Ext = '.png')) then begin
1964+ if FPreviewBrowser = nil then begin
1965+ FPreviewBrowser := TPreviewBrowser.Create(Self);
1966+ ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
1967+ TOleControl(FPreviewBrowser).Parent := nil;
1968+ end;
1969+ FPreviewBrowser.Navigate(BLANK_HTML);//前回のプレビュー画像消去用
1970+ FPreviewURL := Text;
1971+ PreviewTimer.Interval := GikoSys.Setting.PreviewWait;
1972+ PreviewTimer.Enabled := True;
1973+ end else if (Pos('about:blank', Text) = 1) or (Pos('http://', Text) = 1) or (Pos('mailto:', Text) = 1) then begin
1974+ if Pos('mailto:', Text) = 1 then begin
1975+ s := StringReplace(Text, 'mailto:', '', [rfIgnoreCase]);
1976+ //ギコナビスレ パート3の466氏に感謝
1977+ GetCursorPos(p);
1978+ p.x := p.x - TWebBrowser(Sender).ClientOrigin.x;
1979+ p.y := p.y - TWebBrowser(Sender).ClientOrigin.y;
1980+ e := IHTMLDocument2(TWebBrowser(Sender).Document).elementFromPoint(p.x, p.y);
1981+ if (Assigned(e)) then begin
1982+ tmp2 := ZenToHan(e.Get_outerText);
1983+ if (GikoSys.IsNumeric(tmp2)) then begin
1984+ //sはレス番号っぽいっす。
1985+ wkIntSt := StrToInt(tmp2);
1986+ wkIntTo := StrToInt(tmp2);
1987+ //s := GetThreadText(wkBBS, wkKey, wkIntSt, wkIntTo, False, False);
1988+ FHint.PopupType := gptThread;
1989+ HTMLCreater.SetResPopupText(FHint, GetActiveContent, wkIntSt, wkIntTo, False, False);
1990+ end else begin
1991+ FHint.PopupType := gptRaw;
1992+ FHint.Caption := s;
24791993 end;
24801994 end;
2481- end;
2482- TitleColumn.Index := idx;
2483-
2484- ListView.Items.Count := 0;
2485- ListView.Items.Clear;
2486- ListView.Items.Count := Category.Count;
2487-
2488- for i := Category.Count - 1 downto 0 do begin
2489- if( Category.Items[i].ParentCategory <> Category ) then begin
2490- Category.Items[i].ParentCategory := Category;
2491- Category.Items[i].No := i + 1;
1995+ end else begin
1996+ threadItem := GetActiveContent;
1997+ URL := THTMLCreate.GetRespopupURL(Text, threadItem.URL);
1998+ PathRec := Gikosys.Parse2chURL2(URL);
1999+ if (PathRec.FNoParam) then begin
2000+ PathRec.FSt := 1;
2001+ PathRec.FTo := 1;
2002+ end else begin
2003+ Gikosys.GetPopupResNumber(URL,PathRec.FSt,PathRec.FTo);
24922004 end;
2493- end;
2494-// UpFolderAction.Enabled := True;
2495-// AllItemAction.Enabled := False;
2496-// LogItemAction.Enabled := False;
2497-// NewItemAction.Enabled := False;
2498-// SelectItemAction.Enabled := False;
2499-// ListDownloadToolButton.Enabled := False;
2500-// BoardReservToolButton.Enabled := False;
2501-// ListThreadDownloadToolButton.Enabled := False;
2005+ GikoSys.ParseURI( URL, Protocol, Host, Path, Document, Port, Bookmark );
25022006
2503- ListNameLabel.Caption := Category.Title;
2504- FolderImage.Picture := nil;
2505- ItemIcon16.GetBitmap(3, FolderImage.Picture.Bitmap);
2506-
2507- FSortIndex := GikoSys.Setting.CategorySortIndex;
2508- FSortOrder := GikoSys.Setting.CategorySortOrder;
2509- for i := ListView.Columns.Count - 1 downto 0 do begin
2510- idx := ListView.Column[ i ].Tag;
2511- if FSortIndex = Ord( GikoSys.Setting.CategoryColumnOrder[ idx ] ) then
2512- ListViewSort( nil, ListView.Column[ i ] );
2513- end;
2514-
2515- Result := Category.Count;
2516- finally
2517- Screen.Cursor := crDefault;
2518- ListView.Items.EndUpdate;
2519- end;
2520-end;
2521-
2522-function TGikoForm.SetThreadListItem(Board: TBoard): Integer;
2523-var
2524- TitleColumn : TListColumn;
2525- ListColumn : TListColumn;
2526- i, id, idx : Integer;
2527-begin
2528- ListView.Items.BeginUpdate;
2529- try
2530- Screen.Cursor := crHourGlass;
2531-
2532-{*
2533- // チラつき防止のため、変更されている場合のみ
2534- // ※名称は違うがカラム数が同じ、といった場合に対処できないので注意
2535- if ListView.Columns.Count <> GikoSys.Setting.BoardColumnOrder.Count then
2536-*}
2537- begin
2538- ListView.Columns.Clear;
2539- TitleColumn := ListView.Columns.Add;
2540- TitleColumn.Caption := GikoBoardColumnCaption[ Ord( gbcTitle ) ];
2541- TitleColumn.Width := GikoSys.Setting.BoardColumnWidth[ Ord( gbcTitle ) ];
2542- idx := 0;
2543- for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
2544- if GikoSys.Setting.BoardColumnOrder[ i ] = gbcTitle then begin
2545- TitleColumn.Tag := i;
2546- idx := i;
2547- end else begin
2548- id := Ord( GikoSys.Setting.BoardColumnOrder[ i ] );
2549- if (Integer( Low( TGikoBoardColumnID ) ) <= id) and
2550- (id <= Integer( High( TGikoBoardColumnID ) )) then begin
2551- ListColumn := ListView.Columns.Add;
2552- ListColumn.Caption := GikoBoardColumnCaption[ id ];
2553- // ListColumn.Tag := id;
2554- ListColumn.Tag := i;
2555- ListColumn.Width := GikoSys.Setting.BoardColumnWidth[ id ];
2556- ListColumn.Alignment := GikoBoardColumnAlignment[ id ];
2557- end;
2558- end;
2559- end;
2560- TitleColumn.Index := idx;
2561- end;
2562-
2563- ListView.Items.Count := 0;
2564- ListView.Items.Clear;
2565-
2566- {case GikoForm.ViewType of
2567- gvtAll: ListView.Items.Count := Board.Count;
2568- gvtLog: ListView.Items.Count := Board.GetLogThreadCount;
2569- gvtNew: ListView.Items.Count := Board.GetNewThreadCount;
2570- gvtUser: ListView.Items.Count := Board.GetUserThreadCount;
2571- end;
2572- }
2573- case GikoForm.ViewType of
2574- gvtAll: ListView.Items.Count := Board.Count;
2575- gvtLog:
2576- begin
2577- Board.LogThreadCount := Board.GetLogThreadCount;
2578- ListView.Items.Count := Board.LogThreadCount;
2579- end;
2580- gvtNew:
2581- begin
2582- Board.NewThreadCount := Board.GetNewThreadCount;
2583- ListView.Items.Count := Board.NewThreadCount;
2584- end;
2585- gvtUser:
2586- begin
2587- Board.UserThreadCount:= Board.GetUserThreadCount;
2588- ListView.Items.Count := Board.UserThreadCount;
2589- end;
2590- end;
2591-
2592- ListNameLabel.Caption := Board.Title;
2593- FolderImage.Picture := nil;
2594- ItemIcon16.GetBitmap(5, FolderImage.Picture.Bitmap);
2595-
2596- FSortIndex := GikoSys.Setting.BoardSortIndex;
2597- FSortOrder := GikoSys.Setting.BoardSortOrder;
2598- for i := ListView.Columns.Count - 1 downto 0 do begin
2599- idx := ListView.Column[ i ].Tag;
2600- if FSortIndex = Ord( GikoSys.Setting.BoardColumnOrder[ idx ] ) then
2601- ListViewSort( nil, ListView.Column[ i ] );
2602- end;
2603-
2604- Result := Board.Count;
2605- finally
2606- Screen.Cursor := crDefault;
2607- ListView.Items.EndUpdate;
2608- end;
2609-end;
2610-
2611-procedure TGikoForm.ListViewData(Sender: TObject; Item: TListItem);
2612-var
2613-// FileName: string;
2614-// DateTime: TDateTime;
2615- BoardCnt: Integer;
2616- BBS: TBBS;
2617- Category: TCategory;
2618- Board: TBoard;
2619- ThreadItem: TThreadItem;
2620- RepStr: string;
2621- ActivListObj : TObject;
2622- i, idx : Integer;
2623-begin
2624- ActivListObj := ActiveList;
2625- if ActivListObj is TBBS then begin
2626- //===== カテゴリリスト =====
2627- BBS := TBBS(ActivListObj);
2628-
2629- ListView.StateImages := nil;
2630-
2631- if (BBS = nil) or (BBS.Count <= 0) or (Item = nil)
2632- or (Item.Index >= BBS.Count) or (ListView.Items.Count = 0)
2633- or (not (BBS.Items[Item.index] is TCategory)) then Exit;
2634- //if BBS.Count <= 0 then Exit;
2635- //if Item = nil then Exit;
2636- //if Item.Index >= BBS.Count then Exit;
2637- //if ListView.Items.Count = 0 then Exit;
2638-
2639- //if not (BBS.Items[Item.index] is TCategory) then Exit;
2640- Category := TCategory(BBS.Items[Item.index]);
2641-
2642- if Category = nil then Exit;
2643-
2644- if ListNumberVisibleAction.Checked then
2645- Item.Caption := IntToStr(Category.No) + ': ' + Category.Title
2646- else
2647- Item.Caption := Category.Title;
2648-
2649- Item.ImageIndex := ITEM_ICON_CATEGORY1;
2650- Item.Data := Category;
2651-
2652- end else if ActivListObj is TCategory then begin
2653-
2654- //===== 板リスト =====
2655- Category := TCategory(ActivListObj);
2656-
2657- ListView.StateImages := nil;
2658-
2659- if (Category = nil) or (Category.Count <= 0) or (Item = nil)
2660- or (Item.Index >= Category.Count) or (ListView.Items.Count = 0)
2661- or (not (Category.Items[Item.Index] is TBoard)) then Exit;
2662- //if Category.Count <= 0 then Exit;
2663- //if Item = nil then Exit;
2664- //if Item.Index >= Category.Count then Exit;
2665- //if ListView.Items.Count = 0 then Exit;
2666-
2667- //if not (Category.Items[Item.Index] is TBoard) then Exit;
2668- Board := TBoard(Category.Items[Item.Index]);
2669-
2670- if Board = nil then Exit;
2671-
2672- if ListNumberVisibleAction.Checked then
2673- Item.Caption := IntToStr(Board.No) + ': ' + Board.Title
2674- //Item.Caption := IntToStr(Item.Index + 1) + ': ' + Board.Title
2675- else
2676- Item.Caption := Board.Title;
2677-
2678- if Item.SubItems.Count <> ListView.Columns.Count then begin
2679- Item.SubItems.Clear;
2680- Item.SubItems.Capacity := GikoSys.Setting.CategoryColumnOrder.Count;
2681- for i := GikoSys.Setting.CategoryColumnOrder.Count - 1 downto 1 do
2682- Item.SubItems.Add('');
2683- end;
2684-
2685- Item.ImageIndex := ITEM_ICON_BOARD1;
2686- idx := 0;
2687- for i := 0 to ListView.Columns.Count - 1 do begin
2688- if GikoSys.Setting.CategoryColumnOrder.Count <= i then
2689- Break;
2690-// case TGikoCategoryColumnID( ListView.Column[ i ].Tag ) of
2691- case GikoSys.Setting.CategoryColumnOrder[ i ] of
2692- gccTitle:
2693- // Item.Caption は SubItems に含まれ無いので
2694- Dec( idx );
2695-
2696- gccRoundName:
2697- if Board.Round then
2698- Item.SubItems[ idx ] := Board.RoundName // '予約'
2699- else
2700- Item.SubItems[ idx ] := '';
2701-
2702- gccLastModified:
2703- if Board.RoundDate = ZERO_DATE then begin
2704- Item.SubItems[ idx ] := '';
2705- end else
2706- Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', Board.RoundDate);
2707- end;
2708- Inc( idx );
2709- end;
2710-
2711- Item.Data := Board;
2712-
2713- end else if ActivListObj is TBoard then begin
2714-
2715- //===== スレリスト =====
2716- Board := TBoard(ActivListObj);
2717-
2718- if GikoSys.Setting.ListIconVisible then
2719- ListView.StateImages := StateIconImageList
2720- else
2721- ListView.StateImages := nil;
2722-
2723-
2724- case GikoForm.ViewType of
2725- gvtAll: BoardCnt := Board.Count;
2726- gvtLog: BoardCnt := Board.LogThreadCount;
2727- gvtNew: BoardCnt := Board.NewThreadCount;
2728- gvtUser: BoardCnt := Board.UserThreadCount;
2729- else
2730- BoardCnt := 0;
2731- end;
2732- {
2733- case GikoForm.ViewType of
2734- gvtAll: BoardCnt := Board.Count;
2735- gvtLog: BoardCnt := Board.GetLogThreadCount;
2736- gvtNew: BoardCnt := Board.GetNewThreadCount;
2737- gvtUser: BoardCnt := Board.GetUserThreadCount;
2738- else
2739- BoardCnt := 0;
2740- end;
2741- }
2742-// if Board = nil then Exit;
2743- if (BoardCnt <= 0) or (Item = nil) or (Item.Index > BoardCnt)
2744- or (ListView.Items.Count = 0) or (not (Board.Items[Item.Index] is TThreadItem)) then Exit;
2745-
2746- //改善すべきブロック/////////////////////////////////////////////////////
2747- ThreadItem := nil;
2748- case GikoForm.ViewType of
2749- gvtAll: if Item.Index >= Board.Count then Exit else
2750- ThreadItem := TThreadItem(Board.Items[Item.Index]);
2751- gvtLog: ThreadItem := Board.GetLogThread(Item.Index);
2752- gvtNew: ThreadItem := Board.GetNewThread(Item.Index);
2753- gvtUser: ThreadItem := Board.GetUserThread(Item.Index);
2754- end;
2755- //////////////////////////////////////////////////////////////////////////
2756-
2757- if ThreadItem = nil then Exit;
2758-
2759- RepStr := CustomStringReplace(ThreadItem.Title, '&lt;', '<' );
2760- RepStr := CustomStringReplace(RepStr, '&gt;', '>' );
2761- RepStr := CustomStringReplace(RepStr, '&quot;', '"' );
2762- RepStr := CustomStringReplace(RepStr, '&amp;', '&' );
2763- //RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]);
2764- if Item.SubItems.Count <> ListView.Columns.Count then begin
2765- Item.SubItems.Clear;
2766- Item.SubItems.Capacity := GikoSys.Setting.BoardColumnOrder.Count;
2767- for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
2768- Item.SubItems.Add('');
2769- end;
2770-
2771- if ListNumberVisibleAction.Checked then
2772- Item.Caption := IntToStr(ThreadItem.No) + ': ' + RepStr
2773- else
2774- Item.Caption := RepStr;
2775-
2776- case ThreadItem.AgeSage of
2777- gasNone: Item.StateIndex := -1;
2778- gasNew: Item.StateIndex := 0;
2779- gasAge: Item.StateIndex := 1;
2780- gasSage: Item.StateIndex := 2;
2781- end;
2782-
2783- if ThreadItem.IsLogFile then begin
2784- idx := 0;
2785- for i := 0 to ListView.Columns.Count - 1 do begin
2786- if GikoSys.Setting.BoardColumnOrder.Count <= i then
2787- Break;
2788-// case TGikoBoardColumnID( ListView.Column[ i ].Tag ) of
2789- case GikoSys.Setting.BoardColumnOrder[ i ] of
2790- gbcTitle:
2791- // Item.Caption は SubItems に含まれ無いので
2792- Dec( idx );
2793-
2794- gbcAllCount:
2795- Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount);
2796-
2797- gbcLocalCount:
2798- Item.SubItems[ idx ] := IntToStr(ThreadItem.Count);
2799-
2800- gbcNonAcqCount:
2801- Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount - ThreadItem.Count);
2802-
2803- gbcNewCount:
2804- if ThreadItem.NewResCount = 0 then
2805- Item.SubItems[ idx ] := ''
2806- else
2807- Item.SubItems[ idx ] := IntToStr(ThreadItem.NewResCount);
2808-
2809- gbcUnReadCount:
2810- Item.SubItems[ idx ] := '';
2811-
2812- gbcRoundName:
2813- if ThreadItem.Round then
2814- Item.SubItems[ idx ] := ThreadItem.RoundName
2815- else
2816- Item.SubItems[ idx ] := '';
2817-
2818- gbcRoundDate://gbcLastModified:
2819- if (ThreadItem.RoundDate = ZERO_DATE) then begin
2820- Item.SubItems[ idx ] := '';
2821- end else
2822- Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.RoundDate);
2823-
2824- gbcCreated:
2825- if ThreadItem.CreateDate = ZERO_DATE then begin
2826- Item.SubItems[ idx ] := '';
2827- end else
2828- Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
2829-
2830- gbcLastModified:
2831- if (ThreadItem.LastModified = ZERO_DATE) then begin
2832- Item.SubItems[ idx ] := '';
2833- end else
2834- Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.LastModified);
2835-
2836-
2837- end;
2838- Inc( idx );
2839- end;
2840-
2841- if ThreadItem.NewArrival then
2842- Item.ImageIndex := ITEM_ICON_THREADNEW1
2843- else
2844- Item.ImageIndex := ITEM_ICON_THREADLOG1;
2845-
2846-
2847- end else begin
2848- idx := 0;
2849- for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
2850-// case TGikoBoardColumnID( ListView.Column[ i ].Tag ) of
2851- case GikoSys.Setting.BoardColumnOrder[ i ] of
2852- gbcTitle:
2853- // Item.Caption は SubItems に含まれ無いので
2854- Dec( idx );
2855-
2856- gbcAllCount:
2857- Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount);
2858-
2859- gbcRoundDate://gbcLastModified:
2860- Item.SubItems[ idx ] := '';
2861-
2862- gbcCreated:
2863- if ThreadItem.CreateDate = ZERO_DATE then begin
2864- Item.SubItems[ idx ] := '';
2865- end else
2866- Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
2867-
2868- gbcLastModified:
2869- Item.SubItems[ idx ] := '';
2870-
2871- else
2872- Item.SubItems[ idx ] := '';
2873- end;
2874- Inc( idx );
2875- end;
2876- if ThreadItem.NewArrival then
2877- Item.ImageIndex := ITEM_ICON_THREADNEW1
2878- else
2879- Item.ImageIndex := ITEM_ICON_THREAD1;
2880- end;
2881-
2882- Item.Data := ThreadItem;
2883-
2884- end;
2885-end;
2886-
2887-procedure TGikoForm.ListViewDataFind(Sender: TObject; Find: TItemFind;
2888- const FindString: String; const FindPosition: TPoint; FindData: Pointer;
2889- StartIndex: Integer; Direction: TSearchDirection; Wrap: Boolean;
2890- var Index: Integer);
2891-begin
2892-
2893-//
2894-end;
2895-
2896-procedure TGikoForm.ListViewDataHint(Sender: TObject; StartIndex,
2897- EndIndex: Integer);
2898-begin
2899-//
2900-end;
2901-
2902-procedure TGikoForm.ListViewDataStateChange(Sender: TObject; StartIndex,
2903- EndIndex: Integer; OldState, NewState: TItemStates);
2904-begin
2905-//
2906-end;
2907-
2908-procedure TGikoForm.BrowserStatusTextChange(Sender: TObject; const Text: WideString);
2909-var
2910- p: TPoint;
2911- s: string;
2912- tmp2: string;
2913- URL: string;
2914- ATitle: Boolean;
2915-
2916- threadItem : TThreadItem;
2917- board : TBoard;
2918- Protocol, Host, Path, Document, Port, Bookmark: string;
2919-
2920- wkInt: Integer;
2921- wkIntSt: Integer;
2922- wkIntTo: Integer;
2923- ActiveFileName: string;
2924- e: IHTMLElement;
2925- Ext: string;
2926-// buf, buf2: string;
2927- PathRec: TPathRec;
2928-begin
2929- if not( TObject(Sender) is TWebBrowser )then
2930- Exit;
2931- try
2932- try
2933- if (TWebBrowser(Sender) <> nil) and (not TWebBrowser(Sender).Busy) and (Assigned(TWebBrowser(Sender).Document)) then begin
2934- if LowerCase(OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset) <> 'shift_jis' then begin
2935- OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset := 'shift_jis';
2936- end;
2937- end;
2938- except
2939- end;
2940- finally
2941- end;
2942- if PreviewTimer.Enabled then
2943- PreviewTimer.Enabled := False;
2944- Application.CancelHint;
2945- try
2946- if GetActiveContent <> nil then
2947- ActiveFileName := ChangeFileExt(ExtractFileName(GetActiveContent.FileName), '')
2948- else
2949- ActiveFileName := '';
2950- except
2951- FActiveContent := nil;
2952- Exit;
2953- end;
2954-
2955- StatusBar.Panels[1].Text := Text;
2956-
2957- if FHint <> nil then begin
2958- FHint.ReleaseHandle;
2959- FHint.ClearAllRes;
2960- end;
2961- if FPreviewBrowser <> nil then
2962- ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
2963-
2964- if not GikoSys.Setting.UnActivePopup then
2965- if not GikoForm.Active then
2966- Exit;
2967-
2968-//file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10
2969-//file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10-15
2970-
2971- s := '';
2972- Ext := AnsiLowerCase(ExtractFileExt(Text));
2973- if (Pos('http://', Text) = 1) and (GikoSys.Setting.PreviewVisible) and
2974- ((Ext = '.jpg') or (Ext = '.jpeg') or (Ext = '.gif') or (Ext = '.png')) then begin
2975- if FPreviewBrowser = nil then begin
2976- FPreviewBrowser := TPreviewBrowser.Create(Self);
2977- ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
2978- TOleControl(FPreviewBrowser).Parent := nil;
2979- end;
2980- FPreviewBrowser.Navigate(BLANK_HTML);//前回のプレビュー画像消去用
2981- FPreviewURL := Text;
2982- PreviewTimer.Interval := GikoSys.Setting.PreviewWait;
2983- PreviewTimer.Enabled := True;
2984- end else if (Pos('about:blank', Text) = 1) or (Pos('http://', Text) = 1) or (Pos('mailto:', Text) = 1) then begin
2985- if Pos('mailto:', Text) = 1 then begin
2986- s := StringReplace(Text, 'mailto:', '', [rfIgnoreCase]);
2987- //ギコナビスレ パート3の466氏に感謝
2988- GetCursorPos(p);
2989- p.x := p.x - TWebBrowser(Sender).ClientOrigin.x;
2990- p.y := p.y - TWebBrowser(Sender).ClientOrigin.y;
2991- e := IHTMLDocument2(TWebBrowser(Sender).Document).elementFromPoint(p.x, p.y);
2992- if (Assigned(e)) then begin
2993- tmp2 := ZenToHan(e.Get_outerText);
2994- if (GikoSys.IsNumeric(tmp2)) then begin
2995- //sはレス番号っぽいっす。
2996- wkIntSt := StrToInt(tmp2);
2997- wkIntTo := StrToInt(tmp2);
2998- //s := GetThreadText(wkBBS, wkKey, wkIntSt, wkIntTo, False, False);
2999- FHint.PopupType := gptThread;
3000- SetResPopupText(GetActiveContent, wkIntSt, wkIntTo, False, False);
3001- end else begin
3002- FHint.PopupType := gptRaw;
3003- FHint.Caption := s;
3004- end;
3005- end;
3006- end else begin
3007- threadItem := GetActiveContent;
3008- URL := GetRespopupURL(Text, threadItem.URL);
3009- PathRec := Gikosys.Parse2chURL2(URL);
3010- if (PathRec.FNoParam) then begin
3011- PathRec.FSt := 1;
3012- PathRec.FTo := 1;
3013- end else begin
3014- Gikosys.GetPopupResNumber(URL,PathRec.FSt,PathRec.FTo);
3015- end;
3016- GikoSys.ParseURI( URL, Protocol, Host, Path, Document, Port, Bookmark );
3017-
3018- if PathRec.FDone or (not GikoSys.Is2chHost( Host )) then begin
2007+ if PathRec.FDone or (not GikoSys.Is2chHost( Host )) then begin
30192008
30202009 URL := GikoSys.GetBrowsableThreadURL( URL );
30212010 wkIntSt := PathRec.FSt;
@@ -3057,13 +2046,11 @@ begin
30572046 wkIntTo := 1;
30582047 end;
30592048 FHint.PopupType := gptThread;
3060- SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
2049+ HTMLCreater.SetResPopupText(FHint, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
30612050 end;
30622051 end;
30632052 end;
30642053
3065- //if s <> '' then
3066- // ShowTextPopup(s);
30672054 if FHint.PopupType = gptRaw then begin
30682055 if FHint.Caption <> '' then
30692056 ShowTextPopup;
@@ -3077,22 +2064,17 @@ end;
30772064 procedure TGikoForm.SetEnabledCloseButton(Enabled: Boolean);
30782065 var
30792066 SysMenu: HMenu;
3080- //SysMenuApp: HMenu;
30812067 begin
30822068 FEnabledCloseButton := Enabled;
30832069 SysMenu := GetSystemMenu(Handle, False);
3084- //SysMenuApp := GetSystemMenu(Application.Handle, False);
30852070
30862071 if Enabled then begin
30872072 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
3088- //EnableMenuItem(SysMenuApp, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
30892073 end else begin
30902074 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
3091- //EnableMenuItem(SysMenuApp, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
30922075 end;
30932076
30942077 DrawMenuBar(Handle);
3095- //DrawMenuBar(Application.Handle);
30962078 end;
30972079
30982080 procedure TGikoForm.TreeViewChanging(Sender: TObject; Node: TTreeNode;
@@ -3152,57 +2134,13 @@ begin
31522134 Result := FHttpState;
31532135 end;
31542136
3155-{!
3156-\brief ListView の Column を真のカラムに変換
3157-
3158-Delphi 6 Personal での ListView では ListViewColumnClick イベントで
3159-正しいカラムが渡されないため、正しいカラムに変換します。
3160-}
3161-function TGikoForm.ActiveListTrueColumn( column : TListColumn ) : TListColumn;
3162-{*
3163-var
3164- i, idx : Integer;
3165- orderList : TList;
3166-*}
3167-begin
3168-
3169- // 正しく変換する方法が分からないので保留
3170- Result := column;
3171- Exit;
3172-{*
3173- Result := column;
3174-
3175- if TObject( FActiveList ) is TBBS then
3176- orderList := GikoSys.Setting.BBSColumnOrder
3177- else if TObject( FActiveList ) is TCategory then
3178- orderList := GikoSys.Setting.CategoryColumnOrder
3179- else if TObject( FActiveList ) is TBoard then
3180- orderList := GikoSys.Setting.BoardColumnOrder
3181- else
3182- Exit;
3183-
3184- idx := column.Tag;
3185-
3186- for i := 0 to ListView.Columns.Count - 1 do begin
3187- if Integer( orderList[ ListView.Column[ i ].Tag ] ) = 0 then begin
3188- if idx = 0 then
3189- Result := ListView.Column[ i ]
3190- else if idx <= i then
3191- Result := ListView.Column[ idx - 1 ];
3192- Exit;
3193- end;
3194- end;
3195-*}
3196-
3197-end;
3198-
31992137 procedure TGikoForm.ListViewColumnClick(Sender: TObject;
32002138 Column: TListColumn);
32012139 var
32022140 id, idx : Integer;
32032141 orderList : TList;
32042142 begin
3205- idx := ActiveListTrueColumn( Column ).Tag;
2143+ idx := TListViewUtils.ActiveListTrueColumn( Column ).Tag;
32062144
32072145 if TObject( FActiveList ) is TBBS then
32082146 orderList := GikoSys.Setting.BBSColumnOrder
@@ -3221,69 +2159,7 @@ begin
32212159 FSortOrder := id = 0;
32222160 end;
32232161
3224- ListViewSort(Sender, Column);
3225-end;
3226-
3227-procedure TGikoForm.ListViewSort(Sender: TObject; Column: TListColumn);
3228-var
3229- i, id, idx : Integer;
3230- orderList : TList;
3231- wkBBS: TBBS;
3232- wkCategory: TCategory;
3233- wkBoard: TBoard;
3234-begin
3235- idx := ActiveListTrueColumn( Column ).Tag;
3236-
3237- for i := 0 to ListView.Columns.Count - 1 do begin
3238- ListView.Column[i].ImageIndex := -1;
3239- end;
3240-
3241- if FSortOrder then
3242- ListView.Column[ idx ].ImageIndex := ITEM_ICON_SORT1
3243- else
3244- ListView.Column[ idx ].ImageIndex := ITEM_ICON_SORT2;
3245-
3246- Sort.SortNoFlag := ListNumberVisibleAction.Checked;
3247-
3248- //if TObject(TreeView.Selected.Data) is TBBS then begin
3249- if TObject( FActiveList ) is TBBS then begin
3250- //wkBBS := TBBS(TreeView.Selected.Data);
3251- wkBBS := TBBS( FActiveList );
3252- orderList := GikoSys.Setting.BBSColumnOrder;
3253- id := Integer( orderList[ idx ] );
3254- Sort.SortOrder := FSortOrder;
3255- Sort.SortIndex := id;
3256- GikoSys.Setting.BBSSortIndex := id;
3257- GikoSys.Setting.BBSSortOrder := FSortOrder;
3258- wkBBS.Sort(CategorySortProc);
3259- //end else if TObject(TreeView.Selected.Data) is TCategory then begin
3260- end else if TObject( FActiveList ) is TCategory then begin
3261- //wkCategory := TCategory(TreeView.Selected.Data);
3262- wkCategory := TCategory( FActiveList );
3263- orderList := GikoSys.Setting.CategoryColumnOrder;
3264- id := Integer( orderList[ idx ] );
3265- Sort.SortOrder := FSortOrder;
3266- Sort.SortIndex := id;
3267- GikoSys.Setting.CategorySortIndex := id;
3268- GikoSys.Setting.CategorySortOrder := FSortOrder;
3269- wkCategory.CustomSort(BoardSortProc);
3270- //end else if TObject(TreeView.Selected.Data) is TBoard then begin
3271- end else if TObject( FActiveList ) is TBoard then begin
3272- //wkBoard := TBoard(TreeView.Selected.Data);
3273- wkBoard := TBoard( FActiveList );
3274- orderList := GikoSys.Setting.BoardColumnOrder;
3275- id := Integer( orderList[ idx ] );
3276- Sort.SortOrder := FSortOrder;
3277- Sort.SortIndex := id;
3278- GikoSys.Setting.BoardSortIndex := id;
3279- GikoSys.Setting.BoardSortOrder := FSortOrder;
3280- wkBoard.CustomSort(ThreadItemSortProc);
3281- end else begin
3282- id := 0;
3283- end;
3284-
3285- ListView.Refresh;
3286- FSortIndex := id;
2162+ TListViewUtils.ListViewSort(Sender, ListView, Column, GikoDM.ListNumberVisibleAction.Checked, FSortOrder, FSortIndex );
32872163 end;
32882164
32892165 procedure TGikoForm.MenuToolBarCustomDrawButton(Sender: TToolBar;
@@ -3347,23 +2223,6 @@ begin
33472223
33482224 end;
33492225
3350-procedure TGikoForm.AppFormDeactivate(Sender: TObject);
3351-begin
3352- Application.ProcessMessages;
3353- if not Application.Terminated then begin
3354- if PreviewTimer.Enabled then
3355- PreviewTimer.Enabled := False;
3356- //フォーカスが他のアプリに変わったときにヒントを消去
3357- if FHint <> nil then begin
3358- FHint.ReleaseHandle;
3359- FHint.ClearAllRes;
3360- end;
3361- //プレビューを隠す
3362- if FPreviewBrowser <> nil then
3363- ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
3364- end;
3365-end;
3366-
33672226 procedure TGikoForm.TreeViewCustomDraw(Sender: TCustomTreeView;
33682227 const ARect: TRect; var DefaultDraw: Boolean);
33692228 var
@@ -4039,12 +2898,20 @@ begin
40392898
40402899 // ActiveListColumnSave;
40412900
4042- if Obj is TBBS then begin
4043- SetCategoryListItem(TBBS(Obj));
4044- end else if Obj is TCategory then begin
4045- SetBoardListItem(TCategory(Obj));
4046- end else if Obj is TBoard then begin
4047- SetThreadListItem(TBoard(Obj));
2901+ Screen.Cursor := crHourGlass;
2902+ try
2903+ if Obj is TBBS then begin
2904+ TListViewUtils.SetCategoryListItem(TBBS(obj), ListView, GikoDM.ListNumberVisibleAction.Checked,
2905+ FSortIndex, FSortOrder);
2906+ end else if Obj is TCategory then begin
2907+ TListViewUtils.SetBoardListItem(TCategory(Obj), ListView, GikoDM.ListNumberVisibleAction.Checked,
2908+ FSortIndex, FSortOrder);
2909+ end else if Obj is TBoard then begin
2910+ TListViewUtils.SetThreadListItem(TBoard(Obj), ListView, GikoDM.ListNumberVisibleAction.Checked,
2911+ FSortIndex, FSortOrder);
2912+ end;
2913+ finally
2914+ Screen.Cursor := crDefault;
40482915 end;
40492916
40502917 if idx >= 0 then begin
@@ -4089,8 +2956,6 @@ begin
40892956 end;
40902957
40912958 SetActiveList(Board);
4092- //
4093- //SetThreadListItem(Board); //SetActiveList内で呼ばれるから2重に呼び出す必要なし
40942959 end;
40952960 end;
40962961
@@ -4414,13 +3279,14 @@ begin
44143279 end;
44153280 CabinetSelectToolButton.Caption := inBBS.Title;
44163281
4417- CabinetHistoryAction.Checked := False;
4418- CabinetFavoriteAction.Checked := False;
3282+ GikoDM.CabinetHistoryAction.Checked := False;
3283+ GikoDM.CabinetFavoriteAction.Checked := False;
44193284
44203285 if (FTreeType <> gtt2ch) or (FActiveBBS <> inBBS) then begin
44213286 FTreeType := gtt2ch;
44223287 HistoryToolBar.Hide;
4423- SetBoardTreeNode( inBBS );
3288+ FActiveBBS := inBBS;
3289+ TListViewUtils.SetBoardTreeNode(inBBS, TreeView);
44243290 TreeView.Items.GetFirstNode.Expanded := True; //?c???[?g?b?v???????J??
44253291 //?c???[??g?b?v?????I????
44263292 if GetActiveList = nil then
@@ -4471,13 +3337,14 @@ begin
44713337 end;
44723338 CabinetSelectToolButton.Caption := inBBS.Title;
44733339
4474- CabinetHistoryAction.Checked := False;
4475- CabinetFavoriteAction.Checked := False;
3340+ GikoDM.CabinetHistoryAction.Checked := False;
3341+ GikoDM.CabinetFavoriteAction.Checked := False;
44763342
44773343 if (FTreeType <> gtt2ch) or (FActiveBBS <> inBBS) then begin
44783344 FTreeType := gtt2ch;
44793345 HistoryToolBar.Hide;
4480- SetBoardTreeNode( inBBS );
3346+ FActiveBBS := inBBS;
3347+ TListViewUtils.SetBoardTreeNode(inBBS, TreeView);
44813348 TreeView.Items.GetFirstNode.Expanded := True; //ツリートップ項目だけを開く
44823349 //ツリーのトップ項目を選択する
44833350 if GetActiveList = nil then begin
@@ -4508,13 +3375,13 @@ begin
45083375 if CabinetPanel.Visible then begin
45093376 if FTreeType = gttHistory then begin
45103377 CabinetVisible( False );
4511- CabinetHistoryAction.Checked := False;
3378+ GikoDM.CabinetHistoryAction.Checked := False;
45123379 end else begin
4513- CabinetHistoryAction.Checked := True;
3380+ GikoDM.CabinetHistoryAction.Checked := True;
45143381 end;
45153382 end else begin
4516- CabinetVisible( True );
4517- CabinetHistoryAction.Checked := True;
3383+ CabinetVisible( True );
3384+ GikoDM.CabinetHistoryAction.Checked := True;
45183385 end;
45193386
45203387 // BBS...BBS, History, Favorite
@@ -4523,8 +3390,8 @@ begin
45233390 FavoriteTreeView.Visible := False;
45243391 TreeView.Visible := True;
45253392
4526- CabinetBBSAction.Checked := False;
4527- CabinetFavoriteAction.Checked := False;
3393+ GikoDM.CabinetBBSAction.Checked := False;
3394+ GikoDM.CabinetFavoriteAction.Checked := False;
45283395
45293396 if FTreeType <> gttHistory then begin
45303397 b := CabinetSelectPopupMenu.Items.Count - 1;
@@ -4647,13 +3514,13 @@ begin
46473514 if Item is TBoard then begin // not TCategory
46483515 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
46493516 if GikoSys.Setting.ListWidthState = glsMax then begin
4650- BrowserMinAction.Execute;
3517+ GikoDM.BrowserMinAction.Execute;
46513518 if GikoForm.Visible then
46523519 ListView.SetFocus;
46533520 end;
46543521 end else begin
46553522 if GikoSys.Setting.ListHeightState = glsMax then begin
4656- BrowserMinAction.Execute;
3523+ GikoDM.BrowserMinAction.Execute;
46573524 if GikoForm.Visible then
46583525 ListView.SetFocus;
46593526 end;
@@ -4722,11 +3589,11 @@ begin
47223589 if GikoSys.Setting.BrowserAutoMaximize = gbmClick then begin
47233590 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
47243591 if GikoSys.Setting.ListWidthState = glsMin then begin
4725- BrowserMaxAndFocusAction.Execute;
3592+ GikoDM.BrowserMaxAndFocusAction.Execute;
47263593 end;
47273594 end else begin
47283595 if GikoSys.Setting.ListHeightState = glsMin then begin
4729- BrowserMaxAndFocusAction.Execute;
3596+ GikoDM.BrowserMaxAndFocusAction.Execute;
47303597 end;
47313598 end;
47323599 end;
@@ -4753,13 +3620,13 @@ begin
47533620 if GikoSys.Setting.BrowserAutoMaximize = gbmDoubleClick then begin
47543621 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
47553622 if GikoSys.Setting.ListWidthState = glsMin then begin
4756- BrowserMaxAction.Execute;
4757- SetFocusForBrowserAction.Execute;
3623+ GikoDM.BrowserMaxAction.Execute;
3624+ GikoDM.SetFocusForBrowserAction.Execute;
47583625 end;
47593626 end else begin
47603627 if GikoSys.Setting.ListHeightState = glsMin then begin
4761- BrowserMaxAction.Execute;
4762- SetFocusForBrowserAction.Execute;
3628+ GikoDM.BrowserMaxAction.Execute;
3629+ GikoDM.SetFocusForBrowserAction.Execute;
47633630 end;
47643631 end;
47653632 end;
@@ -4816,775 +3683,47 @@ begin
48163683 top := top + item.offsetTop;
48173684 item := item.offsetParent;
48183685 until AnsiCompareText(item.tagName, 'body' ) = 0;
4819-
4820- OleVariant(activeBrower.Document as IHTMLDocument2).body.scrollTop := top;
4821- except
4822- end;
4823- end;
4824-end;
4825-
4826-procedure TGikoForm.TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
4827-begin
4828- if TObject(Node.Data) is TBBS then begin
4829- TBBS(Node.Data).NodeExpand := False;
4830- end else if TObject(Node.Data) is TCategory then begin
4831- TCategory(Node.Data).NodeExpand := False;
4832- end else if TObject(Node.Data) is TBoard then begin
4833- TBoard(Node.Data).NodeExpand := False;
4834- end;
4835-end;
4836-
4837-procedure TGikoForm.MessageListViewResize(Sender: TObject);
4838-begin
4839-// MessageListView.Column[0].Width := MessageListView.ClientWidth - 16;
4840-end;
4841-
4842-procedure TGikoForm.SelectListItem(List: TList);
4843-var
4844- TmpListItem: TListItem;
4845-begin
4846- List.Clear;
4847- List.Capacity := 0;
4848- TmpListItem := ListView.Selected;
4849- while TmpListItem <> nil do begin
4850- List.Add(TmpListItem.Data);
4851- TmpListItem := ListView.GetNextItem(TmpListItem, sdAll, [isSelected]);
4852- end;
4853-
4854-end;
4855-
4856-procedure TGikoForm.ExitActionExecute(Sender: TObject);
4857-begin
4858- Close;
4859-end;
4860-
4861-procedure TGikoForm.AllSelectActionExecute(Sender: TObject);
4862-begin
4863- ListViewAllSelect;
4864-end;
4865-
4866-procedure TGikoForm.StdToolBarVisibleActionExecute(Sender: TObject);
4867-var
4868- CoolBand: TCoolBand;
4869-begin
4870- CoolBand := GetCoolBand(MainCoolBar, StdToolBar);
4871- if CoolBand = nil then
4872- Exit;
4873- GikoSys.Setting.StdToolBarVisible := StdToolBarVisibleAction.Checked;
4874- CoolBand.Visible := GikoSys.Setting.StdToolBarVisible;
4875- StdToolBarVisiblePMenu.Checked := GikoSys.Setting.StdToolBarVisible;
4876-end;
4877-
4878-procedure TGikoForm.AddressBarVisibleActionExecute(Sender: TObject);
4879-var
4880- CoolBand: TCoolBand;
4881-begin
4882- CoolBand := GetCoolBand(MainCoolBar, AddressToolBar);
4883- if CoolBand = nil then
4884- Exit;
4885- GikoSys.Setting.AddressBarVisible := AddressBarVisibleAction.Checked;
4886- CoolBand.Visible := GikoSys.Setting.AddressBarVisible;
4887- AddressToolBarVisiblePMenu.Checked := GikoSys.Setting.AddressBarVisible;
4888-end;
4889-
4890-procedure TGikoForm.LinkBarVisibleActionExecute(Sender: TObject);
4891-var
4892- CoolBand: TCoolBand;
4893-begin
4894- CoolBand := GetCoolBand(MainCoolBar, LinkToolBar);
4895- if CoolBand = nil then
4896- Exit;
4897- GikoSys.Setting.LinkBarVisible := LinkBarVisibleAction.Checked;
4898- CoolBand.Visible := GikoSys.Setting.LinkBarVisible;
4899- LinkToolBarVisiblePMenu.Checked := GikoSys.Setting.LinkBarVisible;
4900-end;
4901-
4902-procedure TGikoForm.ListToolBarVisibleActionExecute(Sender: TObject);
4903-var
4904- CoolBand: TCoolBand;
4905-begin
4906- CoolBand := GetCoolBand(ListCoolBar, ListToolBar);
4907- if CoolBand = nil then
4908- Exit;
4909- CoolBand.Visible := ListToolBarVisibleAction.Checked;
4910- GikoSys.Setting.ListToolBarVisible := ListToolBarVisibleAction.Checked;
4911-
4912-end;
4913-
4914-procedure TGikoForm.ListNameBarVisibleActionExecute(Sender: TObject);
4915-var
4916- CoolBand: TCoolBand;
4917-begin
4918- CoolBand := GetCoolBand(ListCoolBar, ListNameToolBar);
4919- if CoolBand = nil then
4920- Exit;
4921- CoolBand.Visible := ListNameBarVisibleAction.Checked;
4922- GikoSys.Setting.ListNameBarVisible := ListNameBarVisibleAction.Checked;
4923-end;
4924-
4925-procedure TGikoForm.BrowserToolBarVisibleActionExecute(Sender: TObject);
4926-var
4927- CoolBand: TCoolBand;
4928-begin
4929- CoolBand := GetCoolBand(BrowserCoolBar, BrowserToolBar);
4930- if CoolBand = nil then
4931- Exit;
4932- CoolBand.Visible := BrowserToolBarVisibleAction.Checked;
4933- GikoSys.Setting.BrowserToolBarVisible := BrowserToolBarVisibleAction.Checked;
4934-end;
4935-
4936-procedure TGikoForm.BrowserNameBarVisibleActionExecute(Sender: TObject);
4937-var
4938- CoolBand: TCoolBand;
4939-begin
4940- CoolBand := GetCoolBand(BrowserCoolBar, BrowserNameToolBar);
4941- if CoolBand = nil then
4942- Exit;
4943- CoolBand.Visible := BrowserNameBarVisibleAction.Checked;
4944- GikoSys.Setting.BrowserNameBarVisible := BrowserNameBarVisibleAction.Checked;
4945-end;
4946-
4947-procedure TGikoForm.MsgBarVisibleActionExecute(Sender: TObject);
4948-begin
4949- MessageSplitter.Visible := MsgBarVisibleAction.Checked;
4950- MessagePanel.Top := MessageSplitter.Top + MessageSplitter.Height;
4951- MessageSplitter.Top := MessagePanel.Top + 1;
4952- MessagePanel.Visible := MsgBarVisibleAction.Checked;
4953- GikoSys.Setting.MessageBarVisible := MsgBarVisibleAction.Checked;
4954-end;
4955-
4956-procedure TGikoForm.StatusBarVisibleActionExecute(Sender: TObject);
4957-begin
4958- StatusBar.Visible := StatusBarVisibleAction.Checked;
4959- GikoSys.Setting.StatusBarVisible := StatusBarVisibleAction.Checked;
4960-end;
4961-
4962-procedure TGikoForm.IconStyleExecute(Sender: TObject);
4963-begin
4964- case ListView.ViewStyle of
4965- vsIcon: SmallIconAction.Execute;
4966- vsSmallIcon: ListIconAction.Execute;
4967- vsList: DetailIconAction.Execute;
4968- vsReport: LargeIconAction.Execute;
4969- end;
4970-end;
4971-
4972-procedure TGikoForm.LargeIconActionExecute(Sender: TObject);
4973-begin
4974- ListView.ViewStyle := vsIcon;
4975- LargeIconAction.Checked := True;
4976-end;
4977-
4978-procedure TGikoForm.SmallIconActionExecute(Sender: TObject);
4979-begin
4980- ListView.ViewStyle := vsSmallIcon;
4981- SmallIconAction.Checked := True;
4982-end;
4983-
4984-procedure TGikoForm.ListIconActionExecute(Sender: TObject);
4985-begin
4986- ListView.ViewStyle := vsList;
4987- ListIconAction.Checked := True;
4988-end;
4989-
4990-procedure TGikoForm.DetailIconActionExecute(Sender: TObject);
4991-begin
4992- ListView.ViewStyle := vsReport;
4993- DetailIconAction.Checked := True;
4994-end;
4995-
4996-procedure TGikoForm.SearchActionExecute(Sender: TObject);
4997-var
4998- chk: TObject;
4999-begin
5000-
5001- if FSearchDialog = nil then begin
5002- if (GikoForm.GetActiveList is TCategory) or (GikoForm.GetActiveList is TBoard) then
5003- chk := GikoForm.GetActiveList
5004- else
5005- chk := nil;
5006-
5007- FSearchDialog := TSearchDialog.Create(Self, chk);
5008- FSearchDialog.SearchComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
5009- end;
5010-
5011- try
5012- FSearchDialog.Show;
5013- except
5014- end;
5015-
5016-end;
5017-
5018-procedure TGikoForm.OptionActionExecute(Sender: TObject);
5019-var
5020- Dlg: TOptionDialog;
5021-begin
5022- Dlg := TOptionDialog.Create(Self);
5023- try
5024- Dlg.ShowModal;
5025- finally
5026- Dlg.Release;
5027- end;
5028-end;
5029-
5030-procedure TGikoForm.GikoNaviWebPageActionExecute(Sender: TObject);
5031-const
5032- URL_GIKONAVI: string = 'http://gikonavi.sourceforge.jp/';
5033-begin
5034- GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
5035-end;
5036-
5037-procedure TGikoForm.MonazillaWebPageActionExecute(Sender: TObject);
5038-const
5039- URL_MONAZILLA: string = 'http://www.monazilla.org/';
5040-begin
5041- GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
5042-end;
5043-
5044-procedure TGikoForm.BBS2chWebPageActionExecute(Sender: TObject);
5045-const
5046- URL_2ch: string = 'http://www.2ch.net/';
5047-begin
5048- GikoSys.OpenBrowser(URL_2ch, gbtAuto);
5049-end;
5050-
5051-procedure TGikoForm.GikoFolderOpenActionExecute(Sender: TObject);
5052-begin
5053-// GikoSys.OpenBrowser(GikoSys.GetAppDir, gbtIE);
5054- GikoSys.CreateProcess('explorer.exe', '/e,"' + GikoSys.GetAppDir + '"');
5055-end;
5056-
5057-procedure TGikoForm.AboutActionExecute(Sender: TObject);
5058-var
5059- Dlg: TAboutDialog;
5060-begin
5061- Dlg := TAboutDialog.Create(Self);
5062- try
5063- Dlg.ShowModal;
5064- finally
5065- Dlg.Release;
5066- end;
5067-end;
5068-
5069-procedure TGikoForm.CabinetHistoryActionExecute(Sender: TObject);
5070-begin
5071- ShowHistoryTree;
5072-end;
5073-
5074-procedure TGikoForm.CabinetVisible( isVisible : Boolean );
5075-begin
5076- TreeSplitter.Visible := isVisible;
5077- CabinetPanel.Visible := isVisible;
5078- CabinetVisibleAction.Checked := isVisible;
5079-end;
5080-
5081-procedure TGikoForm.CabinetVisibleActionExecute(Sender: TObject);
5082-begin
5083- case FTreeType of
5084- gttHistory: CabinetHistoryAction.Execute;
5085- gttFavorite: CabinetFavoriteAction.Execute;
5086- else
5087- CabinetBBSAction.Execute;
5088- end;
5089-end;
5090-
5091-procedure TGikoForm.AllItemActionExecute(Sender: TObject);
5092-begin
5093- try
5094- if ViewType <> gvtAll then
5095- SetListViewType(gvtAll);
5096- GikoSys.Setting.ThreadRange := gtrAll;
5097- AllItemAction.Checked := True;
5098- // SelectComboBox の履歴を更新しておく
5099- ModifySelectList;
5100- // SelectComboBox の値をクリア
5101- if SelectComboBoxPanel.Visible then begin
5102- SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5103- SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5104- ListView.SetFocus;
5105- end;
5106- except
5107- end;
5108-end;
5109-
5110-procedure TGikoForm.LogItemActionExecute(Sender: TObject);
5111-begin
5112- try
5113- if ViewType <> gvtLog then
5114- SetListViewType(gvtLog);
5115- GikoSys.Setting.ThreadRange := gtrLog;
5116- LogItemAction.Checked := True;
5117- // SelectComboBox の履歴を更新しておく
5118- ModifySelectList;
5119- // SelectComboBox の値をクリア
5120- if SelectComboBoxPanel.Visible then begin
5121- SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5122- SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5123- ListView.SetFocus;
5124- end;
5125- except
5126- end;
5127-end;
5128-
5129-procedure TGikoForm.NewItemActionExecute(Sender: TObject);
5130-begin
5131- try
5132-
5133- if ViewType <> gvtNew then
5134- SetListViewType(gvtNew);
5135- GikoSys.Setting.ThreadRange := gtrNew;
5136- NewItemAction.Checked := True;
5137- // SelectComboBox の履歴を更新しておく
5138- ModifySelectList;
5139- // SelectComboBox の値をクリア
5140- if SelectComboBoxPanel.Visible then begin
5141- SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5142- SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5143- ListView.SetFocus;
5144- end;
5145- except
5146- end;
5147-end;
5148-
5149-procedure TGikoForm.SelectItemActionExecute(Sender: TObject);
5150-var
5151- idx: Integer;
5152- Dlg: TListSelectDialog;
5153-begin
5154- try
5155- if SelectComboBoxPanel.Visible then begin
5156- if SelectComboBoxPanel.Left + SelectComboBoxPanel.Width < ListToolBar.Width then begin
5157- // SelectComboBox がある場合はフォーカスを移す
5158- if GikoSys.Setting.ListOrientation = gloHorizontal then begin
5159- if GikoSys.Setting.ListWidthState = glsMax then
5160- BrowserMinAction.Execute;
5161- end else begin
5162- if GikoSys.Setting.ListHeightState = glsMax then
5163- BrowserMinAction.Execute;
5164- end;
5165- SelectComboBox.SetFocus;
5166- exit;
5167- end;
5168- end;
5169- except
5170- end;
5171-
5172- if SelectComboBox.Text = SELECTCOMBOBOX_NAME then begin
5173- SelectComboBox.Text := '';
5174- SelectComboBox.Color := clWindow;
5175- end;
5176-
5177- AllItemAction.Checked := False;
5178- LogItemAction.Checked := False;
5179- NewItemAction.Checked := False;
5180- //SelectItemAction.Checked := True;
5181- ModifySelectList;
5182- Dlg := TListSelectDialog.Create(Self);
5183- try
5184- Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);
5185- Dlg.SelectComboBox.Text := SelectComboBox.Text;
5186- Dlg.ShowModal;
5187- if Dlg.ModalResult = mrCancel then begin
5188- if Length( SelectComboBox.Text ) = 0 then begin
5189- AllItemAction.Checked := True;
5190- SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5191- SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5192- end;
5193-
5194- if GetActiveList is TBoard then
5195- SetListViewType(gvtUser, TBoard(GetActiveList).ParentCategory.ParenTBBS.SelectText , Dlg.KubetsuCheckBox.Checked);
5196- end else begin
5197- idx := GikoSys.Setting.SelectTextList.IndexOf(Dlg.SelectComboBox.Text);
5198- if idx <> -1 then
5199- GikoSys.Setting.SelectTextList.Delete(idx);
5200- GikoSys.Setting.SelectTextList.Insert(0, Dlg.SelectComboBox.Text);
5201- while Dlg.SelectComboBox.Items.Count > 100 do begin
5202- Dlg.SelectComboBox.Items.Delete(Dlg.SelectComboBox.Items.Count - 1);
5203- end;
5204-
5205- if Length( Dlg.SelectComboBox.Text ) = 0 then begin
5206- SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5207- SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5208- end else begin
5209- SelectComboBox.Text := Dlg.SelectComboBox.Text;
5210- SelectComboBox.Color := clWindow;
5211- end;
5212- SetListViewType(gvtUser, Dlg.SelectComboBox.Text, Dlg.KubetsuCheckBox.Checked);
5213- end;
5214- finally
5215- Dlg.Release;
5216- end;
5217-end;
5218-
5219-procedure TGikoForm.ListNumberVisibleActionExecute(Sender: TObject);
5220-begin
5221- GikoSys.Setting.ListViewNo := ListNumberVisibleAction.Checked;
5222- ListView.Refresh;
5223-end;
5224-
5225-procedure TGikoForm.UpFolderActionExecute(Sender: TObject);
5226-begin
5227- if GetActiveList is TBoard then begin
5228- if TBoard(GetActiveList).ParentCategory <> nil then
5229- SelectTreeNode(TBoard(GetActiveList).ParentCategory, True);
5230- end else if GetActiveList is TCategory then begin
5231- SelectTreeNode(TCategory(GetActiveList).ParenTBBS, True);
5232- end;
5233-end;
5234-
5235-procedure TGikoForm.RoundActionExecute(Sender: TObject);
5236-var
5237- Dlg: TRoundDialog;
5238-begin
5239- Dlg := TRoundDialog.Create(Self);
5240- try
5241- Dlg.ShowModal;
5242- finally
5243- Dlg.Release;
5244- end;
5245-end;
5246-
5247-procedure TGikoForm.StopActionExecute(Sender: TObject);
5248-begin
5249- FControlThread.DownloadAbort;
5250- if FWorkCount <> 0 then FWorkCount := 0;
5251- try
5252- Animate.Active := False;
5253- except
5254- end;
5255- Screen.Cursor := crDefault;
5256-end;
5257-
5258-procedure TGikoForm.MsgBarCloseActionExecute(Sender: TObject);
5259-begin
5260-// MessagePanel.Visible := False;
5261-// MessageSplitter.Visible := False;
5262-// MsgBarVisibleAction.Checked := False;
5263- MsgBarVisibleAction.Execute;
5264-end;
5265-
5266-procedure TGikoForm.BrowserMaxActionExecute(Sender: TObject);
5267-begin
5268- if GikoSys.Setting.ListOrientation = gloHorizontal then begin
5269- case GikoSys.Setting.ListWidthState of
5270- glsMax: begin
5271- //通常表示にする
5272- if FActiveContent <> nil then
5273- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5274- ViewPanel.Width := FBrowserSizeWidth;
5275- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
5276- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
5277- GikoSys.Setting.ListWidthState := glsNormal;
5278- if FActiveContent <> nil then
5279- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5280- end;
5281- glsMin, glsNormal: begin
5282- //最大表示にする
5283- if FActiveContent <> nil then
5284- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5285- if GikoSys.Setting.ListWidthState = glsNormal then
5286- FBrowserSizeWidth := ViewPanel.Width;
5287- if FActiveContent <> nil then
5288- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5289- ViewPanel.Width := 1;
5290- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
5291- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
5292- GikoSys.Setting.ListWidthState := glsMax;
5293- end;
5294- end;
5295- end else begin
5296- case GikoSys.Setting.ListHeightState of
5297- glsMax: begin
5298- //通常表示にする
5299- if FActiveContent <> nil then
5300- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5301- ViewPanel.Height := FBrowserSizeHeight;
5302- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
5303- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
5304- GikoSys.Setting.ListHeightState := glsNormal;
5305- if FActiveContent <> nil then
5306- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5307- end;
5308- glsMin, glsNormal: begin
5309- //最大表示にする
5310- if FActiveContent <> nil then
5311- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5312- if GikoSys.Setting.ListHeightState = glsNormal then
5313- FBrowserSizeHeight := ViewPanel.Height;
5314- if FActiveContent <> nil then
5315- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5316- ViewPanel.Height := 1;
5317- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
5318- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
5319- GikoSys.Setting.ListHeightState := glsMax;
5320- end;
5321- end;
5322- end;
5323-// Mouse.CursorPos := BrowserSizeButton.ClientToScreen(Point(
5324-// System.Round(BrowserToolBar.ButtonWidth div 2),
5325-// System.Round(BrowserToolBar.ButtonHeight div 2)));
5326- //BrowserTab.OnChange(nil);
5327-end;
5328-
5329-procedure TGikoForm.BrowserMinActionExecute(Sender: TObject);
5330-begin
5331-
5332- if GikoSys.Setting.ListOrientation = gloHorizontal then begin
5333- case GikoSys.Setting.ListWidthState of
5334- glsMax, glsNormal: begin
5335- //最小表示にする
5336- if FActiveContent <> nil then
5337- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5338- if GikoSys.Setting.ListWidthState = glsNormal then
5339- FBrowserSizeWidth := ViewPanel.Width;
5340- if FActiveContent <> nil then
5341- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5342- ViewPanel.Width := ThreadMainPanel.Width - 80;
5343- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
5344- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
5345- GikoSys.Setting.ListWidthState := glsMin;
5346- end;
5347- glsMin: begin
5348- //通常表示にする
5349- if FActiveContent <> nil then
5350- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5351- ViewPanel.Width := FBrowserSizeWidth;
5352- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
5353- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
5354- GikoSys.Setting.ListWidthState := glsNormal;
5355- if FActiveContent <> nil then
5356- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5357- end;
5358- end;
5359- end else begin
5360- case GikoSys.Setting.ListHeightState of
5361- glsMax, glsNormal: begin
5362- //最小表示にする
5363- if FActiveContent <> nil then
5364- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5365- if GikoSys.Setting.ListHeightState = glsNormal then
5366- FBrowserSizeHeight := ViewPanel.Height;
5367- ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7;
5368- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
5369- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
5370- GikoSys.Setting.ListHeightState := glsMin;
5371- if FActiveContent <> nil then
5372- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5373- end;
5374- glsMin: begin
5375- //通常表示にする
5376- if FActiveContent <> nil then
5377- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止
5378- ViewPanel.Height := FBrowserSizeHeight;
5379- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
5380- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
5381- GikoSys.Setting.ListHeightState := glsNormal;
5382- if FActiveContent <> nil then
5383- SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画
5384- end;
5385- end;
5386- end;
5387-end;
5388-
5389-procedure TGikoForm.ScrollTopActionExecute(Sender: TObject);
5390-begin
5391- BrowserMovement('top');
5392-end;
5393-
5394-procedure TGikoForm.ScrollLastActionExecute(Sender: TObject);
5395-begin
5396- BrowserMovement('bottom');
5397-end;
5398-
5399-procedure TGikoForm.ScrollNewActionExecute(Sender: TObject);
5400-begin
5401- BrowserMovement('new');
5402-end;
5403-
5404-procedure TGikoForm.ScrollKokoActionExecute(Sender: TObject);
5405-begin
5406- BrowserMovement('koko');
5407-end;
5408-
5409-procedure TGikoForm.EditorActionExecute(Sender: TObject);
5410-var
5411- Editor: TEditorForm;
5412- Item: TThreadItem;
5413-begin
5414- Item := GetActiveContent;
5415- if Item = nil then Exit;
5416- Editor := TEditorForm.Create(Application.MainForm);
5417- Editor.SetThreadItem(Item);
5418- GikoSys.LoadEditorKeySetting(Editor.ActionList);
5419- Editor.Show;
5420- Editor.BodyEdit.SetFocus;
5421-end;
5422-
5423-procedure TGikoForm.IEActionExecute(Sender: TObject);
5424-begin
5425- ShowThreadAction.Execute;
5426-end;
5427-
5428-procedure TGikoForm.ShowThreadActionExecute(Sender: TObject);
5429-var
5430- ThreadItem: TThreadItem;
5431-begin
5432- ThreadItem := GetActiveContent;
5433- if ThreadItem = nil then Exit;
5434- GikoSys.OpenBrowser(ThreadItem.URL, gbtAuto);
5435-end;
5436-
5437-procedure TGikoForm.ShowBoardActionExecute(Sender: TObject);
5438-var
5439- ThreadItem: TThreadItem;
5440-begin
5441- ThreadItem := GetActiveContent;
5442- if ThreadItem = nil then Exit;
5443- GikoSys.OpenBrowser(ThreadItem.ParentBoard.URL, gbtAuto);
5444-end;
5445-
5446-//(Thread)URLをコピー
5447-procedure TGikoForm.URLCopyActionExecute(Sender: TObject);
5448-var
5449- s: string;
5450-begin
5451- s := '';
5452- if TObject(GetActiveContent) is TBoard then
5453- s := s + TBoard(GetActiveContent).URL + #13#10
5454- else if TObject(GetActiveContent) is TThreadItem then
5455- s := s + TThreadItem(GetActiveContent).URL + #13#10;
5456- if s <> '' then
5457- Clipboard.AsText := s;
5458-end;
5459-
5460-//(Thread)スレッド名をコピー
5461-procedure TGikoForm.NameCopyActionExecute(Sender: TObject);
5462-var
5463- s: string;
5464-begin
5465- s := '';
5466- if TObject(GetActiveContent) is TBoard then
5467- s := s + TBoard(GetActiveContent).Title + #13#10
5468- else if TObject(GetActiveContent) is TThreadItem then
5469- s := s + TThreadItem(GetActiveContent).Title + #13#10;
5470- if s <> '' then
5471- Clipboard.AsText := s;
5472-end;
5473-
5474-//(Thread)スレッド名とURLをコピー
5475-procedure TGikoForm.NameURLCopyActionExecute(Sender: TObject);
5476-var
5477- s: string;
5478-begin
5479- s := '';
5480- if TObject(GetActiveContent) is TBoard then
5481- s := s + TBoard(GetActiveContent).Title + #13#10 + TBoard(GetActiveContent).URL + #13#10
5482- else if TObject(GetActiveContent) is TThreadItem then
5483- s := s + TThreadItem(GetActiveContent).Title + #13#10 + TThreadItem(GetActiveContent).URL + #13#10;
5484- if s <> '' then
5485- Clipboard.AsText := s;
5486-end;
5487-
5488-procedure TGikoForm.ItemReloadActionExecute(Sender: TObject);
5489-var
5490- ThreadItem: TThreadItem;
5491- shiftDown: Boolean;
5492-begin
5493- ThreadItem := GetActiveContent;
5494- shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
5495- if ThreadItem <> nil then
5496- DownloadContent(ThreadItem, shiftDown);
5497-end;
5498-
5499-procedure TGikoForm.SelectListReloadActionExecute(Sender: TObject);
5500-var
5501- i: Integer;
5502- List: TList;
5503- msg: string;
5504- shiftDown: Boolean;
5505-begin
5506- shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
5507- if GetActiveList is TCategory then begin
5508- List := TList.Create;
5509- try
5510- SelectListItem(List);
5511- if List.Count > 5 then begin
5512- msg := '5個以上は指定できません' + #13#10
5513- + '2ちゃんねる負荷軽減にご協力ください';
5514- MsgBox(Handle, msg, '警告', MB_ICONEXCLAMATION);
5515- Exit;
5516- end;
5517- for i := 0 to List.Count - 1 do begin
5518- if TObject(List[i]) is TBoard then
5519- DownloadList(TBoard(List[i]), shiftDown);
5520- end;
5521- finally
5522- List.Free;
3686+
3687+ OleVariant(activeBrower.Document as IHTMLDocument2).body.scrollTop := top;
3688+ except
55233689 end;
5524- end else if GetActiveList is TBoard then begin
5525- DownloadList(TBoard(GetActiveList), shiftDown);
55263690 end;
55273691 end;
55283692
5529-procedure TGikoForm.SelectThreadReloadActionExecute(Sender: TObject);
5530-var
5531- List: TList;
5532- i: Integer;
5533- msg: string;
5534- shiftDown: Boolean;
3693+procedure TGikoForm.TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
55353694 begin
5536- shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
5537- List := TList.Create;
5538- try
5539- SelectListItem(List);
5540- if List.Count > 10 then begin
5541- msg := '10個以上は指定できません' + #13#10
5542- + '2ちゃんねる負荷軽減にご協力ください';
5543- MsgBox(Handle, msg, '警告', MB_ICONEXCLAMATION);
5544- Exit;
5545- end;
5546- for i := 0 to List.Count - 1 do begin
5547- if TObject(List[i]) is TThreadItem then
5548- DownloadContent(TThreadItem(List[i]), shiftDown);
5549- end;
5550- finally
5551- List.Free;
3695+ if TObject(Node.Data) is TBBS then begin
3696+ TBBS(Node.Data).NodeExpand := False;
3697+ end else if TObject(Node.Data) is TCategory then begin
3698+ TCategory(Node.Data).NodeExpand := False;
3699+ end else if TObject(Node.Data) is TBoard then begin
3700+ TBoard(Node.Data).NodeExpand := False;
55523701 end;
55533702 end;
5554-//ActiveListがTCategoyでスレ一覧で1つ以上選択かActiveListがTBoardで有効な
5555-//Actionで共通
5556-procedure TGikoForm.SelectListReloadActionUpdate(Sender: TObject);
3703+
3704+procedure TGikoForm.MessageListViewResize(Sender: TObject);
55573705 begin
5558-{$IFDEF ACTCHK}
5559- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
5560- if (Sender <> nil) and (Sender is TAction) then begin
5561-{$ENDIF}
5562- if (GetActiveList is TCategory) and (ListView.SelCount > 0) then
5563- TAction(Sender).Enabled := True
5564- else if GetActiveList is TBoard then
5565- TAction(Sender).Enabled := True
5566- else
5567- TAction(Sender).Enabled := False;
5568-{$IFDEF ACTCHK}
5569- end;
5570-{$ENDIF}
3706+// MessageListView.Column[0].Width := MessageListView.ClientWidth - 16;
55713707 end;
5572-//ActiveListがTBoardでスレ一覧で1つ以上選択していると有効になるActionで共通
5573-procedure TGikoForm.SelectThreadReloadActionUpdate(Sender: TObject);
3708+procedure TGikoForm.CabinetVisible( isVisible : Boolean );
55743709 begin
5575-{$IFDEF ACTCHK}
5576- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
5577- if (Sender <> nil) and (Sender is TAction) then begin
5578-{$ENDIF}
5579- TAction(Sender).Enabled := (GetActiveList is TBoard) and (ListView.SelCount > 0);
5580-{$IFDEF ACTCHK}
5581- end;
5582-{$ENDIF}
3710+ TreeSplitter.Visible := isVisible;
3711+ CabinetPanel.Visible := isVisible;
3712+ GikoDM.CabinetVisibleAction.Checked := isVisible;
55833713 end;
55843714
5585-procedure TGikoForm.UpFolderActionUpdate(Sender: TObject);
3715+procedure TGikoForm.SelectListItem(List: TList);
3716+var
3717+ TmpListItem: TListItem;
55863718 begin
5587- UpFolderAction.Enabled := not (GetActiveList is TBBS);
3719+ List.Clear;
3720+ List.Capacity := 0;
3721+ TmpListItem := ListView.Selected;
3722+ while TmpListItem <> nil do begin
3723+ List.Add(TmpListItem.Data);
3724+ TmpListItem := ListView.GetNextItem(TmpListItem, sdAll, [isSelected]);
3725+ end;
3726+
55883727 end;
55893728
55903729 procedure TGikoForm.FormResize(Sender: TObject);
@@ -5611,75 +3750,6 @@ begin
56113750
56123751 end;
56133752
5614-procedure TGikoForm.ScrollKokoActionUpdate(Sender: TObject);
5615-begin
5616- ScrollKokoAction.Enabled := (GetActiveContent <> nil)
5617- and (GetActiveContent.IsLogFile)
5618- and (GetActiveContent.Kokomade <> -1);
5619-
5620-end;
5621-
5622-//ブラウザタブが1つ以上で有効になるActionで共通化
5623-procedure TGikoForm.AllTabCloseActionUpdate(Sender: TObject);
5624-begin
5625-{$IFDEF ACTCHK}
5626- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
5627- if (Sender <> nil) and (Sender is TAction) then begin
5628-{$ENDIF}
5629- TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0);
5630-{$IFDEF ACTCHK}
5631- end;
5632-{$ENDIF}
5633-end;
5634-
5635-procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);
5636-const
5637- DEL_MSG = '“^0”のログを削除します。よろしいですか?';
5638- DEL_SAME_MSG = 'これら ^0 個のスレッドのログを削除します。よろしいですか?';
5639- DEL_TITLE = '削除確認';
5640-var
5641- ThreadItem: TThreadItem;
5642- TmpListItem: TListItem;
5643- List: TList;
5644- i: Integer;
5645-begin
5646- List := TList.Create;
5647- try
5648- TmpListItem := ListView.Selected;
5649- while TmpListItem <> nil do begin
5650- if TObject(TmpListItem.Data) is TThreadItem then begin
5651- ThreadItem := TThreadItem(TmpListItem.Data);
5652- if ThreadItem.IsLogFile then
5653- List.Add(ThreadItem);
5654- end;
5655- TmpListItem := ListView.GetNextItem(TmpListItem, sdAll, [isSelected]);
5656- end;
5657-
5658- if GikoSys.Setting.DeleteMsg and (List.Count > 0) then begin
5659- if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then begin
5660- if List.Count = 1 then begin
5661- if MsgBox(Handle, StringReplace( DEL_MSG, '^0', TThreadItem( List[ 0 ] ).Title, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
5662- Exit;
5663- end else begin
5664- if MsgBox(Handle, StringReplace( DEL_SAME_MSG, '^0', IntToStr( List.Count ), [rfReplaceAll] ), DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> IDYES then
5665- Exit;
5666- end;
5667- end;
5668- end;
5669-
5670- for i := 0 to List.Count - 1 do begin
5671- ThreadItem := TThreadItem(List[i]);
5672- DeleteHistory(ThreadItem);
5673- DeleteTab(ThreadItem);
5674- ThreadItem.DeleteLogFile;
5675-
5676- TreeView.Refresh; // UnRead の表示を更新
5677- end;
5678- ListView.Refresh;
5679- finally
5680- List.Free;
5681- end;
5682-end;
56833753 procedure TGikoForm.DeleteTab(BrowserRecord: TBrowserRecord);
56843754 var
56853755 i, j, idx: Integer;
@@ -5799,322 +3869,44 @@ begin
57993869 end;
58003870 end;
58013871 end;
5802-procedure TGikoForm.KokomadeActionExecute(Sender: TObject);
5803-var
5804- No: Integer;
5805- ThreadItem: TThreadItem;
5806-begin
5807- No := KokoPopupMenu.Tag;
5808- if No = 0 then Exit;
5809- ThreadItem := GetActiveContent;
5810- if ThreadItem = nil then Exit;
5811- ThreadItem.Kokomade := No;
5812- FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
5813- FActiveContent.FRepaint := true;
5814- InsertBrowserTab(FActiveContent.Thread, true);
5815- Application.ProcessMessages;
5816-end;
5817-
5818-procedure TGikoForm.ZenbuActionExecute(Sender: TObject);
5819-var
5820- ThreadItem: TThreadItem;
5821-begin
5822- ThreadItem := GetActiveContent;
5823- if ThreadItem = nil then Exit;
5824- ThreadItem.Kokomade := -1;
5825- FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
5826- FActiveContent.FRepaint := true;
5827- InsertBrowserTab(FActiveContent.Thread, true);
5828- Application.ProcessMessages;
5829-end;
5830-
5831-function TGikoForm.Hook(var Message: TMessage): Boolean;
5832-begin
5833- //サブフォームがメインメニューを持たないときに、メインフォームの
5834- //メニューのショートカットキーがサブメニューから入力されるのを回避
5835- Result := False;
5836- case Message.Msg of
5837- CM_APPKEYDOWN:
5838- Result := True; //ショートカットキー無効
5839- CM_APPSYSCOMMAND:
5840- Result := True; // アクセラレータを無効にする
5841- end;
5842-end;
5843-
5844-procedure TGikoForm.KokoResActionExecute(Sender: TObject);
5845-var
5846- Editor: TEditorForm;
5847- Item: TThreadItem;
5848- Number: Integer;
5849-begin
5850- Number := KokoPopupMenu.Tag;
5851- if Number = 0 then Exit;
5852- Item := GetActiveContent;
5853- if Item = nil then Exit;
5854-
5855- Editor := TEditorForm.Create(Self);
5856- Editor.SetThreadItem(Item);
5857- GikoSys.LoadEditorKeySetting(Editor.ActionList);
5858- Editor.BodyEdit.Text := '>>' + IntToStr(Number) + #13#10;
5859- Editor.Show;
5860- Editor.BodyEdit.SetFocus;
5861-end;
5862-
5863-procedure TGikoForm.ListPopupMenuPopup(Sender: TObject);
5864-begin
5865- ItemRoundPMenu.Visible := (GetActiveList is TBoard);
5866- ItemReservPMenu.Visible := (GetActiveList is TBoard);
5867- LPMSep01.Visible := (GetActiveList is TBoard);
5868- ListRoundPMenu.Visible := (GetActiveList is TCategory);// or (GetActiveList is TBoard);
5869- ListReservPMenu.Visible := (GetActiveList is TCategory);// or (GetActiveList is TBoard);
5870- LPMSep02.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
5871- KidokuPMenu.Visible := (GetActiveList is TBoard);
5872- MidokuPMenu.Visible := (GetActiveList is TBoard);
5873- UrlCopyPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
5874- NameUrlCopyPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
5875- AllSelectPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
5876- LPMSep05.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
5877- DeletePMenu.Visible := (GetActiveList is TBoard);
5878- LPMSep06.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
5879- BoardFavoriteAddMenu.Visible := (GetActiveList is TCategory);
5880- ThreadFavoriteAddMenu.Visible := (GetActiveList is TBoard);
5881-
5882- AddRoundNameMenu(ItemReservPMenu);
5883- AddRoundNameMenu(ListReservPMenu);
5884-end;
5885-
5886-procedure TGikoForm.BoardIEActionExecute(Sender: TObject);
5887-var
5888- URL: string;
5889-begin
5890- if GetActiveList is TBoard then begin
5891- URL := TBoard(GetActiveList).URL;
5892- GikoSys.OpenBrowser(URL, gbtAuto);
5893- end;
5894-end;
5895-
5896-procedure TGikoForm.SelectItemURLCopyActionExecute(Sender: TObject);
5897-var
5898- List: TList;
5899- i: Integer;
5900- s: string;
5901-begin
5902- s := '';
5903- List := TList.Create;
5904- try
5905- SelectListItem(List);
5906- for i := 0 to List.Count - 1 do begin
5907- if TObject(List[i]) is TBoard then
5908- s := s + TBoard(List[i]).URL + #13#10
5909- else if TObject(List[i]) is TThreadItem then
5910- s := s + TThreadItem(List[i]).URL + #13#10;
5911- end;
5912- if s <> '' then
5913- Clipboard.AsText := s;
5914- finally
5915- List.Free;
5916- end;
5917-end;
5918-
5919-procedure TGikoForm.SelectItemNameCopyActionExecute(Sender: TObject);
5920-var
5921- List: TList;
5922- i: Integer;
5923- s: string;
5924-begin
5925- s := '';
5926- List := TList.Create;
5927- try
5928- SelectListItem(List);
5929- for i := 0 to List.Count - 1 do begin
5930- if TObject(List[i]) is TBoard then
5931- s := s + TBoard(List[i]).Title + #13#10
5932- else if TObject(List[i]) is TThreadItem then
5933- s := s + TThreadItem(List[i]).Title + #13#10;
5934- end;
5935- if s <> '' then
5936- Clipboard.AsText := s;
5937- finally
5938- List.Free;
5939- end;
5940-end;
5941-
5942-procedure TGikoForm.SelectItemNameURLCopyActionExecute(Sender: TObject);
5943-var
5944- List: TList;
5945- i: Integer;
5946- s: string;
5947-begin
5948- s := '';
5949- List := TList.Create;
5950- try
5951- SelectListItem(List);
5952- for i := 0 to List.Count - 1 do begin
5953- if TObject(List[i]) is TBoard then
5954- s := s + TBoard(List[i]).Title + #13#10 + TBoard(List[i]).URL + #13#10
5955- else if TObject(List[i]) is TThreadItem then
5956- s := s + TThreadItem(List[i]).Title + #13#10 + TThreadItem(List[i]).URL + #13#10;
5957- end;
5958- if s <> '' then
5959- Clipboard.AsText := s;
5960- finally
5961- List.Free;
5962- end;
5963-end;
5964-
5965-//ActiveListがTBoardかTCategoryでスレ一覧で1つ以上選択していると有効になるActionde共通
5966-procedure TGikoForm.SelectItemNameCopyActionUpdate(Sender: TObject);
5967-begin
5968-{$IFDEF ACTCHK}
5969- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
5970- if (Sender <> nil) and (Sender is TAction) then begin
5971-{$ENDIF}
5972- if ((GetActiveList is TBoard) or (GetActiveList is TCategory))and (ListView.SelCount > 0) then
5973- TAction(Sender).Enabled := True
5974- else
5975- TAction(Sender).Enabled := False;
5976-{$IFDEF ACTCHK}
5977- end;
5978-{$ENDIF}
5979-
5980-end;
5981-
5982-procedure TGikoForm.AllSelectActionUpdate(Sender: TObject);
5983-begin
5984- AllSelectAction.Enabled := ListView.SelCount > 0;
5985-end;
5986-
5987-procedure TGikoForm.BrowserTabCloseActionExecute(Sender: TObject);
5988-var
5989- idx: Integer;
5990-// ThreadItem: TThreadItem;
5991-begin
5992- idx := BrowserTab.TabIndex;
5993- if idx <> -1 then begin
5994- if BrowserTab.Tabs.Objects[idx] <> nil then begin
5995- //ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
5996- DeleteTab(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));
5997- end;
5998- end;
5999-end;
6000-
6001-procedure TGikoForm.NotSelectTabCloseActionExecute(Sender: TObject);
6002-var
6003- i: Integer;
6004- idx: Integer;
6005-begin
6006- idx := BrowserTab.TabIndex;
6007- if idx = -1 then Exit;
6008- BrowserTab.Tabs.BeginUpdate;
6009- for i := BrowserTab.Tabs.Count - 1 downto BrowserTab.TabIndex + 1 do begin
6010- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
6011- BrowserTab.Tabs.Delete(i);
6012- end;
6013- if idx > 0 then begin
6014- for i := BrowserTab.TabIndex - 1 downto 0 do begin
6015- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
6016- BrowserTab.Tabs.Delete(i);
6017- end;
6018- end;
6019- BrowserTab.Tabs.EndUpdate;
6020-end;
6021-
6022-procedure TGikoForm.AllTabCloseActionExecute(Sender: TObject);
6023-var
6024- i: Integer;
6025-begin
6026- if GikoSys.Setting.ShowDialogForAllTabClose then
6027- if(MessageDlg('全てのタブを閉じてよろしいですか?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then
6028- Exit;
6029-
6030- FActiveContent := nil;
6031- BrowserNullTab.Thread := nil;
6032- BrowserTab.OnChange := nil;
6033- BrowserTab.Tabs.BeginUpdate;
6034- for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
6035- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
6036- end;
6037- BrowserTab.Tabs.Clear;
6038- BrowserTab.Tabs.EndUpdate;
6039- BrowserTab.OnChange := BrowserTabChange;
6040- SetContent(BrowserNullTab);
6041- Self.Caption := CAPTION_NAME ;
6042-end;
6043-
6044-procedure TGikoForm.TreeSelectBoradReloadExecute(Sender: TObject);
6045-var
6046- Board: TBoard;
6047- TmpTreeNode: TTreeNode;
6048-begin
6049- TmpTreeNode := FClickNode;
6050- TreeView.Selected := FClickNode;
6051- Board := nil;
6052-
6053- if TObject(TmpTreeNode.Data) is TBoard then
6054- Board := TBoard(TmpTreeNode.Data)
6055- else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then
6056- Board := TFavoriteBoardItem(TmpTreeNode.Data).Item;
6057-
6058- if Board <> nil then
6059- DownloadList(Board);
6060-end;
6061-
6062-procedure TGikoForm.TreeSelectThreadReloadExecute(Sender: TObject);
6063-var
6064- ThreadItem: TThreadItem;
6065- TmpTreeNode: TTreeNode;
6066-begin
6067- TmpTreeNode := FClickNode;
6068- TreeView.Selected := FClickNode;
6069- ThreadItem := nil;
6070-
6071- if TObject(TmpTreeNode.Data) is TThreadItem then
6072- ThreadItem := TThreadItem(TmpTreeNode.Data)
6073- else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then
6074- ThreadItem := TFavoriteThreadItem(TmpTreeNode.Data).Item;
6075-
6076- if ThreadItem <> nil then
6077- DownloadContent(ThreadItem);
6078-end;
6079-
6080-procedure TGikoForm.TreeSelectURLCopyExecute(Sender: TObject);
6081-var
6082- TmpTreeNode: TTreeNode;
6083- s: string;
3872+function TGikoForm.Hook(var Message: TMessage): Boolean;
60843873 begin
6085- TmpTreeNode := FClickNode;
6086- TreeView.Selected := FClickNode;
6087- if TObject(TmpTreeNode.Data) is TBoard then begin
6088- s := TBoard(TmpTreeNode.Data).URL + #13#10;
6089- end else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then begin
6090- s := TFavoriteBoardItem(TmpTreeNode.Data).URL + #13#10;
6091- end else if (TObject(TmpTreeNode.Data) is TThreadItem) then begin
6092- s := TThreadItem(TmpTreeNode.Data).URL + #13#10;
6093- end else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then begin
6094- s := TFavoriteThreadItem(TmpTreeNode.Data).URL + #13#10;
3874+ //サブフォームがメインメニューを持たないときに、メインフォームの
3875+ //メニューのショートカットキーがサブメニューから入力されるのを回避
3876+ Result := False;
3877+ case Message.Msg of
3878+ CM_APPKEYDOWN:
3879+ Result := True; //ショートカットキー無効
3880+ CM_APPSYSCOMMAND:
3881+ Result := True; // アクセラレータを無効にする
60953882 end;
6096- Clipboard.AsText := s;
60973883 end;
60983884
6099-procedure TGikoForm.TreeSelectNameURLCopyExecute(Sender: TObject);
6100-var
6101- TmpTreeNode: TTreeNode;
6102- s: string;
3885+procedure TGikoForm.ListPopupMenuPopup(Sender: TObject);
61033886 begin
6104- TmpTreeNode := FClickNode;
6105- TreeView.Selected := FClickNode;
6106- if TObject(TmpTreeNode.Data) is TBoard then begin
6107- s := TBoard(TmpTreeNode.Data).Title + #13#10 + TBoard(TmpTreeNode.Data).URL + #13#10;
6108- end else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then begin
6109- s := TFavoriteBoardItem(TmpTreeNode.Data).Item.Title + #13#10 + TFavoriteBoardItem(TmpTreeNode.Data).URL + #13#10;
6110- end else if (TObject(TmpTreeNode.Data) is TThreadItem) then begin
6111- s := TThreadItem(TmpTreeNode.Data).Title + #13#10 + TThreadItem(TmpTreeNode.Data).URL + #13#10;
6112- end else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then begin
6113- s := TFavoriteThreadItem(TmpTreeNode.Data).Item.Title + #13#10 + TFavoriteThreadItem(TmpTreeNode.Data).URL + #13#10;
6114- end;
6115- Clipboard.AsText := s;
3887+ ItemRoundPMenu.Visible := (GetActiveList is TBoard);
3888+ ItemReservPMenu.Visible := (GetActiveList is TBoard);
3889+ LPMSep01.Visible := (GetActiveList is TBoard);
3890+ ListRoundPMenu.Visible := (GetActiveList is TCategory);// or (GetActiveList is TBoard);
3891+ ListReservPMenu.Visible := (GetActiveList is TCategory);// or (GetActiveList is TBoard);
3892+ LPMSep02.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3893+ KidokuPMenu.Visible := (GetActiveList is TBoard);
3894+ MidokuPMenu.Visible := (GetActiveList is TBoard);
3895+ UrlCopyPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3896+ NameUrlCopyPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3897+ AllSelectPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3898+ LPMSep05.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3899+ DeletePMenu.Visible := (GetActiveList is TBoard);
3900+ LPMSep06.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3901+ BoardFavoriteAddMenu.Visible := (GetActiveList is TCategory);
3902+ ThreadFavoriteAddMenu.Visible := (GetActiveList is TBoard);
3903+
3904+ AddRoundNameMenu(ItemReservPMenu);
3905+ AddRoundNameMenu(ListReservPMenu);
61163906 end;
61173907
3908+
3909+//ActiveListがTBoardかTCategoryでスレ一覧で1つ以上選択していると有効になるActionde共通
61183910 procedure TGikoForm.TreePopupMenuPopup(Sender: TObject);
61193911 begin
61203912 FClickNode := TreeView.Selected;
@@ -6297,31 +4089,31 @@ begin
62974089 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
62984090 if ViewPanel.Width < 2 then begin
62994091 ViewPanel.Width := 1;
6300- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
6301- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
4092+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
4093+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
63024094 GikoSys.Setting.ListWidthState := glsMax;
63034095 end else if ViewPanel.Width > (ThreadMainPanel.Width - 80) then begin
6304- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
6305- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
4096+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
4097+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
63064098 GikoSys.Setting.ListWidthState := glsMin;
63074099 end else begin
6308- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
6309- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
4100+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
4101+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
63104102 GikoSys.Setting.ListWidthState := glsNormal;
63114103 end;
63124104 end else begin
63134105 if ViewPanel.Height < 2 then begin
63144106 ViewPanel.Height := 1;
6315- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
6316- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
4107+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
4108+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
63174109 GikoSys.Setting.ListHeightState := glsMax;
63184110 end else if ViewPanel.Height > (ThreadMainPanel.Height - BrowserCoolBar.Height - 7) then begin
6319- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
6320- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
4111+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
4112+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
63214113 GikoSys.Setting.ListHeightState := glsMin;
63224114 end else begin
6323- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
6324- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
4115+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
4116+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
63254117 GikoSys.Setting.ListHeightState := glsNormal;
63264118 end;
63274119 end;
@@ -6381,7 +4173,7 @@ begin
63814173 (ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused)
63824174 then
63834175 else
6384- SetFocusForBrowserAction.Execute;
4176+ GikoDM.SetFocusForBrowserAction.Execute;
63854177
63864178 end;
63874179
@@ -6463,7 +4255,7 @@ begin
64634255 BrowserBottomPanel.Visible := False;
64644256 // BrowserTab.Visible := False;
64654257 // BrowserTopPanel.Height := 26;
6466- AllTabCloseAction.Execute;
4258+ GikoDM.AllTabCloseAction.Execute;
64674259 end;
64684260 end;
64694261
@@ -6596,33 +4388,6 @@ begin
65964388 end;
65974389 end;
65984390
6599-procedure TGikoForm.SelectReservActionUpdate(Sender: TObject);
6600-var
6601- i: Integer;
6602- List: TList;
6603-begin
6604- if (GetActiveList is TBoard) and (ListView.SelCount > 0) then begin
6605- List := TList.Create;
6606- try
6607- SelectListItem(List);
6608- for i := 0 to List.Count - 1 do begin
6609- if TObject(List[i]) is TThreadItem then begin
6610- if TThreadItem(List[i]).IsLogFile then begin
6611- SelectReservAction.Enabled := True;
6612- Exit;
6613- end;
6614- end;
6615- end;
6616- SelectReservAction.Enabled := False;
6617- finally
6618- List.Free;
6619- end;
6620- end else if (GetActiveList is TCategory) and (ListView.SelCount > 0) then
6621- SelectReservAction.Enabled := True
6622- else
6623- SelectReservAction.Enabled := False;
6624-end;
6625-
66264391 procedure TGikoForm.RoundNamePopupMenuPopup(Sender: TObject);
66274392 begin
66284393 AddRoundNameMenu(RoundNamePopupMenu.Items);
@@ -6636,11 +4401,11 @@ begin
66364401 MenuItem.Clear;
66374402 Item := TMenuItem.Create(Self);
66384403 Item.Caption := '新しい名前で巡回予約(&N)...';
6639- Item.OnClick := SelectNewRoundNameExecute;
4404+ Item.OnClick := GikoDM.SelectNewRoundNameExecute;
66404405 MenuItem.Add(Item);
66414406 Item := TMenuItem.Create(Self);
66424407 Item.Caption := '巡回リストから削除(&D)';
6643- Item.OnClick := SelectDeleteRoundExecute;
4408+ Item.OnClick := GikoDM.SelectDeleteRoundExecute;
66444409 MenuItem.Add(Item);
66454410 Item := TMenuItem.Create(Self);
66464411 Item.Caption := '-';
@@ -6653,49 +4418,6 @@ begin
66534418 end;
66544419 end;
66554420
6656-procedure TGikoForm.SelectNewRoundNameExecute(Sender: TObject);
6657-var
6658- s: string;
6659- Dlg: TRoundNameDialog;
6660- cnt: Integer;
6661-
6662-begin
6663- //呼び出し元が、TActionでListViewに選択がいなければ、EXITする
6664- if (Sender is TAction) and (ListView.Selected = nil) then
6665- Exit;
6666-
6667- //登録上限チェック
6668- cnt := RoundList.Count[grtBoard];
6669- cnt := cnt + RoundList.Count[grtItem];
6670- if cnt > 500 then begin
6671- MsgBox(Handle, '巡回は500以上登録できません', 'エラー', MB_OK or MB_ICONSTOP);
6672- Exit;
6673- end;
6674-
6675- Dlg := TRoundNameDialog.Create(Self);
6676- try
6677- Dlg.ShowModal;
6678- if Dlg.ModalResult <> mrCancel then begin
6679- s := Trim(Dlg.RoundNameEdit.Text);
6680- if (Sender is TMenuItem) then begin
6681- SetSelectItemRound(True, s, TMenuItem(Sender).Parent.Name);
6682- end else if (Sender is TAction) then begin
6683- if (ListView.Selected <> nil) then begin
6684- if (TObject(ListView.Selected.Data) is TThreadItem) then begin
6685- SetSelectItemRound(True, s,
6686- TThreadItem(ListView.Selected.Data).Title);
6687- end else if (TObject(ListView.Selected.Data) is TBoard) then begin
6688- SetSelectItemRound(True, s,
6689- TBoard(ListView.Selected.Data).Title);
6690- end;
6691- end;
6692- end;
6693- ListView.Refresh;
6694- end;
6695- finally
6696- Dlg.Free;
6697- end;
6698-end;
66994421 procedure TGikoForm.SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string);
67004422 var
67014423 threadItem : TThreadItem;
@@ -6742,37 +4464,6 @@ begin
67424464 end;
67434465 end;
67444466
6745-procedure TGikoForm.SelectDeleteRoundExecute(Sender: TObject);
6746-var
6747- s : String;
6748-begin
6749- if (Sender is TMenuItem) then begin
6750- try
6751- SetSelectItemRound(False, '', TMenuItem(Sender).Parent.Name);
6752- except
6753- end;
6754- end else if (Sender is TAction) then begin
6755- try
6756- if ListView.Selected <> nil then begin
6757- if (TObject(ListView.Selected.Data) is TThreadItem) then begin
6758- s := TThreadItem(ListView.Selected.Data).Title;
6759- end else if (TObject(ListView.Selected.Data) is TBoard) then begin
6760- s := TBoard(ListView.Selected.Data).Title;
6761- end;
6762- SetSelectItemRound(False, '', s);
6763-
6764- end;
6765- except
6766- end;
6767- end;
6768- ListView.Refresh;
6769-end;
6770-
6771-procedure TGikoForm.SelectReservActionExecute(Sender: TObject);
6772-begin
6773- // このコメント削除しては駄目
6774-end;
6775-
67764467 procedure TGikoForm.SetSelectRoundName(Sender: TObject);
67774468 var
67784469 MenuItem: TMenuItem;
@@ -6784,256 +4475,6 @@ begin
67844475 end;
67854476 end;
67864477
6787-procedure TGikoForm.NewBoardActionExecute(Sender: TObject);
6788-var
6789- Dlg: TNewBoardDialog;
6790- Msg: string;
6791- i: Integer;
6792-begin
6793- for i := 0 to Screen.CustomFormCount - 1 do begin
6794- if TObject(Screen.CustomForms[i]) is TEditorForm then begin
6795- Msg := 'レスエディタを全て閉じてください';
6796- MsgBox(Handle, Msg, 'エラー', MB_OK or MB_ICONSTOP);
6797- Exit;
6798- end;
6799- end;
6800- Dlg := TNewBoardDialog.Create(Self);
6801- try
6802- Dlg.ShowModal;
6803- finally
6804- Dlg.Release;
6805- end;
6806-end;
6807-
6808-procedure TGikoForm.LoginActionExecute(Sender: TObject);
6809-var
6810- TmpCursor: TCursor;
6811- msg : String;
6812-begin
6813- if GikoSys.Dolib.Connected then begin
6814- //ログアウト
6815- GikoSys.Dolib.Disconnect;
6816- LoginAction.Checked := False;
6817- AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogout)), nil, gmiOK);
6818- LoginAction.Caption := 'ログイン(&L)';
6819- end else begin
6820- TmpCursor := Screen.Cursor;
6821- Screen.Cursor := crHourGlass;
6822- try
6823- //通常ログイン
6824- if not GikoSys.Setting.ForcedLogin then begin
6825- GikoSys.Dolib.ClientUA := 'gikoNavi/1.00';
6826- GikoSys.Dolib.UserName := GikoSys.Setting.UserID;
6827- GikoSys.Dolib.Password := GikoSys.Setting.Password;
6828- if GikoSys.Setting.ReadProxy then begin
6829- GikoSys.Dolib.ProxyAddress := GikoSys.Setting.ReadProxyAddress;
6830- GikoSys.Dolib.ProxyPort := GikoSys.Setting.ReadProxyPort;
6831- end else begin
6832- GikoSys.Dolib.ProxyAddress := '';
6833- GikoSys.Dolib.ProxyPort := 0;
6834- end;
6835- if GikoSys.Dolib.Connect then begin
6836- LoginAction.Checked := True;
6837- AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogin)) + GikoSys.Setting.UserID, nil, gmiOK);
6838- LoginAction.Caption := 'ログアウト(&L)';
6839- //LoginToolButton.Style := tbsCheck;
6840- end else begin
6841- // MsgBox(Handle, 'ログイン出来ませんでした', 'エラー', MB_OK or MB_ICONSTOP);
6842- AddMessageList(GikoSys.Dolib.ErrorMsg, nil, gmiNG);
6843- PlaySound('Error');
6844- LoginAction.Checked := False;
6845- //LoginToolButton.Down := False;
6846- ///LoginToolButton.Style := tbsButton;
6847- end;
6848- end else begin
6849- msg := '強制ログインモードでは,サーバの証明書の有効性をチェックしません。' + #13#10
6850- + '偽装サーバの場合、あなたのパスワード盗まれる可能性があります。' + #13#10
6851- + 'このモードでログインを試みますか?' + #13#10;
6852- if MsgBox(Handle, msg, '警告', MB_YESNO or MB_ICONEXCLAMATION) = IDYES then begin
6853- GikoSys.Dolib.ClientUA := 'gikoNavi/1.00';
6854- GikoSys.Dolib.UserName := GikoSys.Setting.UserID;
6855- GikoSys.Dolib.Password := GikoSys.Setting.Password;
6856- if GikoSys.Setting.ReadProxy then begin
6857- GikoSys.Dolib.ProxyAddress := GikoSys.Setting.ReadProxyAddress;
6858- GikoSys.Dolib.ProxyPort := GikoSys.Setting.ReadProxyPort;
6859- end else begin
6860- GikoSys.Dolib.ProxyAddress := '';
6861- GikoSys.Dolib.ProxyPort := 0;
6862- end;
6863- //SSL障害用強制ログイン
6864- GikoSys.Dolib.ForcedConnect;
6865- if GikoSys.Dolib.Connect then begin
6866- LoginAction.Checked := True;
6867- AddMessageList(GikoSys.Setting.GetMessage(Ord(gmForceLogin)) + GikoSys.Setting.UserID, nil, gmiOK);
6868- LoginAction.Caption := 'ログアウト(&L)';
6869- //LoginToolButton.Style := tbsCheck;
6870- end else begin
6871- // MsgBox(Handle, 'ログイン出来ませんでした', 'エラー', MB_OK or MB_ICONSTOP);
6872- AddMessageList(GikoSys.Dolib.ErrorMsg, nil, gmiNG);
6873- PlaySound('Error');
6874- LoginAction.Checked := False;
6875- //LoginToolButton.Down := False;
6876- //LoginToolButton.Style := tbsButton;
6877- end;
6878- end else begin
6879- LoginAction.Checked := False;
6880- //LoginToolButton.Down := False;
6881- //LoginToolButton.Style := tbsButton;
6882- end;
6883- end;
6884- finally
6885- Screen.Cursor := TmpCursor;
6886- end;
6887- end;
6888-end;
6889-
6890-procedure TGikoForm.KeySettingActionExecute(Sender: TObject);
6891-var
6892- Dlg: TKeySettingForm;
6893-begin
6894- Dlg := TKeySettingForm.Create(Self);
6895- try
6896- if Dlg.ShowModal = mrOk then begin
6897- GikoSys.SaveKeySetting(ActionList);
6898- GikoSys.SaveEditorKeySetting(Dlg.EditorForm.ActionList);
6899- GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName );
6900- end;
6901-
6902- finally
6903- Dlg.Release;
6904- MouseGesture.UnHook;
6905- MouseGesture.OnGestureStart := OnGestureStart;
6906- MouseGesture.OnGestureMove := OnGestureMove;
6907- MouseGesture.OnGestureEnd := OnGestureEnd;
6908- if GikoSys.Setting.GestureEnabled then begin
6909- GikoSys.Setting.Gestures.ClearGesture;
6910- GikoSys.Setting.Gestures.LoadGesture(
6911- GikoSys.Setting.GetGestureFileName, ActionList );
6912- MouseGesture.SetHook( Handle );
6913- end;
6914- end;
6915-end;
6916-
6917-procedure TGikoForm.ArrangeActionExecute(Sender: TObject);
6918-begin
6919- if ArrangeAction.Checked then begin
6920- //縦
6921- ViewPanel.Align := alNone;
6922- ListSplitter.Align := alNone;
6923- ThreadPanel.Align := alNone;
6924-
6925- ViewPanel.Width := FBrowserSizeWidth;
6926- ViewPanel.Align := alLeft;
6927-
6928- ListSplitter.Width := 5;
6929- ListSplitter.Align := alLeft;
6930-
6931- ViewPanel.Left := -10;
6932-
6933- ThreadPanel.Align := alClient;
6934-
6935- GikoSys.Setting.ListOrientation := gloHorizontal;
6936- case GikoSys.Setting.ListWidthState of
6937- glsMax: begin
6938- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
6939- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
6940- ViewPanel.Width := 1;
6941- end;
6942- glsNormal: begin
6943- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
6944- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
6945- end;
6946- glsMin: begin
6947- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
6948- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
6949- ViewPanel.Width := ThreadMainPanel.Width - 80;
6950- end;
6951- end;
6952- end else begin
6953- //横
6954- ViewPanel.Align := alNone;
6955- ListSplitter.Align := alNone;
6956- ThreadPanel.Align := alNone;
6957-
6958- ViewPanel.Height := FBrowserSizeHeight;
6959- ViewPanel.Align := alTop;
6960-
6961- ListSplitter.Height := 5;
6962- ListSplitter.Align := alTop;
6963-
6964- ViewPanel.Top := -10;
6965-
6966- ThreadPanel.Align := alClient;
6967- GikoSys.Setting.ListOrientation := gloVertical;
6968- case GikoSys.Setting.ListHeightState of
6969- glsMax: begin
6970- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
6971- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
6972- ViewPanel.Height := 1;
6973- end;
6974- glsNormal: begin
6975- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
6976- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
6977- end;
6978- glsMin: begin
6979- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
6980- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
6981- ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7;
6982- end;
6983- end;
6984- end;
6985-
6986-end;
6987-
6988-procedure TGikoForm.PaneInitActionExecute(Sender: TObject);
6989-begin
6990- CabinetPanel.Width := 150;
6991- MessagePanel.Height := 40;
6992-
6993- FBrowserSizeWidth := 200;
6994- FBrowserSizeHeight := 200;
6995- if ArrangeAction.Checked then begin
6996- ViewPanel.Width := FBrowserSizeWidth;
6997- end else begin
6998- ViewPanel.Height := FBrowserSizeHeight;
6999- end;
7000- if GikoSys.Setting.ListOrientation = gloHorizontal then begin
7001- if GikoSys.Setting.ListHeightState = glsMax then begin
7002- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
7003- GikoSys.Setting.ListHeightState := glsNormal;
7004- end;
7005- end else begin
7006- if GikoSys.Setting.ListWidthState = glsMax then begin
7007- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
7008- GikoSys.Setting.ListWidthState := glsNormal;
7009- end;
7010- end;
7011-end;
7012-
7013-procedure TGikoForm.ActiveLogDeleteActionExecute(Sender: TObject);
7014-const
7015- DEL_MSG = '“^0”のログを削除します。よろしいですか?';
7016- DEL_TITLE = '削除確認';
7017-var
7018- idx: Integer;
7019- ThreadItem: TThreadItem;
7020-begin
7021- idx := BrowserTab.TabIndex;
7022- if idx <> -1 then begin
7023- if BrowserTab.Tabs.Objects[idx] <> nil then begin
7024- ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).FThread;
7025- if GikoSys.Setting.DeleteMsg then
7026- if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
7027- if MsgBox(Handle, StringReplace( DEL_MSG, '^0', ThreadItem.Title, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
7028- Exit;
7029- DeleteTab(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));
7030- ThreadItem.DeleteLogFile;
7031- if ThreadItem.ParentBoard = FActiveList then
7032- ListView.Refresh;
7033- end;
7034- end;
7035-end;
7036-
70374478 function TGikoForm.GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
70384479 var
70394480 i: Integer;
@@ -7049,125 +4490,10 @@ begin
70494490 end;
70504491 end;
70514492
7052-procedure TGikoForm.BrowserTabToolBarResize(Sender: TObject);
7053-begin
7054- if BrowserTab.Parent = BrowserTabToolBar then
7055- BrowserTab.Width := BrowserTabToolBar.Width;
7056-end;
7057-
7058-procedure TGikoForm.SelectTextClearActionExecute(Sender: TObject);
7059-const
7060- DEL_MSG = '絞込み全履歴を削除します。よろしいですか?';
7061- DEL_TITLE = '削除確認';
7062-begin
7063- if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
7064- if MsgBox(Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
7065- Exit;
7066- GikoSys.Setting.SelectTextList.Clear;
7067- SelectComboBox.Items.Clear;
7068- SelectComboBox.Text := '';
7069- SetListViewType( gvtAll );
7070-end;
7071-
7072-procedure TGikoForm.NameTextClearActionExecute(Sender: TObject);
7073-var
7074- i: Integer;
7075-const
7076- DEL_MSG = 'レスエディタ名前全履歴を削除します。よろしいですか?';
7077- DEL_TITLE = '削除確認';
7078-begin
7079- if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
7080- if MsgBox(Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
7081- Exit;
7082- GikoSys.Setting.NameList.Clear;
7083- for i := 0 to Screen.CustomFormCount - 1 do begin
7084- if TObject(Screen.CustomForms[i]) is TEditorForm then
7085- TEditorForm(Screen.CustomForms[i]).NameComboBox.Items.Clear;
7086- end;
7087-end;
7088-
7089-procedure TGikoForm.MailTextClearActionExecute(Sender: TObject);
7090-var
7091- i: Integer;
7092-const
7093- DEL_MSG = 'レスエディタメール全履歴を削除します。よろしいですか?';
7094- DEL_TITLE = '削除確認';
7095-begin
7096- if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
7097- if MsgBox(Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
7098- Exit;
7099- GikoSys.Setting.MailList.Clear;
7100- for i := 0 to Screen.CustomFormCount - 1 do begin
7101- if TObject(Screen.CustomForms[i]) is TEditorForm then
7102- TEditorForm(Screen.CustomForms[i]).MailComboBox.Items.Clear;
7103- end;
7104-end;
7105-
7106-procedure TGikoForm.LeftmostTabSelectActionExecute(Sender: TObject);
7107-begin
7108- if BrowserTab.Tabs.Count > 0 then begin
7109- BrowserTab.TabIndex := 0;
7110- BrowserTab.OnChange(nil);
7111- end;
7112-end;
7113-
7114-procedure TGikoForm.LeftTabSelectActionExecute(Sender: TObject);
7115-begin
7116- if BrowserTab.Tabs.Count > 0 then begin
7117- if BrowserTab.TabIndex = -1 then begin
7118- BrowserTab.TabIndex := 0;
7119- BrowserTab.OnChange(nil);
7120- end else if BrowserTab.TabIndex > 0 then begin
7121- BrowserTab.TabIndex := BrowserTab.TabIndex - 1;
7122- BrowserTab.OnChange(nil);
7123- end;
7124- end;
7125-end;
7126-
7127-procedure TGikoForm.RightTabSelectActionExecute(Sender: TObject);
7128-begin
7129- if BrowserTab.Tabs.Count > 0 then begin
7130- if BrowserTab.TabIndex = -1 then begin
7131- BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1;
7132- BrowserTab.OnChange(nil);
7133- end else if BrowserTab.TabIndex < (BrowserTab.Tabs.Count - 1) then begin
7134- BrowserTab.TabIndex := BrowserTab.TabIndex + 1;
7135- BrowserTab.OnChange(nil);
7136- end;
7137- end;
7138-end;
7139-
7140-procedure TGikoForm.RightmostTabSelectActionExecute(Sender: TObject);
7141-begin
7142- if BrowserTab.Tabs.Count > 0 then begin
7143- BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1;
7144- BrowserTab.OnChange(nil);
7145- end;
7146-end;
7147-
7148-//ブラウザタブが1つ以上で左端でないActionで共通
7149-procedure TGikoForm.LeftTabSelectActionUpdate(Sender: TObject);
7150-begin
7151-{$IFDEF ACTCHK}
7152- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
7153- if (Sender <> nil) and (Sender is TAction) then begin
7154-{$ENDIF}
7155- TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex <> 0);
7156-{$IFDEF ACTCHK}
7157- end;
7158-{$ENDIF}
7159-end;
7160-//ブラウザタブが1つ以上で右端でないActionで共通
7161-procedure TGikoForm.RightTabSelectActionUpdate(Sender: TObject);
7162-begin
7163-{$IFDEF ACTCHK}
7164- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
7165- if (Sender <> nil) and (Sender is TAction) then begin
7166-{$ENDIF}
7167- TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex <> BrowserTab.Tabs.Count - 1);
7168-{$IFDEF ACTCHK}
7169- end;
7170-{$ENDIF}
4493+procedure TGikoForm.BrowserTabToolBarResize(Sender: TObject);
4494+begin
4495+ if BrowserTab.Parent = BrowserTabToolBar then
4496+ BrowserTab.Width := BrowserTabToolBar.Width;
71714497 end;
71724498
71734499 procedure TGikoForm.WMSettingChange(var Message: TWMWinIniChange);
@@ -7200,11 +4526,11 @@ begin
72004526
72014527 //お気に入りの追加
72024528 NewMenu := TMenuItem.Create(MainMenu);
7203- NewMenu.Action := FavoriteAddAction;
4529+ NewMenu.Action := GikoDM.FavoriteAddAction;
72044530 FavoriteMenu.Add(NewMenu);
72054531 //お気に入りの整理
72064532 NewMenu := TMenuItem.Create(FavoriteMenu);
7207- NewMenu.Action := FavoriteArrangeAction;
4533+ NewMenu.Action := GikoDM.FavoriteArrangeAction;
72084534 FavoriteMenu.Add(NewMenu);
72094535 //セパレータ
72104536 NewMenu := TMenuItem.Create(FavoriteMenu);
@@ -7298,11 +4624,6 @@ begin
72984624 SetLinkBar;
72994625 end;
73004626
7301-procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject);
7302-begin
7303- ShowFavoriteAddDialog(GetActiveContent);
7304-end;
7305-
73064627 procedure TGikoForm.FavoriteClick(Sender: TObject);
73074628 begin
73084629
@@ -7346,51 +4667,16 @@ begin
73464667
73474668 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
73484669 if GikoSys.Setting.ListWidthState = glsMin then begin
7349- BrowserMaxAndFocusAction.Execute;
4670+ GikoDM.BrowserMaxAndFocusAction.Execute;
73504671 end;
73514672 end else begin
73524673 if GikoSys.Setting.ListHeightState = glsMin then begin
7353- BrowserMaxAndFocusAction.Execute;
4674+ GikoDM.BrowserMaxAndFocusAction.Execute;
73544675 end;
73554676 end;
73564677 end;
73574678 end;
73584679
7359-procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject);
7360-begin
7361- if TObject(ListView.Selected.Data) is TBoard then
7362- ShowFavoriteAddDialog(TObject(ListView.Selected.Data));
7363-end;
7364-
7365-procedure TGikoForm.BoardFavoriteAddActionUpdate(Sender: TObject);
7366-begin
7367- BoardFavoriteAddAction.Enabled := (GetActiveList is TCategory) and (ListView.SelCount > 0);
7368-end;
7369-
7370-procedure TGikoForm.ThreadFavoriteAddActionExecute(Sender: TObject);
7371-begin
7372- if TObject(ListView.Selected.Data) is TThreadItem then
7373- ShowFavoriteAddDialog(TObject(ListView.Selected.Data));
7374-end;
7375-
7376-procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject);
7377-begin
7378- ShowFavoriteAddDialog(TObject(FClickNode.Data));
7379-end;
7380-
7381-procedure TGikoForm.FavoriteArrangeActionExecute(Sender: TObject);
7382-var
7383- Dlg: TFavoriteArrangeDialog;
7384-begin
7385- Dlg := TFavoriteArrangeDialog.Create(Self);
7386- try
7387- Dlg.ShowModal;
7388- finally
7389- Dlg.Release;
7390- end;
7391- PostMessage( Handle, USER_SETLINKBAR, 0, 0 );
7392-end;
7393-
73944680 procedure TGikoForm.BBSMenuItemOnClick(
73954681 Sender : TObject
73964682 );
@@ -7407,25 +4693,6 @@ begin
74074693
74084694 end;
74094695
7410-procedure TGikoForm.MoveToActionExecute(Sender: TObject);
7411-var
7412- URL: string;
7413- idx: Integer;
7414-begin
7415- URL := Trim(AddressComboBox.Text);
7416- MoveToURL(URL);
7417-
7418- idx := AddressComboBox.Items.IndexOf(URL);
7419- if idx = -1 then begin
7420- AddressComboBox.Items.Insert(0, URL);
7421- if AddressComboBox.Items.Count > GikoSys.Setting.AddressHistoryCount then
7422- AddressComboBox.Items.Delete(AddressComboBox.Items.Count - 1);
7423- end else begin
7424- AddressComboBox.Items.Delete(idx);
7425- AddressComboBox.Items.Insert(0, URL);
7426- end;
7427-end;
7428-
74294696 procedure TGikoForm.MoveToURL(const inURL: string);
74304697 var
74314698 protocol, host, path, document, port, bookmark : string;
@@ -7649,7 +4916,7 @@ procedure TGikoForm.AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
76494916 Shift: TShiftState);
76504917 begin
76514918 if Key = VK_RETURN then
7652- MoveToAction.Execute;
4919+ GikoDM.MoveToAction.Execute;
76534920 end;
76544921
76554922 procedure TGikoForm.BrowserEnter(Sender: TObject);
@@ -7712,6 +4979,7 @@ end;
77124979 procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
77134980 var
77144981 hComboEdit: THandle;
4982+ i : Integer;
77154983 // KeyData: Integer;
77164984 begin
77174985 Handled := False;
@@ -7723,7 +4991,7 @@ begin
77234991 if hComboEdit <> 0 then
77244992 SendMessage(hComboEdit, WM_CHAR, Msg.CharCode, Msg.KeyData);
77254993 Handled := True;
7726- //お気に入りはESCで脱出したいので、それも送る
4994+ //お気に入りはESCで脱出したいので、それも送る
77274995 end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_ESCAPE] then begin
77284996 hComboEdit := GetFocus;
77294997 if hComboEdit <> 0 then
@@ -7742,69 +5010,11 @@ begin
77425010 SendMessage(hComboEdit, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);
77435011 Handled := True;
77445012 end;
7745-{ end else begin
7746- //メニューのファイル(F)とかでFを単体で押したときに選択されてしまう現象を回避
7747- KeyData := Msg.KeyData;
7748- if (KeyData and $20000000) = 0 then begin
7749- if Msg.CharCode in [Ord('F'), Ord('V'), Ord('B'), Ord('R'),
7750- Ord('A'), Ord('T'), Ord('H')] then begin
7751- if not ActionList.IsShortCut(Msg) then begin
7752- Handled := True;
7753- end;
7754- end;
7755- end;}
5013+ end else begin
5014+ Handled := GikoDM.GikoFormActionList.IsShortCut(Msg);
77565015 end;
77575016 end;
77585017
7759-procedure TGikoForm.BrowserTabVisibleActionExecute(Sender: TObject);
7760-begin
7761- GikoSys.Setting.BrowserTabVisible := BrowserTabVisibleAction.Checked;
7762- SetBrowserTabState;
7763-end;
7764-
7765-procedure TGikoForm.BrowserTabTopActionExecute(Sender: TObject);
7766-begin
7767- BrowserTabBottomAction.Checked := False;
7768- BrowserTabTopAction.Checked := True;
7769- GikoSys.Setting.BrowserTabPosition := gtpTop;
7770- SetBrowserTabState;
7771-end;
7772-
7773-procedure TGikoForm.BrowserTabBottomActionExecute(Sender: TObject);
7774-begin
7775- BrowserTabTopAction.Checked := False;
7776- BrowserTabBottomAction.Checked := True;
7777- GikoSys.Setting.BrowserTabPosition := gtpBottom;
7778- SetBrowserTabState;
7779-end;
7780-
7781-procedure TGikoForm.BrowserTabTabStyleActionExecute(Sender: TObject);
7782-begin
7783- BrowserTabButtonStyleAction.Checked := False;
7784- BrowserTabFlatStyleAction.Checked := False;
7785- BrowserTabTabStyleAction.Checked := True;
7786- GikoSys.Setting.BrowserTabStyle := gtsTab;
7787- SetBrowserTabState;
7788-end;
7789-
7790-procedure TGikoForm.BrowserTabButtonStyleActionExecute(Sender: TObject);
7791-begin
7792- BrowserTabTabStyleAction.Checked := False;
7793- BrowserTabFlatStyleAction.Checked := False;
7794- BrowserTabButtonStyleAction.Checked := True;
7795- GikoSys.Setting.BrowserTabStyle := gtsButton;
7796- SetBrowserTabState;
7797-end;
7798-
7799-procedure TGikoForm.BrowserTabFlatStyleActionExecute(Sender: TObject);
7800-begin
7801- BrowserTabFlatStyleAction.Checked := True;
7802- BrowserTabTabStyleAction.Checked := False;
7803- BrowserTabButtonStyleAction.Checked := False;
7804- GikoSys.Setting.BrowserTabStyle := gtsFlat;
7805- SetBrowserTabState;
7806-end;
7807-
78085018 procedure TGikoForm.PreviewTimerTimer(Sender: TObject);
78095019 var
78105020 p: TPoint;
@@ -7949,7 +5159,7 @@ end;
79495159
79505160 procedure TGikoForm.MessageHideButtonClick(Sender: TObject);
79515161 begin
7952- MsgBarCloseAction.Execute;
5162+ GikoDM.MsgBarCloseAction.Execute;
79535163 end;
79545164
79555165 function TGikoForm.OnDocumentContextMenu(Sender: TObject): WordBool;
@@ -7973,7 +5183,7 @@ begin
79735183 if ThreadItem <> nil then begin
79745184 Num := StrToInt(s);
79755185 FHint.PopupType := gptThread;
7976- SetResPopupText(ThreadItem, Num, Num, False, False);
5186+ HTMLCreater.SetResPopupText(FHint, ThreadItem, Num, Num, False, False);
79775187 if FHint.ResCount <> 0 then
79785188 ShowTextPopup;
79795189 Result := False;
@@ -7985,104 +5195,6 @@ begin
79855195 end;
79865196 end;
79875197
7988-procedure TGikoForm.SetResPopupText(threadItem: TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
7989-var
7990- i: Integer;
7991- tmp: string;
7992- FileName: string;
7993- Line: Integer;
7994-
7995- wkInt: Integer;
7996-
7997- Res: TResRec;
7998- Header: string;
7999- Body: string;
8000- boardPlugIn : TBoardPlugIn;
8001-begin
8002- try
8003- if StNum > ToNum then begin
8004- wkInt := StNum;
8005- StNum := ToNum;
8006- ToNum := wkInt;
8007- end;
8008-
8009- //最大10レスまで表示
8010- if StNum + MAX_POPUP_RES < ToNum then
8011- ToNum := StNum + MAX_POPUP_RES;
8012-
8013- //タイトル表示
8014- if Title then
8015- if ThreadItem <> nil then
8016- FHint.Title := ThreadItem.Title;
8017-
8018- if ThreadItem <> nil then begin
8019- //if ThreadItem.IsBoardPlugInAvailable then begin
8020- if ThreadItem.ParentBoard.IsBoardPlugInAvailable then begin
8021- //===== プラグインによる表示
8022- //boardPlugIn := ThreadItem.BoardPlugIn;
8023- boardPlugIn := ThreadItem.ParentBoard.BoardPlugIn;
8024-
8025- // フォントやサイズの設定
8026- // 文字コードはプラグインに任せる
8027- for i := StNum to ToNum do begin
8028- Line := i;
8029- //ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。↓読めるようになった
8030- tmp := boardPlugIn.GetDat( DWORD( threadItem ), i );
8031- if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin
8032- Res := DivideStrLine(tmp);
8033- if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then
8034- Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime
8035- else
8036- Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;
8037- Header := DeleteFontTag(Header);
8038- Header := CustomStringReplace(Header, '<br>', '',true);
8039-
8040- Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);
8041- Body := CustomStringReplace(Body, '<br>', #10,true);
8042- Body := CustomStringReplace(Body, '</a>', '',true);
8043- Body := GikoSys.DeleteLink(Body);
8044- Body := CustomStringReplace(Body, '&lt;', '<');
8045- Body := CustomStringReplace(Body, '&gt;', '>');
8046- Body := CustomStringReplace(Body, '&quot;', '"');
8047- Body := CustomStringReplace(Body, '&amp;', '&');
8048- Body := CustomStringReplace(Body, '&nbsp;', ' ');
8049-
8050- FHint.Add(Header, Body);
8051- //FHint.Title := '';
8052- end;
8053- end;
8054- end else begin
8055- for i := StNum to ToNum do begin
8056- Line := i;
8057- FileName := ThreadItem.FilePath;
8058- tmp := GikoSys.ReadThreadFile(FileName, Line);
8059- if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin
8060- Res := DivideStrLine(tmp);
8061- if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then
8062- Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime
8063- else
8064- Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;
8065-
8066- Body := DeleteFontTag(Res.FBody);
8067- Body := CustomStringReplace(Body, '<br> ', #10,true);
8068- Body := CustomStringReplace(Body, '<br>', #10,true);
8069- Body := CustomStringReplace(Body, '</a>', '',true);
8070- Body := GikoSys.DeleteLink(Body);
8071- Body := CustomStringReplace(Body, '&lt;', '<');
8072- Body := CustomStringReplace(Body, '&gt;', '>');
8073- Body := CustomStringReplace(Body, '&quot;', '"');
8074- Body := CustomStringReplace(Body, '&amp;', '&');
8075- Body := CustomStringReplace(Body, '&nbsp;', ' ');
8076- FHint.Add(Header, Body);
8077- //FHint.Title := ''; //たぶんこれはいらないんだけどね。もじゅ やっぱりいらなかった(2004/01/13)
8078- end;
8079- end;
8080- end;
8081- end;
8082- finally
8083- end;
8084-end;
8085-
80865198 procedure TGikoForm.ShowTextPopup;
80875199 var
80885200 p: TPoint;
@@ -8123,25 +5235,7 @@ begin
81235235 end;
81245236 end;
81255237
8126-procedure TGikoForm.GikoHelpActionExecute(Sender: TObject);
8127-var
8128- FileName: string;
8129-begin
8130- FileName := GikoSys.GetAppDir + 'batahlp.chm';
8131- if not FileExists(FileName) then begin
8132- MsgBox(
8133- Handle,
8134- 'ヘルプが見つかりませんでした' + #13#10 +
8135- 'ヘルプファイルをギコナビのフォルダに置いてください' + #13#10 +
8136- 'ヘルプはギコナビのサイトに置いてあります',
8137- 'エラー',
8138- MB_ICONSTOP);
8139- Exit;
8140- end;
8141- ShellExecute(Handle, 'open', PChar(FileName), '', PChar(GikoSys.GetAppDir), SW_SHOW);
8142-end;
8143-
8144-procedure TGikoForm.ToolButton18Click(Sender: TObject);
5238+procedure TGikoForm.HistoryAllClearToolButtonClick(Sender: TObject);
81455239 const
81465240 DEL_MSG = '全履歴を削除します。よろしいですか?';
81475241 DEL_TITLE = '削除確認';
@@ -8156,18 +5250,6 @@ begin
81565250 end;
81575251 end;
81585252
8159-procedure TGikoForm.KotehanActionExecute(Sender: TObject);
8160-var
8161- Dlg: TKotehanDialog;
8162-begin
8163- Dlg := TKotehanDialog.Create(Self);
8164- try
8165- Dlg.ShowModal;
8166- finally
8167- Dlg.Release;
8168- end;
8169-end;
8170-
81715253 procedure TGikoForm.SetLinkBar;
81725254 var
81735255 i: Integer;
@@ -8743,112 +5825,6 @@ begin
87435825 end;
87445826 end;
87455827
8746-procedure TGikoForm.ThreadEditorActionExecute(Sender: TObject);
8747-var
8748- Editor: TEditorForm;
8749-begin
8750- if not (GetActiveList is TBoard) then
8751- Exit;
8752- Editor := TEditorForm.Create(Self);
8753- Editor.SetBoard(TBoard(GetActiveList));
8754- Editor.Show;
8755- Editor.BodyEdit.SetFocus;
8756-end;
8757-
8758-procedure TGikoForm.ToolBarSettingActionExecute(Sender: TObject);
8759-var
8760- Dlg: TToolBarSettingDialog;
8761- i: Integer;
8762- //Component: TComponent;
8763- ToolButton : TToolButton;
8764-begin
8765- Dlg := TToolBarSettingDialog.Create(Self, ActionList);
8766- try
8767- Dlg.AddToolBar(StdToolBar, gttStandard);
8768- Dlg.AddToolBar(ListToolBar, gttList);
8769- Dlg.AddToolBar(BrowserToolBar, gttBrowser);
8770- case FToolBarSettingSender of
8771- tssMain: Dlg.ToolBarIndex := 0;
8772- tssList: Dlg.ToolBarIndex := 1;
8773- tssBrowser: Dlg.ToolBarIndex := 2;
8774- end;
8775- if Dlg.ShowModal = mrOK then begin
8776- SetToolBarPopup;
8777-
8778- //最適幅を再設定するために適当なプロパティをいじくる
8779- for i := 0 to MainCoolBar.Bands.Count - 1 do begin
8780- MainCoolBar.Bands[i].MinWidth := MainCoolBar.Bands[i].MinWidth + 1;
8781- MainCoolBar.Bands[i].MinWidth := MainCoolBar.Bands[i].MinWidth - 1;
8782- end;
8783- for i := 0 to ListCoolBar.Bands.Count - 1 do begin
8784- ListCoolBar.Bands[i].MinWidth := ListCoolBar.Bands[i].MinWidth + 1;
8785- ListCoolBar.Bands[i].MinWidth := ListCoolBar.Bands[i].MinWidth - 1;
8786- end;
8787- for i := 0 to BrowserCoolBar.Bands.Count - 1 do begin
8788- BrowserCoolBar.Bands[i].MinWidth := BrowserCoolBar.Bands[i].MinWidth + 1;
8789- BrowserCoolBar.Bands[i].MinWidth := BrowserCoolBar.Bands[i].MinWidth - 1;
8790- end;
8791-
8792- SaveToolBarSetting(StdToolBar);
8793- SaveToolBarSetting(ListToolBar);
8794- //ListToolBarにいるかもしれない絞込みComboBoxを配置
8795- SelectComboBoxPanel.Visible := False;
8796- try
8797- for i := ListToolBar.ControlCount - 1 downto 0 do
8798- begin
8799- if ListToolBar.Controls[ i ].Action = SelectItemAction then
8800- begin
8801- SelectComboBoxPanel.Left := ListToolBar.Controls[ i ].Left;
8802- SelectComboBoxPanel.Width := GikoSys.Setting.SelectComboBoxWidth;
8803- SelectComboBoxPanel.Parent := ListToolBar;
8804- SelectComboBoxPanel.Visible := True;
8805-
8806- SelectComboBox.Left := 0;
8807- SelectComboBox.Top := 0;
8808- SelectComboBox.Height := SelectComboBoxPanel.ClientHeight;
8809- SelectComboBox.Width := SelectComboBoxPanel.Width -
8810- SelectComboBoxSplitter.Width;
8811-
8812-
8813- //一つ見えないボタンを突っ込む
8814- ToolButton := TToolButton(ListToolBar.FindComponent('SelectComboBoxDummy'));
8815- if ToolButton <> nil then begin
8816- ToolButton.Parent := nil;
8817- end else begin
8818- ToolButton := TToolButton.Create(ListToolBar);
8819- ToolButton.Name := 'SelectComboBoxDummy';
8820- end;
8821-
8822- ToolButton.Style := tbsSeparator;
8823- ToolButton.Width := 0;
8824- ToolButton.Left := ListToolBar.Controls[ i ].Left;
8825- ListToolBar.InsertControl(ToolButton);
8826- ToolButton.Visible := False;
8827-
8828- // スレッド絞込の隣にセパレータがある場合は隠す
8829- if (i + 1) < ListToolBar.ControlCount then
8830- if ListToolBar.Controls[ i + 1 ] is TToolButton then
8831- if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then
8832- ListToolBar.Controls[ i + 1 ].Visible := False;
8833-
8834-
8835- // スレッド絞込ボタンを隠す
8836- ListToolBar.Controls[ i ].Visible := False;
8837-
8838- break;
8839- end;
8840- end;
8841- except
8842- end;
8843- ResetBandInfo( ListCoolBar, ListToolBar );
8844- SaveToolBarSetting(BrowserToolBar);
8845- end;
8846- finally
8847- Dlg.Release;
8848- FToolBarSettingSender := tssNone;
8849- end;
8850-end;
8851-
88525828 function TGikoForm.FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
88535829 var
88545830 i : Integer;
@@ -8876,21 +5852,21 @@ begin
88765852 for i := 0 to StdToolBar.ButtonCount - 1 do begin
88775853 end;
88785854 for i := 0 to ListToolBar.ButtonCount - 1 do begin
8879- if ListToolBar.Buttons[i].Action = IconStyle then
5855+ if ListToolBar.Buttons[i].Action = GikoDM.IconStyle then
88805856 ListToolBar.Buttons[i].DropdownMenu := ListIconPopupMenu;
8881- if ListToolBar.Buttons[i].Action = SelectReservAction then
5857+ if ListToolBar.Buttons[i].Action = GikoDM.SelectReservAction then
88825858 ListToolBar.Buttons[i].DropdownMenu := RoundNamePopupMenu;
88835859 end;
8884- aIEButton := FindToolBarButton( BrowserToolBar, IEAction );
5860+ aIEButton := FindToolBarButton( BrowserToolBar, GikoDM.IEAction );
88855861 if aIEButton <> nil then
88865862 aIEButton.DropdownMenu := BrowserPopupMenu;
8887- aCabinetBBSButton := FindToolBarButton( StdToolBar, CabinetBBSAction );
5863+ aCabinetBBSButton := FindToolBarButton( StdToolBar, GikoDM.CabinetBBSAction );
88885864 if aCabinetBBSButton <> nil then
88895865 aCabinetBBSButton.DropdownMenu := BBSSelectPopupMenu;
8890- aResRangeButton := FindToolBarButton( BrowserToolBar, ResRangeAction );
5866+ aResRangeButton := FindToolBarButton( BrowserToolBar, GikoDM.ResRangeAction );
88915867 if aResRangeButton <> nil then
88925868 aResRangeButton.DropdownMenu := ResRangePopupMenu;
8893- aThreadRangeButton:= FindToolBarButton( ListToolBar, ThreadRangeAction );
5869+ aThreadRangeButton:= FindToolBarButton( ListToolBar, GikoDM.ThreadRangeAction );
88945870 if aThreadRangeButton <> nil then
88955871 aThreadRangeButton.DropdownMenu := ThreadRangePopupMenu;
88965872 end;
@@ -8936,17 +5912,17 @@ begin
89365912
89375913 if Length( text ) = 0 then
89385914 begin
8939- AllItemAction.Checked := True;
8940- LogItemAction.Checked := False;
8941- NewItemAction.Checked := False;
5915+ GikoDM.AllItemAction.Checked := True;
5916+ GikoDM.LogItemAction.Checked := False;
5917+ GikoDM.NewItemAction.Checked := False;
89425918 end else begin
89435919 // チラつくと嫌だから、一応押してあるときだけ処理する
8944- if AllItemAction.Checked then
8945- AllItemAction.Checked := False;
8946- if LogItemAction.Checked then
8947- LogItemAction.Checked := False;
8948- if NewItemAction.Checked then
8949- NewItemaction.Checked := False;
5920+ if GikoDM.AllItemAction.Checked then
5921+ GikoDM.AllItemAction.Checked := False;
5922+ if GikoDM.LogItemAction.Checked then
5923+ GikoDM.LogItemAction.Checked := False;
5924+ if GikoDM.NewItemAction.Checked then
5925+ GikoDM.NewItemaction.Checked := False;
89505926 end;
89515927
89525928 if Length( text ) = 0 then
@@ -8999,12 +5975,12 @@ begin
89995975 *}
90005976 end else begin
90015977 // チラつくと嫌だから、一応押してあるときだけ処理する
9002- if AllItemAction.Checked then
9003- AllItemAction.Checked := False;
9004- if LogItemAction.Checked then
9005- LogItemAction.Checked := False;
9006- if NewItemAction.Checked then
9007- NewItemaction.Checked := False;
5978+ if GikoDM.AllItemAction.Checked then
5979+ GikoDM.AllItemAction.Checked := False;
5980+ if GikoDM.LogItemAction.Checked then
5981+ GikoDM.LogItemAction.Checked := False;
5982+ if GikoDM.NewItemAction.Checked then
5983+ GikoDM.NewItemaction.Checked := False;
90085984 end;
90095985
90105986 end;
@@ -9052,140 +6028,7 @@ begin
90526028 end;
90536029
90546030
9055-//NGワードファイルを再読み込みする
9056-procedure TGikoForm.SelectResActionExecute(Sender: TObject);
9057-var
9058- Dlg: TListSelectDialog;
9059- FilterList : TStringList;
9060- idx : Integer;
9061-begin
9062- Dlg := TListSelectDialog.Create(Self);
9063- try
9064- Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);
9065- Dlg.SelectComboBox.Text := FSelectResWord;
9066- Dlg.ShowModal;
9067- if Dlg.ModalResult = mrOK then begin
9068- SelectResAction.Checked := True;
9069- if Length( Dlg.SelectComboBox.Text ) = 0 then begin
9070- // 空入力で OK は絞り込み解除と同意義
9071- ResRangeAction.Execute;
9072- end else begin
9073- GikoSys.ResRange := Ord( grrSelect );
9074-
9075- // 最後に設定したものを覚えておく
9076- FSelectResWord := Dlg.SelectComboBox.Text;
9077-
9078- // 検索履歴の更新
9079- idx := GikoSys.Setting.SelectTextList.IndexOf(Dlg.SelectComboBox.Text);
9080- if idx <> -1 then
9081- GikoSys.Setting.SelectTextList.Delete(idx);
9082- GikoSys.Setting.SelectTextList.Insert(0, Dlg.SelectComboBox.Text);
9083- while Dlg.SelectComboBox.Items.Count > 100 do begin
9084- Dlg.SelectComboBox.Items.Delete(Dlg.SelectComboBox.Items.Count - 1);
9085- end;
9086-
9087- try
9088- //if SelectComboBox.Parent <> nil then
9089- if SelectComboBoxPanel.Visible then
9090- SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
9091- except
9092- end;
9093-
9094- // フィルタの設定
9095- FilterList := TStringList.Create;
9096- try
9097- GikoSys.FSelectResFilter.Reverse := True;
9098- FilterList.Delimiter := ' '; //区切り子を半角スペースに設定
9099- FilterList.DelimitedText := Dlg.SelectComboBox.Text;
9100-
9101- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
9102- finally
9103- FilterList.Free;
9104- end;
9105- RepaintAllTabsBrowser();
9106- end;
9107- end else begin
9108- // キャンセル
9109- if GikoSys.ResRange <> Ord( grrSelect ) then
9110- ResRangeAction.Execute;
9111- end;
9112- finally
9113- Dlg.Release;
9114- end;
9115-
9116-end;
9117-
91186031 // 全てのレスを表示
9119-procedure TGikoForm.AllResActionExecute(Sender: TObject);
9120-var
9121- FilterList : TStringList;
9122-begin
9123- if(FActiveContent <> nil) and (FActiveContent.FBrowser <> nil )
9124- and (FActiveContent.FBrowser.Busy) then Exit;
9125-
9126- FResRangeMenuSelect := Ord( grrAll );
9127- AllResAction.Checked := True;
9128-
9129- if GikoSys.ResRange <> Ord( grrAll ) then begin
9130- GikoSys.ResRange := Ord( grrAll );
9131-
9132- // フィルタ文字列を空にする
9133- FilterList := TStringList.Create;
9134- try
9135- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
9136- GikoSys.FSelectResFilter.Reverse := False;
9137- finally
9138- FilterList.Free;
9139- end;
9140-
9141- FSelectResWord := '';
9142-
9143- RepaintAllTabsBrowser();
9144- end;
9145-end;
9146-
9147-procedure TGikoForm.ReloadClick(Sender: TObject);
9148-begin
9149- if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
9150- MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
9151- end else begin
9152- RepaintAllTabsBrowser();
9153- end;
9154-
9155-end;
9156-
9157-procedure TGikoForm.GoBackClick(Sender: TObject);
9158-var
9159- s: string;
9160-begin
9161- if GikoSys.FAbon.GoForward =false then begin
9162- MsgBox(Handle, '一つ前のNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
9163- end else begin
9164- s := GikoSys.FAbon.NGwordname;
9165- StatusBar.Panels.Items[2].Text := s;
9166- StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
9167- StatusBarResize(Sender);
9168- RepaintAllTabsBrowser();
9169- end;
9170-
9171-end;
9172-
9173-procedure TGikoForm.GoFowardClick(Sender: TObject);
9174-var
9175- s: string;
9176-begin
9177- if GikoSys.FAbon.GoBack =false then begin
9178- MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
9179- end else begin
9180- s := GikoSys.FAbon.NGwordname;
9181- StatusBar.Panels.Items[2].Text := s;
9182- StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
9183- StatusBarResize(Sender);
9184- RepaintAllTabsBrowser();
9185- end;
9186-
9187-end;
9188-
91896032 procedure TGikoForm.SelectComboBoxSplitterMouseMove(Sender: TObject;
91906033 Shift: TShiftState; X, Y: Integer);
91916034 var
@@ -9237,130 +6080,30 @@ end;
92376080
92386081 procedure TGikoForm.SelectComboBoxSplitterMouseUp(Sender: TObject;
92396082 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
9240-begin
9241- IsDraggingSelectComboBox := False;
9242-
9243-end;
9244-
9245-procedure TGikoForm.StatusBarResize(Sender: TObject);
9246-begin
9247- StatusBar.Panels[1].Width := StatusBar.Width -
9248- StatusBar.Panels[0].Width -
9249- StatusBar.Panels[2].Width;
9250-end;
9251-procedure TGikoForm.SelectComboBoxEnter(Sender: TObject);
9252-begin
9253-
9254- if (Length( SelectComboBox.Text ) = 0) or
9255- (SelectComboBox.Text = SELECTCOMBOBOX_NAME) then
9256- begin
9257- SelectComboBox.Text := '';
9258- SelectComboBox.Color := clWindow;
9259- end;
9260-
9261-end;
9262-
9263-//板名検索
9264-procedure TGikoForm.TreeSelectSearchBoardNameExecute(Sender: TObject);
9265-var
9266- s : String;
9267- msg : String;
9268- CurItem : TTreeNode;
9269- next : boolean;
9270-begin
9271- if InputQuery('板名検索','板名の入力',s) then begin
9272- next := true;
9273- while next do begin
9274- if TreeView.Selected = nil then
9275- CurItem := TreeView.Items.GetFirstNode
9276- else begin
9277- CurItem := TreeView.Selected.GetNext;
9278- if CurItem = nil then
9279- CurItem := TreeView.Items.GetFirstNode;
9280- end;
9281- while CurItem <> nil do begin
9282- if (CurItem.ImageIndex <> 2) and (VaguePos(s,CurItem.Text) <> 0) then begin
9283- break;
9284- end;
9285- CurItem := CurItem.GetNext;
9286- end;
9287- try
9288- if CurItem = nil then begin
9289- msg := '先頭に戻りますか?';
9290- if MsgBox(Handle, msg, '', MB_YESNO or MB_ICONEXCLAMATION) = mrYes then begin
9291- CurItem := TreeView.Items.GetFirstNode;
9292- end else begin
9293- Exit;
9294- end;
9295- TreeView.Select(CurItem);
9296- TreeView.SetFocus;
9297- end else begin
9298- TreeView.Select(CurItem);
9299- TreeView.SetFocus;
9300- msg := '次に行きますか?';
9301- if MsgBox(Handle, msg, '', MB_YESNO or MB_ICONEXCLAMATION) = mrYes then begin
9302- next := true;
9303- end else begin
9304- next := false;
9305- end;
9306- end;
9307-
9308- except
9309- Exit;
9310- end;
9311- end;
9312- end;
9313-end;
9314-
9315-procedure TGikoForm.CabinetFavoriteActionExecute(Sender: TObject);
9316-var
9317- i, b : Integer;
9318- item : TMenuItem;
9319-begin
9320-
9321- if CabinetPanel.Visible then begin
9322- if FTreeType = gttFavorite then begin
9323- CabinetVisible( False );
9324- CabinetFavoriteAction.Checked := False;
9325- end else begin
9326- CabinetFavoriteAction.Checked := True;
9327- end;
9328- end else begin
9329- CabinetVisible( True );
9330- CabinetFavoriteAction.Checked := True;
9331- end;
9332-
9333- // BBS...BBS, History, Favorite
9334- GikoSys.Setting.CabinetIndex := CabinetSelectPopupMenu.Items.Count - 1;
9335-
9336- b := CabinetSelectPopupMenu.Items.Count - 1;
9337- for i := 0 to b do begin
9338- item := CabinetSelectPopupMenu.Items[ i ];
9339- if item is TBBSMenuItem then begin
9340- item.Checked := False;
9341- // CabinetMenu は CabinetSelectPopupMenu と同じと決めうちしちゃう
9342- CabinetMenu.Items[ i ].Checked := False;
9343- end;
9344- end;
9345-
9346- // キャビネットツールバー及びキャビネットの表示切替
9347- HistoryToolBar.Hide;
9348- FavoriteToolBar.Show;
9349- TreeView.Visible := False;
9350- FavoriteTreeView.Visible := True;
6083+begin
6084+ IsDraggingSelectComboBox := False;
93516085
9352- CabinetSelectToolButton.Caption := 'お気に入り';
9353- FTreeType := gttFavorite;
6086+end;
93546087
9355- // メニュー及びボタンのチェックを設定
9356- CabinetBBSAction.Checked := False;
9357- CabinetHistoryAction.Checked := False;
6088+procedure TGikoForm.StatusBarResize(Sender: TObject);
6089+begin
6090+ StatusBar.Panels[1].Width := StatusBar.Width -
6091+ StatusBar.Panels[0].Width -
6092+ StatusBar.Panels[2].Width;
6093+end;
6094+procedure TGikoForm.SelectComboBoxEnter(Sender: TObject);
6095+begin
93586096
9359- // お気に入りのツリーを展開
9360- FavoriteTreeView.Items.GetFirstNode.Expanded := True;
6097+ if (Length( SelectComboBox.Text ) = 0) or
6098+ (SelectComboBox.Text = SELECTCOMBOBOX_NAME) then
6099+ begin
6100+ SelectComboBox.Text := '';
6101+ SelectComboBox.Color := clWindow;
6102+ end;
93616103
93626104 end;
93636105
6106+//板名検索
93646107 procedure TGikoForm.FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
93656108 begin
93666109
@@ -9450,33 +6193,20 @@ begin
94506193 SenderNode := FDropSpaceNode;
94516194
94526195 if Source = FavoriteTreeView then begin
9453-
94546196 SourceNode := FavoriteTreeView.Selected;
94556197 FavoriteMoveTo( SenderNode, SourceNode );
9456-
94576198 end else if Source is TLinkToolButton then begin
9458-
94596199 LinkToolButton := TLinkToolButton( Source );
9460- //ShowMessage(LinkToolButton.Text);
94616200 SourceNode := TreeNodeDataFind( FavoriteTreeView.Items.GetFirstNode, LinkToolButton.Data );
94626201 FavoriteMoveTo( SenderNode, SourceNode );
9463-
94646202 end else if Source = BrowserTab then begin
9465-
94666203 idx := BrowserTab.TabIndex;
94676204 FavoriteAddTo( SenderNode, BrowserTab.Tabs.Objects[idx] );
94686205 end else if Source = ListView then begin
9469-
94706206 FavoriteAddTo( SenderNode, ListView.Selected.Data );
9471-
94726207 end else if Source = TreeView then begin
9473-
94746208 FavoriteAddTo( SenderNode, TreeView.Selected.Data );
9475-
94766209 end;
9477-
9478-
9479-
94806210 end;
94816211
94826212 procedure TGikoForm.FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
@@ -9520,12 +6250,12 @@ begin
95206250 VK_F2:
95216251 begin
95226252 FClickNode := FavoriteTreeView.Selected;
9523- FavoriteTreeViewRenameActionExecute( Sender );
6253+ GikoDM.FavoriteTreeViewRenameActionExecute( Sender );
95246254 end;
95256255 VK_DELETE:
95266256 begin
95276257 FClickNode := FavoriteTreeView.Selected;
9528- FavoriteTreeViewDeleteActionExecute( Sender );
6258+ GikoDM.FavoriteTreeViewDeleteActionExecute( Sender );
95296259 end;
95306260 VK_RETURN:
95316261 begin
@@ -9580,8 +6310,6 @@ begin
95806310 FavoriteTreeDeletePopupMenu.Visible := False;
95816311 FavoriteTreeRenamePopupMenu.Visible := False;
95826312 FavoriteTreeNewFolderPopupMenu.Visible := False;
9583- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9584- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
95856313 FavoriteTreeURLCopyPopupMenu.Visible := False;
95866314 FavoriteTreeNameCopyPopupMenu.Visible := False;
95876315 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9592,8 +6320,6 @@ begin
95926320 FavoriteTreeDeletePopupMenu.Visible := False;
95936321 FavoriteTreeRenamePopupMenu.Visible := False;
95946322 FavoriteTreeNewFolderPopupMenu.Visible := True;
9595- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9596- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
95976323 FavoriteTreeURLCopyPopupMenu.Visible := False;
95986324 FavoriteTreeNameCopyPopupMenu.Visible := True;
95996325 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9604,8 +6330,6 @@ begin
96046330 FavoriteTreeDeletePopupMenu.Visible := True;
96056331 FavoriteTreeRenamePopupMenu.Visible := False;
96066332 FavoriteTreeNewFolderPopupMenu.Visible := True;
9607- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9608- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96096333 FavoriteTreeURLCopyPopupMenu.Visible := False;
96106334 FavoriteTreeNameCopyPopupMenu.Visible := True;
96116335 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9616,8 +6340,6 @@ begin
96166340 FavoriteTreeDeletePopupMenu.Visible := True;
96176341 FavoriteTreeRenamePopupMenu.Visible := True;
96186342 FavoriteTreeNewFolderPopupMenu.Visible := True;
9619- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9620- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96216343 FavoriteTreeURLCopyPopupMenu.Visible := False;
96226344 FavoriteTreeNameCopyPopupMenu.Visible := True;
96236345 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9628,8 +6350,6 @@ begin
96286350 FavoriteTreeDeletePopupMenu.Visible := True;
96296351 FavoriteTreeRenamePopupMenu.Visible := True;
96306352 FavoriteTreeNewFolderPopupMenu.Visible := True;
9631- //FavoriteTreeBrowseBoardPopupMenu.Visible := True;
9632- //FavoriteTreeBrowseThreadPopupMenu.Visible := True;
96336353 FavoriteTreeURLCopyPopupMenu.Visible := True;
96346354 FavoriteTreeNameCopyPopupMenu.Visible := True;
96356355 FavoriteTreeNameURLCopyPopupMenu.Visible := True;
@@ -9640,8 +6360,6 @@ begin
96406360 FavoriteTreeDeletePopupMenu.Visible := True;
96416361 FavoriteTreeRenamePopupMenu.Visible := True;
96426362 FavoriteTreeNewFolderPopupMenu.Visible := True;
9643- //FavoriteTreeBrowseBoardPopupMenu.Visible := True;
9644- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96456363 FavoriteTreeURLCopyPopupMenu.Visible := True;
96466364 FavoriteTreeNameCopyPopupMenu.Visible := True;
96476365 FavoriteTreeNameURLCopyPopupMenu.Visible := True;
@@ -9652,8 +6370,6 @@ begin
96526370 FavoriteTreeDeletePopupMenu.Visible := False;
96536371 FavoriteTreeRenamePopupMenu.Visible := False;
96546372 FavoriteTreeNewFolderPopupMenu.Visible := False;
9655- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9656- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96576373 FavoriteTreeURLCopyPopupMenu.Visible := False;
96586374 FavoriteTreeNameCopyPopupMenu.Visible := False;
96596375 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9663,99 +6379,6 @@ begin
96636379
96646380 end;
96656381
9666-procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject);
9667-const
9668- DEL_LINK_MSG = '“リンク”はリンクバー用フォルダです。削除してよろしいですか?';
9669- DEL_MSG = '“^0”を削除します。よろしいですか?';
9670- DEL_TITLE = '削除確認';
9671-begin
9672-
9673- if FClickNode = nil then
9674- Exit;
9675- if FClickNode.IsFirstNode then
9676- Exit;
9677- if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then begin
9678- if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin
9679- if MsgBox(Handle, DEL_LINK_MSG, DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
9680- Exit;
9681- end else begin
9682- if MsgBox(Handle, StringReplace( DEL_MSG, '^0', FClickNode.Text, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
9683- Exit;
9684- end;
9685- end;
9686-
9687- //FDeleteList.Add(FClickNode.Data);
9688- //SetDeleteItemList(FClickNode);
9689-
9690- FClickNode.Delete;
9691-
9692- SetLinkBar;
9693-
9694-end;
9695-
9696-procedure TGikoForm.FavoriteTreeViewRenameActionExecute(Sender: TObject);
9697-var
9698- node : TTreeNode;
9699-begin
9700-
9701- if FClickNode = nil then
9702- Exit;
9703- if FClickNode.IsFirstNode then
9704- Exit;
9705- if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then
9706- Exit;
9707- FavoriteTreeView.ReadOnly := False;
9708- if (FTreeType = gttFavorite) and (CabinetPanel.Visible) then begin
9709- node := FClickNode.Parent;
9710- while node <> nil do begin
9711- node.Expanded := True;
9712- node := node.Parent;
9713- end;
9714- FClickNode.EditText;
9715- end else begin
9716- FClickNode.Text := InputBox( '名前の変更', 'お気に入りの新しい名前を入力してください', FClickNode.Text );
9717- end;
9718-
9719- SetLinkBar;
9720-
9721-end;
9722-
9723-procedure TGikoForm.FavoriteTreeViewNewFolderActionExecute(
9724- Sender: TObject);
9725-var
9726- NewFavFolder: TFavoriteFolder;
9727- Node: TTreeNode;
9728-begin
9729-
9730- if FClickNode = nil then
9731- Exit;
9732-
9733- try
9734- if not (TObject(FClickNode.Data) is TFavoriteFolder) then begin
9735- FavoriteTreeView.Selected := FClickNode.Parent;
9736- FClickNode := FClickNode.Parent;
9737- end;
9738-
9739- NewFavFolder := TFavoriteFolder.Create;
9740- Node := FavoriteTreeView.Items.AddChildObject(FClickNode, '新しいフォルダ', NewFavFolder);
9741- Node.ImageIndex := 14;
9742- Node.SelectedIndex := 14;
9743- // FClickNode.Selected.Expanded := True;
9744- FavoriteTreeView.Selected := Node;
9745- FClickNode := Node;
9746- FavoriteTreeViewRenameAction.Execute;
9747- finally
9748- end;
9749-
9750-end;
9751-
9752-procedure TGikoForm.ToolButton19Click(Sender: TObject);
9753-begin
9754-
9755- FavoriteArrangeActionExecute( nil );
9756-
9757-end;
9758-
97596382 procedure TGikoForm.FavoriteBrowseFolder( node: TTreeNode );
97606383 var
97616384 i: Integer;
@@ -9774,192 +6397,27 @@ begin
97746397
97756398 end;
97766399
9777-procedure TGikoForm.FavoriteTreeViewBrowseFolderActionExecute(
9778- Sender: TObject);
9779-begin
9780-
9781- FavoriteBrowseFolder( FClickNode );
9782- //BrowserTab.OnChange(nil);
9783-
9784-end;
9785-
97866400 procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
9787-begin
9788-
9789- FClickNode := FavoriteTreeView.Selected;
9790- FavoriteTreeViewReloadActionExecute( Sender );
9791-
9792-end;
9793-
9794-procedure TGikoForm.FavoriteTreeViewLogDeleteActionExecute(
9795- Sender: TObject);
9796-const
9797- DEL_MSG = '“^0”のログを削除します。よろしいですか?';
9798- DEL_TITLE = '削除確認';
9799-var
9800- ThreadItem: TThreadItem;
9801- FavThread: TFavoriteThreadItem;
9802-begin
9803-
9804- if FClickNode = nil then Exit;
9805- if not (TObject(FClickNode.Data) is TFavoriteThreadItem) then Exit;
9806-
9807- FavThread := TFavoriteThreadItem( FClickNode.Data );
9808- ThreadItem := FavThread.Item;
9809-
9810- try
9811- if GikoSys.Setting.DeleteMsg then begin
9812- if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
9813- if MsgBox(Handle, StringReplace( DEL_MSG, '^0', FClickNode.Text, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
9814- Exit;
9815- end;
9816-
9817- DeleteHistory(ThreadItem);
9818- DeleteTab(ThreadItem);
9819- ThreadItem.DeleteLogFile;
9820-
9821- ListView.Refresh;
9822- finally
9823- end;
9824-
9825-end;
9826-
9827-procedure TGikoForm.FavoriteTreeViewReloadActionExecute(Sender: TObject);
9828-var
9829- ThreadItem: TThreadItem;
9830- FavThread: TFavoriteThreadItem;
9831- Board: TBoard;
9832- FavBoard: TFavoriteBoardItem;
9833- shiftDown: Boolean;
9834-begin
9835-
9836- if FClickNode = nil then Exit;
9837-
9838- shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
9839-
9840- if TObject( FClickNode.Data ) is TFavoriteThreadItem then begin
9841- FavThread := TFavoriteThreadItem( FClickNode.Data );
9842- ThreadItem := FavThread.Item;
9843- if ThreadItem <> nil then
9844- DownloadContent(ThreadItem, shiftDown);
9845- end else if TObject( FClickNode.Data ) is TFavoriteBoardItem then begin
9846- FavBoard := TFavoriteBoardItem( FClickNode.Data );
9847- Board := FavBoard.Item;
9848- DownloadList(Board, shiftDown);
9849- end;
9850-
9851-end;
9852-
9853-procedure TGikoForm.FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
98546401 var
9855- FavThread : TFavoriteThreadItem;
9856- FavBoard : TFavoriteBoardItem;
9857- s : string;
6402+ mousePoint : TPoint;
6403+ item : TTreeNode;
6404+ rect : TRect;
98586405 begin
9859-
9860- if FClickNode = nil then Exit;
9861-
9862- if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
9863-
9864- FavThread := TFavoriteThreadItem( FClickNode.Data );
9865- s := FavThread.URL + #13#10;
9866- if s <> '' then
9867- Clipboard.AsText := s;
9868-
9869- end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin
9870-
9871- FavBoard := TFavoriteBoardItem( FClickNode.Data );
9872- s := FavBoard.URL + #13#10;
9873- if s <> '' then
9874- Clipboard.AsText := s;
9875-
9876- end;
9877-
9878-end;
9879-
9880-procedure TGikoForm.FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
9881-var
9882- ThreadItem: TThreadItem;
9883- FavThread: TFavoriteThreadItem;
9884- Board: TBoard;
9885- FavBoard: TFavoriteBoardItem;
9886- s: string;
9887-begin
9888-
9889- if FClickNode = nil then Exit;
9890-
9891- if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
9892-
9893- FavThread := TFavoriteThreadItem( FClickNode.Data );
9894- ThreadItem := FavThread.Item;
9895-
9896- try
9897- s := ThreadItem.Title + #13#10;
9898- if s <> '' then
9899- Clipboard.AsText := s;
9900- finally
9901- end;
9902-
9903- end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin
9904-
9905- FavBoard := TFavoriteBoardItem( FClickNode.Data );
9906- Board := FavBoard.Item;
9907- if Board <> nil then
9908- if not Board.IsThreadDatRead then
9909- GikoSys.ReadSubjectFile(Board);
9910-
9911- try
9912- s := Board.Title + #13#10;
9913- if s <> '' then
9914- Clipboard.AsText := s;
9915- finally
9916- end;
9917-
9918- end;
9919-
9920-end;
9921-
9922-procedure TGikoForm.FavoriteTreeViewNameURLCopyActionExecute(
9923- Sender: TObject);
9924-var
9925- ThreadItem: TThreadItem;
9926- FavThread: TFavoriteThreadItem;
9927- Board: TBoard;
9928- FavBoard: TFavoriteBoardItem;
9929- s: string;
9930-begin
9931-
9932- if FClickNode = nil then Exit;
9933-
9934- if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
9935-
9936- FavThread := TFavoriteThreadItem( FClickNode.Data );
9937- ThreadItem := FavThread.Item;
9938-
9939- try
9940- s := ThreadItem.Title + #13#10 + ThreadItem.URL + #13#10;
9941- if s <> '' then
9942- Clipboard.AsText := s;
9943- finally
9944- end;
9945-
9946- end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin
9947-
9948- FavBoard := TFavoriteBoardItem( FClickNode.Data );
9949- Board := FavBoard.Item;
9950- if Board <> nil then
9951- if not Board.IsThreadDatRead then
9952- GikoSys.ReadSubjectFile(Board);
9953-
9954- try
9955- s := Board.Title + #13#10 + Board.URL + #13#10;
9956- if s <> '' then
9957- Clipboard.AsText := s;
9958- finally
6406+ mousePoint := Mouse.CursorPos;
6407+ mousePoint := FavoriteTreeView.ScreenToClient(mousePoint);
6408+ item := FavoriteTreeView.GetNodeAt(mousePoint.X, mousePoint.Y);
6409+ //選択したアイテムと同じかチェック
6410+ if item = FavoriteTreeView.Selected then begin
6411+ //表示している範囲と同じところかチェック
6412+ rect := item.DisplayRect(true);
6413+ //イメージ分左に伸ばす
6414+ rect.Left := rect.Left - FavoriteTreeView.Images.Width;
6415+ if ((mousePoint.X >= rect.Left) and (mousePoint.X <= rect.Right)) and
6416+ ((mousePoint.Y >= rect.Top) and (mousePoint.Y <= rect.Bottom)) then begin
6417+ FClickNode := FavoriteTreeView.Selected;
6418+ GikoDM.FavoriteTreeViewReloadActionExecute( Sender );
99596419 end;
9960-
99616420 end;
9962-
99636421 end;
99646422
99656423 function TGikoForm.TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
@@ -10019,11 +6477,11 @@ begin
100196477 //*)
100206478 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
100216479 if GikoSys.Setting.ListWidthState = glsMin then begin
10022- BrowserMaxAndFocusAction.Execute;
6480+ GikoDM.BrowserMaxAndFocusAction.Execute;
100236481 end;
100246482 end else begin
100256483 if GikoSys.Setting.ListHeightState = glsMin then begin
10026- BrowserMaxAndFocusAction.Execute;
6484+ GikoDM.BrowserMaxAndFocusAction.Execute;
100276485 end;
100286486 end;
100296487 end;
@@ -10037,16 +6495,6 @@ begin
100376495
100386496 end;
100396497
10040-procedure TGikoForm.ResRangeActionExecute(Sender: TObject);
10041-begin
10042- case FResRangeMenuSelect of
10043- Ord( grrAll ): AllResAction.Execute;
10044- Ord( grrKoko ): OnlyKokoResAction.Execute;
10045- Ord( grrNew ): OnlyNewResAction.Execute;
10046- 100: OnlyAHundredResAction.Execute;
10047- end;
10048-end;
10049-
100506498 procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
100516499 Y: Integer);
100526500 begin
@@ -10087,73 +6535,17 @@ procedure TGikoForm.BrowserCoolBarContextPopup(Sender: TObject;
100876535 begin
100886536
100896537 FToolBarSettingSender := tssBrowser;
10090- MousePos := BrowserCoolBar.ClientToScreen( MousePos );
10091- MainCoolBarPopupMenu.Popup( MousePos.X, MousePos.Y );
10092-
10093-end;
10094-procedure TGikoForm.ExportFavoriteFileAccept(Sender: TObject);
10095-begin
10096-
10097- if FavoriteDM.SaveFavoriteFile( ExportFavoriteFile.Dialog.FileName ) Then begin
10098- ShowMessage('ファイルを出力しました');
10099- end else begin
10100- ShowMessage('ファイルの出力に失敗しました');
10101- end;
10102-end;
10103-procedure TGikoForm.SetListViewBackGroundColor(value: TColor);
10104-begin
10105- if FListViewBackGroundColor <> value then begin
10106- FListViewBackGroundColor := value;
10107- ListView.Color := FListViewBackGroundColor;
10108- end;
10109-end;
10110-procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject);
10111-begin
10112- ExportFavoriteFile.Dialog.FileName := FavoriteDM.GetFavoriteFilePath;
10113-end;
10114-
10115-procedure TGikoForm.CabinetBBSActionExecute(Sender: TObject);
10116-begin
10117-
10118- if CabinetPanel.Visible then begin
10119- if FTreeType = gtt2ch then begin
10120- CabinetVisible( False );
10121-
10122- CabinetBBSAction.Checked := False;
10123- end else begin
10124- CabinetBBSAction.Checked := True;
10125- end;
10126- end else begin
10127- CabinetVisible( True );
10128- CabinetBBSAction.Checked := True;
10129- end;
10130-
10131- if FActiveBBS = nil then
10132- ShowBBSTree( BBSs[ 0 ] )
10133- else
10134- ShowBBSTree( FActiveBBS );
10135-
10136-end;
10137-
10138-procedure TGikoForm.FavoriteTreeViewBrowseThreadActionExecute(
10139- Sender: TObject);
10140-var
10141- threadItem : TThreadItem;
10142-begin
10143-
10144- if FClickNode = nil then Exit;
10145-
10146- if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
10147-
10148- threadItem := TFavoriteThreadItem( FClickNode.Data ).Item;
10149- if threadItem = nil then
10150- Exit;
10151- GikoSys.OpenBrowser( threadItem.URL, gbtAuto );
6538+ MousePos := BrowserCoolBar.ClientToScreen( MousePos );
6539+ MainCoolBarPopupMenu.Popup( MousePos.X, MousePos.Y );
101526540
6541+end;
6542+procedure TGikoForm.SetListViewBackGroundColor(value: TColor);
6543+begin
6544+ if FListViewBackGroundColor <> value then begin
6545+ FListViewBackGroundColor := value;
6546+ ListView.Color := FListViewBackGroundColor;
101536547 end;
10154-
101556548 end;
10156-
101576549 procedure TGikoForm.FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
101586550 var
101596551 threadItem : TThreadItem;
@@ -10180,13 +6572,6 @@ begin
101806572
101816573 end;
101826574
10183-procedure TGikoForm.UpBoardActionExecute(Sender: TObject);
10184-begin
10185-
10186- SelectTreeNode( GetActiveContent.ParentBoard, True );
10187-
10188-end;
10189-
101906575 procedure TGikoForm.BrowserTabContextPopup(Sender: TObject;
101916576 MousePos: TPoint; var Handled: Boolean);
101926577 var
@@ -10197,13 +6582,8 @@ begin
101976582 BrowserTab.TabIndex := idx;
101986583 BrowserTab.OnChange(nil);
101996584 end;
10200-
102016585 end;
102026586
10203-procedure TGikoForm.KoreCopyExecute(Sender: TObject);
10204-begin
10205- KonoresCopy(KokoPopupMenu.Tag, true);
10206-end;
102076587 procedure TGikoForm.KonoresCopy(Number: Integer; ReplaceTag : Boolean);
102086588 var
102096589 ThreadItem: TThreadItem;
@@ -10426,13 +6806,13 @@ begin
104266806 if TObject( Node.Data ) is TBoard then begin // not TCategory
104276807 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
104286808 if GikoSys.Setting.ListWidthState = glsMax then begin
10429- BrowserMinAction.Execute;
6809+ GikoDM.BrowserMinAction.Execute;
104306810 if GikoForm.Visible then
104316811 ListView.SetFocus;
104326812 end;
104336813 end else begin
104346814 if GikoSys.Setting.ListHeightState = glsMax then begin
10435- BrowserMinAction.Execute;
6815+ GikoDM.BrowserMinAction.Execute;
104366816 if GikoForm.Visible then
104376817 ListView.SetFocus;
104386818 end;
@@ -10483,43 +6863,6 @@ begin
104836863 end;
104846864 end;
104856865
10486-
10487-// ギコナビのメッセージループを横取りします
10488-procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
10489-//var
10490-// key : Word;
10491-begin
10492- case Msg.message of
10493- {WM_KEYDOWN:
10494- if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
10495- if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin
10496- key := Msg.wParam;
10497- Handled := BrowserKeyDown( Msg, key, KeyDataToShiftState( Msg.lParam ) );
10498- end;
10499- end;}
10500-
10501- WM_XBUTTONDOWN:
10502- case Msg.wParam shr 16 of
10503- XBUTTON1:
10504- begin
10505- if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
10506- if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin
10507- UpBoardAction.Execute;
10508- Handled := True;
10509- end;
10510- end;
10511- if not Handled then begin
10512- if IsDialogMessage( ListView.Handle, Msg ) then begin
10513- UpFolderAction.Execute;
10514- Handled := True;
10515- end;
10516- end;
10517- end;
10518- XBUTTON2:
10519- end;
10520- end;
10521-end;
10522-
105236866 procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
105246867 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
105256868 var
@@ -10591,24 +6934,26 @@ begin
105916934
105926935 end;
105936936
10594-procedure TGikoForm.TreeSelectNameCopyExecute(Sender: TObject);
10595-var
10596- s: string;
10597-begin
10598- TreeView.Selected := FClickNode;
10599- s := FClickNode.Text;
10600- Clipboard.AsText := s;
10601-end;
10602-
106036937 procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;
106046938 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
6939+var
6940+ item : TTreeNode;
6941+ rect : TRect;
106056942 begin
10606-
106076943 if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and
106086944 (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin
10609- FavoriteClick( TObject( FavoriteTreeView.Selected ) );
6945+ item := FavoriteTreeView.GetNodeAt(X, Y);
6946+ if item = FavoriteTreeView.Selected then begin
6947+ //イメージ範囲を取得
6948+ rect := FavoriteTreeView.Selected.DisplayRect(true);
6949+ //アイコン分左に伸ばす
6950+ rect.Left := rect.Left - FavoriteTreeView.Images.Width;
6951+ if ((X >= rect.Left) and (X <= rect.Right)) and
6952+ ((Y >= rect.Top) and (Y <= rect.Bottom)) then begin
6953+ FavoriteClick( TObject( FavoriteTreeView.Selected ) );
6954+ end;
6955+ end;
106106956 end;
10611-
106126957 end;
106136958
106146959 destructor TBrowserRecord.Destroy;
@@ -10663,7 +7008,7 @@ begin
106637008 stlist := TStringList.Create;
106647009 try
106657010 stList.DelimitedText := AID;
10666- AID := '';
7011+ AID := '';
106677012 for i := 0 to stList.Count - 1 do
106687013 if Length(WideString(stList[i])) = 8 then begin
106697014 if GikoSys.NotDateorTimeString(stList[i]) then begin
@@ -10695,75 +7040,8 @@ begin
106957040 end;
106967041
106977042
10698-procedure TGikoForm.SetFocusForBrowserActionExecute(Sender: TObject);
10699-begin
10700- FActiveContent.FBrowser.SetFocus;
10701-end;
10702-//ブラウザがあって、NULLタブ用のなければ有効になるActionで共通
10703-procedure TGikoForm.SetFocusForBrowserActionUpdate(Sender: TObject);
10704-begin
10705-{$IFDEF ACTCHK}
10706- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
10707- if (Sender <> nil) and (Sender is TAction) then begin
10708-{$ENDIF}
10709- if( FActiveContent <> nil) and (FActiveContent.Browser <> nil) and
10710- (FActiveContent.Browser <> BrowserNullTab.Browser) then
10711- TAction(Sender).Enabled := true
10712- else
10713- TAction(Sender).Enabled := false;
10714-{$IFDEF ACTCHK}
10715- end;
10716-{$ENDIF}
10717-end;
10718-
10719-procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject);
10720-begin
10721- if FActiveContent <> nil then
10722- WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある
10723- ListView.SetFocus;
10724-
10725- if( ListView.Items.Count > 0 ) and (ListView.ItemFocused = nil) then
10726- ListView.Items.Item[0].Selected := true; //選択アイテムが無いときは先頭のを選択する
10727-
10728- //スクロールさせる
10729- if (ListView.ItemFocused <> nil) then begin
10730- ListView.ItemFocused.MakeVisible(False);
10731- end;
10732-end;
10733-
10734-procedure TGikoForm.SetFocusForCabinetActionExecute(Sender: TObject);
10735-begin
10736- if FActiveContent <> nil then
10737- WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある
10738- if TreeView.Visible then begin
10739- TreeView.SetFocus;
10740- if(TreeView.Items.Count > 0) and ( TreeView.Selected = nil ) then
10741- TreeView.Items.Item[0].Selected := true;
10742- end else if FavoriteTreeView.Visible then begin
10743- FavoriteTreeView.SetFocus;
10744- if(FavoriteTreeView.Items.Count > 0) and (FavoriteTreeView.Selected = nil) then
10745- FavoriteTreeView.Items.Item[0].Selected := true;
10746- end;
10747-end;
10748-procedure TGikoForm.SetFocusForCabinetActionUpdate(Sender: TObject);
10749-begin
10750- SetFocusForCabinetAction.Enabled := CabinetPanel.Visible;
10751-end;
10752-
10753-//ブラウザを最大化してフォーカスを当てる。
10754-procedure TGikoForm.BrowserMaxAndFocusActionExecute(Sender: TObject);
10755-begin
10756- BrowserMaxAction.Execute;
10757- SetFocusForBrowserAction.Execute;
10758-end;
107597043
107607044 //スレッド一覧を最大化してフォーカスを当てる
10761-procedure TGikoForm.ThreadlistMaxAndFocusActionExecute(Sender: TObject);
10762-begin
10763- BrowserMinAction.Execute;
10764- SetFocusForThreadListAction.Execute;
10765-end;
10766-
107677045 procedure TGikoForm.SelectTimerTimer(Sender: TObject);
107687046 begin
107697047 SelectTimer.Interval := 0;
@@ -10774,219 +7052,6 @@ begin
107747052 end;
107757053 end;
107767054
10777-procedure TGikoForm.SelectItemSaveForDatExecute(Sender: TObject);
10778-var
10779- List: TList;
10780- i: Integer;
10781-begin
10782- List := TList.Create;
10783- try
10784- Screen.Cursor := crHourGlass;
10785- SelectListItem(List);
10786- if ((GikoSys.Setting.ListOrientation = gloVertical) and
10787- (GikoSys.Setting.ListHeightState = glsMax)) or
10788- ((GikoSys.Setting.ListOrientation = gloHorizontal) and
10789- (GikoSys.Setting.ListWidthState = glsMax)) then
10790- ShowMessage('スレッド一覧を表示してください')
10791- else if(List.Count = 0) then
10792- ShowMessage('スレッドを選択してください')
10793- else begin
10794- FileSaveAs1.Dialog.Title := '選択スレッドをdatのまま保存';
10795- FileSaveAs1.Dialog.Filter := 'DATファイル(*.dat)|*.dat';
10796- for i := 0 to List.Count - 1 do begin
10797- if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin
10798- FileSaveAs1.Dialog.FileName := TThreadItem(List[i]).FileName;
10799- if FileSaveAs1.Dialog.Execute then begin
10800- CopyFile(PChar(TThreadItem(List[i]).FilePath),
10801- PChar(FileSaveAs1.Dialog.FileName), true);
10802- end;
10803- end;
10804- end;
10805- end;
10806- finally
10807- Screen.Cursor := crDefault;
10808- List.Free;
10809- end;
10810-
10811-end;
10812-
10813-procedure TGikoForm.SelectItemSaveForHTMLExecute(Sender: TObject);
10814-var
10815- List: TList;
10816- i: Integer;
10817- html: TStringList;
10818- title: string;
10819-begin
10820- List := TList.Create;
10821- try
10822- Screen.Cursor := crHourGlass;
10823- SelectListItem(List);
10824- if ((GikoSys.Setting.ListOrientation = gloVertical) and
10825- (GikoSys.Setting.ListHeightState = glsMax)) or
10826- ((GikoSys.Setting.ListOrientation = gloHorizontal) and
10827- (GikoSys.Setting.ListWidthState = glsMax)) then
10828- ShowMessage('スレッド一覧を表示してください')
10829- else if(List.Count = 0) then
10830- ShowMessage('スレッドを選択してください')
10831- else begin
10832- FileSaveAs1.Dialog.Title := '選択スレッドをHTML化して保存';
10833- FileSaveAs1.Dialog.Filter := 'HTMLファイル(*.html)|*.html';
10834- for i := 0 to List.Count - 1 do begin
10835- if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin
10836- FileSaveAs1.Dialog.FileName := ReplaseNoValidateChar(TThreadItem(List[i]).Title) + '.html';
10837- if FileSaveAs1.Dialog.Execute then begin
10838- html := TStringList.Create;
10839- title := TThreadItem(List[i]).Title;
10840- try
10841- HTMLCreater.CreateHTML3(html, TThreadItem(List[i]), title);
10842- html.SaveToFile(FileSaveAs1.Dialog.FileName);
10843- SkinorCSSFilesCopy(ExtractFilePath(FileSaveAs1.Dialog.FileName));
10844- finally
10845- html.Free;
10846- end;
10847- end;
10848- end;
10849- end;
10850- end;
10851- finally
10852- Screen.Cursor := crDefault;
10853- List.Free;
10854- end;
10855-end;
10856-procedure TGikoForm.SkinorCSSFilesCopy(path: string);
10857-var
10858- tmp, tmpD, tmpF: string;
10859- current: string;
10860- dirs: TStringList;
10861- files: TStringList;
10862- i, j: Integer;
10863-begin
10864- if GikoSys.Setting.UseSkin then begin
10865- current := ExtractFilePath(GikoSys.GetSkinDir);
10866- tmp := GikoSys.Setting.CSSFileName;
10867- end else if GikoSys.Setting.UseCSS then begin
10868- current := ExtractFilePath(GikoSys.GetStyleSheetDir);
10869- tmp := ExtractFilePath(GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName);
10870- end;
10871- dirs := TStringList.Create;
10872- try
10873- dirs.Add(tmp);
10874- if tmp <> current then begin
10875- GikoSys.GetDirectoryList(current, '*.*', dirs, true);
10876- for i := 0 to dirs.Count - 1 do begin
10877- files := TStringList.Create;
10878- try
10879- files.BeginUpdate;
10880- gikoSys.GetFileList(dirs[i], '*.*', files, true);
10881- files.EndUpdate;
10882- tmpD := CustomStringReplace(dirs[i], GikoSys.GetConfigDir, path);
10883- if (AnsiPos(dirs[i], tmp) <> 0) and not (DirectoryExists(tmpD)) then
10884- ForceDirectories(tmpD);
10885-
10886- if(dirs[i] = tmp) and (dirs[i] <> current) then begin
10887- for j := 0 to files.Count - 1 do begin
10888- tmpF := CustomStringReplace(files[j], GikoSys.GetConfigDir, path);
10889- if not FileExists(tmpF) then begin
10890- CopyFile(PChar(files[j]), PChar(tmpF),True);
10891- end;
10892- end;
10893- end;
10894- finally
10895- files.Free;
10896- end;
10897- end;
10898- end else begin
10899- tmpD := CustomStringReplace(dirs[0], GikoSys.GetConfigDir, path);
10900- if not DirectoryExists(tmpD) then
10901- ForceDirectories(tmpD);
10902- tmpF := CustomStringReplace(GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName
10903- , GikoSys.GetConfigDir, path);
10904- if not FileExists(tmpF) then begin
10905- CopyFile(PChar(GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName)
10906- , PChar(tmpF), True);
10907- end;
10908- end;
10909- finally
10910- dirs.Free;
10911- end;
10912-
10913-
10914-end;
10915-procedure TGikoForm.KidokuActionExecute(Sender: TObject);
10916-var
10917- List: TList;
10918- i: Integer;
10919-begin
10920- List := TList.Create;
10921- try
10922- SelectListItem(List);
10923- for i := 0 to List.Count - 1 do begin
10924- if TObject(List[i]) is TThreadItem then begin
10925- if (TThreadItem(List[i]).UnRead) then begin
10926- TThreadItem(List[i]).UnRead := false;
10927- TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1;
10928- end;
10929- end;
10930- end;
10931- if TreeView.Visible then
10932- TreeView.Refresh;
10933- if ListView.Visible then
10934- ListView.Refresh;
10935- finally
10936- List.Free;
10937- end;
10938-end;
10939-
10940-procedure TGikoForm.MidokuActionExecute(Sender: TObject);
10941-var
10942- List: TList;
10943- i: Integer;
10944-begin
10945- List := TList.Create;
10946- try
10947- SelectListItem(List);
10948- for i := 0 to List.Count - 1 do begin
10949- if TObject(List[i]) is TThreadItem then begin
10950- if (TThreadItem(List[i]).IsLogFile) and (not TThreadItem(List[i]).UnRead) then begin
10951- TThreadItem(List[i]).UnRead := true;
10952- TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1;
10953- end;
10954- end;
10955- end;
10956- if TreeView.Visible then
10957- TreeView.Refresh;
10958- if ListView.Visible then
10959- ListView.Refresh;
10960- finally
10961- List.Free;
10962- end;
10963-end;
10964-
10965-procedure TGikoForm.LogFolderOpenActionExecute(Sender: TObject);
10966-var
10967- List: TList;
10968-begin
10969- if ((GikoSys.Setting.ListOrientation = gloVertical) and
10970- (GikoSys.Setting.ListHeightState = glsMax)) or
10971- ((GikoSys.Setting.ListOrientation = gloHorizontal) and
10972- (GikoSys.Setting.ListWidthState = glsMax)) then begin
10973- if(GetActiveContent <> nil) then begin
10974- GikoSys.CreateProcess('explorer.exe', '/e,"' + ExtractFilePath(GetActiveContent.FilePath) + '"');
10975- end;
10976- end else if GetActiveList is TCategory then begin
10977- List := TList.Create;
10978- try
10979- SelectListItem(List);
10980- GikoSys.CreateProcess('explorer.exe', '/e,"' + ExtractFilePath(TBoard(List[0]).FilePath) + '"');
10981- finally
10982- List.Free;
10983- end;
10984- end else if GetActiveList is TBoard then begin
10985- GikoSys.CreateProcess('explorer.exe', '/e,"' + ExtractFilePath(TBoard(GetActiveList).FilePath) + '"');
10986- end;
10987-
10988-end;
10989-
109907055 function TGikoForm.GetTabURLs(AStringList: TStringList) : Boolean;
109917056 var
109927057 rec : TBrowserRecord;
@@ -11006,17 +7071,6 @@ begin
110067071 Result := True;
110077072 end;
110087073
11009-procedure TGikoForm.TabsSaveActionExecute(Sender: TObject);
11010-begin
11011-
11012- if not SaveTabURLs then begin
11013- if TabsSaveAction.Tag = 0 then
11014- ShowMessage('保存するタブがありません')
11015- else if TabsSaveAction.Tag = 1 then
11016- GikoForm.TabsOpenAction.Tag := -1;
11017- end;
11018-end;
11019-
110207074 function TGikoForm.SaveTabURLs : Boolean;
110217075 const
110227076 Filename = 'tab.sav';
@@ -11044,16 +7098,6 @@ begin
110447098 end;
110457099 end;
110467100
11047-procedure TGikoForm.TabsOpenActionExecute(Sender: TObject);
11048-begin
11049- if TabsOpenAction.Tag <> -1 then begin
11050- if not LoadTabURLs then begin
11051- if TabsOpenAction.Tag = 0 then
11052- ShowMessage('表示するタブがありません。');
11053- end;
11054- end;
11055-end;
11056-
110577101 function TGikoForm.LoadTabURLs : Boolean;
110587102 var
110597103 i, bound : Integer;
@@ -11087,158 +7131,23 @@ begin
110877131 item := BBSsFindThreadFromURL( URLs[ i ] );
110887132 if item <> nil then
110897133 InsertBrowserTab( item, false );
11090- end;
11091- end else
11092- Result := False;
11093- end else
11094- Result := False;
11095- except
11096- on EFOpenError do begin
11097- ShowMessage('タブファイルが開けません');
11098- end;
11099- end;
11100- finally
11101- GikoSys.Setting.BrowserTabAppend := GikoTab;
11102- URLs.Free;
11103- end;
11104-
11105-end;
11106-
11107-procedure TGikoForm.OnlyAHundredResActionExecute(Sender: TObject);
11108-var
11109- FilterList : TStringList;
11110-begin
11111- if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
11112- and (FActiveContent.FBrowser.Busy) then Exit;
11113-
11114- FResRangeMenuSelect := 100;
11115- OnlyAHundredResAction.Checked := True;
11116-
11117- if GikoSys.ResRange <> 100 then begin
11118- GikoSys.ResRange := 100;
11119-
11120- // フィルタ文字列を空にする
11121- FilterList := TStringList.Create;
11122- try
11123- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
11124- GikoSys.FSelectResFilter.Reverse := False;
11125- finally
11126- FilterList.Free;
11127- end;
11128-
11129- FSelectResWord := '';
11130- RepaintAllTabsBrowser();
11131- end;
11132-end;
11133-
11134-procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject);
11135-var
11136- FilterList : TStringList;
11137-begin
11138- if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
11139- and (FActiveContent.FBrowser.Busy) then Exit;
11140-
11141- FResRangeMenuSelect := Ord( grrKoko );
11142- OnlyKokoResAction.Checked := True;
11143-
11144- if GikoSys.ResRange <> Ord( grrKoko ) then begin
11145- GikoSys.ResRange := Ord( grrKoko );
11146-
11147- // フィルタ文字列を空にする
11148- FilterList := TStringList.Create;
11149- try
11150- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
11151- GikoSys.FSelectResFilter.Reverse := False;
11152- finally
11153- FilterList.Free;
11154- end;
11155-
11156- FSelectResWord := '';
11157- RepaintAllTabsBrowser();
11158- end;
11159-end;
11160-
11161-procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject);
11162-var
11163- FilterList : TStringList;
11164-begin
11165- if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
11166- and (FActiveContent.FBrowser.Busy) then Exit;
11167-
11168- FResRangeMenuSelect := Ord( grrNew );
11169- OnlyNewResAction.Checked := True;
11170-
11171- if GikoSys.ResRange <> Ord( grrNew ) then begin
11172- GikoSys.ResRange := Ord( grrNew );
11173-
11174- // フィルタ文字列を空にする
11175- FilterList := TStringList.Create;
11176- try
11177- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
11178- GikoSys.FSelectResFilter.Reverse := False;
11179- finally
11180- FilterList.Free;
11181- end;
11182-
11183- FSelectResWord := '';
11184- RepaintAllTabsBrowser();
11185- end;
11186-end;
11187-
11188-procedure TGikoForm.BrowsBoradHeadActionExecute(Sender: TObject);
11189-var
11190- RefURL, URL : string;
11191- List : TList;
11192-begin
11193- RefURL := '';
11194- if GetActiveList is TCategory then begin
11195- List := TList.Create;
11196- try
11197- SelectListItem(List);
11198- RefURL := TBoard(List[0]).URL;
11199- finally
11200- List.Free;
11201- end;
11202- end else if GetActiveList is TBoard then begin
11203- RefURL := TBoard(GetActiveList).URL
11204- end;
11205- if RefURL <> '' then begin
11206- if RefURL[Length(RefURL)] <> '/' then
11207- URL := RefURL + '/' + 'head.txt'
11208- else
11209- URL := RefURL + 'head.txt';
11210-
11211- MoveToURL(URL);
11212- end else begin
11213- ShowMessage('板を特定できませんでした。');
11214- end;
11215-
11216-end;
11217-
11218-//NGワードファイルを編集するために開く
11219-procedure TGikoForm.EditNGActionExecute(Sender: TObject);
11220-begin
11221- GikoSys.FAbon.EditNGwords;
11222-end;
11223-
11224-procedure TGikoForm.ThreadRangeActionExecute(Sender: TObject);
11225-begin
11226- case GikoSys.Setting.ThreadRange of
11227- gtrAll: AllItemAction.Execute;
11228- gtrLog: LogItemAction.Execute;
11229- gtrNew: NewItemAction.Execute;
7134+ end;
7135+ end else
7136+ Result := False;
7137+ end else
7138+ Result := False;
7139+ except
7140+ on EFOpenError do begin
7141+ ShowMessage('タブファイルが開けません');
7142+ end;
7143+ end;
7144+ finally
7145+ GikoSys.Setting.BrowserTabAppend := GikoTab;
7146+ URLs.Free;
112307147 end;
11231-end;
112327148
11233-procedure TGikoForm.TabAutoSaveActionExecute(Sender: TObject);
11234-begin
11235- SaveTabURLs;
112367149 end;
112377150
11238-procedure TGikoForm.TabAutoLoadActionExecute(Sender: TObject);
11239-begin
11240- LoadTabURLs;
11241-end;
112427151
112437152 /// ListView のカラム幅および位置の保存
112447153 procedure TGikoForm.ActiveListColumnSave;
@@ -11421,38 +7330,6 @@ begin
114217330
114227331 end;
114237332 //指定した番号のレスにjumpするAction
11424-procedure TGikoForm.JumpToNumOfResActionExecute(Sender: TObject);
11425-var
11426- str: string;
11427- res: integer;
11428-begin
11429- str := '1';
11430- if( InputQuery('指定した番号のレスに飛ぶ', '番号を入力してください', str) ) then begin
11431- str := ZenToHan(str);
11432- res := StrToIntDef(str, -1);
11433- if (res > 0) and (res <= GetActiveContent.Count) then begin
11434- BrowserMovement(IntToStr(res), FActiveContent);
11435- SetFocusForBrowserAction.Execute;
11436- end else if res > GetActiveContent.Count then begin
11437- BrowserMovement(IntToStr(GetActiveContent.Count), FActiveContent);
11438- SetFocusForBrowserAction.Execute;
11439- end;
11440- end;
11441-end;
11442-
11443-procedure TGikoForm.FavoriteTreeViewCollapseActionExecute(Sender: TObject);
11444-var
11445- node : TTreeNode;
11446-begin
11447-
11448- node := FavoriteTreeView.Items.GetFirstNode;
11449- while node <> nil do begin
11450- if node.HasChildren then
11451- node.Expanded := False;
11452- node := node.GetNext;
11453- end;
11454-
11455-end;
114567333 procedure TGikoForm.ReleaseBrowser( BRecord: TBrowserRecord);
114577334 begin
114587335 if BRecord <> nil then begin
@@ -11531,7 +7408,7 @@ begin
115317408 if GikoSys.Setting.GestureEnabled then begin
115327409 GikoSys.Setting.Gestures.ClearGesture;
115337410 GikoSys.Setting.Gestures.LoadGesture(
11534- GikoSys.Setting.GetGestureFileName, ActionList );
7411+ GikoSys.Setting.GetGestureFileName, GikoDM.GikoFormActionList );
115357412 MouseGesture.UnHook;
115367413 MouseGesture.OnGestureStart := OnGestureStart;
115377414 MouseGesture.OnGestureMove := OnGestureMove;
@@ -11654,73 +7531,6 @@ begin
116547531 CoolBarResized( Sender, BrowserCoolBar );
116557532 end;
116567533
11657-procedure TGikoForm.RightTabCloseActionExecute(Sender: TObject);
11658-var
11659- i: Integer;
11660- idx: Integer;
11661-begin
11662- idx := BrowserTab.TabIndex;
11663- if idx = -1 then Exit;
11664- BrowserTab.Tabs.BeginUpdate;
11665- for i := BrowserTab.Tabs.Count - 1 downto idx + 1 do begin
11666- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
11667- BrowserTab.Tabs.Delete(i);
11668- end;
11669- BrowserTab.Tabs.EndUpdate;
11670-end;
11671-//ブラウザタブが2つ以上あれば有効になるアクションで共通化
11672-procedure TGikoForm.RightTabCloseActionUpdate(Sender: TObject);
11673-begin
11674-{$IFDEF ACTCHK}
11675- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
11676- if (Sender <> nil) and (Sender is TAction) then begin
11677-{$ENDIF}
11678- TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 1);
11679-{$IFDEF ACTCHK}
11680- end;
11681-{$ENDIF}
11682-end;
11683-
11684-procedure TGikoForm.LeftTabCloseActionExecute(Sender: TObject);
11685-var
11686- i: Integer;
11687- idx: Integer;
11688-begin
11689- idx := BrowserTab.TabIndex;
11690- if idx = -1 then Exit;
11691- BrowserTab.Tabs.BeginUpdate;
11692- if idx > 0 then begin
11693- for i := idx - 1 downto 0 do begin
11694- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
11695- BrowserTab.Tabs.Delete(i);
11696- end;
11697- end;
11698- BrowserTab.Tabs.EndUpdate;
11699-end;
11700-
11701-procedure TGikoForm.SameIDResAnchorActionExecute(Sender: TObject);
11702-var
11703- ThreadItem : TThreadItem;
11704- No, count, rc : Integer;
11705- body : string;
11706- limited: boolean;
11707-begin
11708- No := KokoPopupMenu.Tag;
11709- if No = 0 then Exit;
11710- ThreadItem := GetActiveContent;
11711- if ThreadItem = nil then Exit;
11712- count := GikoSys.GetSameIDResCount(No, FActiveContent.Thread);
11713- limited := false;
11714- if count > 20 then begin
11715- rc := GikoUtil.MsgBox(Handle,
11716- '20個以上ありますが、すべて表示しますか?',
11717- 'IDポップアップ警告',
11718- MB_YESNO or MB_ICONQUESTION);
11719- limited := rc <> ID_YES;
11720- end;
11721- body := GikoSys.GetSameIDResAnchor(No, ThreadItem, limited);
11722- IDAnchorPopup(body);
11723-end;
117247534 //IDアンカー追加
117257535 procedure TGikoForm.IDAnchorPopup(Abody :string);
117267536 var
@@ -11756,16 +7566,6 @@ begin
117567566 except
117577567 end;
117587568 end;
11759-//このレスあぼ〜ん
11760-procedure TGikoForm.IndividualAbon1ActionExecute(Sender: TObject);
11761-begin
11762- IndividualAbon(KokoPopupMenu.Tag, 1);
11763-end;
11764-//このレス透明あぼ〜ん
11765-procedure TGikoForm.IndividualAbon0ActionExecute(Sender: TObject);
11766-begin
11767- IndividualAbon(KokoPopupMenu.Tag, 0);
11768-end;
117697569
117707570 //このレスあぼ〜ん
117717571 procedure TGikoForm.IndividualAbon(Atag, Atype : Integer);
@@ -11797,106 +7597,6 @@ begin
117977597 InsertBrowserTab( ThreadItem, True );
117987598 end;
117997599
11800-procedure TGikoForm.AntiIndividualAbonActionExecute(Sender: TObject);
11801-var
11802- IndividualForm :TIndividualAbonForm;
11803- ThreadItem : TThreadItem;
11804- msg : String;
11805- ReadList : TStringList;
11806- wordCount : TWordCount;
11807-begin
11808- IndividualForm := TIndividualAbonForm.Create(Self);
11809- try
11810- ThreadItem := GetActiveContent;
11811- ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
11812- if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
11813- if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
11814- ReadList := TStringList.Create;
11815- wordCount := TWordCount.Create;
11816- try
11817-{$IFDEF SPAM_FILTER_ENABLED}
11818- // スパムを解除
11819- ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
11820- GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
11821- GikoSys.SpamForget( wordCount, True ); // スパムを解除
11822- GikoSys.SpamLearn( wordCount, False ); // ハムに設定
11823-{$ENDIF}
11824- if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin
11825- FActiveContent.Repaint := true;
11826- InsertBrowserTab( ThreadItem, True );
11827- end;
11828- finally
11829- wordCount.Free;
11830- ReadList.Free;
11831- end;
11832- end else begin
11833- msg := 'このスレッドでは個別あぼ〜んを行ってません';
11834- MsgBox(Handle, msg, 'メッセージ', MB_OK);
11835- end;
11836- end;
11837- finally
11838- IndividualForm.Release;
11839- end;
11840-end;
11841-
11842-procedure TGikoForm.AntiIndividualAbonDlgActionExecute(Sender: TObject);
11843-var
11844- IndividualForm :TIndividualAbonForm;
11845- ThreadItem : TThreadItem;
11846- msg : String;
11847- ReadList : TStringList;
11848- wordCount : TWordCount;
11849-{$IFDEF SPAM_FILTER_ENABLED}
11850- i : Integer;
11851-{$ENDIF}
11852-begin
11853- IndividualForm := TIndividualAbonForm.Create(Self);
11854- try
11855- ThreadItem := GetActiveContent;
11856- ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
11857- if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
11858- if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
11859- if (IndividualForm.ShowModal = mrOK) then begin
11860- ReadList := TStringList.Create;
11861- wordCount := TWordCount.Create;
11862- try
11863-{$IFDEF SPAM_FILTER_ENABLED}
11864- // スパムを解除
11865- ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
11866- for i := 0 to IndividualForm.DeleteList.Count - 1 do begin
11867- GikoSys.SpamCountWord( ReadList[ StrToInt(IndividualForm.DeleteList[i]) - 1 ], wordCount );
11868- GikoSys.SpamForget( wordCount, True ); // スパムを解除
11869- GikoSys.SpamLearn( wordCount, False ); // ハムに設定
11870- end;
11871-{$ENDIF}
11872- if IndividualForm.FRepaint then begin
11873- FActiveContent.Repaint := true;
11874- InsertBrowserTab( ThreadItem, True );
11875- end;
11876- finally
11877- wordCount.Free;
11878- ReadList.Free;
11879- end;
11880- end;
11881- end else begin
11882- msg := 'このスレッドでは個別あぼ〜んを行ってません';
11883- MsgBox(Handle, msg, 'メッセージ', MB_OK);
11884- end;
11885- end;
11886- finally
11887- IndividualForm.Release;
11888- end;
11889-end;
11890-
11891-procedure TGikoForm.IndividualAbonID1ActionExecute(Sender: TObject);
11892-begin
11893- IndividualAbonID(1);
11894-end;
11895-
11896-procedure TGikoForm.IndividualAbonID0ActionExecute(Sender: TObject);
11897-begin
11898- IndividualAbonID(0);
11899-end;
119007600 //同一IDのあぼ〜ん
119017601 procedure TGikoForm.IndividualAbonID(Atype : Integer);
119027602 var
@@ -11958,60 +7658,6 @@ begin
119587658
119597659 end;
119607660
11961-procedure TGikoForm.MuteActionExecute(Sender: TObject);
11962-begin
11963- GikoSys.Setting.Mute := not GikoSys.Setting.Mute;
11964-end;
11965-
11966-procedure TGikoForm.SortActiveColumnActionExecute(Sender: TObject);
11967-var
11968- i : Integer;
11969-begin
11970- for i := 0 to ListView.Columns.Count - 1 do begin
11971- if (ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT1) or
11972- (ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT2) then begin
11973- FSortOrder := not FSortOrder;
11974- ListViewSort( nil, ListView.Column[ i ] );
11975- break;
11976- end;
11977- end;
11978-end;
11979-
11980-procedure TGikoForm.SortNextColumnActionExecute(Sender: TObject);
11981-var
11982- i, id : Integer;
11983-begin
11984- for i := 0 to ListView.Columns.Count - 1 do begin
11985- if (ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT1) or
11986- (ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT2) then begin
11987- id := i + 1;
11988- if id > ListView.Columns.Count - 1 then
11989- id := 0;
11990- FSortOrder := id = 0;
11991- ListViewSort( nil, ListView.Column[ id ] );
11992- break;
11993- end;
11994- end;
11995-
11996-end;
11997-procedure TGikoForm.SortPrevColumnActionExecute(Sender: TObject);
11998-var
11999- i, id : Integer;
12000-begin
12001- for i := 0 to ListView.Columns.Count - 1 do begin
12002- if (ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT1) or
12003- (ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT2) then begin
12004- id := i - 1;
12005- if id < 0 then
12006- id := ListView.Columns.Count - 1;
12007- FSortOrder := id = 0;
12008- ListViewSort( nil, ListView.Column[ id ] );
12009- break;
12010- end;
12011- end;
12012-
12013-end;
12014-
120157661 procedure TGikoForm.RepaintAllTabsBrowser();
120167662 var
120177663 i : Integer;
@@ -12026,82 +7672,10 @@ begin
120267672
120277673 end;
120287674
12029-procedure TGikoForm.MessageListViewAdvancedCustomDrawItem(
12030- Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
12031- Stage: TCustomDrawStage; var DefaultDraw: Boolean);
12032-begin
12033- //if DiffComp then begin
12034- //if Odd(Item.Index) then Sender.Canvas.Brush.Color := clBlue;
12035- //DiffComp := False;
12036-// end;
12037-end;
12038-
12039-procedure TGikoForm.BeLogInOutActionExecute(Sender: TObject);
12040-begin
12041- GikoSys.Setting.BeLogin := not GikoSys.Setting.BeLogin;
12042-end;
12043-
120447675 procedure TGikoForm.BeLogInOutActionUpdate(Sender: TObject);
120457676 begin
12046- if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin
12047- if (GikoSys.Setting.BeLogin) then BeLogInOutAction.Checked := true
12048- else BeLogInOutAction.Checked := false;
12049- BeLogInOutAction.Enabled := true
12050- end else
12051- BeLogInOutAction.Enabled := false;
12052-
12053-end;
12054-//リンクの文字列からレスポップアップ用のURLに変換する
12055-function TGikoForm.GetRespopupURL(AText, AThreadURL : string): string;
12056-var
12057- wkInt: Integer;
12058-begin
12059- Result := '';
12060- if Pos('about:blank..', AText) = 1 then begin
12061- wkInt := LastDelimiter( '/', AThreadURL );
12062- if Pos( '?', Copy( AThreadURL, wkInt, MaxInt ) ) = 0 then begin
12063- // Thread.URL は PATH_INFO 渡し
12064- Result := Copy( AThreadURL, 1, LastDelimiter( '/', AThreadURL ) );
12065- wkInt := LastDelimiter( '/', AText );
12066- if Pos( '?', Copy( AText, wkInt, MaxInt ) ) = 0 then
12067- // Text も PATH_INFO 渡し
12068- Result := Result + Copy( AText, LastDelimiter( '/', AText ) + 1, MaxInt )
12069- else
12070- // Text は QUERY_STRING 渡し
12071- Result := Result + Copy( AText, LastDelimiter( '?', AText ) + 1, MaxInt );
12072- end else begin
12073- // Thread.URL は QUERY_STRING 渡し
12074- Result := Copy( AThreadURL, 1, LastDelimiter( '?', AThreadURL ) );
12075- wkInt := LastDelimiter( '/', AText );
12076- if Pos( '?', Copy( Text, wkInt, MaxInt ) ) = 0 then begin
12077- // Text は PATH_INFO 渡し
12078- // URL に板とキーが足らないので Text から頂戴する
12079- wkInt := LastDelimiter( '/', Copy( AText, 1, wkInt - 1 ) );
12080- wkInt := LastDelimiter( '/', Copy( AText, 1, wkInt - 1 ) );
12081- Result := Copy( Result, 1, Length( Result ) - 1 ) + Copy( AText, wkInt, MaxInt );
12082- end else begin
12083- // Text も QUERY_STRING 渡し
12084- Result := Result + Copy( Text, LastDelimiter( '?', AText ) + 1, MaxInt )
12085- end;
12086- end;
12087- end else if Pos('about:blank/bbs/', AText) = 1 then begin
12088- //したらばJBBSの仕変の吸収
12089- AText := CustomStringReplace(AText, 'about:blank/bbs/', 'about:blank../../bbs/');
12090- Result := GetRespopupURL(AText, AThreadURL);
12091- end else begin
12092- Result := AText;
12093- end;
12094-
120957677 end;
120967678 //ListViewの選択状態を解除する
12097-procedure TGikoForm.UnSelectedListViewActionExecute(Sender: TObject);
12098-begin
12099- if ListView.Selected <> nil then begin
12100- ListView.Selected.Focused := True;
12101- ListView.Selected := nil;
12102- end;
12103-end;
12104-
121057679 procedure TGikoForm.ListViewKeyUp(Sender: TObject; var Key: Word;
121067680 Shift: TShiftState);
121077681 begin
@@ -12119,51 +7693,143 @@ begin
121197693 end;
121207694 end;
121217695 end;
12122-//TActionでGetActiveContentがnil以外で有効になる
12123-procedure TGikoForm.DependActiveCntentActionUpdate(Sender: TObject);
7696+
7697+procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject;
7698+ Node: TTreeNode; var AllowEdit: Boolean);
121247699 begin
12125-{$IFDEF ACTCHK}
12126- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
12127- if (Sender <> nil) and (Sender is TAction) then begin
12128-{$ENDIF}
12129- TAction(Sender).Enabled := (GetActiveContent <> nil);
12130-{$IFDEF ACTCHK}
7700+ //編集前の文字列を一時保存する
7701+ FOrigenCaption := Node.Text;
7702+end;
7703+// *************************************************************************
7704+//! ApplicationのMainFormを取得する
7705+// *************************************************************************
7706+function TGikoForm.GetMainForm(): TComponent;
7707+begin
7708+ Result := Application.MainForm;
7709+end;
7710+// *************************************************************************
7711+//! 現在のカーソルを取得する
7712+// *************************************************************************
7713+function TGikoForm.GetScreenCursor(): TCursor;
7714+begin
7715+ Result := Screen.Cursor;
7716+end;
7717+// *************************************************************************
7718+//! カーソルを設定する
7719+// *************************************************************************
7720+procedure TGikoForm.SetScreenCursor(Cursor : TCursor);
7721+begin
7722+ if (Screen.Cursor <> Cursor) then
7723+ Screen.Cursor := Cursor;
7724+end;
7725+// *************************************************************************
7726+//! スクリーン上にEditorFormがいるか
7727+// *************************************************************************
7728+function TGikoForm.EditorFormExists(): boolean;
7729+var
7730+ i : Integer;
7731+begin
7732+ Result := false;
7733+ //スクリーン上の全てのフォームから、EditorFormを探す
7734+ for i := 0 to Screen.CustomFormCount - 1 do begin
7735+ if TObject(Screen.CustomForms[i]) is TEditorForm then begin
7736+ Result := true;
7737+ Break;
7738+ end;
121317739 end;
12132-{$ENDIF}
121337740 end;
12134-//TActionでGetActiveContentがnil以外かつログを持っている
12135-procedure TGikoForm.DependActiveCntentLogActionUpdate(Sender: TObject);
7741+// *************************************************************************
7742+//! スクリーン上にいるすべてのEditorFormから名前の履歴を削除する
7743+// *************************************************************************
7744+procedure TGikoForm.AllEditroFormNameTextClearClear();
7745+var
7746+ i : Integer;
121367747 begin
12137-{$IFDEF ACTCHK}
12138- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
12139- if (Sender <> nil) and (Sender is TAction) then begin
12140-{$ENDIF}
12141- TAction(Sender).Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
12142-{$IFDEF ACTCHK}
7748+ for i := 0 to Screen.CustomFormCount - 1 do begin
7749+ if TObject(Screen.CustomForms[i]) is TEditorForm then
7750+ TEditorForm(Screen.CustomForms[i]).NameComboBox.Items.Clear;
121437751 end;
12144-{$ENDIF}
121457752 end;
12146-//TActionでActiveListがTBoardで有効になる
12147-procedure TGikoForm.DependActiveListTBoardActionUpdate(Sender: TObject);
7753+// *************************************************************************
7754+//! スクリーン上にいるすべてのEditorFormからメール履歴を削除する
7755+// *************************************************************************
7756+procedure TGikoForm.AllEditroFormMailTextClearClear();
7757+var
7758+ i : Integer;
121487759 begin
12149-{$IFDEF ACTCHK}
12150- //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
12151- if (Sender <> nil) and (Sender is TAction) then begin
12152-{$ENDIF}
12153- TAction(Sender).Enabled := (GetActiveList is TBoard);
12154-{$IFDEF ACTCHK}
7760+ for i := 0 to Screen.CustomFormCount - 1 do begin
7761+ if TObject(Screen.CustomForms[i]) is TEditorForm then
7762+ TEditorForm(Screen.CustomForms[i]).MailComboBox.Items.Clear;
121557763 end;
12156-{$ENDIF}
121577764 end;
12158-
12159-procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject;
12160- Node: TTreeNode; var AllowEdit: Boolean);
7765+// *************************************************************************
7766+//! キャビネットを閉じる×ボタンのクリックイベント
7767+// *************************************************************************
7768+procedure TGikoForm.CabinetCloseSpeedButtonClick(Sender: TObject);
121617769 begin
12162- //編集前の文字列を一時保存する
12163- FOrigenCaption := Node.Text;
7770+ //Actionで設定するとキャプションが消せないので、OnClickイベントでの
7771+ //呼び出しにした by もじゅ
7772+ if GikoDM.CabinetVisibleAction.Enabled then begin
7773+ GikoDM.CabinetVisibleAction.Execute;
7774+ end;
7775+end;
7776+// *************************************************************************
7777+//! お気に入りキャビネットの整理ボタンのクリックイベント
7778+// *************************************************************************
7779+procedure TGikoForm.FavoriteArrangeToolButtonClick(Sender: TObject);
7780+begin
7781+ if GikoDM.FavoriteArrangeAction.Enabled then begin
7782+ GikoDM.FavoriteArrangeAction.Execute;
7783+ end;
121647784 end;
12165-//例外処理されなかった例外を処理する
12166-procedure TGikoForm.AppException(Sender: TObject; E: Exception);
7785+// *************************************************************************
7786+//! ギコナビのメッセージハンドリング (注意)処理量に注意!
7787+// *************************************************************************
7788+procedure TGikoForm.GikoApplicationEventsMessage(var Msg: tagMSG;
7789+ var Handled: Boolean);
7790+var
7791+ wmMsg: TWMKey;
7792+begin
7793+ //GikoFormがアクティブなときだけ受け取る 他のフォームのを横取りしないため
7794+ if Self.Active then begin
7795+ case Msg.message of
7796+ //キー入力すべて
7797+ WM_KEYFIRST..WM_KEYLAST :
7798+ begin
7799+ wmMsg.Msg := Msg.message;
7800+ wmMsg.CharCode := Word(Msg.wParam);
7801+ wmMsg.KeyData := Msg.lParam;
7802+ //フォームのショートカットの処理に転送
7803+ Self.OnShortCut(wmMsg, Handled);
7804+ end;
7805+ end;
7806+ end;
7807+end;
7808+// *************************************************************************
7809+//! アプリケーションがアクティブでなくなったときのイベント
7810+// *************************************************************************
7811+procedure TGikoForm.GikoApplicationEventsDeactivate(Sender: TObject);
7812+begin
7813+ Application.ProcessMessages;
7814+ if not Application.Terminated then begin
7815+ if PreviewTimer.Enabled then
7816+ PreviewTimer.Enabled := False;
7817+ //フォーカスが他のアプリに変わったときにヒントを消去
7818+ if FHint <> nil then begin
7819+ FHint.ReleaseHandle;
7820+ FHint.ClearAllRes;
7821+ end;
7822+ //プレビューを隠す
7823+ if FPreviewBrowser <> nil then
7824+ ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
7825+ end;
7826+
7827+end;
7828+// *************************************************************************
7829+//! アプリケーションが処理されない例外を拾ったときのイベント
7830+// *************************************************************************
7831+procedure TGikoForm.GikoApplicationEventsException(Sender: TObject;
7832+ E: Exception);
121677833 var
121687834 s : String;
121697835 begin
@@ -12176,13 +7842,6 @@ begin
121767842 MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP);
121777843 end;
121787844
12179-procedure TGikoForm.WikiFAQWebPageActionExecute(Sender: TObject);
12180-const
12181- URL_Wiki: string = 'http://gikowiki.dyndns.info/index.php?FAQ';
12182-begin
12183- GikoSys.OpenBrowser(URL_Wiki, gbtAuto);
12184-end;
12185-
121867845 initialization
121877846 OleInitialize(nil);
121887847 finalization
--- /dev/null
+++ b/GikoDataModule.dfm
@@ -0,0 +1,3198 @@
1+object GikoDM: TGikoDM
2+ OldCreateOrder = False
3+ OnCreate = DataModuleCreate
4+ Left = 660
5+ Top = 170
6+ Height = 336
7+ Width = 286
8+ object GikoFormActionList: TActionList
9+ Images = ToobarImageList
10+ Left = 48
11+ Top = 12
12+ object OnlyAHundredResAction: TAction
13+ Category = #12473#12524#12483#12489
14+ AutoCheck = True
15+ Caption = #26368#26032'100'#12524#12473#12398#12415#34920#31034'(&H)'
16+ GroupIndex = 2
17+ Hint = #26368#26032'100'#12524#12473#12398#12415#34920#31034
18+ ImageIndex = 38
19+ OnExecute = OnlyAHundredResActionExecute
20+ end
21+ object OnlyKokoResAction: TAction
22+ Category = #12473#12524#12483#12489
23+ AutoCheck = True
24+ Caption = #26410#35501#12524#12473#12398#12415#34920#31034'(&K)'
25+ GroupIndex = 2
26+ Hint = #26410#35501#12524#12473#12398#12415#34920#31034
27+ ImageIndex = 46
28+ OnExecute = OnlyKokoResActionExecute
29+ end
30+ object LoginAction: TAction
31+ Category = #12501#12449#12452#12523
32+ AutoCheck = True
33+ Caption = #12525#12464#12452#12531'(&L)'
34+ Hint = #12525#12464#12452#12531#65295#12525#12464#12450#12454#12488#12434#12377#12427
35+ ImageIndex = 3
36+ OnExecute = LoginActionExecute
37+ end
38+ object NewBoardAction: TAction
39+ Category = #12501#12449#12452#12523
40+ Caption = #26495#26356#26032'(&B)...'
41+ Hint = #12508#12540#12489#26356#26032#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
42+ OnExecute = NewBoardActionExecute
43+ end
44+ object LogDeleteAction: TAction
45+ Category = #12501#12449#12452#12523
46+ Caption = #12525#12464#21066#38500'(&D)'
47+ Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#21066#38500#12377#12427
48+ ShortCut = 46
49+ OnExecute = LogDeleteActionExecute
50+ OnUpdate = LogDeleteActionUpdate
51+ end
52+ object KidokuAction: TAction
53+ Category = #32232#38598
54+ Caption = #26082#35501#12395#12377#12427'(&K)'
55+ Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#26082#35501#12395#12377#12427
56+ OnExecute = KidokuActionExecute
57+ end
58+ object StdToolBarVisibleAction: TAction
59+ Category = #34920#31034
60+ AutoCheck = True
61+ Caption = #27161#28310#12484#12540#12523#12496#12540'(&S)'
62+ Checked = True
63+ Hint = #27161#28310#12484#12540#12523#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
64+ OnExecute = StdToolBarVisibleActionExecute
65+ end
66+ object AddressBarVisibleAction: TAction
67+ Category = #34920#31034
68+ AutoCheck = True
69+ Caption = #12450#12489#12524#12473#12496#12540'(&A)'
70+ Checked = True
71+ Hint = #12450#12489#12524#12473#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
72+ OnExecute = AddressBarVisibleActionExecute
73+ end
74+ object LinkBarVisibleAction: TAction
75+ Category = #34920#31034
76+ AutoCheck = True
77+ Caption = #12522#12531#12463#12496#12540'(&K)'
78+ Checked = True
79+ Hint = #12522#12531#12463#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
80+ OnExecute = LinkBarVisibleActionExecute
81+ end
82+ object ListToolBarVisibleAction: TAction
83+ Category = #34920#31034
84+ AutoCheck = True
85+ Caption = #12522#12473#12488#12484#12540#12523#12496#12540'(&L)'
86+ Checked = True
87+ Hint = #12522#12473#12488#12484#12540#12523#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
88+ OnExecute = ListToolBarVisibleActionExecute
89+ end
90+ object SearchAction: TAction
91+ Category = #12484#12540#12523
92+ Caption = #12525#12464#26908#32034'(&S)'
93+ Hint = #12525#12464#26908#32034#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
94+ ImageIndex = 34
95+ ShortCut = 16454
96+ OnExecute = SearchActionExecute
97+ end
98+ object GikoNaviWebPageAction: TAction
99+ Category = #12504#12523#12503
100+ Caption = #12462#12467#12490#12499#12398#12454#12455#12502#12469#12452#12488'(&G)'
101+ Hint = #12462#12467#12490#12499#12398#12454#12455#12502#12469#12452#12488#12434#34920#31034#12377#12427
102+ OnExecute = GikoNaviWebPageActionExecute
103+ end
104+ object MonazillaWebPageAction: TAction
105+ Category = #12504#12523#12503
106+ Caption = #12514#12490#12472#12521#12398#12454#12455#12502#12469#12452#12488'(&M)'
107+ Hint = #12514#12490#12472#12521#12398#12454#12455#12502#12469#12452#12488#12434#34920#31034#12377#12427
108+ OnExecute = MonazillaWebPageActionExecute
109+ end
110+ object BBS2chWebPageAction: TAction
111+ Category = #12504#12523#12503
112+ Caption = '2'#12385#12419#12435#12397#12427#12488#12483#12503#12506#12540#12472'(&N)'
113+ Hint = '2'#12385#12419#12435#12397#12427#12488#12483#12503#12506#12540#12472#12434#34920#31034#12377#12427
114+ OnExecute = BBS2chWebPageActionExecute
115+ end
116+ object GikoFolderOpenAction: TAction
117+ Category = #12504#12523#12503
118+ Caption = #12462#12467#12490#12499#12501#12457#12523#12480#12434#38283#12367'(&F)'
119+ Hint = #12462#12467#12490#12499#12398#12501#12457#12523#12480#12434#38283#12367
120+ OnExecute = GikoFolderOpenActionExecute
121+ end
122+ object AboutAction: TAction
123+ Category = #12504#12523#12503
124+ Caption = #12496#12540#12472#12519#12531#24773#22577'(&A)...'
125+ Hint = #12496#12540#12472#12519#12531#24773#22577#12434#34920#31034#12377#12427
126+ OnExecute = AboutActionExecute
127+ end
128+ object SelectTextClearAction: TAction
129+ Category = #12501#12449#12452#12523
130+ Caption = #32094#36796#12415#23653#27508#28040#21435'(&S)'
131+ Hint = #32094#36796#12415#23653#27508#12434#28040#21435#12377#12427
132+ OnExecute = SelectTextClearActionExecute
133+ end
134+ object NameTextClearAction: TAction
135+ Category = #12501#12449#12452#12523
136+ Caption = #12524#12473#12456#12487#12451#12479#21517#21069#23653#27508#20840#28040#21435'(&N)'
137+ Hint = #12524#12473#12456#12487#12451#12479#12398#21517#21069#23653#27508#12434#28040#21435#12377#12427
138+ OnExecute = NameTextClearActionExecute
139+ end
140+ object MailTextClearAction: TAction
141+ Category = #12501#12449#12452#12523
142+ Caption = #12524#12473#12456#12487#12451#12479#12513#12540#12523#23653#27508#28040#21435'(&N)'
143+ Hint = #12524#12473#12456#12487#12451#12479#12398#12513#12540#12523#23653#27508#12434#28040#21435#12377#12427
144+ OnExecute = MailTextClearActionExecute
145+ end
146+ object ExitAction: TAction
147+ Category = #12501#12449#12452#12523
148+ Caption = #32066#20102'(&X)'
149+ Hint = #12462#12467#12490#12499#12434#32066#20102#12377#12427
150+ OnExecute = ExitActionExecute
151+ end
152+ object ListNameBarVisibleAction: TAction
153+ Category = #34920#31034
154+ AutoCheck = True
155+ Caption = #12522#12473#12488#21517#31216'(&I)'
156+ Checked = True
157+ Hint = #12522#12473#12488#21517#31216#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
158+ OnExecute = ListNameBarVisibleActionExecute
159+ end
160+ object BrowserToolBarVisibleAction: TAction
161+ Category = #34920#31034
162+ AutoCheck = True
163+ Caption = #12502#12521#12454#12470#12484#12540#12523#12496#12540'(&B)'
164+ Checked = True
165+ Hint = #12502#12521#12454#12470#12484#12540#12523#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
166+ OnExecute = BrowserToolBarVisibleActionExecute
167+ end
168+ object BrowserNameBarVisibleAction: TAction
169+ Category = #34920#31034
170+ AutoCheck = True
171+ Caption = #12502#12521#12454#12470#21517#31216'(&R)'
172+ Checked = True
173+ Hint = #12502#12521#12454#12470#21517#31216#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
174+ OnExecute = BrowserNameBarVisibleActionExecute
175+ end
176+ object MsgBarVisibleAction: TAction
177+ Category = #34920#31034
178+ AutoCheck = True
179+ Caption = #12513#12483#12475#12540#12472#12496#12540'(&E)'
180+ Hint = #12513#12483#12475#12540#12472#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
181+ OnExecute = MsgBarVisibleActionExecute
182+ end
183+ object MsgBarCloseAction: TAction
184+ Category = #34920#31034
185+ Caption = #38281#12376#12427'(&C)'
186+ Hint = #12513#12483#12475#12540#12472#12496#12540#12434#38281#12376#12427
187+ OnExecute = MsgBarCloseActionExecute
188+ end
189+ object StatusBarVisibleAction: TAction
190+ Category = #34920#31034
191+ AutoCheck = True
192+ Caption = #12473#12486#12540#12479#12473#12496#12540'(&U)'
193+ Hint = #12473#12486#12540#12479#12473#12496#12540#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
194+ OnExecute = StatusBarVisibleActionExecute
195+ end
196+ object CabinetBBSAction: TAction
197+ Category = #34920#31034
198+ AutoCheck = True
199+ Caption = #25522#31034#26495'(&N)'
200+ Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#12434#25522#31034#26495#12395#12377#12427
201+ ImageIndex = 35
202+ OnExecute = CabinetBBSActionExecute
203+ end
204+ object CabinetHistoryAction: TAction
205+ Category = #34920#31034
206+ AutoCheck = True
207+ Caption = #23653#27508#12522#12473#12488'(&H)'
208+ Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#12434#23653#27508#12522#12473#12488#12395#12377#12427
209+ ImageIndex = 36
210+ OnExecute = CabinetHistoryActionExecute
211+ end
212+ object OnlyNewResAction: TAction
213+ Category = #12473#12524#12483#12489
214+ AutoCheck = True
215+ Caption = #26032#30528#12524#12473#12398#12415#34920#31034'(&N)'
216+ GroupIndex = 2
217+ Hint = #26032#30528#12524#12473#12398#12415#34920#31034
218+ ImageIndex = 45
219+ OnExecute = OnlyNewResActionExecute
220+ end
221+ object CabinetFavoriteAction: TAction
222+ Category = #34920#31034
223+ AutoCheck = True
224+ Caption = #12362#27671#12395#20837#12426'(&A)'
225+ Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#12434#12362#27671#12395#20837#12426#12522#12473#12488#12395#12377#12427
226+ ImageIndex = 37
227+ OnExecute = CabinetFavoriteActionExecute
228+ end
229+ object CabinetVisibleAction: TAction
230+ Category = #34920#31034
231+ AutoCheck = True
232+ Caption = #12461#12515#12499#12493#12483#12488#34920#31034'(&O)'
233+ Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
234+ ImageIndex = 1
235+ OnExecute = CabinetVisibleActionExecute
236+ end
237+ object ListNumberVisibleAction: TAction
238+ Category = #26495
239+ AutoCheck = True
240+ Caption = #12522#12473#12488#30058#21495#34920#31034'(&N)'
241+ Hint = #12522#12473#12488#30058#21495#34920#31034#12434#22793#26356#12377#12427
242+ ImageIndex = 6
243+ OnExecute = ListNumberVisibleActionExecute
244+ end
245+ object UpFolderAction: TAction
246+ Category = #26495
247+ Caption = #19978#12408'(&U)'
248+ Hint = #19978#20301#12501#12457#12523#12480#12395#31227#21205#12377#12427
249+ ImageIndex = 8
250+ ShortCut = 8
251+ OnExecute = UpFolderActionExecute
252+ OnUpdate = UpFolderActionUpdate
253+ end
254+ object CabinetCloseAction: TAction
255+ Category = #34920#31034
256+ Caption = #38281#12376#12427'(&C)'
257+ Hint = #12461#12515#12499#12493#12483#12488#12434#38281#12376#12427
258+ OnExecute = CabinetCloseActionExecute
259+ end
260+ object IconStyle: TAction
261+ Category = #26495
262+ Caption = #34920#31034'(&V)'
263+ Hint = #34920#31034
264+ ImageIndex = 7
265+ OnExecute = IconStyleExecute
266+ end
267+ object LargeIconAction: TAction
268+ Category = #34920#31034
269+ Caption = #22823#12365#12356#12450#12452#12467#12531'(&G)'
270+ GroupIndex = 2
271+ Hint = #12522#12473#12488#12434#22823#12365#12356#12450#12452#12467#12531#34920#31034#12395#12377#12427
272+ OnExecute = LargeIconActionExecute
273+ end
274+ object SmallIconAction: TAction
275+ Category = #34920#31034
276+ Caption = #23567#12373#12356#12450#12452#12467#12531'(&M)'
277+ GroupIndex = 2
278+ Hint = #12522#12473#12488#12434#23567#12373#12356#12450#12452#12467#12531#34920#31034#12395#12377#12427
279+ OnExecute = SmallIconActionExecute
280+ end
281+ object ListIconAction: TAction
282+ Category = #34920#31034
283+ Caption = #19968#35239'(&L)'
284+ GroupIndex = 2
285+ Hint = #12522#12473#12488#12434#19968#35239#34920#31034#12395#12377#12427
286+ OnExecute = ListIconActionExecute
287+ end
288+ object DetailIconAction: TAction
289+ Category = #34920#31034
290+ Caption = #35443#32048'(&D)'
291+ GroupIndex = 2
292+ Hint = #12522#12473#12488#12434#35443#32048#34920#31034#12395#12377#12427
293+ OnExecute = DetailIconActionExecute
294+ end
295+ object MidokuAction: TAction
296+ Category = #32232#38598
297+ Caption = #26410#35501#12395#12377#12427'(&M)'
298+ Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12434#26410#35501#12395#12377#12427
299+ OnExecute = MidokuActionExecute
300+ end
301+ object AllSelectAction: TAction
302+ Category = #32232#38598
303+ Caption = #12377#12409#12390#36984#25246'(&A)'
304+ Hint = #12522#12473#12488#12434#12377#12409#12390#36984#25246#12377#12427
305+ ShortCut = 16449
306+ OnExecute = AllSelectActionExecute
307+ OnUpdate = AllSelectActionUpdate
308+ end
309+ object AllItemAction: TAction
310+ Category = #26495
311+ AutoCheck = True
312+ Caption = #12377#12409#12390#12398#12473#12524#12483#12489#12434#34920#31034'(&A)'
313+ GroupIndex = 1
314+ Hint = #12473#12524#12483#12489#12434#12377#12409#12390#34920#31034#12377#12427
315+ ImageIndex = 9
316+ ShortCut = 16433
317+ OnExecute = AllItemActionExecute
318+ OnUpdate = DependActiveListTBoardActionUpdate
319+ end
320+ object LogItemAction: TAction
321+ Category = #26495
322+ AutoCheck = True
323+ Caption = #12525#12464#26377#12426#12473#12524#12483#12489#34920#31034'(&L)'
324+ GroupIndex = 1
325+ Hint = #12525#12464#26377#12426#12473#12524#12483#12489#12398#12415#34920#31034#12377#12427
326+ ImageIndex = 10
327+ ShortCut = 16434
328+ OnExecute = LogItemActionExecute
329+ OnUpdate = DependActiveListTBoardActionUpdate
330+ end
331+ object NewItemAction: TAction
332+ Category = #26495
333+ AutoCheck = True
334+ Caption = #26032#30528#12473#12524#12483#12489#34920#31034'(&N)'
335+ GroupIndex = 1
336+ Hint = #26032#30528#12473#12524#12483#12489#12398#12415#34920#31034#12377#12427
337+ ImageIndex = 11
338+ ShortCut = 16435
339+ OnExecute = NewItemActionExecute
340+ OnUpdate = DependActiveListTBoardActionUpdate
341+ end
342+ object ThreadRangeAction: TAction
343+ Category = #26495
344+ AutoCheck = True
345+ Caption = #12473#12524#12483#12489#12398#34920#31034#31684#22258#12434#35373#23450'(&H)'
346+ GroupIndex = 1
347+ Hint = #12473#12524#12483#12489#12398#34920#31034#31684#22258#12434#35373#23450
348+ ImageIndex = 10
349+ OnExecute = ThreadRangeActionExecute
350+ OnUpdate = DependActiveCntentActionUpdate
351+ end
352+ object SelectItemAction: TAction
353+ Category = #26495
354+ AutoCheck = True
355+ Caption = #12473#12524#12483#12489#32094#36796#12415#34920#31034'(&S)...'
356+ GroupIndex = 1
357+ Hint = #12473#12524#12483#12489#32094#36796#12415#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
358+ ImageIndex = 12
359+ ShortCut = 16436
360+ OnExecute = SelectItemActionExecute
361+ OnUpdate = DependActiveListTBoardActionUpdate
362+ end
363+ object StopAction: TAction
364+ Category = #34920#31034
365+ Caption = #20013#27490'(&S)'
366+ GroupIndex = 2
367+ Hint = #12480#12454#12531#12525#12540#12489#12434#20013#27490#12377#12427
368+ ImageIndex = 2
369+ ShortCut = 27
370+ OnExecute = StopActionExecute
371+ end
372+ object OptionAction: TAction
373+ Category = #12484#12540#12523
374+ Caption = #12458#12503#12471#12519#12531'(&O)...'
375+ Hint = #12458#12503#12471#12519#12531#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
376+ OnExecute = OptionActionExecute
377+ end
378+ object RoundAction: TAction
379+ Category = #12484#12540#12523
380+ Caption = #24033#22238#12434#23455#34892'(&R)...'
381+ Hint = #24033#22238#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
382+ ImageIndex = 0
383+ OnExecute = RoundActionExecute
384+ end
385+ object BrowserMaxAction: TAction
386+ Category = #12473#12524#12483#12489
387+ Caption = #12473#12524#12434#22823#12365#12367#34920#31034'(&E)'
388+ Hint = #12473#12524#12483#12489#34920#31034#12456#12522#12450#12434#22823#12365#12367#34920#31034#12377#12427
389+ ImageIndex = 16
390+ OnExecute = BrowserMaxActionExecute
391+ end
392+ object BrowserMinAction: TAction
393+ Category = #12473#12524#12483#12489
394+ Caption = #12473#12524#12434#23567#12373#12367#34920#31034'(&W)'
395+ Hint = #12473#12524#12483#12489#34920#31034#12456#12522#12450#12434#23567#12373#12367#34920#31034#12377#12427
396+ ImageIndex = 17
397+ OnExecute = BrowserMinActionExecute
398+ end
399+ object ScrollTopAction: TAction
400+ Category = #12473#12524#12483#12489
401+ Caption = #20808#38957#12408#31227#21205'(&T)'
402+ Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#20808#38957#12408#31227#21205#12377#12427
403+ ImageIndex = 22
404+ OnExecute = ScrollTopActionExecute
405+ OnUpdate = DependActiveCntentLogActionUpdate
406+ end
407+ object ScrollLastAction: TAction
408+ Category = #12473#12524#12483#12489
409+ Caption = #26368#24460#12408#31227#21205'(&L)'
410+ Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#26368#24460#12408#31227#21205#12377#12427
411+ ImageIndex = 23
412+ OnExecute = ScrollLastActionExecute
413+ OnUpdate = DependActiveCntentLogActionUpdate
414+ end
415+ object ScrollNewAction: TAction
416+ Category = #12473#12524#12483#12489
417+ Caption = #26032#30528#12408#31227#21205'(&N)'
418+ Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#26032#30528#12408#31227#21205#12377#12427
419+ ImageIndex = 24
420+ OnExecute = ScrollNewActionExecute
421+ OnUpdate = DependActiveCntentLogActionUpdate
422+ end
423+ object ScrollKokoAction: TAction
424+ Category = #12473#12524#12483#12489
425+ Caption = #12467#12467#12414#12391#35501#12435#12384#12408#31227#21205'(&K)'
426+ Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#12467#12467#12414#12391#35501#12435#12384#12408#31227#21205#12377#12427
427+ ImageIndex = 25
428+ OnExecute = ScrollKokoActionExecute
429+ OnUpdate = ScrollKokoActionUpdate
430+ end
431+ object EditorAction: TAction
432+ Category = #12473#12524#12483#12489
433+ Caption = #12524#12473#26360#12365#36796#12415'(&R)'
434+ Hint = #12524#12473#26360#12365#36796#12415#12454#12451#12531#12489#12454#12434#34920#31034#12377#12427
435+ ImageIndex = 26
436+ ShortCut = 16466
437+ OnExecute = EditorActionExecute
438+ OnUpdate = DependActiveCntentLogActionUpdate
439+ end
440+ object IEAction: TAction
441+ Category = #12473#12524#12483#12489
442+ Caption = #12502#12521#12454#12470#12391#34920#31034'(&B)'
443+ Hint = #12473#12524#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
444+ ImageIndex = 27
445+ OnExecute = IEActionExecute
446+ OnUpdate = DependActiveCntentActionUpdate
447+ end
448+ object ShowThreadAction: TAction
449+ Category = #12473#12524#12483#12489
450+ Caption = #12473#12524#12483#12489#12434#12502#12521#12454#12470#12391#34920#31034'(&S)'
451+ Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
452+ ImageIndex = 27
453+ OnExecute = ShowThreadActionExecute
454+ OnUpdate = DependActiveCntentActionUpdate
455+ end
456+ object ShowBoardAction: TAction
457+ Category = #12473#12524#12483#12489
458+ Caption = #26495#12434#12502#12521#12454#12470#12391#34920#31034'(&B)'
459+ Hint = #29694#22312#34920#31034#12375#12390#12356#12427#12473#12524#12483#12489#12398#26495#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
460+ ImageIndex = 27
461+ OnExecute = ShowBoardActionExecute
462+ OnUpdate = DependActiveCntentActionUp

Part of diff was cut off due to size limit. Use your local client to view the full diff.

Show on old repository browser