• R/O
  • HTTP
  • SSH
  • HTTPS

提交

标签
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

ギコナビ


Commit MetaInfo

修订版f28ef2b480e5b8cde9bceef6288090b69d80a724 (tree)
时间2005-11-28 00:02:31
作者cvs2git <cvs2git>
Commitercvs2git

Log Message

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

更改概述

差异

--- /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/ExternalBoardPlugInMain.pas
+++ b/ExternalBoardPlugInMain.pas
@@ -268,13 +268,8 @@ begin
268268 {$IFDEF DEBUG}
269269 Writeln('URL: ' + inURL);
270270 {$ENDIF}
271- //”XV‚ªAƒtƒbƒN‚µ‚Ä‚¢‚éŠÔ‚́AGet‚µ‚悤‚Æ‚·‚é‚Æ
272- //–³ŒÀƒ‹[ƒv‚·‚é
273- if GAntiFreeze = nil then begin
274- socket.Get( inURL, resStream );
275- end else begin
276- Result := 503;
277- end;
271+ //AntiFreeze‚ðDLŽž‚Ì‚Ý—LŒø‚É‚·‚邱‚ƂŁAƒRƒR‚ł̃`ƒFƒbƒN•s—v
272+ socket.Get( inURL, resStream );
278273 {$IFDEF DEBUG}
279274 Writeln('Žæ“¾‚Å—áŠO‚È‚µ');
280275 {$ENDIF}
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
11 object GikoForm: TGikoForm
2- Left = 176
3- Top = 124
2+ Left = 332
3+ Top = 101
44 HorzScrollBar.Visible = False
55 VertScrollBar.Visible = False
66 AutoScroll = False
@@ -104,14 +104,16 @@ object GikoForm: TGikoForm
104104 RightClickSelect = True
105105 ShowRoot = False
106106 TabOrder = 0
107- OnChanging = TreeViewChanging
108107 OnClick = TreeViewClick
109108 OnCollapsed = TreeViewCollapsed
109+ OnCollapsing = TreeViewCollapsing
110110 OnCustomDraw = TreeViewCustomDraw
111111 OnCustomDrawItem = TreeViewCustomDrawItem
112112 OnDblClick = TreeViewDblClick
113+ OnExpanding = TreeViewExpanding
113114 OnExpanded = TreeViewExpanded
114115 OnKeyDown = TreeViewKeyDown
116+ OnMouseUp = TreeViewMouseUp
115117 end
116118 object Panel3: TPanel
117119 Left = 0
@@ -126,12 +128,12 @@ object GikoForm: TGikoForm
126128 DesignSize = (
127129 145
128130 25)
129- object SpeedButton1: TSpeedButton
131+ object CabinetCloseSpeedButton: TSpeedButton
130132 Left = 121
131133 Top = 4
132134 Width = 20
133135 Height = 17
134- Hint = #38281#12376#12427
136+ Hint = #12461#12515#12499#12493#12483#12488#12398#34920#31034#29366#24907#12434#22793#26356#12377#12427
135137 Anchors = [akRight]
136138 Flat = True
137139 Font.Charset = SHIFTJIS_CHARSET
@@ -154,7 +156,7 @@ object GikoForm: TGikoForm
154156 ShowHint = True
155157 Spacing = 0
156158 Transparent = False
157- OnClick = CabinetPanelHide
159+ OnClick = CabinetCloseSpeedButtonClick
158160 end
159161 object ToolBar1: TToolBar
160162 Left = 2
@@ -194,20 +196,20 @@ object GikoForm: TGikoForm
194196 List = True
195197 ShowCaptions = True
196198 TabOrder = 2
197- object ToolButton15: TToolButton
199+ object HistoryShowToolButton: TToolButton
198200 Left = 0
199201 Top = 0
200202 AutoSize = True
201203 Caption = #34920#31034
202204 ImageIndex = 0
203205 end
204- object ToolButton18: TToolButton
206+ object HistoryAllClearToolButton: TToolButton
205207 Left = 40
206208 Top = 0
207209 AutoSize = True
208210 Caption = #20840#12463#12522#12450
209211 ImageIndex = 1
210- OnClick = ToolButton18Click
212+ OnClick = HistoryAllClearToolButtonClick
211213 end
212214 end
213215 object FavoriteTreeView: TTreeView
@@ -226,12 +228,15 @@ object GikoForm: TGikoForm
226228 RightClickSelect = True
227229 ShowRoot = False
228230 TabOrder = 3
231+ OnClick = FavoriteTreeViewClick
232+ OnCollapsing = FavoriteTreeViewCollapsing
229233 OnDblClick = FavoriteTreeViewDblClick
230234 OnDragDrop = FavoriteTreeViewDragDrop
231235 OnDragOver = FavoriteTreeViewDragOver
232236 OnEdited = FavoriteTreeViewEdited
233237 OnEditing = FavoriteTreeViewEditing
234238 OnEndDrag = FavoriteTreeViewEndDrag
239+ OnExpanding = FavoriteTreeViewExpanding
235240 OnKeyDown = FavoriteTreeViewKeyDown
236241 OnMouseDown = FavoriteTreeViewMouseDown
237242 OnMouseUp = FavoriteTreeViewMouseUp
@@ -240,31 +245,31 @@ object GikoForm: TGikoForm
240245 Left = 0
241246 Top = 49
242247 Width = 145
243- Height = 24
248+ Height = 42
244249 AutoSize = True
245250 BorderWidth = 1
246251 ButtonHeight = 18
247- ButtonWidth = 42
252+ ButtonWidth = 131
248253 Caption = 'FavoriteToolBar'
249254 EdgeBorders = [ebLeft, ebRight, ebBottom]
250255 Flat = True
251256 List = True
252257 ShowCaptions = True
253258 TabOrder = 4
254- object ToolButton17: TToolButton
259+ object FavoriteAddToolButton: TToolButton
255260 Left = 0
256261 Top = 0
257- Action = FavoriteAddAction
262+ Action = GikoDM.FavoriteAddAction
258263 AutoSize = True
259- Caption = #36861#21152'...'
264+ Wrap = True
260265 end
261- object ToolButton19: TToolButton
262- Left = 41
263- Top = 0
266+ object FavoriteArrangeToolButton: TToolButton
267+ Left = 0
268+ Top = 18
269+ Hint = #12362#27671#12395#20837#12426#25972#29702#12480#12452#12450#12525#12464#12434#38283#12367
264270 AutoSize = True
265271 Caption = #25972#29702'...'
266- ImageIndex = 1
267- OnClick = ToolButton19Click
272+ OnClick = FavoriteArrangeToolButtonClick
268273 end
269274 end
270275 end
@@ -319,10 +324,6 @@ object GikoForm: TGikoForm
319324 OnColumnRightClick = ListViewColumnRightClick
320325 OnCustomDraw = ListViewCustomDraw
321326 OnCustomDrawItem = ListViewCustomDrawItem
322- OnData = ListViewData
323- OnDataFind = ListViewDataFind
324- OnDataHint = ListViewDataHint
325- OnDataStateChange = ListViewDataStateChange
326327 OnKeyDown = ListViewKeyDown
327328 OnKeyUp = ListViewKeyUp
328329 OnMouseDown = ListViewMouseDown
@@ -366,7 +367,7 @@ object GikoForm: TGikoForm
366367 EdgeBorders = []
367368 Flat = True
368369 HotImages = HotToobarImageList
369- Images = ToobarImageList
370+ Images = GikoDM.ToobarImageList
370371 ParentShowHint = False
371372 ShowHint = True
372373 TabOrder = 0
@@ -593,7 +594,7 @@ object GikoForm: TGikoForm
593594 EdgeBorders = []
594595 Flat = True
595596 HotImages = HotToobarImageList
596- Images = ToobarImageList
597+ Images = GikoDM.ToobarImageList
597598 ParentShowHint = False
598599 ShowHint = True
599600 TabOrder = 0
@@ -815,7 +816,6 @@ object GikoForm: TGikoForm
815816 SmallImages = MessageImageList
816817 TabOrder = 1
817818 ViewStyle = vsReport
818- OnAdvancedCustomDrawItem = MessageListViewAdvancedCustomDrawItem
819819 OnResize = MessageListViewResize
820820 end
821821 end
@@ -951,7 +951,7 @@ object GikoForm: TGikoForm
951951 EdgeBorders = []
952952 Flat = True
953953 HotImages = HotToobarImageList
954- Images = ToobarImageList
954+ Images = GikoDM.ToobarImageList
955955 ParentShowHint = False
956956 ShowHint = True
957957 TabOrder = 1
@@ -969,7 +969,7 @@ object GikoForm: TGikoForm
969969 EdgeBorders = []
970970 Flat = True
971971 HotImages = HotToobarImageList
972- Images = ToobarImageList
972+ Images = GikoDM.ToobarImageList
973973 List = True
974974 ShowCaptions = True
975975 TabOrder = 2
@@ -989,7 +989,7 @@ object GikoForm: TGikoForm
989989 object MoveToToolButton: TToolButton
990990 Left = 177
991991 Top = 0
992- Action = MoveToAction
992+ Action = GikoDM.MoveToAction
993993 AutoSize = True
994994 end
995995 end
@@ -6463,2148 +6463,157 @@ object GikoForm: TGikoForm
64636463 F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
64646464 000000000000}
64656465 end
6466- object ToobarImageList: TImageList
6467- Left = 36
6468- Top = 244
6466+ object ItemImageList: TImageList
6467+ Left = 4
6468+ Top = 276
64696469 Bitmap = {
6470- 494C010136003B00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
6471- 000000000000360000002800000040000000F0000000010020000000000000F0
6470+ 494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
6471+ 0000000000003600000028000000400000001000000001002000000000000010
6472+ 0000000000000000000000000000000000008400840084008400000000000000
64726473 0000000000000000000000000000000000000000000000000000000000000000
6474+ 0000000000000000000000000000840084008400840084008400848484008484
6475+ 8400848484008484840084848400848484008484840084848400848484008484
6476+ 8400848484008484840084848400840084008400840084008400000000000000
64736477 0000000000000000000000000000000000000000000000000000000000000000
6478+ 0000000000000000000000000000840084000000000000000000000000000000
64746479 0000000000000000000000000000000000000000000000000000000000000000
6480+ 000000000000000000000000000000000000840084008400840084848400C6C6
6481+ C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6482+ C600C6C6C600C6C6C60000000000840084008400840084008400C6C6C600FFFF
6483+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6484+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400C6C6
6485+ C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6486+ C600C6C6C600C6C6C60000000000840084000000000000000000000000000000
64756487 0000000000000000000000000000000000000000000000000000000000000000
6488+ 000000000000000000000000000000000000840084008400840084848400FFFF
6489+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6490+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6491+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6492+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6493+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6494+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64766495 0000000000000000000000000000000000000000000000000000000000000000
6496+ 000000000000000000000000000000000000840084008400840084848400FFFF
6497+ FF00848484008484840084848400848484008484840084848400848484008484
6498+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6499+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6500+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6501+ FF00848484008484840084848400848484008484840084848400848484008484
6502+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64776503 0000000000000000000000000000000000000000000000000000000000000000
6504+ 000000000000000000000000000000000000840084008400840084848400FFFF
6505+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6506+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6507+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6508+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6509+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6510+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64786511 0000000000000000000000000000000000000000000000000000000000000000
6512+ 000000000000000000000000000000000000840084008400840084848400FFFF
6513+ FF00848484008484840084848400848484008484840084848400848484008484
6514+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6515+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6516+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6517+ FF00848484008484840084848400848484008484840084848400848484008484
6518+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64796519 0000000000000000000000000000000000000000000000000000000000000000
6520+ 000000000000000000000000000000000000840084008400840084848400FFFF
6521+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6522+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6523+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6524+ FF00FFFFFF00FFFFFF008484840084008400840084008400840084848400FFFF
6525+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6526+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64806527 0000000000000000000000000000000000000000000000000000000000000000
6528+ 000000000000000000000000000000000000840084008400840084848400FFFF
6529+ FF00848484008484840084848400848484008484840084848400848484008484
6530+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6531+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6532+ FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF00FFFF
6533+ FF00848484000000FF0084848400848484008484840084848400848484008484
6534+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64816535 0000000000000000000000000000000000000000000000000000000000000000
6536+ 000000000000000000000000000000000000840084008400840084848400FFFF
6537+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6538+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6539+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6540+ FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF000000
6541+ FF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6542+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64826543 0000000000000000000000000000000000000000000000000000000000000000
6544+ 000000000000000000000000000000000000840084008400840084848400FFFF
6545+ FF00848484008484840084848400848484008484840084848400848484008484
6546+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6547+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6548+ FF00FFFFFF00FFFFFF0084848400840084008400840084008400848484000000
6549+ FF000000FF000000FF00848484000000FF000000FF0084848400848484008484
6550+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64836551 0000000000000000000000000000000000000000000000000000000000000000
6552+ 000000000000000000000000000000000000840084008400840084848400FFFF
6553+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6554+ FF00FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6555+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6556+ FF00FFFFFF00FFFFFF0084848400840084000000FF000000FF000000FF000000
6557+ FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
6558+ FF00FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64846559 0000000000000000000000000000000000000000000000000000000000000000
6560+ 000000000000000000000000000000000000840084008400840084848400FFFF
6561+ FF00848484008484840084848400848484008484840084848400848484008484
6562+ 8400FFFFFF00C6C6C60000000000840084008400840084008400C6C6C600FFFF
6563+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6564+ FF00FFFFFF00FFFFFF00848484008400840084008400840084000000FF000000
6565+ FF00848484000000FF000000FF00848484008484840084848400848484008484
6566+ 8400FFFFFF00C6C6C60000000000840084000000000000000000000000000000
64856567 0000000000000000000000000000000000000000000000000000000000000000
6568+ 000000000000000000000000000000000000840084008400840084848400FFFF
6569+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
6570+ 0000000000000000000000000000840084008400840084008400C6C6C600FFFF
6571+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
6572+ 840084848400848484008484840084008400840084000000FF000000FF000000
6573+ FF000000FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF000000
6574+ 0000000000000000000000000000840084000000000000000000000000000000
64866575 0000000000000000000000000000000000000000000000000000000000000000
6576+ 000000000000000000000000000000000000840084008400840084848400FFFF
6577+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6578+ C600FFFFFF008484840084008400840084008400840084008400C6C6C600FFFF
6579+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6580+ FF00FFFFFF00C6C6C60084008400840084000000FF000000FF00848484000000
6581+ FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6582+ C600FFFFFF008484840084008400840084000000000000000000000000000000
64876583 0000000000000000000000000000000000000000000000000000000000000000
6584+ 000000000000000000000000000000000000840084008400840084848400FFFF
6585+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6586+ C600848484008400840084008400840084008400840084008400C6C6C600FFFF
6587+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
6588+ FF00C6C6C6008400840084008400840084008400840084008400848484000000
6589+ FF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6
6590+ C600848484008400840084008400840084000000000000000000000000000000
64886591 0000000000000000000000000000000000000000000000000000000000000000
6592+ 0000000000000000000000000000000000008400840084008400848484008484
6593+ 8400848484008484840084848400848484008484840084848400848484008484
6594+ 8400840084008400840084008400840084008400840084008400C6C6C600C6C6
6595+ C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
6596+ C600840084008400840084008400840084008400840084008400848484000000
6597+ FF0084848400848484000000FF00848484008484840084848400848484008484
6598+ 8400840084008400840084008400840084000000000000000000000000000000
64896599 0000000000000000000000000000000000000000000000000000000000000000
6600+ 000000000000000000000000000000000000424D3E000000000000003E000000
6601+ 2800000040000000100000000100010000000000800000000000000000000000
6602+ 000000000000000000000000FFFFFF0000000000000000000000000000000000
64906603 0000000000000000000000000000000000000000000000000000000000000000
64916604 0000000000000000000000000000000000000000000000000000000000000000
64926605 0000000000000000000000000000000000000000000000000000000000000000
64936606 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
6607+ 000000000000}
6608+ end
6609+ object MessageImageList: TImageList
6610+ Height = 12
6611+ Width = 32
6612+ Left = 36
6613+ Top = 276
6614+ Bitmap = {
6615+ 494C010104000900040020000C00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
6616+ 0000000000003600000028000000800000002400000001002000000000000048
86086617 0000000000000000000000000000000000000000000000000000000000000000
86096618 0000000000000000000000000000000000000000000000000000000000000000
86106619 0000000000000000000000000000000000000000000000000000000000000000
@@ -9458,60 +7467,56 @@ object GikoForm: TGikoForm
94587467 object FileMenu: TMenuItem
94597468 Caption = #12501#12449#12452#12523'(&F)'
94607469 object L4: TMenuItem
9461- Action = LoginAction
7470+ Action = GikoDM.LoginAction
94627471 AutoCheck = True
94637472 end
94647473 object B4: TMenuItem
9465- Action = NewBoardAction
7474+ Action = GikoDM.NewBoardAction
94667475 end
94677476 object N7: TMenuItem
94687477 Caption = '-'
94697478 end
94707479 object DeleteMenu: TMenuItem
9471- Action = LogDeleteAction
7480+ Action = GikoDM.LogDeleteAction
94727481 end
94737482 object N28: TMenuItem
94747483 Caption = '-'
94757484 end
94767485 object S4: TMenuItem
9477- Action = SelectTextClearAction
7486+ Action = GikoDM.SelectTextClearAction
94787487 end
94797488 object N29: TMenuItem
9480- Action = NameTextClearAction
9481- Caption = #12524#12473#12456#12487#12451#12479#21517#21069#23653#27508#20840#28040#21435'(&N)'
7489+ Action = GikoDM.NameTextClearAction
94827490 end
94837491 object N30: TMenuItem
9484- Action = MailTextClearAction
9485- Caption = #12524#12473#12456#12487#12451#12479#12513#12540#12523#23653#27508#20840#28040#21435'(&N)'
7492+ Action = GikoDM.MailTextClearAction
94867493 end
94877494 object N15: TMenuItem
94887495 Caption = '-'
94897496 end
94907497 object TabSave: TMenuItem
9491- Action = TabsSaveAction
7498+ Action = GikoDM.TabsSaveAction
94927499 end
94937500 object TabOpen: TMenuItem
9494- Action = TabsOpenAction
7501+ Action = GikoDM.TabsOpenAction
94957502 end
94967503 object N66: TMenuItem
94977504 Caption = #36984#25246#12473#12524#12483#12489#12434#20445#23384
94987505 object SelectThreadSave: TMenuItem
9499- Action = SelectItemSaveForHTML
9500- Caption = 'HTML'#21270#12377#12427
7506+ Action = GikoDM.SelectItemSaveForHTML
95017507 end
95027508 object dat1: TMenuItem
9503- Action = SelectItemSaveForDat
9504- Caption = 'DAT'#12398#12414#12414
7509+ Action = GikoDM.SelectItemSaveForDat
95057510 end
95067511 end
95077512 object ExportFavoriteFileAction1: TMenuItem
9508- Action = ExportFavoriteFile
7513+ Action = GikoDM.ExportFavoriteFile
95097514 end
95107515 object N61: TMenuItem
95117516 Caption = '-'
95127517 end
95137518 object ExitMenu: TMenuItem
9514- Action = ExitAction
7519+ Action = GikoDM.ExitAction
95157520 end
95167521 end
95177522 object ViewMenu: TMenuItem
@@ -9519,78 +7524,78 @@ object GikoForm: TGikoForm
95197524 object T2: TMenuItem
95207525 Caption = #12484#12540#12523#12496#12540'(&T)'
95217526 object StdToolBarMenu: TMenuItem
9522- Action = StdToolBarVisibleAction
7527+ Action = GikoDM.StdToolBarVisibleAction
95237528 AutoCheck = True
95247529 end
95257530 object AddressToolBarMenu: TMenuItem
9526- Action = AddressBarVisibleAction
7531+ Action = GikoDM.AddressBarVisibleAction
95277532 AutoCheck = True
95287533 end
95297534 object L7: TMenuItem
9530- Action = LinkBarVisibleAction
7535+ Action = GikoDM.LinkBarVisibleAction
95317536 AutoCheck = True
95327537 end
95337538 object N25: TMenuItem
95347539 Caption = '-'
95357540 end
95367541 object L3: TMenuItem
9537- Action = ListToolBarVisibleAction
7542+ Action = GikoDM.ListToolBarVisibleAction
95387543 AutoCheck = True
95397544 end
95407545 object S3: TMenuItem
9541- Action = ListNameBarVisibleAction
7546+ Action = GikoDM.ListNameBarVisibleAction
95427547 AutoCheck = True
95437548 end
95447549 object N26: TMenuItem
95457550 Caption = '-'
95467551 end
95477552 object B3: TMenuItem
9548- Action = BrowserToolBarVisibleAction
7553+ Action = GikoDM.BrowserToolBarVisibleAction
95497554 AutoCheck = True
95507555 end
95517556 object R2: TMenuItem
9552- Action = BrowserNameBarVisibleAction
7557+ Action = GikoDM.BrowserNameBarVisibleAction
95537558 AutoCheck = True
95547559 end
95557560 object T4: TMenuItem
95567561 Caption = #12502#12521#12454#12470#12479#12502'(&T)'
95577562 object Show1: TMenuItem
9558- Action = BrowserTabVisibleAction
7563+ Action = GikoDM.BrowserTabVisibleAction
95597564 AutoCheck = True
95607565 end
95617566 object N34: TMenuItem
95627567 Caption = '-'
95637568 end
95647569 object T5: TMenuItem
9565- Action = BrowserTabTopAction
7570+ Action = GikoDM.BrowserTabTopAction
95667571 AutoCheck = True
95677572 GroupIndex = 1
95687573 RadioItem = True
95697574 end
95707575 object B5: TMenuItem
9571- Action = BrowserTabBottomAction
7576+ Action = GikoDM.BrowserTabBottomAction
95727577 AutoCheck = True
95737578 GroupIndex = 1
95747579 RadioItem = True
95757580 end
95767581 object N35: TMenuItem
95777582 Caption = '-'
9578- GroupIndex = 1
7583+ GroupIndex = 2
95797584 end
95807585 object A8: TMenuItem
9581- Action = BrowserTabTabStyleAction
7586+ Action = GikoDM.BrowserTabTabStyleAction
95827587 AutoCheck = True
95837588 GroupIndex = 2
95847589 RadioItem = True
95857590 end
95867591 object U2: TMenuItem
9587- Action = BrowserTabButtonStyleAction
7592+ Action = GikoDM.BrowserTabButtonStyleAction
95887593 AutoCheck = True
95897594 GroupIndex = 2
95907595 RadioItem = True
95917596 end
95927597 object F1: TMenuItem
9593- Action = BrowserTabFlatStyleAction
7598+ Action = GikoDM.BrowserTabFlatStyleAction
95947599 AutoCheck = True
95957600 GroupIndex = 2
95967601 RadioItem = True
@@ -9600,53 +7605,53 @@ object GikoForm: TGikoForm
96007605 object CabinetMenu: TMenuItem
96017606 Caption = #12461#12515#12499#12493#12483#12488'(&C)'
96027607 object H1: TMenuItem
9603- Action = CabinetHistoryAction
7608+ Action = GikoDM.CabinetHistoryAction
96047609 AutoCheck = True
96057610 RadioItem = True
96067611 end
96077612 object N54: TMenuItem
9608- Action = CabinetFavoriteAction
7613+ Action = GikoDM.CabinetFavoriteAction
96097614 AutoCheck = True
96107615 end
96117616 object N4: TMenuItem
96127617 Caption = '-'
96137618 end
96147619 object CabinetVisibleMenu: TMenuItem
9615- Action = CabinetVisibleAction
7620+ Action = GikoDM.CabinetVisibleAction
96167621 AutoCheck = True
96177622 end
96187623 end
96197624 object MessageMenu: TMenuItem
9620- Action = MsgBarVisibleAction
7625+ Action = GikoDM.MsgBarVisibleAction
96217626 AutoCheck = True
96227627 end
96237628 object StatusBarMenu: TMenuItem
9624- Action = StatusBarVisibleAction
7629+ Action = GikoDM.StatusBarVisibleAction
96257630 AutoCheck = True
96267631 end
96277632 object MMSep03: TMenuItem
96287633 Caption = '-'
96297634 end
96307635 object LargeIconMenu: TMenuItem
9631- Action = LargeIconAction
7636+ Action = GikoDM.LargeIconAction
96327637 GroupIndex = 2
96337638 RadioItem = True
96347639 end
96357640 object SmallIconMenu: TMenuItem
96367641 Tag = 1
9637- Action = SmallIconAction
7642+ Action = GikoDM.SmallIconAction
96387643 GroupIndex = 2
96397644 RadioItem = True
96407645 end
96417646 object ListMenu: TMenuItem
96427647 Tag = 2
9643- Action = ListIconAction
7648+ Action = GikoDM.ListIconAction
96447649 GroupIndex = 2
96457650 RadioItem = True
96467651 end
96477652 object DetailMenu: TMenuItem
96487653 Tag = 3
9649- Action = DetailIconAction
7654+ Action = GikoDM.DetailIconAction
96507655 GroupIndex = 2
96517656 RadioItem = True
96527657 end
@@ -9655,12 +7660,12 @@ object GikoForm: TGikoForm
96557660 GroupIndex = 2
96567661 end
96577662 object H3: TMenuItem
9658- Action = ArrangeAction
7663+ Action = GikoDM.ArrangeAction
96597664 AutoCheck = True
96607665 GroupIndex = 2
96617666 end
96627667 object I1: TMenuItem
9663- Action = PaneInitAction
7668+ Action = GikoDM.PaneInitAction
96647669 GroupIndex = 2
96657670 end
96667671 object N27: TMenuItem
@@ -9668,56 +7673,52 @@ object GikoForm: TGikoForm
96687673 GroupIndex = 2
96697674 end
96707675 object N10: TMenuItem
9671- Action = StopAction
7676+ Action = GikoDM.StopAction
96727677 GroupIndex = 2
96737678 end
96747679 end
96757680 object B1: TMenuItem
96767681 Caption = #26495'(&B)'
96777682 object N3: TMenuItem
9678- Action = ListNumberVisibleAction
7683+ Action = GikoDM.ListNumberVisibleAction
96797684 AutoCheck = True
96807685 end
96817686 object U1: TMenuItem
9682- Action = UpFolderAction
7687+ Action = GikoDM.UpFolderAction
96837688 end
96847689 object N2: TMenuItem
96857690 Caption = '-'
96867691 end
96877692 object A1: TMenuItem
9688- Action = AllItemAction
7693+ Action = GikoDM.AllItemAction
96897694 AutoCheck = True
96907695 GroupIndex = 1
96917696 RadioItem = True
9692- ShortCut = 16433
96937697 end
96947698 object L1: TMenuItem
9695- Action = LogItemAction
7699+ Action = GikoDM.LogItemAction
96967700 AutoCheck = True
96977701 GroupIndex = 1
96987702 RadioItem = True
9699- ShortCut = 16434
97007703 end
97017704 object N5: TMenuItem
9702- Action = NewItemAction
7705+ Action = GikoDM.NewItemAction
97037706 AutoCheck = True
97047707 GroupIndex = 1
97057708 RadioItem = True
9706- ShortCut = 16435
97077709 end
97087710 object S2: TMenuItem
9709- Action = SelectItemAction
7711+ Action = GikoDM.SelectItemAction
97107712 AutoCheck = True
97117713 GroupIndex = 1
97127714 RadioItem = True
9713- ShortCut = 16436
97147715 end
97157716 object N39: TMenuItem
97167717 Caption = '-'
97177718 GroupIndex = 1
97187719 end
97197720 object T6: TMenuItem
9720- Action = ThreadEditorAction
7721+ Action = GikoDM.ThreadEditorAction
97217722 GroupIndex = 1
97227723 end
97237724 object N19: TMenuItem
@@ -9725,11 +7726,11 @@ object GikoForm: TGikoForm
97257726 GroupIndex = 1
97267727 end
97277728 object KidokuMenu: TMenuItem
9728- Action = KidokuAction
7729+ Action = GikoDM.KidokuAction
97297730 GroupIndex = 1
97307731 end
97317732 object MidokuMenu: TMenuItem
9732- Action = MidokuAction
7733+ Action = GikoDM.MidokuAction
97337734 GroupIndex = 1
97347735 end
97357736 object N23: TMenuItem
@@ -9737,31 +7738,31 @@ object GikoForm: TGikoForm
97377738 GroupIndex = 1
97387739 end
97397740 object OpenLogFolder: TMenuItem
9740- Action = LogFolderOpenAction
7741+ Action = GikoDM.LogFolderOpenAction
97417742 GroupIndex = 1
97427743 end
97437744 object B6: TMenuItem
9744- Action = BoardIEAction
7745+ Action = GikoDM.BoardIEAction
97457746 GroupIndex = 1
97467747 end
97477748 object BrowsBoradHeadAction1: TMenuItem
9748- Action = BrowsBoradHeadAction
7749+ Action = GikoDM.BrowsBoradHeadAction
97497750 GroupIndex = 1
97507751 end
97517752 object URLC3: TMenuItem
9752- Action = SelectItemURLCopyAction
7753+ Action = GikoDM.SelectItemURLCopyAction
97537754 GroupIndex = 1
97547755 end
97557756 object SelectItemNameCopyAction1: TMenuItem
9756- Action = SelectItemNameCopyAction
7757+ Action = GikoDM.SelectItemNameCopyAction
97577758 GroupIndex = 1
97587759 end
97597760 object URLN2: TMenuItem
9760- Action = SelectItemNameURLCopyAction
7761+ Action = GikoDM.SelectItemNameURLCopyAction
97617762 GroupIndex = 1
97627763 end
97637764 object AllSelectMenu: TMenuItem
9764- Action = AllSelectAction
7765+ Action = GikoDM.AllSelectAction
97657766 GroupIndex = 1
97667767 end
97677768 object N21: TMenuItem
@@ -9769,39 +7770,39 @@ object GikoForm: TGikoForm
97697770 GroupIndex = 1
97707771 end
97717772 object D1: TMenuItem
9772- Action = SelectListReloadAction
7773+ Action = GikoDM.SelectListReloadAction
97737774 GroupIndex = 1
97747775 end
97757776 object D2: TMenuItem
9776- Action = SelectThreadReloadAction
7777+ Action = GikoDM.SelectThreadReloadAction
97777778 GroupIndex = 1
97787779 end
97797780 end
97807781 object S1: TMenuItem
97817782 Caption = #12473#12524'(&R)'
97827783 object G2: TMenuItem
9783- Action = BrowserMaxAction
7784+ Action = GikoDM.BrowserMaxAction
97847785 end
97857786 object About1: TMenuItem
9786- Action = BrowserMinAction
7787+ Action = GikoDM.BrowserMinAction
97877788 end
97887789 object N11: TMenuItem
97897790 Caption = '-'
97907791 end
97917792 object T3: TMenuItem
9792- Action = ScrollTopAction
7793+ Action = GikoDM.ScrollTopAction
97937794 end
97947795 object L2: TMenuItem
9795- Action = ScrollLastAction
7796+ Action = GikoDM.ScrollLastAction
97967797 end
97977798 object N12: TMenuItem
9798- Action = ScrollNewAction
7799+ Action = GikoDM.ScrollNewAction
97997800 end
98007801 object K1: TMenuItem
9801- Action = ScrollKokoAction
7802+ Action = GikoDM.ScrollKokoAction
98027803 end
98037804 object N74: TMenuItem
9804- Action = JumpToNumOfResAction
7805+ Action = GikoDM.JumpToNumOfResAction
98057806 GroupIndex = 1
98067807 end
98077808 object N13: TMenuItem
@@ -9809,12 +7810,12 @@ object GikoForm: TGikoForm
98097810 GroupIndex = 1
98107811 end
98117812 object A11: TMenuItem
9812- Action = AllResAction
7813+ Action = GikoDM.AllResAction
98137814 AutoCheck = True
98147815 GroupIndex = 1
98157816 end
98167817 object S5: TMenuItem
9817- Action = SelectResAction
7818+ Action = GikoDM.SelectResAction
98187819 AutoCheck = True
98197820 GroupIndex = 1
98207821 end
@@ -9823,7 +7824,7 @@ object GikoForm: TGikoForm
98237824 GroupIndex = 1
98247825 end
98257826 object R1: TMenuItem
9826- Action = EditorAction
7827+ Action = GikoDM.EditorAction
98277828 GroupIndex = 1
98287829 end
98297830 object N14: TMenuItem
@@ -9834,11 +7835,11 @@ object GikoForm: TGikoForm
98347835 Caption = #12479#12502'(&T)'
98357836 GroupIndex = 1
98367837 object C1: TMenuItem
9837- Action = BrowserTabCloseAction
7838+ Action = GikoDM.BrowserTabCloseAction
98387839 GroupIndex = 1
98397840 end
98407841 object V1: TMenuItem
9841- Action = NotSelectTabCloseAction
7842+ Action = GikoDM.NotSelectTabCloseAction
98427843 GroupIndex = 1
98437844 end
98447845 object N24: TMenuItem
@@ -9846,7 +7847,7 @@ object GikoForm: TGikoForm
98467847 GroupIndex = 1
98477848 end
98487849 object D4: TMenuItem
9849- Action = ActiveLogDeleteAction
7850+ Action = GikoDM.ActiveLogDeleteAction
98507851 GroupIndex = 1
98517852 end
98527853 object N62: TMenuItem
@@ -9854,7 +7855,7 @@ object GikoForm: TGikoForm
98547855 GroupIndex = 1
98557856 end
98567857 object A6: TMenuItem
9857- Action = AllTabCloseAction
7858+ Action = GikoDM.AllTabCloseAction
98587859 GroupIndex = 1
98597860 end
98607861 object N17: TMenuItem
@@ -9862,19 +7863,19 @@ object GikoForm: TGikoForm
98627863 GroupIndex = 1
98637864 end
98647865 object L5: TMenuItem
9865- Action = LeftmostTabSelectAction
7866+ Action = GikoDM.LeftmostTabSelectAction
98667867 GroupIndex = 1
98677868 end
98687869 object L6: TMenuItem
9869- Action = LeftTabSelectAction
7870+ Action = GikoDM.LeftTabSelectAction
98707871 GroupIndex = 1
98717872 end
98727873 object A7: TMenuItem
9873- Action = RightTabSelectAction
7874+ Action = GikoDM.RightTabSelectAction
98747875 GroupIndex = 1
98757876 end
98767877 object R3: TMenuItem
9877- Action = RightmostTabSelectAction
7878+ Action = GikoDM.RightmostTabSelectAction
98787879 GroupIndex = 1
98797880 end
98807881 end
@@ -9883,23 +7884,23 @@ object GikoForm: TGikoForm
98837884 GroupIndex = 1
98847885 end
98857886 object T1: TMenuItem
9886- Action = ShowThreadAction
7887+ Action = GikoDM.ShowThreadAction
98877888 GroupIndex = 1
98887889 end
98897890 object B2: TMenuItem
9890- Action = ShowBoardAction
7891+ Action = GikoDM.ShowBoardAction
98917892 GroupIndex = 1
98927893 end
98937894 object URLC2: TMenuItem
9894- Action = URLCopyAction
7895+ Action = GikoDM.URLCopyAction
98957896 GroupIndex = 1
98967897 end
98977898 object T9: TMenuItem
9898- Action = NameCopyAction
7899+ Action = GikoDM.NameCopyAction
98997900 GroupIndex = 1
99007901 end
99017902 object URLN1: TMenuItem
9902- Action = NameURLCopyAction
7903+ Action = GikoDM.NameURLCopyAction
99037904 GroupIndex = 1
99047905 end
99057906 object N49: TMenuItem
@@ -9907,18 +7908,16 @@ object GikoForm: TGikoForm
99077908 GroupIndex = 1
99087909 end
99097910 object A2: TMenuItem
9910- Action = ItemReloadAction
7911+ Action = GikoDM.ItemReloadAction
99117912 GroupIndex = 1
99127913 end
99137914 object N8: TMenuItem
99147915 Caption = '-'
99157916 GroupIndex = 1
99167917 end
9917- object N42: TMenuItem
9918- Action = AntiIndividualAbonDlgAction
9919- Caption = #20491#21029#12354#12412#65374#12435#35299#38500
7918+ object AntiIndivAbonMenuItem: TMenuItem
7919+ Action = GikoDM.AntiIndividualAbonDlgAction
99207920 GroupIndex = 1
9921- Hint = #20491#21029#12354#12412#65374#12435#35299#38500
99227921 end
99237922 end
99247923 object FavoriteMenu: TMenuItem
@@ -9929,42 +7928,39 @@ object GikoForm: TGikoForm
99297928 object ToolMenu: TMenuItem
99307929 Caption = #12484#12540#12523'(&T)'
99317930 object Find1: TMenuItem
9932- Action = SearchAction
7931+ Action = GikoDM.SearchAction
99337932 end
99347933 object RoundMenu: TMenuItem
9935- Action = RoundAction
7934+ Action = GikoDM.RoundAction
99367935 end
99377936 object MMSep04: TMenuItem
99387937 Caption = '-'
99397938 end
99407939 object K3: TMenuItem
9941- Action = KotehanAction
7940+ Action = GikoDM.KotehanAction
99427941 end
99437942 object K2: TMenuItem
9944- Action = KeySettingAction
7943+ Action = GikoDM.KeySettingAction
99457944 end
99467945 object T7: TMenuItem
9947- Action = ToolBarSettingAction
7946+ Action = GikoDM.ToolBarSettingAction
99487947 end
99497948 object N40: TMenuItem
99507949 Caption = '-'
99517950 end
99527951 object NG1: TMenuItem
9953- Action = EditNGAction
7952+ Action = GikoDM.EditNGAction
99547953 end
99557954 object NG2: TMenuItem
99567955 Caption = 'NG'#12527#12540#12489#35501#12415#36796#12415
99577956 object GoBack: TMenuItem
9958- Caption = #19968#12388#21069
9959- OnClick = GoBackClick
7957+ Action = GikoDM.GoBackAction
99607958 end
99617959 object Reload: TMenuItem
9962- Caption = #20877#35501#12415#36796#12415
9963- OnClick = ReloadClick
7960+ Action = GikoDM.ReloadAction
99647961 end
99657962 object GoFoward: TMenuItem
9966- Caption = #19968#12388#24460#12429
9967- OnClick = GoFowardClick
7963+ Action = GikoDM.GoFowardAction
99687964 end
99697965 end
99707966 object N43: TMenuItem
@@ -9974,41 +7970,40 @@ object GikoForm: TGikoForm
99747970 Caption = #12503#12521#12464#12452#12531'(&P)'
99757971 end
99767972 object OptionMenu: TMenuItem
9977- Action = OptionAction
7973+ Action = GikoDM.OptionAction
99787974 end
99797975 end
99807976 object HelpMenu: TMenuItem
99817977 Caption = #12504#12523#12503'(&H)'
99827978 object H4: TMenuItem
9983- Action = GikoHelpAction
7979+ Action = GikoDM.GikoHelpAction
99847980 end
99857981 object WikiFAQ: TMenuItem
9986- Action = WikiFAQWebPageAction
9987- Caption = #12462#12467#12490#12499'Wiki FAQ'
7982+ Action = GikoDM.WikiFAQWebPageAction
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
@@ -11681,50 +8485,56 @@ object GikoForm: TGikoForm
116818485 object ResRangePopupMenu: TPopupMenu
116828486 Left = 37
116838487 Top = 472
11684- object A14: TMenuItem
11685- Action = AllResAction
8488+ object ResRangeAllPMenuItem: TMenuItem
8489+ Action = GikoDM.AllResAction
116868490 AutoCheck = True
8491+ GroupIndex = 2
116878492 end
11688- object N1001: TMenuItem
11689- Action = OnlyAHundredResAction
8493+ object ResRangeHundPMenuItem: TMenuItem
8494+ Action = GikoDM.OnlyAHundredResAction
116908495 AutoCheck = True
8496+ GroupIndex = 2
116918497 end
11692- object N501: TMenuItem
11693- Action = OnlyKokoResAction
8498+ object ResRangeKokoPMenuItem: TMenuItem
8499+ Action = GikoDM.OnlyKokoResAction
116948500 AutoCheck = True
8501+ GroupIndex = 2
116958502 end
11696- object N22: TMenuItem
11697- Action = OnlyNewResAction
8503+ object ResRangeNewPMenuItem: TMenuItem
8504+ Action = GikoDM.OnlyNewResAction
116988505 AutoCheck = True
8506+ GroupIndex = 2
116998507 end
117008508 object N69: TMenuItem
117018509 Caption = '-'
8510+ GroupIndex = 2
117028511 end
11703- object S7: TMenuItem
11704- Action = SelectResAction
8512+ object ResRangeSelectPMenuItem: TMenuItem
8513+ Action = GikoDM.SelectResAction
117058514 AutoCheck = True
8515+ GroupIndex = 2
117068516 end
117078517 end
117088518 object ThreadRangePopupMenu: TPopupMenu
117098519 Left = 37
117108520 Top = 436
117118521 object A15: TMenuItem
11712- Action = AllItemAction
8522+ Action = GikoDM.AllItemAction
117138523 AutoCheck = True
117148524 end
117158525 object L8: TMenuItem
11716- Action = LogItemAction
8526+ Action = GikoDM.LogItemAction
117178527 AutoCheck = True
117188528 end
117198529 object N67: TMenuItem
11720- Action = NewItemAction
8530+ Action = GikoDM.NewItemAction
117218531 AutoCheck = True
117228532 end
117238533 object N68: TMenuItem
117248534 Caption = '-'
117258535 end
117268536 object S6: TMenuItem
11727- Action = SelectItemAction
8537+ Action = GikoDM.SelectItemAction
117288538 AutoCheck = True
117298539 end
117308540 end
@@ -11732,4 +8542,11 @@ object GikoForm: TGikoForm
117328542 Left = 37
117338543 Top = 403
117348544 end
8545+ object GikoApplicationEvents: TApplicationEvents
8546+ OnDeactivate = GikoApplicationEventsDeactivate
8547+ OnException = GikoApplicationEventsException
8548+ OnMessage = GikoApplicationEventsMessage
8549+ Left = 4
8550+ Top = 373
8551+ end
117358552 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;
517- N1001: TMenuItem;
518- N501: TMenuItem;
519- N22: TMenuItem;
520- OnlyAHundredResAction: TAction;
521- OnlyNewResAction: TAction;
522- OnlyKokoResAction: TAction;
523- A14: TMenuItem;
524- BrowsBoradHeadAction: TAction;
373+ ResRangeHundPMenuItem: TMenuItem;
374+ ResRangeKokoPMenuItem: TMenuItem;
375+ ResRangeNewPMenuItem: TMenuItem;
376+ ResRangeAllPMenuItem: TMenuItem;
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;
534- S7: TMenuItem;
535- TabAutoSaveAction: TAction;
536- TabAutoLoadAction: TAction;
385+ ResRangeSelectPMenuItem: TMenuItem;
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,41 @@ 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);
544+ procedure FavoriteTreeViewClick(Sender: TObject);
545+ procedure FavoriteTreeViewCollapsing(Sender: TObject; Node: TTreeNode;
546+ var AllowCollapse: Boolean);
547+ procedure FavoriteTreeViewExpanding(Sender: TObject; Node: TTreeNode;
548+ var AllowExpansion: Boolean);
549+ procedure TreeViewCollapsing(Sender: TObject; Node: TTreeNode;
550+ var AllowCollapse: Boolean);
551+ procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode;
552+ var AllowExpansion: Boolean);
553+ procedure TreeViewMouseUp(Sender: TObject; Button: TMouseButton;
554+ Shift: TShiftState; X, Y: Integer);
894555 private
895556 { Private éŒ¾ }
896557 FSortIndex: Integer;
897558 FSortOrder: Boolean;
898-
899559 FEnabledCloseButton: Boolean;
900-// ThreadCreate: TThreadCreate;
901-
902560 FClickNode: TTreeNode;
903561 FHttpState: Boolean;
904562 FHint: TResPopup;
905563 FPreviewBrowser: TWebBrowser;
906564 FPreviewURL: string;
907-
908565 FBrowserSizeHeight: Integer;
909566 FBrowserSizeWidth: Integer;
910-
911-// FFavorite: TFavorite;
912567 FTabHintIndex: Integer;
913568 FListStyle: TViewStyle; //ƒŠƒXƒgƒAƒCƒRƒ“ƒXƒ^ƒCƒ‹
914569 FItemNoVisible: Boolean; //ƒŠƒXƒg”ԍ†•\Ž¦ƒtƒ‰ƒO
@@ -921,30 +576,19 @@ type
921576 FWorkCount: Integer;
922577 FNameCookie: string;
923578 FMailCookie: string;
924-// FLastRoundTime: TDateTime;
925- BrowserNullTab: TBrowserRecord;
926-// DoubleClickOccurred: array [TMouseButton] of Boolean;
927579 FDownloadTitle: string; //ƒ_ƒEƒ“ƒ[ƒh’†‚̃^ƒCƒgƒ‹–¼
928580 FDownloadMax: Integer; //ƒ_ƒEƒ“ƒ[ƒh’†‚̍őåƒTƒCƒY
929581 FEvent: THTMLDocumentEventSink;//ƒuƒ‰ƒEƒUƒhƒLƒ…ƒƒ“ƒgƒCƒxƒ“ƒg
930-
931- // Fkeynum : Integer; //ƒL[ƒ{[ƒhƒŒƒXƒ|ƒbƒvƒAƒbƒv—p
932-
933582 IsDraggingSelectComboBox : Boolean;
934583 DraggingSelectComboBoxPosition : TPoint;
935-
936584 FSearchDialog: TSearchDialog;
937-
938585 FDropSpaceNode: TTreeNode;
939-
940586 FDragTime : Cardinal; ///< ƒŠƒ“ƒN‚ÌD&D—p
941587 FDragButton : TToolButton; ///< ƒŠƒ“ƒN‚ÌD&D—p‚ÉDrag‚µ‚Ä‚éButton•Û‘¶
942588 FDragWFirst : Boolean; ///< WebTab‚ÌD&D—p
943-
944589 FListViewBackGroundColor : TColor; ///< ListView‚ÌBackGroundColor
945590 FUseOddResOddColor : Boolean; ///< Žæ“¾ƒŒƒX”‚ƃXƒŒƒbƒh‚̃ŒƒX”‚ªˆá‚Á‚½‚Æ‚«‚É‘¼‚̐F‚Å•\Ž¦
946591 FOddColor : TColor; ///< ‚»‚̐F
947-
948592 FSelectResWord : string; ///< ƒŒƒXižƒ[ƒh
949593 FIsIgnoreResize : TResizeType; ///< ƒŠƒTƒCƒYƒCƒxƒ“ƒg‚𖳎‹‚·‚é‚©‚Ç‚¤‚©
950594 FIsMinimize : TMinimizeType; ///< Å¬‰»‚µ‚Ä‚¢‚éÅ’†‚©
@@ -956,50 +600,27 @@ type
956600 FStartUp : Boolean;
957601 FIsHandledWheel : Boolean; ///< Šù‚Ɏ󂯎æ‚Á‚½ WM_MOUSEWHEEL ‚©‚Ç‚¤‚©
958602 DiffComp: Boolean; //Add by Genyakun ƒXƒŒ‚ªXV‚³‚ꂽ‚Æ‚«‚ÉTrue‚É‚È‚é
959- FOrigenCaption: String; //‚¨‹C‚É“ü‚èƒcƒŠ[‚̃AƒCƒeƒ€•ÒWŽž‚̕ҏW‘O‚Ì•¶Žš—ñ
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-
603+ FOrigenCaption: String; //‚¨‹C‚É“ü‚èƒcƒŠ[‚̃AƒCƒeƒ€•ÒWŽž‚̕ҏW‘O‚Ì•¶Žš—ñ
966604 procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
967605 procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
968606 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
969607 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
970608 procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
971-
972-
973609 procedure ListClick;
974610 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;
980611 function Hook(var Message: TMessage): Boolean;
981612 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-
987613 procedure SetMenuFont;
988614 procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
989615 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
990616 procedure FavoriteClick(Sender: TObject); overload;
991617 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
992- procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
993618 function OnDocumentContextMenu(Sender: TObject): WordBool;
994- procedure SetResPopupText(ThreadItem : TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
995619 procedure ShowTextPopup;
996- procedure SetLinkBar;
997620 function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
998621 procedure MenuBarChevronMenu;
999622 procedure LinkBarChevronMenu;
1000623 procedure ToolBarChevronMenu(ToolBar: TToolBar);
1001- procedure ModifySelectList;
1002- procedure FavoriteBrowseFolder( node: TTreeNode );
1003624 procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
1004625 procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1005626 procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@@ -1012,8 +633,6 @@ type
1012633 //
1013634 procedure SetListViewBackGroundColor(value: TColor);
1014635 procedure BBSMenuItemOnClick( Sender : TObject );
1015- //
1016- procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1017636 /// CoolBar ‚̐ݒè‚ð•Ï”‚É•Û‘¶
1018637 procedure SaveCoolBarSettings;
1019638 procedure SaveMainCoolBarSettings;
@@ -1029,41 +648,26 @@ type
1029648 procedure TreeClick( Node : TTreeNode );
1030649 /// TreeView ‚ªƒ_ƒuƒ‹ƒNƒŠƒbƒN‚³‚ꂽ
1031650 procedure TreeDoubleClick( Node : TTreeNode );
1032- /// ƒMƒRƒiƒr‚̃ƒbƒZ[ƒWƒ‹[ƒv‚ð‰¡Žæ‚肵‚Ü‚·
1033- procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1034- /// ƒuƒ‰ƒEƒU‚̃L[ƒ_ƒEƒ“ƒCƒxƒ“ƒg
1035- /// ƒCƒxƒ“ƒg‚ðŽæ‚舵‚Á‚½ê‡‚Í True ‚ð•Ô‚·
1036-// function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1037651 /// ŠeŠ‚É‚ ‚éƒLƒƒƒrƒlƒbƒgE BBS ƒƒjƒ…[‚ðƒZƒbƒg^XV
1038652 procedure SetBBSMenu;
1039- function WebBrowserClick(Sender: TObject): WordBool;
1040- procedure SkinorCSSFilesCopy(path: string);
1041653 /// ƒ^ƒuŽæ“¾
1042654 function GetTabURLs(AStringList: TStringList) : Boolean;
1043- /// ƒ^ƒu•Û‘¶
1044- function SaveTabURLs : Boolean;
1045- /// ƒ^ƒu“ǂݏo‚µ
1046- function LoadTabURLs : Boolean;
1047- /// ƒoƒ“ƒh•‚ðÄŒvŽZEÄÝ’è‚·‚é
1048- procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1049- /// ListView ‚Ì Column ‚ð^‚̃Jƒ‰ƒ€‚É•ÏŠ·
1050- function ActiveListTrueColumn( column : TListColumn ) : TListColumn;
1051655 /// ListColumnPopupMenu ƒAƒCƒeƒ€‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
1052656 procedure ListColumnPopupMenuOnClick( Sender : TObject );
1053657 // BrowserRecord‚ɂ‚¢‚Ä‚¢‚éFBrowser‚ðŠO‚·
1054658 procedure ReleaseBrowser( BRecord: TBrowserRecord);
1055- //! ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[ŠJŽn
1056- procedure OnGestureStart(Sender: TObject);
1057- //! ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[’†
1058- procedure OnGestureMove(Sender: TObject);
1059- //! ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[I—¹
1060- procedure OnGestureEnd(Sender: TObject);
1061659 //! i‚荞‚Ý•¶Žš—ñÝ’è
1062660 procedure SetSelectWord( const text : string );
1063- //ƒuƒ‰ƒEƒU‚̍ĕ`‰æ true:‘S‚Ẵ^ƒu false:ƒAƒNƒeƒBƒu‚ȃ^ƒu‚Ì‚Ý
1064- procedure RepaintAllTabsBrowser();
1065- //ƒŠƒ“ƒN‚Ì•¶Žš—ñ‚©‚烌ƒXƒ|ƒbƒvƒAƒbƒv—p‚ÌURL‚É•ÏŠ·‚·‚é
1066- function GetRespopupURL(AText, AThreadURL : string): string;
661+ //Œ»Ý‚̃J[ƒ\ƒ‹‚ðŽæ“¾‚·‚é
662+ function GetScreenCursor(): TCursor;
663+ //ƒJ[ƒ\ƒ‹‚ðÝ’è‚·‚é
664+ procedure SetScreenCursor(Cursor : TCursor);
665+ //! ƒAƒNƒVƒ‡ƒ“‚̃`ƒFƒbƒNó‘Ԃ̏‰Šú‰»
666+ procedure InitActionChecked();
667+ //! ƒ_ƒEƒ“ƒ[ƒhƒRƒ“ƒgƒ[ƒ‹ƒXƒŒƒbƒh‚̐¶¬
668+ procedure CreateControlThread();
669+ //! ƒuƒ‰ƒEƒU‚̐¶¬
670+ procedure CreateBrowsers(count: Integer);
1067671 protected
1068672 procedure CreateParams(var Params: TCreateParams); override;
1069673 procedure WndProc(var Message: TMessage); override;
@@ -1073,34 +677,44 @@ type
1073677
1074678 public
1075679 { Public éŒ¾ }
1076- LastRoundTime: TDateTime;
680+ LastRoundTime: TDateTime;
681+ BrowserNullTab: TBrowserRecord;
1077682 FControlThread: TThreadControl;
1078683 procedure MoveToURL(const inURL: string);
1079- function InsertBrowserTab(
1080- ThreadItem : TThreadItem;
1081- ActiveTab : Boolean = True
1082- ) : TBrowserRecord;
684+ function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;
1083685 procedure ReloadBBS;
1084686 function GetHttpState: Boolean;
1085687 procedure SetEnabledCloseButton(Enabled: Boolean);
1086688 function GetTreeNode(Data: TObject): TTreeNode;
1087- procedure AppFormDeactivate(Sender: TObject);
1088689 procedure ListViewAllSelect;
1089690 property ListStyle: TViewStyle read FListStyle write FListStyle;
1090691 property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1091692 property ViewType: TGikoViewType read FViewType write FViewType;
1092693 property NameCookie: string read FNameCookie write FNameCookie;
1093694 property MailCookie: string read FMailCookie write FMailCookie;
695+ property ClickNode: TTreeNode read FClickNode write FClickNode;
696+ property TreeType: TGikoTreeType read FTreeType write FTreeType;
697+ property ActiveContent: TBrowserRecord read FActiveContent write FActiveContent;
698+ property ResRangeMenuSelect: Longint read FResRangeMenuSelect write FResRangeMenuSelect;
699+ property SelectResWord : string read FSelectResWord write FSelectResWord;
700+ property BrowserSizeWidth: Integer read FBrowserSizeWidth write FBrowserSizeWidth;
701+ property BrowserSizeHeight: Integer read FBrowserSizeHeight write FBrowserSizeHeight;
702+ property SearchDialog: TSearchDialog read FSearchDialog write FSearchDialog;
703+ property ToolBarSettingSender : TToolBarSettingSenderType
704+ read FToolBarSettingSender write FToolBarSettingSender;
705+ property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;
706+ property SortIndex: Integer read FSortIndex write FSortIndex;
707+ property SortOrder: Boolean read FSortOrder write FSortOrder;
708+ property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;
709+ property WorkCount: Integer read FWorkCount write FWorkCount;
1094710 procedure SetContent(inThread: TBrowserRecord);
1095711 function GetActiveContent: TThreadItem;
1096712 function GetActiveList: TObject;
713+
1097714 procedure SetListViewType(AViewType: TGikoViewType); overload;
1098715 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);
1101716 procedure PlaySound(SoundEventName: string);
1102717 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1103- procedure DeleteHistory( threadItem: TThreadItem );
1104718 procedure ClearHistory;
1105719 procedure SaveHistory;
1106720 procedure LoadHistory;
@@ -1132,16 +746,65 @@ type
1132746 procedure IndividualAbon(Atag, Atype : Integer);
1133747 //IDƒAƒ“ƒJ[’ljÁ
1134748 procedure IDAnchorPopup(Abody :string);
749+ //ƒuƒ‰ƒEƒU‚̍ĕ`‰æ true:‘S‚Ẵ^ƒu false:ƒAƒNƒeƒBƒu‚ȃ^ƒu‚Ì‚Ý
750+ procedure RepaintAllTabsBrowser();
751+ //ƒŠƒ“ƒNƒo[Ý’è
752+ procedure SetLinkBar;
753+ procedure FavoriteBrowseFolder( node: TTreeNode );
754+ //ƒXƒŒƒbƒh‚̃_ƒEƒ“ƒ[ƒh
755+ procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
756+ //”‚̃_ƒEƒ“ƒ[ƒh
757+ procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
758+ //—š—ð‚©‚çíœ
759+ procedure DeleteHistory( threadItem: TThreadItem );
760+ //ƒ^ƒu‚ðíœ
761+ procedure DeleteTab(ThreadItem: TThreadItem); overload;
762+ procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
763+ //Œ»Ý•\Ž¦‚µ‚Ä‚¢‚éƒXƒŒƒbƒh‚ðƒXƒNƒ[ƒ‹
764+ procedure BrowserMovement(const AName: string); overload;
765+ //Žw’肵‚½ƒuƒ‰ƒEƒU‚ðƒXƒNƒ[ƒ‹
766+ procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
767+ //Application‚ÌMainForm‚ðŽæ“¾‚·‚é
768+ function GetMainForm(): TComponent;
769+ procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
770+ //! ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[ŠJŽn
771+ procedure OnGestureStart(Sender: TObject);
772+ //! ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[’†
773+ procedure OnGestureMove(Sender: TObject);
774+ //! ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[I—¹
775+ procedure OnGestureEnd(Sender: TObject);
776+ /// ƒoƒ“ƒh•‚ðÄŒvŽZEÄÝ’è‚·‚é
777+ procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
778+ //ƒXƒNƒŠ[ƒ“ã‚ÉEditorForm‚ª‚¢‚é‚©
779+ function EditorFormExists(): boolean;
780+ //ƒXƒNƒŠ[ƒ“ã‚É‚¢‚é‚·‚ׂĂÌEditorForm‚©‚ç–¼‘O—š—ð‚ðíœ‚·‚é
781+ procedure AllEditroFormNameTextClearClear();
782+ //ƒXƒNƒŠ[ƒ“ã‚É‚¢‚é‚·‚ׂĂÌEditorForm‚©‚烁[ƒ‹—š—ð‚ðíœ‚·‚é
783+ procedure AllEditroFormMailTextClearClear();
784+ //ListView‚Å‘I‘ð‚³‚ê‚Ä‚¢‚éƒAƒCƒeƒ€‚ðŽæ“¾‚·‚é
785+ procedure SelectListItem(List: TList);
786+ /// ƒ^ƒu•Û‘¶
787+ function SaveTabURLs : Boolean;
788+ /// ƒ^ƒu“ǂݏo‚µ
789+ function LoadTabURLs : Boolean;
790+ //Žw’肵‚½ƒŒƒX‚ðƒRƒs[‚·‚é
791+ procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
792+ //
793+ procedure ModifySelectList;
794+ //
795+ procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
796+ //
797+ procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
798+ //
799+ procedure SetSelectRoundName(Sender: TObject);
800+ //
801+ function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
802+ //
803+ function WebBrowserClick(Sender: TObject): WordBool;
804+ //! ƒc[ƒ‹ƒo[‚ɃXƒŒiž‚݃Rƒ“ƒ{ƒ{ƒbƒNƒX‚ðÝ’è‚·‚é
805+ procedure SetSelectComboBox();
1135806 published
1136807 property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1137- //TAction‚ÅGetActiveContent‚ªnilˆÈŠO‚Å—LŒø‚É‚È‚é
1138- procedure DependActiveCntentActionUpdate(Sender: TObject);
1139- //TAction‚ÅGetActiveContent‚ªnilˆÈŠO‚©‚ƒƒO‚ðŽ‚Á‚Ä‚¢‚é‚Æ—LŒø‚É‚È‚é
1140- procedure DependActiveCntentLogActionUpdate(Sender: TObject);
1141- //TAction‚ÅActiveList‚ªTBoard‚Å—LŒø‚É‚È‚é
1142- procedure DependActiveListTBoardActionUpdate(Sender: TObject);
1143- //—áŠOˆ—‚³‚ê‚È‚©‚Á‚½—áŠO‚ðˆ—‚·‚é
1144- procedure AppException(Sender: TObject; E: Exception);
1145808 end;
1146809
1147810 TFavoriteMenuItem = class(TMenuItem)
@@ -1188,36 +851,25 @@ var
1188851 implementation
1189852
1190853 uses
854+ GikoUtil, IndividualAbon, Math, Kotehan, KeySetting,
855+ YofUtils, ShellAPI, ToolBarUtil, ToolBarSetting,
856+ GikoXMLDoc, RoundName, IniFiles, FavoriteAdd,
857+ FavoriteArrange, AddressHistory, Preview, Gesture,
1191858 About, Option, Round, Splash, Sort, ListSelect, Imm,
1192859 NewBoard, MojuUtils, Clipbrd, GikoBayesian,Y_TextConverter,
1193- HTMLCreate;
860+ HTMLCreate, ListViewUtils, GikoDataModule;
1194861
1195862 const
1196863 CAPTION_NAME: string = 'ƒMƒRƒiƒr';
1197864 BLANK_HTML: string = 'about:blank';
1198- SELECTCOMBOBOX_NAME: string = ''; // 'ƒXƒŒƒbƒhižŒŸõ';
1199- SELECTCOMBOBOX_COLOR: TColor = clWindow;
865+ BROWSER_COUNT = 5; //ƒuƒ‰ƒEƒU‚̐”
1200866 //D&D臒l
1201867 DandD_THRESHOLD = 5; //D&D‚Ì臒lipixcel)
1202- //ƒcƒŠ[EƒŠƒXƒgƒAƒCƒRƒ“
1203- ITEM_ICON_2CH1 = 0; //2chƒAƒCƒRƒ“
1204- ITEM_ICON_2CH2 = 1; //2chƒAƒCƒRƒ“
1205- ITEM_ICON_CATEGORY1 = 2; //ƒJƒeƒSƒŠƒAƒCƒRƒ“
1206- ITEM_ICON_CATEGORY2 = 3; //ƒJƒeƒSƒŠƒAƒCƒRƒ“
1207- ITEM_ICON_BOARD_NOSUBJECT = 3; //“ǂݍž‚Ü‚ê‚Ä‚¢‚È‚¢”ƒAƒCƒRƒ“
1208- ITEM_ICON_BOARD1 = 4; //”ƒAƒCƒRƒ“
1209- ITEM_ICON_BOARD2 = 5; //”ƒAƒCƒRƒ“
1210- ITEM_ICON_THREADLOG1 = 6; //ƒXƒŒƒAƒCƒRƒ“iƒƒO‚ ‚èj
1211- ITEM_ICON_THREADLOG2 = 7; //ƒXƒŒƒAƒCƒRƒ“iƒƒO‚ ‚èj
1212- ITEM_ICON_THREAD1 = 8; //ƒXƒŒƒAƒCƒRƒ“iƒƒO‚È‚µj
1213- ITEM_ICON_THREAD2 = 9; //ƒXƒŒƒAƒCƒRƒ“iƒƒO‚È‚µj
1214- ITEM_ICON_THREADNEW1 = 10; //ƒXƒŒƒAƒCƒRƒ“iV’…j
1215- ITEM_ICON_THREADNEW2 = 11; //ƒXƒŒƒAƒCƒRƒ“iV’…j
1216- ITEM_ICON_SORT1 = 12; //ƒ\[ƒgƒAƒCƒRƒ“
1217- ITEM_ICON_SORT2 = 13; //ƒ\[ƒgƒAƒCƒRƒ“
1218- ITEM_ICON_BOARD_LOG = 17; //ƒXƒŒƒƒO‚ ‚蔃AƒCƒRƒ“
1219- ITEM_ICON_BOARD_NEW = 18; //ƒXƒŒV’…”ƒAƒCƒRƒ“
1220-
868+ //ƒvƒŒƒrƒ…[ƒtƒ@ƒCƒ‹–¼
869+ HTML_FILE_NAME = 'temp_preview.html';
870+ //ƒXƒŒƒbƒhiž‚݃{ƒbƒNƒX
871+ SELECTCOMBOBOX_NAME: string = ''; // 'ƒXƒŒƒbƒhižŒŸõ';
872+ SELECTCOMBOBOX_COLOR: TColor = clWindow;
1221873 //ƒc[ƒ‹ƒo[ƒAƒCƒRƒ“
1222874 TOOL_ICON_HEIGHT_MAX = 16; //‚‚³Å‘åƒAƒCƒRƒ“
1223875 TOOL_ICON_HEIGHT_MIN = 17; //‚‚³Å¬ƒAƒCƒRƒ“
@@ -1225,26 +877,17 @@ const
1225877 TOOL_ICON_WIDTH_MAX = 19; //•Å‘åƒAƒCƒRƒ“
1226878 TOOL_ICON_WIDTH_MIN = 20; //•Å¬ƒAƒCƒRƒ“
1227879 TOOL_ICON_WIDTH_NORMAL = 21; //••W€ƒAƒCƒRƒ“
1228-
880+ ITEM_ICON_THREADLOG1 = 6; //ƒXƒŒƒAƒCƒRƒ“iƒƒO‚ ‚èj
881+ ITEM_ICON_THREADLOG2 = 7; //ƒXƒŒƒAƒCƒRƒ“iƒƒO‚ ‚èj
1229882 TOOL_ICON_FAV_FOLDER = 30; //‚¨‹C‚É“ü‚èƒtƒHƒ‹ƒ_ƒAƒCƒRƒ“
1230883 TOOL_ICON_FAV_BOARD = 31; //‚¨‹C‚É“ü‚蔃AƒCƒRƒ“
1231884 TOOL_ICON_FAV_THREAD = 32; //‚¨‹C‚É“ü‚èƒXƒŒƒAƒCƒRƒ“
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;
885+ //ƒƒbƒZ[ƒWID
1240886 USER_TREECLICK = WM_USER + 2000;
1241887 USER_RESIZED = WM_USER + 2001;
1242888 USER_MINIMIZED = WM_USER + 2002;
1243889 USER_SETLINKBAR = WM_USER + 2003;
1244890 USER_DOCUMENTCOMPLETE = WM_USER + 2004; ///< wParam : TWebBrowser
1245- SELECTTIME_INTERBAL = 110;
1246-
1247- BROWSER_COUNT = 5; //ƒuƒ‰ƒEƒU‚̐”
1248891 {$R *.DFM}
1249892
1250893 procedure TGikoForm.CreateParams(var Params: TCreateParams);
@@ -1268,7 +911,6 @@ var
1268911 i: Integer;
1269912 wp: TWindowPlacement;
1270913 s: string;
1271- newbrowser: TWebBrowser;
1272914 ToolButton: TToolButton;
1273915 begin
1274916 {$IFDEF DEBUG}
@@ -1283,36 +925,11 @@ begin
1283925 FTreeType := gttNone;
1284926 // ‹N“®Žž‚É•Û‘¶‚³‚ê‚Ä‚µ‚Ü‚¤‘΍ô
1285927 FStartUp := true;
1286-// LockWindowUpdate(Self.Handle);
1287- Application.OnDeactivate := AppFormDeactivate;
1288- //Self.OnDeactivate := AppFormDeactivate;
1289928 Application.HookMainWindow(Hook);
1290- Application.OnException := AppException; //ˆ—‚³‚ê‚È‚¢—áŠO‚ð•â‘«
1291-// Application.OnMessage := HandleAppMessage; //‚È‚ñ‚©–³‚­‚Ä‚à‘åä•v‚É‚È‚Á‚½@by@‚à‚¶‚ã
1292929 FIsIgnoreResize := rtResizing;
1293930
1294931 FSearchDialog := nil;
1295- BrowserNullTab := TBrowserRecord.Create;
1296- BrowserNullTab.Browser := Browser;
1297- BrowserNullTab.Browser.Navigate(BLANK_HTML);
1298- FBrowsers := TList.Create;
1299- for i := 0 to BROWSER_COUNT -1 do begin
1300- FBrowsers.Add(TWebBrowser.Create(BrowserPanel));
1301- newBrowser := FBrowsers[FBrowsers.Count - 1];
1302- TOleControl(newBrowser).Parent := BrowserPanel;
1303- TOleControl(newBrowser).Align := alNone;
1304- TOleControl(newBrowser).Left := 0;
1305- TOleControl(newBrowser).Top := 0;
1306- newBrowser.OnDocumentComplete := BrowserDocumentComplete;
1307- newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
1308- newBrowser.OnEnter := BrowserEnter;
1309- newBrowser.OnNewWindow2 := BrowserNewWindow2;
1310- newBrowser.OnStatusTextChange := BrowserStatusTextChange;
1311- newBrowser.Navigate(BLANK_HTML);
1312- ShowWindow(newBrowser.Handle, SW_HIDE);
1313- end;
1314- BrowserNullTab.Browser.BringToFront;
1315- ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
932+ CreateBrowsers(BROWSER_COUNT);
1316933
1317934 //ƒƒjƒ…[ƒtƒHƒ“ƒg
1318935 SetMenuFont;
@@ -1339,13 +956,13 @@ begin
1339956 CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
1340957
1341958 //ƒƒbƒZ[ƒWƒo[
1342- MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
1343- MsgBarVisibleActionExecute(nil);
959+ GikoDM.MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
960+ GikoDM.MsgBarVisibleActionExecute(nil);
1344961 MessagePanel.Height := GikoSys.Setting.MessegeBarHeight;
1345962
1346963 //ƒXƒe[ƒ^ƒXƒo[
1347- StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
1348- StatusBarVisibleActionExecute(nil);
964+ GikoDM.StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
965+ GikoDM.StatusBarVisibleActionExecute(nil);
1349966
1350967 //ƒtƒHƒ“ƒgEFÝ’è
1351968 TreeView.Items.BeginUpdate;
@@ -1379,7 +996,7 @@ begin
1379996 ListView.Items.EndUpdate;
1380997 end;
1381998 //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
1382- ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
999+ GikoDM.ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
13831000
13841001 //ƒuƒ‰ƒEƒUƒ^ƒuƒtƒHƒ“ƒg
13851002 BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
@@ -1462,10 +1079,6 @@ begin
14621079 FNameCookie := '';
14631080 FMailCookie := '';
14641081
1465- //ƒXƒŒ‘S•”•\Ž¦ƒ{ƒ^ƒ“‚ð‰Ÿ‚³‚ꂽó‘Ô‚É‚·‚é
1466- AllItemAction.Checked := True;
1467- AllResAction.Checked := True;
1468-
14691082 //ƒuƒ‰ƒEƒUƒTƒCƒY•ÏX‚̏‰Šú‰»
14701083 FBrowserSizeHeight := GikoSys.Setting.ListHeight;
14711084 FBrowserSizeWidth := GikoSys.Setting.ListWidth;
@@ -1481,57 +1094,49 @@ begin
14811094 FavoriteDM.SetFavTreeView(FavoriteTreeView);
14821095 FavoriteDM.ReadFavorite;
14831096
1484- ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1485- ArrangeAction.Execute;
1097+ GikoDM.ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1098+ GikoDM.ArrangeAction.Execute;
14861099
14871100 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
14881101 case GikoSys.Setting.ListWidthState of
14891102 glsMax: begin
14901103 ViewPanel.Width := 1;
1491- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1492- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1104+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1105+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
14931106 end;
14941107 glsMin: begin
14951108 ViewPanel.Width := GikoSys.Setting.ListWidth;
1496- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1497- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1109+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1110+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
14981111 end;
14991112 else begin
15001113 ViewPanel.Width := GikoSys.Setting.ListWidth;
1501- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1502- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1114+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1115+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
15031116 end;
15041117 end;
15051118 end else begin
15061119 case GikoSys.Setting.ListHeightState of
15071120 glsMax: begin
15081121 ViewPanel.Height := 1;
1509- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1510- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1122+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1123+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
15111124 end;
15121125 glsMin: begin
15131126 ViewPanel.Height := GikoSys.Setting.ListHeight;
1514- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1515- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1127+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1128+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
15161129 end;
15171130 else begin
15181131 ViewPanel.Height := GikoSys.Setting.ListHeight;
1519- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1520- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1132+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1133+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
15211134 end;
15221135 end;
15231136 end;
15241137
15251138 //ƒ_ƒEƒ“ƒ[ƒhƒIƒuƒWƒFƒNƒg
1526- FControlThread := TThreadControl.Create(True);
1527- FControlThread.MaxThreadCount := 1;
1528- FControlThread.Resume;
1529- FControlThread.OnDownloadEnd := DownloadEnd;
1530- FControlThread.OnDownloadMsg := DownloadMsg;
1531- FControlThread.OnWork := Work;
1532- FControlThread.OnWorkBegin := WorkBegin;
1533- FControlThread.OnWorkEnd := WorkEnd;
1534-// ProgressPanel.Width := FControlThread.MaxThreadCount * 12;
1139+ CreateControlThread();
15351140
15361141 // ižŒŸõ—š—ð
15371142 SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
@@ -1551,103 +1156,19 @@ begin
15511156
15521157 MakeDefaultINIFile();
15531158 //ƒc[ƒ‹ƒ{ƒ^ƒ““ǂݍž‚Ý
1554- ReadToolBarSetting(ActionList, StdToolBar);
1555- ReadToolBarSetting(ActionList, ListToolBar);
1556- ReadToolBarSetting(ActionList, BrowserToolBar);
1159+ ReadToolBarSetting(GikoDM.GikoFormActionList, StdToolBar);
1160+ ReadToolBarSetting(GikoDM.GikoFormActionList, ListToolBar);
1161+ ReadToolBarSetting(GikoDM.GikoFormActionList, BrowserToolBar);
15571162 SetToolBarPopup;
15581163
15591164 //ListToolBar‚É‚¢‚é‚©‚à‚µ‚ê‚È‚¢iž‚ÝComboBox‚ð”z’u
1560- SelectComboBoxPanel.Visible := False;
1561- try
1562- for i := ListToolBar.ControlCount - 1 downto 0 do
1563- begin
1564- if ListToolBar.Controls[ i ].Action = SelectItemAction then
1565- begin
1566- SelectComboBoxPanel.Left := ListToolBar.Controls[ i ].Left;
1567- SelectComboBoxPanel.Width := GikoSys.Setting.SelectComboBoxWidth;
1568- SelectComboBoxPanel.Parent := ListToolBar;
1569- SelectComboBoxPanel.Visible := True;
1570-
1571- SelectComboBox.Left := 0;
1572- SelectComboBox.Top := 0;
1573- SelectComboBox.Height := SelectComboBoxPanel.ClientHeight;
1574- SelectComboBox.Width := SelectComboBoxPanel.Width -
1575- SelectComboBoxSplitter.Width;
1576-
1577- //ˆê‚ÂŒ©‚¦‚È‚¢ƒ{ƒ^ƒ“‚ð“Ë‚Áž‚Þ
1578- ToolButton := TToolButton.Create(ListToolBar);
1579- ToolButton.Name := 'SelectComboBoxDummy';
1580- ToolButton.Style := tbsSeparator;
1581- ToolButton.Width := 0;
1582- ToolButton.Left := ListToolBar.Controls[ i ].Left;
1583- ListToolBar.InsertControl(ToolButton);
1584- ToolButton.Visible := False;
1585-
1586- // ƒXƒŒƒbƒhiž‚ׂ̗ɃZƒpƒŒ[ƒ^‚ª‚ ‚éê‡‚͉B‚·
1587- if (i + 1) < ListToolBar.ControlCount then
1588- if ListToolBar.Controls[ i + 1 ] is TToolButton then
1589- if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then
1590- ListToolBar.Controls[ i + 1 ].Visible := False;
1591-
1592-
1593- // ƒXƒŒƒbƒhižƒ{ƒ^ƒ“‚ð‰B‚·
1594- ListToolBar.Controls[ i ].Visible := False;
1595-
1596- break;
1597- end;
1598- end;
1599- except
1600- end;
1601-
1165+ SetSelectComboBox();
16021166
16031167 //ƒAƒhƒŒƒXƒo[
16041168 AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
16051169
16061170 //ƒŠƒ“ƒNƒo[
16071171 SetLinkBar;
1608-
1609- // ƒŒƒX•\Ž¦”͈Í
1610- FResRangeMenuSelect := GikoSys.ResRange;
1611- case GikoSys.ResRange of
1612- Ord( grrAll ):
1613- begin
1614- AllResAction.Execute;
1615- end;
1616- Ord( grrSelect ):
1617- begin
1618- SelectComboBox.Text := SelectComboBox.Items[ 1 ];
1619- SelectResAction.Checked := True;
1620- end;
1621- else
1622-// ResRangeAction.Execute;
1623- case FResRangeMenuSelect of
1624- Ord( grrKoko ): OnlyKokoResAction.Checked := True;
1625- Ord( grrNew ): OnlyNewResAction.Checked := True;
1626- 100: OnlyAHundredResAction.Checked := True;
1627- end;
1628- end;
1629-
1630- // ƒXƒŒƒbƒhˆê——•\Ž¦”͈Í
1631-// ThreadRangeAction.Execute;
1632- case GikoSys.Setting.ThreadRange of
1633- gtrAll:
1634- begin
1635- AllItemAction.Checked := True;
1636- ViewType := gvtAll;
1637- end;
1638- gtrLog:
1639- begin
1640- LogItemAction.Checked := True;
1641- ViewType := gvtLog;
1642- end;
1643- gtrNew:
1644- begin
1645- NewItemAction.Checked := True;
1646- ViewType := gvtNew;
1647- end;
1648- end;
1649-
1650-
16511172 //ƒN[ƒ‹ƒo[•œŒ³‚ÍFormShow‚Ɉړ®‚µ‚½
16521173
16531174 //ƒ{[ƒhƒtƒ@ƒCƒ‹‚ª–³‚¢ê‡‚̓ƒbƒZ[ƒW•\Ž¦
@@ -1656,11 +1177,11 @@ begin
16561177 + '‚±‚ê‚©‚çAu‚Q‚¿‚á‚ñ‚Ë‚év‚̃AƒhƒŒƒXˆê——‚ðƒ_ƒEƒ“ƒ[ƒh‚µ‚Ü‚·' + #13#10
16571178 + 'ŽŸ‚ɏo‚Ä‚­‚é‰æ–ʂŁAuXVvƒ{ƒ^ƒ“‚ð‰Ÿ‚µ‚Ä‚­‚¾‚³‚¢B';
16581179 MsgBox(SplashWindow.Handle, msg, 'ƒMƒRƒiƒr', MB_OK or MB_ICONINFORMATION);
1659- NewBoardAction.Execute;
1180+ GikoDM.NewBoardAction.Execute;
16601181 end;
16611182
16621183 //ƒL[Ý’è“ǂݍž‚Ý
1663- GikoSys.LoadKeySetting(ActionList);
1184+ GikoSys.LoadKeySetting(GikoDM.GikoFormActionList);
16641185
16651186 //ÅI„‰ñŽžŠÔ
16661187 // FLastRoundTime := 0;
@@ -1668,27 +1189,28 @@ begin
16681189 //ResHint
16691190 FHint := TResPopup.Create(Self);
16701191
1192+ ListView.OnData := TListViewUtils.ListViewData;
1193+
16711194 // ÅŒã‚É‘I‘ð‚³‚ê‚½ƒLƒƒƒrƒlƒbƒg‚Ì•œŒ³
16721195 CabinetVisible( False );
16731196 if GikoSys.Setting.CabinetVisible then begin
16741197 i := CabinetSelectPopupMenu.Items.Count - 1;
16751198 if GikoSys.Setting.CabinetIndex = i - 1 then
1676- CabinetHistoryAction.Execute
1199+ GikoDM.CabinetHistoryAction.Execute
16771200 else if GikoSys.Setting.CabinetIndex = i then
1678- CabinetFavoriteAction.Execute
1201+ GikoDM.CabinetFavoriteAction.Execute
16791202 else begin
16801203 if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
16811204 ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
16821205 // ‹N“®Žž‚É•Û‘¶‚³‚ê‚Ä‚µ‚Ü‚¤‘΍ô 2
16831206 FIsIgnoreResize := rtResizing;
1684- CabinetBBSAction.Execute;
1207+ GikoDM.CabinetBBSAction.Execute;
16851208 end;
16861209 end else begin
16871210 ShowBBSTreeOld( BBSs[ 0 ] );
16881211 PostMessage( Handle, USER_TREECLICK, 0, 0 );
16891212 end;
16901213
1691-
16921214 //ˆø”‚ª‚ ‚Á‚½‚çƒXƒŒ‚ðŠJ‚­i–¢Žæ“¾‚È‚çƒ_ƒEƒ“ƒ[ƒhj
16931215 for i := 1 to ParamCount do begin
16941216 MoveToURL(ParamStr(i));
@@ -1713,7 +1235,7 @@ begin
17131235 // ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[
17141236 MouseGesture := TMouseGesture.Create;
17151237 GikoSys.Setting.Gestures.LoadGesture(
1716- GikoSys.Setting.GetGestureFileName, ActionList );
1238+ GikoSys.Setting.GetGestureFileName, GikoDM.GikoFormActionList );
17171239 MouseGesture.Margin := GikoSys.Setting.Gestures.Margin;
17181240 MouseGesture.OnGestureStart := OnGestureStart;
17191241 MouseGesture.OnGestureMove := OnGestureMove;
@@ -1726,12 +1248,14 @@ begin
17261248
17271249 //ƒI[ƒgƒƒOƒCƒ“
17281250 if GikoSys.Setting.AutoLogin then
1729- LoginAction.Execute;
1730-
1731- MuteAction.Checked := GikoSys.Setting.Mute;
1251+ GikoDM.LoginAction.Execute;
17321252
17331253 GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin;
1734-// LockWindowUpdate(0);
1254+
1255+ //ƒLƒƒƒvƒVƒ‡ƒ“‚ªã‘‚«‚³‚ê‚Ä‚µ‚Ü‚¤‚̂ŁA‚±‚±‚ōĐݒè
1256+ FavoriteAddToolButton.Caption := '’ljÁ...';
1257+ AntiIndivAbonMenuItem.Caption := 'ŒÂ•Ê‚ ‚ځ`‚ñ‰ðœ';
1258+
17351259 end;
17361260
17371261 // CoolBar ‚̐ݒè‚ð•Ï”‚É•Û‘¶
@@ -1849,9 +1373,6 @@ begin
18491373 end;
18501374
18511375 end;
1852-
1853-//
1854-//
18551376 //
18561377 procedure TGikoForm.FormShow(Sender: TObject);
18571378 begin
@@ -1860,42 +1381,42 @@ begin
18601381
18611382 //FormCreate‚Å‚â‚é‚ƉŽ‹Ý’肪”½‰f‚³‚ê‚È‚¢ê‡‚ª‚ ‚é‚Ì‚ÅFormShow‚Å‚â‚邱‚Æ‚É‚µ‚½
18621383 //ƒc[ƒ‹ƒo[•\Ž¦
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 );
1384+ GikoDM.StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1385+ GikoDM.StdToolBarVisibleActionExecute( nil );
1386+ GikoDM.AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1387+ GikoDM.AddressBarVisibleActionExecute( nil );
1388+ GikoDM.LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1389+ GikoDM.LinkBarVisibleActionExecute( nil );
1390+ GikoDM.ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1391+ GikoDM.ListToolBarVisibleActionExecute( nil );
1392+ GikoDM.ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1393+ GikoDM.ListNameBarVisibleActionExecute( nil );
1394+ GikoDM.BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1395+ GikoDM.BrowserToolBarVisibleActionExecute( nil );
1396+ GikoDM.BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1397+ GikoDM.BrowserNameBarVisibleActionExecute( nil );
18771398
18781399 //ƒuƒ‰ƒEƒUƒ^ƒu
1879- BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1880- BrowserTabVisibleActionExecute(nil);
1400+ GikoDM.BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1401+ GikoDM.BrowserTabVisibleActionExecute(nil);
18811402
18821403 if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1883- BrowserTabTopAction.Checked := True;
1884- BrowserTabTopActionExecute(nil);
1404+ GikoDM.BrowserTabTopAction.Checked := True;
1405+ GikoDM.BrowserTabTopActionExecute(nil);
18851406 end else begin
1886- BrowserTabBottomAction.Checked := True;
1887- BrowserTabBottomActionExecute(nil);
1407+ GikoDM.BrowserTabBottomAction.Checked := True;
1408+ GikoDM.BrowserTabBottomActionExecute(nil);
18881409 end;
18891410
18901411 if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1891- BrowserTabTabStyleAction.Checked := True;
1892- BrowserTabTabStyleActionExecute(nil);
1412+ GikoDM.BrowserTabTabStyleAction.Checked := True;
1413+ GikoDM.BrowserTabTabStyleActionExecute(nil);
18931414 end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1894- BrowserTabButtonStyleAction.Checked := True;
1895- BrowserTabButtonStyleActionExecute(nil);
1415+ GikoDM.BrowserTabButtonStyleAction.Checked := True;
1416+ GikoDM.BrowserTabButtonStyleActionExecute(nil);
18961417 end else begin
1897- BrowserTabFlatStyleAction.Checked := True;
1898- BrowserTabFlatStyleActionExecute(nil);
1418+ GikoDM.BrowserTabFlatStyleAction.Checked := True;
1419+ GikoDM.BrowserTabFlatStyleActionExecute(nil);
18991420 end;
19001421
19011422 // ListView ‚̃wƒbƒ_ƒhƒ‰ƒbƒO
@@ -1907,17 +1428,20 @@ begin
19071428 //d—v@‚±‚ꂪ‚È‚¢‚ƃc[ƒ‹ƒ{ƒ^ƒ“‚̍XV‚ª‚¨‚©‚µ‚­‚È‚é
19081429 // ResetBandInfo( ListCoolBar, ListToolBar );
19091430 FIsIgnoreResize := rtNone;
1431+ //ƒc[ƒ‹ƒo[‚̍XV‚ðI‚¦‚½Œã‚É‚â‚ç‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Ì‚©‚à
1432+ //ƒAƒNƒVƒ‡ƒ“‚̃`ƒFƒbƒNó‘Ô‚ð‰Šú‰»
1433+ InitActionChecked();
19101434
1911- //TabAutoLoad
19121435 //FormCrete‚©‚çˆÚ“®B
19131436 if GikoSys.Setting.TabAutoLoadSave then begin
1914- TabAutoLoadAction.Execute;
1437+ GikoDM.TabAutoLoadAction.Execute;
19151438 end;
1916- //‚É‚¿‚á‚ñŒêˆÄ“àƒTƒ|[ƒg‹@”\
1917- if GikoSys.Setting.GengoSupport then begin
1918- //—\’è’n
1919- //TestŒü‚¯
1920- end;
1439+ //‚É‚¿‚á‚ñŒêˆÄ“àƒTƒ|[ƒg‹@”\
1440+ if GikoSys.Setting.GengoSupport then begin
1441+ //—\’è’n
1442+ //TestŒü‚¯
1443+ end;
1444+
19211445 FStartUp := false;
19221446 end;
19231447 end;
@@ -1933,7 +1457,7 @@ begin
19331457 end else begin
19341458 CanClose := True;
19351459 if GikoSys.Setting.TabAutoLoadSave then begin
1936- TabAutoSaveAction.Execute;
1460+ GikoDM.TabAutoSaveAction.Execute;
19371461 end;
19381462 end;
19391463 { //2chŒ¾Œȩ̂²ÙFree
@@ -1941,7 +1465,6 @@ begin
19411465 GikoSys.Setting.Gengo.Free;
19421466 end;
19431467 }
1944- //Application.HookMainWindow(Hook);
19451468 Application.UnhookMainWindow(Hook);
19461469 Application.Terminate;
19471470 end;
@@ -1953,8 +1476,6 @@ var
19531476 wp : TWindowPlacement;
19541477 tmpBool : Boolean;
19551478 begin
1956-// Application.OnDeactivate := nil;
1957-// Self.OnDeactivate := nil;
19581479 // ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[ŠJ•ú
19591480 try
19601481 MouseGesture.UnHook;
@@ -1975,11 +1496,11 @@ begin
19751496 GikoSys.Setting.WindowMax := WindowState = wsMaximized;
19761497
19771498 GikoSys.Setting.ListStyle := ListView.ViewStyle;
1978- GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1499+ GikoSys.Setting.CabinetVisible := GikoDM.CabinetVisibleAction.Checked;
19791500 GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
19801501 GikoSys.Setting.ListHeight := FBrowserSizeHeight;
19811502 GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1982- if ArrangeAction.Checked then
1503+ if GikoDM.ArrangeAction.Checked then
19831504 GikoSys.Setting.ListOrientation := gloVertical
19841505 else
19851506 GikoSys.Setting.ListOrientation := gloHorizontal;
@@ -2021,7 +1542,7 @@ begin
20211542 //ƒ^ƒuƒNƒ[ƒY
20221543 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
20231544 GikoSys.Setting.ShowDialogForAllTabClose := false;
2024- AllTabCloseAction.Execute;
1545+ GikoDM.AllTabCloseAction.Execute;
20251546 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
20261547 except
20271548 end;
@@ -2101,10 +1622,10 @@ begin
21011622 // TBBS ‚Í•ÛŽ‚µ‚Ä‚¢‚é TCategory, TBoard, TThreadItem ‚·‚ׂĂðŠJ•ú‚·‚é
21021623 // TBoard, TThreadItem ‚̃fƒXƒgƒ‰ƒNƒ^‚̓vƒ‰ƒOƒCƒ“‚É”jŠü‚ð“`‚¦‚é‚Ì‚Å
21031624 // BoardPluteIns ‚ÌŠJ•ú‚æ‚èæ‚ɍs‚¤‚±‚Æ
2104- for i := Length(BoardGroups) - 1 downto 0 do begin
1625+ for i := Length(BoardGroups) - 1 downto 0 do begin
21051626 //BoardGroups[i].Clear;
21061627 BoardGroups[i].Free;
2107- end;
1628+ end;
21081629
21091630 try
21101631 for i := Length( BBSs ) - 1 downto 0 do begin
@@ -2115,16 +1636,6 @@ begin
21151636 except
21161637 end;
21171638
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- }
21281639 try
21291640 if FEvent <> nil then
21301641 FEvent.Free;
@@ -2142,14 +1653,7 @@ begin
21421653 end;
21431654 except
21441655 end;
2145- LockWindowUpdate(0);
2146-end;
2147-
2148-//ƒLƒƒƒrƒlƒbƒg~ƒ{ƒ^ƒ“ƒNƒŠƒbƒN
2149-procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2150-begin
2151- CabinetVisibleAction.Execute;
2152-// CabinetPanelVisible(false);
1656+ LockWindowUpdate(0);
21531657 end;
21541658
21551659 // ŠeŠ‚É‚ ‚éƒLƒƒƒrƒlƒbƒgE BBS ƒƒjƒ…[‚ðƒZƒbƒg^XV
@@ -2205,7 +1709,7 @@ begin
22051709 //ƒ^ƒuƒNƒ[ƒY
22061710 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
22071711 GikoSys.Setting.ShowDialogForAllTabClose := false;
2208- AllTabCloseAction.Execute;
1712+ GikoDM.AllTabCloseAction.Execute;
22091713 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
22101714
22111715 SetContent(BrowserNullTab);
@@ -2290,632 +1794,21 @@ begin
22901794
22911795 LockWindowUpdate(0);
22921796 //
2293- TabsOpenAction.Execute;
1797+ GikoDM.TabsOpenAction.Execute;
22941798 end;
22951799
2296-//ƒ{[ƒhƒcƒŠ[Ý’è
2297-procedure TGikoForm.SetBoardTreeNode(
2298- inBBS : TBBS
2299-);
1800+
1801+procedure TGikoForm.BrowserStatusTextChange(Sender: TObject; const Text: WideString);
23001802 var
2301- i, j, k: integer;
2302- Root: TTreeNode;
2303- CategoryNode: TTreeNode;
2304- BoardNode: TTreeNode;
2305- Category: TCategory;
2306- Board: TBoard;
2307-begin
2308- // ”ƒŠƒXƒg‚̐ݒè
2309- FActiveBBS := inBBS;
2310- TreeView.Items.BeginUpdate;
2311- TreeView.Items.Clear;
2312- try
2313- if not inBBS.IsBoardFileRead then
2314- GikoSys.ReadBoardFile( inBBS );
2315- 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;
1803+ p: TPoint;
1804+ s: string;
1805+ tmp2: string;
1806+ URL: string;
1807+ ATitle: Boolean;
23211808
2322- // ƒLƒƒƒrƒlƒbƒg•\Ž¦‘O‚ɍă\[ƒg
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- // ƒLƒƒƒrƒlƒbƒg•\Ž¦‘O‚ɍă\[ƒg
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;
2369- end;
2370- Board.EndUpdate;
2371- 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;
2380- end;
2381- finally
2382- TreeView.Items.EndUpdate;
2383- 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;
2393- try
2394- Screen.Cursor := crHourGlass;
2395-
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;
2418-
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;
2448- end;
2449-end;
2450-
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;
2460-
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 ];
2479- end;
2480- 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;
2492- 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;
2502-
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- // ƒ`ƒ‰‚‚«–hŽ~‚Ì‚½‚߁A•ÏX‚³‚ê‚Ä‚¢‚éê‡‚Ì‚Ý
2534- // ¦–¼Ì‚͈Ⴄ‚ªƒJƒ‰ƒ€”‚ª“¯‚¶A‚Æ‚¢‚Á‚½ê‡‚ɑΏˆ‚Å‚«‚È‚¢‚Ì‚Å’ˆÓ
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- //===== ƒJƒeƒSƒŠƒŠƒXƒg =====
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- //===== ”ƒŠƒXƒg =====
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- //===== ƒXƒŒƒŠƒXƒg =====
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- //‰ü‘P‚·‚ׂ«ƒuƒƒbƒN/////////////////////////////////////////////////////
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, '—M', ',', [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;
1809+ threadItem : TThreadItem;
1810+ board : TBoard;
1811+ Protocol, Host, Path, Document, Port, Bookmark: string;
29191812
29201813 wkInt: Integer;
29211814 wkIntSt: Integer;
@@ -2923,7 +1816,6 @@ var
29231816 ActiveFileName: string;
29241817 e: IHTMLElement;
29251818 Ext: string;
2926-// buf, buf2: string;
29271819 PathRec: TPathRec;
29281820 begin
29291821 if not( TObject(Sender) is TWebBrowser )then
@@ -2997,7 +1889,7 @@ begin
29971889 wkIntTo := StrToInt(tmp2);
29981890 //s := GetThreadText(wkBBS, wkKey, wkIntSt, wkIntTo, False, False);
29991891 FHint.PopupType := gptThread;
3000- SetResPopupText(GetActiveContent, wkIntSt, wkIntTo, False, False);
1892+ HTMLCreater.SetResPopupText(FHint, GetActiveContent, wkIntSt, wkIntTo, False, False);
30011893 end else begin
30021894 FHint.PopupType := gptRaw;
30031895 FHint.Caption := s;
@@ -3005,7 +1897,7 @@ begin
30051897 end;
30061898 end else begin
30071899 threadItem := GetActiveContent;
3008- URL := GetRespopupURL(Text, threadItem.URL);
1900+ URL := THTMLCreate.GetRespopupURL(Text, threadItem.URL);
30091901 PathRec := Gikosys.Parse2chURL2(URL);
30101902 if (PathRec.FNoParam) then begin
30111903 PathRec.FSt := 1;
@@ -3057,13 +1949,11 @@ begin
30571949 wkIntTo := 1;
30581950 end;
30591951 FHint.PopupType := gptThread;
3060- SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
1952+ HTMLCreater.SetResPopupText(FHint, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
30611953 end;
30621954 end;
30631955 end;
30641956
3065- //if s <> '' then
3066- // ShowTextPopup(s);
30671957 if FHint.PopupType = gptRaw then begin
30681958 if FHint.Caption <> '' then
30691959 ShowTextPopup;
@@ -3077,22 +1967,17 @@ end;
30771967 procedure TGikoForm.SetEnabledCloseButton(Enabled: Boolean);
30781968 var
30791969 SysMenu: HMenu;
3080- //SysMenuApp: HMenu;
30811970 begin
30821971 FEnabledCloseButton := Enabled;
30831972 SysMenu := GetSystemMenu(Handle, False);
3084- //SysMenuApp := GetSystemMenu(Application.Handle, False);
30851973
30861974 if Enabled then begin
30871975 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
3088- //EnableMenuItem(SysMenuApp, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
30891976 end else begin
30901977 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
3091- //EnableMenuItem(SysMenuApp, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
30921978 end;
30931979
30941980 DrawMenuBar(Handle);
3095- //DrawMenuBar(Application.Handle);
30961981 end;
30971982
30981983 procedure TGikoForm.TreeViewChanging(Sender: TObject; Node: TTreeNode;
@@ -3152,57 +2037,13 @@ begin
31522037 Result := FHttpState;
31532038 end;
31542039
3155-{!
3156-\brief ListView ‚Ì Column ‚ð^‚̃Jƒ‰ƒ€‚É•ÏŠ·
3157-
3158-Delphi 6 Personal ‚Å‚Ì ListView ‚Å‚Í ListViewColumnClick ƒCƒxƒ“ƒg‚Å
3159-³‚µ‚¢ƒJƒ‰ƒ€‚ª“n‚³‚ê‚È‚¢‚½‚߁A³‚µ‚¢ƒJƒ‰ƒ€‚É•ÏŠ·‚µ‚Ü‚·B
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-
31992040 procedure TGikoForm.ListViewColumnClick(Sender: TObject;
32002041 Column: TListColumn);
32012042 var
32022043 id, idx : Integer;
32032044 orderList : TList;
32042045 begin
3205- idx := ActiveListTrueColumn( Column ).Tag;
2046+ idx := TListViewUtils.ActiveListTrueColumn( Column ).Tag;
32062047
32072048 if TObject( FActiveList ) is TBBS then
32082049 orderList := GikoSys.Setting.BBSColumnOrder
@@ -3221,69 +2062,7 @@ begin
32212062 FSortOrder := id = 0;
32222063 end;
32232064
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;
2065+ TListViewUtils.ListViewSort(Sender, ListView, Column, GikoDM.ListNumberVisibleAction.Checked, FSortOrder, FSortIndex );
32872066 end;
32882067
32892068 procedure TGikoForm.MenuToolBarCustomDrawButton(Sender: TToolBar;
@@ -3347,23 +2126,6 @@ begin
33472126
33482127 end;
33492128
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- //ƒtƒH[ƒJƒX‚ª‘¼‚̃AƒvƒŠ‚É•Ï‚í‚Á‚½‚Æ‚«‚Ƀqƒ“ƒg‚ðÁ‹Ž
3357- if FHint <> nil then begin
3358- FHint.ReleaseHandle;
3359- FHint.ClearAllRes;
3360- end;
3361- //ƒvƒŒƒrƒ…[‚ð‰B‚·
3362- if FPreviewBrowser <> nil then
3363- ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
3364- end;
3365-end;
3366-
33672129 procedure TGikoForm.TreeViewCustomDraw(Sender: TCustomTreeView;
33682130 const ARect: TRect; var DefaultDraw: Boolean);
33692131 var
@@ -3506,18 +2268,14 @@ begin
35062268 ListView.SetFocus;
35072269 ListView.SelectAll;
35082270 end;
3509-
2271+// *************************************************************************
2272+//! ƒcƒŠ[ƒrƒ…[‚̃_ƒuƒ‹ƒNƒŠƒbƒNƒCƒxƒ“ƒg
2273+// *************************************************************************
35102274 procedure TGikoForm.TreeViewDblClick(Sender: TObject);
3511-var
3512- APoint: TPoint;
3513- HitTest: THitTests;
35142275 begin
3515- GetCursorPos(APoint);
3516- APoint := TreeView.ScreenToClient(APoint);
3517- HitTest := TreeView.GetHitTestInfoAt(APoint.x, APoint.y);
3518- if not (htOnLabel in HitTest) then Exit;
3519-
3520- TreeDoubleClick( TreeView.Selected );
2276+ if (FClickNode = TreeView.Selected) then begin
2277+ TreeDoubleClick( FClickNode );
2278+ end;
35212279 end;
35222280
35232281 procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
@@ -4039,12 +2797,20 @@ begin
40392797
40402798 // ActiveListColumnSave;
40412799
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));
2800+ Screen.Cursor := crHourGlass;
2801+ try
2802+ if Obj is TBBS then begin
2803+ TListViewUtils.SetCategoryListItem(TBBS(obj), ListView, GikoDM.ListNumberVisibleAction.Checked,
2804+ FSortIndex, FSortOrder);
2805+ end else if Obj is TCategory then begin
2806+ TListViewUtils.SetBoardListItem(TCategory(Obj), ListView, GikoDM.ListNumberVisibleAction.Checked,
2807+ FSortIndex, FSortOrder);
2808+ end else if Obj is TBoard then begin
2809+ TListViewUtils.SetThreadListItem(TBoard(Obj), ListView, GikoDM.ListNumberVisibleAction.Checked,
2810+ FSortIndex, FSortOrder);
2811+ end;
2812+ finally
2813+ Screen.Cursor := crDefault;
40482814 end;
40492815
40502816 if idx >= 0 then begin
@@ -4089,8 +2855,6 @@ begin
40892855 end;
40902856
40912857 SetActiveList(Board);
4092- //
4093- //SetThreadListItem(Board); //SetActiveList“à‚ŌĂ΂ê‚é‚©‚ç2d‚ɌĂяo‚·•K—v‚È‚µ
40942858 end;
40952859 end;
40962860
@@ -4414,13 +3178,14 @@ begin
44143178 end;
44153179 CabinetSelectToolButton.Caption := inBBS.Title;
44163180
4417- CabinetHistoryAction.Checked := False;
4418- CabinetFavoriteAction.Checked := False;
3181+ GikoDM.CabinetHistoryAction.Checked := False;
3182+ GikoDM.CabinetFavoriteAction.Checked := False;
44193183
44203184 if (FTreeType <> gtt2ch) or (FActiveBBS <> inBBS) then begin
44213185 FTreeType := gtt2ch;
44223186 HistoryToolBar.Hide;
4423- SetBoardTreeNode( inBBS );
3187+ FActiveBBS := inBBS;
3188+ TListViewUtils.SetBoardTreeNode(inBBS, TreeView);
44243189 TreeView.Items.GetFirstNode.Expanded := True; //?c???[?g?b?v???????J??
44253190 //?c???[??g?b?v?????I????
44263191 if GetActiveList = nil then
@@ -4471,13 +3236,15 @@ begin
44713236 end;
44723237 CabinetSelectToolButton.Caption := inBBS.Title;
44733238
4474- CabinetHistoryAction.Checked := False;
4475- CabinetFavoriteAction.Checked := False;
3239+ GikoDM.CabinetHistoryAction.Checked := False;
3240+ GikoDM.CabinetFavoriteAction.Checked := False;
44763241
4477- if (FTreeType <> gtt2ch) or (FActiveBBS <> inBBS) then begin
3242+ if (FTreeType <> gtt2ch) or (FActiveBBS <> inBBS)
3243+ or (not (CabinetPanel.Visible)) then begin
44783244 FTreeType := gtt2ch;
44793245 HistoryToolBar.Hide;
4480- SetBoardTreeNode( inBBS );
3246+ FActiveBBS := inBBS;
3247+ TListViewUtils.SetBoardTreeNode(inBBS, TreeView);
44813248 TreeView.Items.GetFirstNode.Expanded := True; //ƒcƒŠ[ƒgƒbƒv€–Ú‚¾‚¯‚ðŠJ‚­
44823249 //ƒcƒŠ[‚̃gƒbƒv€–Ú‚ð‘I‘ð‚·‚é
44833250 if GetActiveList = nil then begin
@@ -4508,13 +3275,13 @@ begin
45083275 if CabinetPanel.Visible then begin
45093276 if FTreeType = gttHistory then begin
45103277 CabinetVisible( False );
4511- CabinetHistoryAction.Checked := False;
3278+ GikoDM.CabinetHistoryAction.Checked := False;
45123279 end else begin
4513- CabinetHistoryAction.Checked := True;
3280+ GikoDM.CabinetHistoryAction.Checked := True;
45143281 end;
45153282 end else begin
4516- CabinetVisible( True );
4517- CabinetHistoryAction.Checked := True;
3283+ CabinetVisible( True );
3284+ GikoDM.CabinetHistoryAction.Checked := True;
45183285 end;
45193286
45203287 // BBS...BBS, History, Favorite
@@ -4523,8 +3290,8 @@ begin
45233290 FavoriteTreeView.Visible := False;
45243291 TreeView.Visible := True;
45253292
4526- CabinetBBSAction.Checked := False;
4527- CabinetFavoriteAction.Checked := False;
3293+ GikoDM.CabinetBBSAction.Checked := False;
3294+ GikoDM.CabinetFavoriteAction.Checked := False;
45283295
45293296 if FTreeType <> gttHistory then begin
45303297 b := CabinetSelectPopupMenu.Items.Count - 1;
@@ -4647,13 +3414,13 @@ begin
46473414 if Item is TBoard then begin // not TCategory
46483415 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
46493416 if GikoSys.Setting.ListWidthState = glsMax then begin
4650- BrowserMinAction.Execute;
3417+ GikoDM.BrowserMinAction.Execute;
46513418 if GikoForm.Visible then
46523419 ListView.SetFocus;
46533420 end;
46543421 end else begin
46553422 if GikoSys.Setting.ListHeightState = glsMax then begin
4656- BrowserMinAction.Execute;
3423+ GikoDM.BrowserMinAction.Execute;
46573424 if GikoForm.Visible then
46583425 ListView.SetFocus;
46593426 end;
@@ -4722,11 +3489,11 @@ begin
47223489 if GikoSys.Setting.BrowserAutoMaximize = gbmClick then begin
47233490 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
47243491 if GikoSys.Setting.ListWidthState = glsMin then begin
4725- BrowserMaxAndFocusAction.Execute;
3492+ GikoDM.BrowserMaxAndFocusAction.Execute;
47263493 end;
47273494 end else begin
47283495 if GikoSys.Setting.ListHeightState = glsMin then begin
4729- BrowserMaxAndFocusAction.Execute;
3496+ GikoDM.BrowserMaxAndFocusAction.Execute;
47303497 end;
47313498 end;
47323499 end;
@@ -4753,13 +3520,13 @@ begin
47533520 if GikoSys.Setting.BrowserAutoMaximize = gbmDoubleClick then begin
47543521 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
47553522 if GikoSys.Setting.ListWidthState = glsMin then begin
4756- BrowserMaxAction.Execute;
4757- SetFocusForBrowserAction.Execute;
3523+ GikoDM.BrowserMaxAction.Execute;
3524+ GikoDM.SetFocusForBrowserAction.Execute;
47583525 end;
47593526 end else begin
47603527 if GikoSys.Setting.ListHeightState = glsMin then begin
4761- BrowserMaxAction.Execute;
4762- SetFocusForBrowserAction.Execute;
3528+ GikoDM.BrowserMaxAction.Execute;
3529+ GikoDM.SetFocusForBrowserAction.Execute;
47633530 end;
47643531 end;
47653532 end;
@@ -4838,6 +3605,12 @@ procedure TGikoForm.MessageListViewResize(Sender: TObject);
48383605 begin
48393606 // MessageListView.Column[0].Width := MessageListView.ClientWidth - 16;
48403607 end;
3608+procedure TGikoForm.CabinetVisible( isVisible : Boolean );
3609+begin
3610+ TreeSplitter.Visible := isVisible;
3611+ CabinetPanel.Visible := isVisible;
3612+ GikoDM.CabinetVisibleAction.Checked := isVisible;
3613+end;
48413614
48423615 procedure TGikoForm.SelectListItem(List: TList);
48433616 var
@@ -4853,1268 +3626,187 @@ begin
48533626
48543627 end;
48553628
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;
3629+procedure TGikoForm.FormResize(Sender: TObject);
48813630 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;
48893631
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;
3632+ MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
3633+ MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;
49013634
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;
3635+ if GikoSys.Setting.ListOrientation = gloHorizontal then begin
3636+ if GikoSys.Setting.ListWidthState = glsMin then begin
3637+ // Å¬•\Ž¦‚É‚·‚é
3638+ ViewPanel.Width := ThreadMainPanel.Width - 80;
3639+ end;
3640+ end else begin
3641+ if GikoSys.Setting.ListHeightState = glsMin then begin
3642+ // Å¬•\Ž¦‚É‚·‚é
3643+ ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7;
3644+ end;
3645+ end;
49113646
4912-end;
3647+ FIsIgnoreResize := rtResizing;
3648+ PostMessage( Handle, USER_RESIZED, 0, 0 );
49133649
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;
49243650
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;
49343651 end;
49353652
4936-procedure TGikoForm.BrowserNameBarVisibleActionExecute(Sender: TObject);
3653+procedure TGikoForm.DeleteTab(BrowserRecord: TBrowserRecord);
49373654 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);
3655+ i, j, idx: Integer;
3656+ doc: Variant;
49633657 begin
4964- case ListView.ViewStyle of
4965- vsIcon: SmallIconAction.Execute;
4966- vsSmallIcon: ListIconAction.Execute;
4967- vsList: DetailIconAction.Execute;
4968- vsReport: LargeIconAction.Execute;
3658+ idx := BrowserTab.TabIndex;
3659+ FTabHintIndex := -1;
3660+ for i := 0 to BrowserTab.Tabs.Count - 1 do begin
3661+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]) = BrowserRecord then begin
3662+ BrowserTab.Tabs.BeginUpdate;
3663+ try
3664+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
3665+ doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;
3666+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;
3667+ end;
3668+ except
3669+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;
3670+ end;
3671+ if( FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i]) ) then
3672+ FActiveContent := nil;
3673+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
3674+ j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser);
3675+ if j <> -1 then
3676+ FBrowsers.Move(j, BROWSER_COUNT - 1);
3677+ end;
3678+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
3679+ BrowserTab.Tabs.Delete(i);
3680+ if idx > i then begin
3681+ BrowserTab.TabIndex := idx - 1;
3682+ end else begin
3683+ if BrowserTab.Tabs.Count -1 >= idx then
3684+ BrowserTab.TabIndex := idx
3685+ else
3686+ BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1;
3687+ end;
3688+ if BrowserTab.Tabs.Count = 0 then begin
3689+ BrowserNullTab.Thread := nil;
3690+ end;
3691+ if(BrowserTab.TabIndex <> -1) and
3692+ ( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin
3693+ for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
3694+ if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser
3695+ = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then
3696+ begin
3697+ ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
3698+ break;
3699+ end;
3700+ end;
3701+ TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser
3702+ := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
3703+ TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Repaint := true;
3704+ FBrowsers.Move(BROWSER_COUNT - 1, 0);
3705+ end;
3706+ BrowserTab.Tabs.EndUpdate;
3707+ if( FActiveContent = nil) then
3708+ BrowserTab.OnChange(nil);
3709+ Exit;
3710+ end;
49693711 end;
49703712 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);
3713+procedure TGikoForm.DeleteTab(ThreadItem: TThreadItem);
49973714 var
4998- chk: TObject;
3715+ i, j, idx: Integer;
3716+ doc: Variant;
49993717 begin
3718+ idx := BrowserTab.TabIndex;
3719+ FTabHintIndex := -1;
3720+ for i := 0 to BrowserTab.Tabs.Count - 1 do begin
3721+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin
3722+ BrowserTab.Tabs.BeginUpdate;
3723+ try
3724+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
3725+ doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;
3726+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;
50003727
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;
3728+ end;
3729+ except
3730+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;
3731+ end;
3732+ if(FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i])) then
3733+ FActiveContent := nil;
3734+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
3735+ j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser);
3736+ if j <> -1 then
3737+ FBrowsers.Move(j, BROWSER_COUNT - 1);
3738+ end;
3739+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
3740+ BrowserTab.Tabs.Delete(i);
3741+ if idx > i then begin
3742+ BrowserTab.TabIndex := idx - 1;
3743+ end else begin
3744+ if BrowserTab.Tabs.Count -1 >= idx then
3745+ BrowserTab.TabIndex := idx
3746+ else
3747+ BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1;
3748+ end;
3749+ if(BrowserTab.TabIndex <> -1) and
3750+ ( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin
3751+ for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
3752+ if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser
3753+ = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then
3754+ begin
3755+ ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
3756+ break;
3757+ end;
3758+ end;
3759+ TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser
3760+ := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
3761+ TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Repaint := true;
3762+ FBrowsers.Move(BROWSER_COUNT - 1, 0);
3763+ end;
50103764
5011- try
5012- FSearchDialog.Show;
5013- except
3765+ BrowserTab.Tabs.EndUpdate;
3766+ if( FActiveContent = nil) then
3767+ BrowserTab.OnChange(nil);
3768+ Exit;
3769+ end;
50143770 end;
5015-
50163771 end;
5017-
5018-procedure TGikoForm.OptionActionExecute(Sender: TObject);
5019-var
5020- Dlg: TOptionDialog;
3772+function TGikoForm.Hook(var Message: TMessage): Boolean;
50213773 begin
5022- Dlg := TOptionDialog.Create(Self);
5023- try
5024- Dlg.ShowModal;
5025- finally
5026- Dlg.Release;
3774+ //ƒTƒuƒtƒH[ƒ€‚ªƒƒCƒ“ƒƒjƒ…[‚ðŽ‚½‚È‚¢‚Æ‚«‚ɁAƒƒCƒ“ƒtƒH[ƒ€‚Ì
3775+ //ƒƒjƒ…[‚̃Vƒ‡[ƒgƒJƒbƒgƒL[‚ªƒTƒuƒƒjƒ…[‚©‚ç“ü—Í‚³‚ê‚é‚Ì‚ð‰ñ”ð
3776+ Result := False;
3777+ case Message.Msg of
3778+ CM_APPKEYDOWN:
3779+ Result := True; //ƒVƒ‡[ƒgƒJƒbƒgƒL[–³Œø
3780+ CM_APPSYSCOMMAND:
3781+ Result := True; // ƒAƒNƒZƒ‰ƒŒ[ƒ^‚𖳌ø‚É‚·‚é
50273782 end;
50283783 end;
50293784
5030-procedure TGikoForm.GikoNaviWebPageActionExecute(Sender: TObject);
5031-const
5032- URL_GIKONAVI: string = 'http://gikonavi.sourceforge.jp/';
3785+procedure TGikoForm.ListPopupMenuPopup(Sender: TObject);
50333786 begin
5034- GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
5035-end;
3787+ ItemRoundPMenu.Visible := (GetActiveList is TBoard);
3788+ ItemReservPMenu.Visible := (GetActiveList is TBoard);
3789+ LPMSep01.Visible := (GetActiveList is TBoard);
3790+ ListRoundPMenu.Visible := (GetActiveList is TCategory);// or (GetActiveList is TBoard);
3791+ ListReservPMenu.Visible := (GetActiveList is TCategory);// or (GetActiveList is TBoard);
3792+ LPMSep02.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3793+ KidokuPMenu.Visible := (GetActiveList is TBoard);
3794+ MidokuPMenu.Visible := (GetActiveList is TBoard);
3795+ UrlCopyPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3796+ NameUrlCopyPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3797+ AllSelectPMenu.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3798+ LPMSep05.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3799+ DeletePMenu.Visible := (GetActiveList is TBoard);
3800+ LPMSep06.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
3801+ BoardFavoriteAddMenu.Visible := (GetActiveList is TCategory);
3802+ ThreadFavoriteAddMenu.Visible := (GetActiveList is TBoard);
50363803
5037-procedure TGikoForm.MonazillaWebPageActionExecute(Sender: TObject);
5038-const
5039- URL_MONAZILLA: string = 'http://www.monazilla.org/';
5040-begin
5041- GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
3804+ AddRoundNameMenu(ItemReservPMenu);
3805+ AddRoundNameMenu(ListReservPMenu);
50423806 end;
50433807
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 ‚Ì—š—ð‚ðXV‚µ‚Ä‚¨‚­
5099- ModifySelectList;
5100- // SelectComboBox ‚Ì’l‚ðƒNƒŠƒA
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 ‚Ì—š—ð‚ðXV‚µ‚Ä‚¨‚­
5118- ModifySelectList;
5119- // SelectComboBox ‚Ì’l‚ðƒNƒŠƒA
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 ‚Ì—š—ð‚ðXV‚µ‚Ä‚¨‚­
5138- ModifySelectList;
5139- // SelectComboBox ‚Ì’l‚ðƒNƒŠƒA
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 ‚ª‚ ‚éê‡‚̓tƒH[ƒJƒX‚ðˆÚ‚·
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‚ðƒRƒs[
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)ƒXƒŒƒbƒh–¼‚ðƒRƒs[
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)ƒXƒŒƒbƒh–¼‚ÆURL‚ðƒRƒs[
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ŒÂˆÈã‚ÍŽw’è‚Å‚«‚Ü‚¹‚ñ' + #13#10
5513- + '‚Q‚¿‚á‚ñ‚˂镉‰×ŒyŒ¸‚É‚²‹¦—Í‚­‚¾‚³‚¢';
5514- MsgBox(Handle, msg, 'Œx', 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;
5523- end;
5524- end else if GetActiveList is TBoard then begin
5525- DownloadList(TBoard(GetActiveList), shiftDown);
5526- end;
5527-end;
5528-
5529-procedure TGikoForm.SelectThreadReloadActionExecute(Sender: TObject);
5530-var
5531- List: TList;
5532- i: Integer;
5533- msg: string;
5534- shiftDown: Boolean;
5535-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ŒÂˆÈã‚ÍŽw’è‚Å‚«‚Ü‚¹‚ñ' + #13#10
5542- + '‚Q‚¿‚á‚ñ‚˂镉‰×ŒyŒ¸‚É‚²‹¦—Í‚­‚¾‚³‚¢';
5543- MsgBox(Handle, msg, 'Œx', 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;
5552- end;
5553-end;
5554-//ActiveList‚ªTCategoy‚ŃXƒŒˆê——‚Å‚P‚ˆȏã‘I‘ð‚©ActiveList‚ªTBoard‚Å—LŒø‚È
5555-//Action‚Å‹¤’Ê
5556-procedure TGikoForm.SelectListReloadActionUpdate(Sender: TObject);
5557-begin
5558-{$IFDEF ACTCHK}
5559- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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}
5571-end;
5572-//ActiveList‚ªTBoard‚ŃXƒŒˆê——‚Å‚P‚ˆȏã‘I‘ð‚µ‚Ä‚¢‚é‚Æ—LŒø‚É‚È‚éAction‚Å‹¤’Ê
5573-procedure TGikoForm.SelectThreadReloadActionUpdate(Sender: TObject);
5574-begin
5575-{$IFDEF ACTCHK}
5576- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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}
5583-end;
5584-
5585-procedure TGikoForm.UpFolderActionUpdate(Sender: TObject);
5586-begin
5587- UpFolderAction.Enabled := not (GetActiveList is TBBS);
5588-end;
5589-
5590-procedure TGikoForm.FormResize(Sender: TObject);
5591-begin
5592-
5593- MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
5594- MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;
5595-
5596- if GikoSys.Setting.ListOrientation = gloHorizontal then begin
5597- if GikoSys.Setting.ListWidthState = glsMin then begin
5598- // Å¬•\Ž¦‚É‚·‚é
5599- ViewPanel.Width := ThreadMainPanel.Width - 80;
5600- end;
5601- end else begin
5602- if GikoSys.Setting.ListHeightState = glsMin then begin
5603- // Å¬•\Ž¦‚É‚·‚é
5604- ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7;
5605- end;
5606- end;
5607-
5608- FIsIgnoreResize := rtResizing;
5609- PostMessage( Handle, USER_RESIZED, 0, 0 );
5610-
5611-
5612-end;
5613-
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-//ƒuƒ‰ƒEƒUƒ^ƒu‚ª‚P‚ˆȏã‚Å—LŒø‚É‚È‚éAction‚Å‹¤’ʉ»
5623-procedure TGikoForm.AllTabCloseActionUpdate(Sender: TObject);
5624-begin
5625-{$IFDEF ACTCHK}
5626- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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 = 'g^0h‚̃ƒO‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
5638- DEL_SAME_MSG = '‚±‚ê‚ç ^0 ŒÂ‚̃XƒŒƒbƒh‚̃ƒO‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
5639- DEL_TITLE = 'íœŠm”F';
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 ‚Ì•\Ž¦‚ðXV
5677- end;
5678- ListView.Refresh;
5679- finally
5680- List.Free;
5681- end;
5682-end;
5683-procedure TGikoForm.DeleteTab(BrowserRecord: TBrowserRecord);
5684-var
5685- i, j, idx: Integer;
5686- doc: Variant;
5687-begin
5688- idx := BrowserTab.TabIndex;
5689- FTabHintIndex := -1;
5690- for i := 0 to BrowserTab.Tabs.Count - 1 do begin
5691- if TBrowserRecord(BrowserTab.Tabs.Objects[i]) = BrowserRecord then begin
5692- BrowserTab.Tabs.BeginUpdate;
5693- try
5694- if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
5695- doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;
5696- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;
5697- end;
5698- except
5699- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;
5700- end;
5701- if( FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i]) ) then
5702- FActiveContent := nil;
5703- if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
5704- j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser);
5705- if j <> -1 then
5706- FBrowsers.Move(j, BROWSER_COUNT - 1);
5707- end;
5708- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
5709- BrowserTab.Tabs.Delete(i);
5710- if idx > i then begin
5711- BrowserTab.TabIndex := idx - 1;
5712- end else begin
5713- if BrowserTab.Tabs.Count -1 >= idx then
5714- BrowserTab.TabIndex := idx
5715- else
5716- BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1;
5717- end;
5718- if BrowserTab.Tabs.Count = 0 then begin
5719- BrowserNullTab.Thread := nil;
5720- end;
5721- if(BrowserTab.TabIndex <> -1) and
5722- ( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin
5723- for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
5724- if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser
5725- = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then
5726- begin
5727- ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
5728- break;
5729- end;
5730- end;
5731- TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser
5732- := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
5733- TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Repaint := true;
5734- FBrowsers.Move(BROWSER_COUNT - 1, 0);
5735- end;
5736- BrowserTab.Tabs.EndUpdate;
5737- if( FActiveContent = nil) then
5738- BrowserTab.OnChange(nil);
5739- Exit;
5740- end;
5741- end;
5742-end;
5743-procedure TGikoForm.DeleteTab(ThreadItem: TThreadItem);
5744-var
5745- i, j, idx: Integer;
5746- doc: Variant;
5747-begin
5748- idx := BrowserTab.TabIndex;
5749- FTabHintIndex := -1;
5750- for i := 0 to BrowserTab.Tabs.Count - 1 do begin
5751- if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin
5752- BrowserTab.Tabs.BeginUpdate;
5753- try
5754- if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
5755- doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;
5756- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;
5757-
5758- end;
5759- except
5760- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;
5761- end;
5762- if(FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i])) then
5763- FActiveContent := nil;
5764- if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
5765- j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser);
5766- if j <> -1 then
5767- FBrowsers.Move(j, BROWSER_COUNT - 1);
5768- end;
5769- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
5770- BrowserTab.Tabs.Delete(i);
5771- if idx > i then begin
5772- BrowserTab.TabIndex := idx - 1;
5773- end else begin
5774- if BrowserTab.Tabs.Count -1 >= idx then
5775- BrowserTab.TabIndex := idx
5776- else
5777- BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1;
5778- end;
5779- if(BrowserTab.TabIndex <> -1) and
5780- ( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin
5781- for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
5782- if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser
5783- = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then
5784- begin
5785- ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
5786- break;
5787- end;
5788- end;
5789- TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser
5790- := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
5791- TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Repaint := true;
5792- FBrowsers.Move(BROWSER_COUNT - 1, 0);
5793- end;
5794-
5795- BrowserTab.Tabs.EndUpdate;
5796- if( FActiveContent = nil) then
5797- BrowserTab.OnChange(nil);
5798- Exit;
5799- end;
5800- end;
5801-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- //ƒTƒuƒtƒH[ƒ€‚ªƒƒCƒ“ƒƒjƒ…[‚ðŽ‚½‚È‚¢‚Æ‚«‚ɁAƒƒCƒ“ƒtƒH[ƒ€‚Ì
5834- //ƒƒjƒ…[‚̃Vƒ‡[ƒgƒJƒbƒgƒL[‚ªƒTƒuƒƒjƒ…[‚©‚ç“ü—Í‚³‚ê‚é‚Ì‚ð‰ñ”ð
5835- Result := False;
5836- case Message.Msg of
5837- CM_APPKEYDOWN:
5838- Result := True; //ƒVƒ‡[ƒgƒJƒbƒgƒL[–³Œø
5839- CM_APPSYSCOMMAND:
5840- Result := True; // ƒAƒNƒZƒ‰ƒŒ[ƒ^‚𖳌ø‚É‚·‚é
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;
59643808
59653809 //ActiveList‚ªTBoard‚©TCategory‚ŃXƒŒˆê——‚Å‚P‚ˆȏã‘I‘ð‚µ‚Ä‚¢‚é‚Æ—LŒø‚É‚È‚éActionde‹¤’Ê
5966-procedure TGikoForm.SelectItemNameCopyActionUpdate(Sender: TObject);
5967-begin
5968-{$IFDEF ACTCHK}
5969- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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('‘S‚Ẵ^ƒu‚ð•Â‚¶‚Ä‚æ‚낵‚¢‚Å‚·‚©H', 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;
6084-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;
6095- end;
6096- Clipboard.AsText := s;
6097-end;
6098-
6099-procedure TGikoForm.TreeSelectNameURLCopyExecute(Sender: TObject);
6100-var
6101- TmpTreeNode: TTreeNode;
6102- s: string;
6103-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;
6116-end;
6117-
61183810 procedure TGikoForm.TreePopupMenuPopup(Sender: TObject);
61193811 begin
61203812 FClickNode := TreeView.Selected;
@@ -6297,31 +3989,31 @@ begin
62973989 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
62983990 if ViewPanel.Width < 2 then begin
62993991 ViewPanel.Width := 1;
6300- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
6301- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
3992+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
3993+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
63023994 GikoSys.Setting.ListWidthState := glsMax;
63033995 end else if ViewPanel.Width > (ThreadMainPanel.Width - 80) then begin
6304- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
6305- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
3996+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
3997+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
63063998 GikoSys.Setting.ListWidthState := glsMin;
63073999 end else begin
6308- BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
6309- BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
4000+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
4001+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
63104002 GikoSys.Setting.ListWidthState := glsNormal;
63114003 end;
63124004 end else begin
63134005 if ViewPanel.Height < 2 then begin
63144006 ViewPanel.Height := 1;
6315- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
6316- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
4007+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
4008+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
63174009 GikoSys.Setting.ListHeightState := glsMax;
63184010 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;
4011+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
4012+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
63214013 GikoSys.Setting.ListHeightState := glsMin;
63224014 end else begin
6323- BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
6324- BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
4015+ GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
4016+ GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
63254017 GikoSys.Setting.ListHeightState := glsNormal;
63264018 end;
63274019 end;
@@ -6381,7 +4073,7 @@ begin
63814073 (ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused)
63824074 then
63834075 else
6384- SetFocusForBrowserAction.Execute;
4076+ GikoDM.SetFocusForBrowserAction.Execute;
63854077
63864078 end;
63874079
@@ -6463,7 +4155,7 @@ begin
64634155 BrowserBottomPanel.Visible := False;
64644156 // BrowserTab.Visible := False;
64654157 // BrowserTopPanel.Height := 26;
6466- AllTabCloseAction.Execute;
4158+ GikoDM.AllTabCloseAction.Execute;
64674159 end;
64684160 end;
64694161
@@ -6596,33 +4288,6 @@ begin
65964288 end;
65974289 end;
65984290
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-
66264291 procedure TGikoForm.RoundNamePopupMenuPopup(Sender: TObject);
66274292 begin
66284293 AddRoundNameMenu(RoundNamePopupMenu.Items);
@@ -6636,11 +4301,11 @@ begin
66364301 MenuItem.Clear;
66374302 Item := TMenuItem.Create(Self);
66384303 Item.Caption := 'V‚µ‚¢–¼‘O‚ŏ„‰ñ—\–ñ(&N)...';
6639- Item.OnClick := SelectNewRoundNameExecute;
4304+ Item.OnClick := GikoDM.SelectNewRoundNameExecute;
66404305 MenuItem.Add(Item);
66414306 Item := TMenuItem.Create(Self);
66424307 Item.Caption := '„‰ñƒŠƒXƒg‚©‚çíœ(&D)';
6643- Item.OnClick := SelectDeleteRoundExecute;
4308+ Item.OnClick := GikoDM.SelectDeleteRoundExecute;
66444309 MenuItem.Add(Item);
66454310 Item := TMenuItem.Create(Self);
66464311 Item.Caption := '-';
@@ -6653,53 +4318,9 @@ begin
66534318 end;
66544319 end;
66554320
6656-procedure TGikoForm.SelectNewRoundNameExecute(Sender: TObject);
6657-var
6658- s: string;
6659- Dlg: TRoundNameDialog;
6660- cnt: Integer;
6661-
6662-begin
6663- //ŒÄ‚яo‚µŒ³‚ªATAction‚ÅListView‚É‘I‘ð‚ª‚¢‚È‚¯‚ê‚΁AEXIT‚·‚é
6664- if (Sender is TAction) and (ListView.Selected = nil) then
6665- Exit;
6666-
6667- //“o˜^ãŒÀƒ`ƒFƒbƒN
6668- cnt := RoundList.Count[grtBoard];
6669- cnt := cnt + RoundList.Count[grtItem];
6670- if cnt > 500 then begin
6671- MsgBox(Handle, '„‰ñ‚Í500ˆÈã“o˜^‚Å‚«‚Ü‚¹‚ñ', 'ƒGƒ‰[', 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;
66994321 procedure TGikoForm.SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string);
67004322 var
67014323 threadItem : TThreadItem;
6702- i: Integer;
67034324 begin
67044325 if ParentName <> 'dummy1' then begin
67054326 SetSelectItemRound(RoundFlag, RoundName);
@@ -6742,295 +4363,14 @@ begin
67424363 end;
67434364 end;
67444365
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- // ‚±‚̃Rƒƒ“ƒgíœ‚µ‚Ä‚Í‘Ê–Ú
6774-end;
6775-
67764366 procedure TGikoForm.SetSelectRoundName(Sender: TObject);
67774367 var
67784368 MenuItem: TMenuItem;
6779-begin
6780- if Sender is TMenuItem then begin
6781- MenuItem := TMenuItem(Sender);
6782- SetSelectItemRound(True, StripHotKey(MenuItem.Caption), TMenuItem(Sender).Parent.Name);
6783- ListView.Refresh;
6784- end;
6785-end;
6786-
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 := 'ƒŒƒXƒGƒfƒBƒ^‚ð‘S‚ĕ‚¶‚Ä‚­‚¾‚³‚¢';
6796- MsgBox(Handle, Msg, 'ƒGƒ‰[', 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- //ƒƒOƒAƒEƒg
6815- GikoSys.Dolib.Disconnect;
6816- LoginAction.Checked := False;
6817- AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogout)), nil, gmiOK);
6818- LoginAction.Caption := 'ƒƒOƒCƒ“(&L)';
6819- end else begin
6820- TmpCursor := Screen.Cursor;
6821- Screen.Cursor := crHourGlass;
6822- try
6823- //’ʏ탍ƒOƒCƒ“
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 := 'ƒƒOƒAƒEƒg(&L)';
6839- //LoginToolButton.Style := tbsCheck;
6840- end else begin
6841- // MsgBox(Handle, 'ƒƒOƒCƒ“o—ˆ‚Ü‚¹‚ñ‚Å‚µ‚½', 'ƒGƒ‰[', 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 := '‹­§ƒƒOƒCƒ“ƒ‚[ƒh‚ł́CƒT[ƒo‚̏ؖ¾‘‚Ì—LŒø«‚ðƒ`ƒFƒbƒN‚µ‚Ü‚¹‚ñB' + #13#10
6850- + '‹U‘•ƒT[ƒo‚̏ꍇA‚ ‚È‚½‚̃pƒXƒ[ƒh“‚Ü‚ê‚é‰Â”\«‚ª‚ ‚è‚Ü‚·B' + #13#10
6851- + '‚±‚̃‚[ƒh‚эƒOƒCƒ“‚ðŽŽ‚Ý‚Ü‚·‚©H' + #13#10;
6852- if MsgBox(Handle, msg, 'Œx', 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áŠQ—p‹­§ƒƒOƒCƒ“
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 := 'ƒƒOƒAƒEƒg(&L)';
6869- //LoginToolButton.Style := tbsCheck;
6870- end else begin
6871- // MsgBox(Handle, 'ƒƒOƒCƒ“o—ˆ‚Ü‚¹‚ñ‚Å‚µ‚½', 'ƒGƒ‰[', 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- //c
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 = 'g^0h‚̃ƒO‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
7016- DEL_TITLE = 'íœŠm”F';
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;
4369+begin
4370+ if Sender is TMenuItem then begin
4371+ MenuItem := TMenuItem(Sender);
4372+ SetSelectItemRound(True, StripHotKey(MenuItem.Caption), TMenuItem(Sender).Parent.Name);
4373+ ListView.Refresh;
70344374 end;
70354375 end;
70364376
@@ -7055,121 +4395,6 @@ begin
70554395 BrowserTab.Width := BrowserTabToolBar.Width;
70564396 end;
70574397
7058-procedure TGikoForm.SelectTextClearActionExecute(Sender: TObject);
7059-const
7060- DEL_MSG = 'iž‚Ý‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
7061- DEL_TITLE = 'íœŠm”F';
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 = 'ƒŒƒXƒGƒfƒBƒ^–¼‘O‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
7077- DEL_TITLE = 'íœŠm”F';
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 = 'ƒŒƒXƒGƒfƒBƒ^ƒ[ƒ‹‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
7094- DEL_TITLE = 'íœŠm”F';
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-//ƒuƒ‰ƒEƒUƒ^ƒu‚ª‚P‚ˆȏã‚ō¶’[‚Å‚È‚¢Action‚Å‹¤’Ê
7149-procedure TGikoForm.LeftTabSelectActionUpdate(Sender: TObject);
7150-begin
7151-{$IFDEF ACTCHK}
7152- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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-//ƒuƒ‰ƒEƒUƒ^ƒu‚ª‚P‚ˆȏã‚ʼnE’[‚Å‚È‚¢Action‚Å‹¤’Ê
7161-procedure TGikoForm.RightTabSelectActionUpdate(Sender: TObject);
7162-begin
7163-{$IFDEF ACTCHK}
7164- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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}
7171-end;
7172-
71734398 procedure TGikoForm.WMSettingChange(var Message: TWMWinIniChange);
71744399 begin
71754400 SetMenuFont;
@@ -7200,11 +4425,11 @@ begin
72004425
72014426 //‚¨‹C‚É“ü‚è‚̒ljÁ
72024427 NewMenu := TMenuItem.Create(MainMenu);
7203- NewMenu.Action := FavoriteAddAction;
4428+ NewMenu.Action := GikoDM.FavoriteAddAction;
72044429 FavoriteMenu.Add(NewMenu);
72054430 //‚¨‹C‚É“ü‚è‚̐®—
72064431 NewMenu := TMenuItem.Create(FavoriteMenu);
7207- NewMenu.Action := FavoriteArrangeAction;
4432+ NewMenu.Action := GikoDM.FavoriteArrangeAction;
72084433 FavoriteMenu.Add(NewMenu);
72094434 //ƒZƒpƒŒ[ƒ^
72104435 NewMenu := TMenuItem.Create(FavoriteMenu);
@@ -7298,11 +4523,6 @@ begin
72984523 SetLinkBar;
72994524 end;
73004525
7301-procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject);
7302-begin
7303- ShowFavoriteAddDialog(GetActiveContent);
7304-end;
7305-
73064526 procedure TGikoForm.FavoriteClick(Sender: TObject);
73074527 begin
73084528
@@ -7346,51 +4566,16 @@ begin
73464566
73474567 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
73484568 if GikoSys.Setting.ListWidthState = glsMin then begin
7349- BrowserMaxAndFocusAction.Execute;
4569+ GikoDM.BrowserMaxAndFocusAction.Execute;
73504570 end;
73514571 end else begin
73524572 if GikoSys.Setting.ListHeightState = glsMin then begin
7353- BrowserMaxAndFocusAction.Execute;
4573+ GikoDM.BrowserMaxAndFocusAction.Execute;
73544574 end;
73554575 end;
73564576 end;
73574577 end;
73584578
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-
73944579 procedure TGikoForm.BBSMenuItemOnClick(
73954580 Sender : TObject
73964581 );
@@ -7407,25 +4592,6 @@ begin
74074592
74084593 end;
74094594
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-
74294595 procedure TGikoForm.MoveToURL(const inURL: string);
74304596 var
74314597 protocol, host, path, document, port, bookmark : string;
@@ -7649,7 +4815,7 @@ procedure TGikoForm.AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
76494815 Shift: TShiftState);
76504816 begin
76514817 if Key = VK_RETURN then
7652- MoveToAction.Execute;
4818+ GikoDM.MoveToAction.Execute;
76534819 end;
76544820
76554821 procedure TGikoForm.BrowserEnter(Sender: TObject);
@@ -7711,100 +4877,48 @@ end;
77114877
77124878 procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
77134879 var
7714- hComboEdit: THandle;
7715-// KeyData: Integer;
4880+ handle: THandle;
77164881 begin
77174882 Handled := False;
77184883 //ƒAƒhƒŒƒX‚à‚µ‚­‚͍i‚荞‚݃Rƒ“ƒ{ƒ{ƒbƒNƒX‚à‚µ‚­‚Í‚¨‹C‚É“ü‚肪•ÒW’†‚Í
77194884 //ƒVƒ‡[ƒgƒJƒbƒg‚Ȃǂ𖳌ø‚É‚·‚é
77204885 if ((FavoriteTreeView.Visible) and (FavoriteTreeView.IsEditing)) then begin
77214886 if Msg.CharCode in [VK_BACK] then begin
7722- hComboEdit := GetFocus;
7723- if hComboEdit <> 0 then
7724- SendMessage(hComboEdit, WM_CHAR, Msg.CharCode, Msg.KeyData);
7725- Handled := True;
7726- //‚¨‹C‚É“ü‚è‚ÍESC‚Å’Eo‚µ‚½‚¢‚̂ŁA‚»‚ê‚à‘—‚é
7727- end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_ESCAPE] then begin
7728- hComboEdit := GetFocus;
7729- if hComboEdit <> 0 then
7730- SendMessage(hComboEdit, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);
4887+ //BS‚ª‚Q‰ñ‘—‚ç‚ê‚é•s‹ï‡‰ñ”ð
4888+ if Msg.KeyData > 0 then begin
4889+ handle := GetFocus;
4890+ if handle <> 0 then
4891+ SendMessage(handle, WM_CHAR, Msg.CharCode, Msg.KeyData);
4892+ Handled := True;
4893+ end;
4894+ end else
4895+ //‚¨‹C‚É“ü‚è‚ÍESC‚Å’Eo‚µ‚½‚¢‚̂ŁA‚»‚ê‚à‘—‚é
4896+ if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_ESCAPE] then begin
4897+ handle := GetFocus;
4898+ if handle <> 0 then
4899+ SendMessage(handle, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);
77314900 Handled := True;
77324901 end;
77334902 end else if (AddressComboBox.Focused) or (SelectComboBox.Focused) then begin
77344903 if Msg.CharCode in [VK_BACK] then begin
7735- hComboEdit := GetFocus;
7736- if hComboEdit <> 0 then
7737- SendMessage(hComboEdit, WM_CHAR, Msg.CharCode, Msg.KeyData);
7738- Handled := True;
4904+ //BS‚ª‚Q‰ñ‘—‚ç‚ê‚é•s‹ï‡‰ñ”ð
4905+ if Msg.KeyData > 0 then begin
4906+ handle := GetFocus;
4907+ if handle <> 0 then
4908+ SendMessage(handle, WM_CHAR, Msg.CharCode, Msg.KeyData);
4909+ Handled := True;
4910+ end;
77394911 end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT] then begin
7740- hComboEdit := GetFocus;
7741- if hComboEdit <> 0 then
7742- SendMessage(hComboEdit, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);
4912+ handle := GetFocus;
4913+ if handle <> 0 then
4914+ SendMessage(handle, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);
77434915 Handled := True;
77444916 end;
7745-{ end else begin
7746- //ƒƒjƒ…[‚̃tƒ@ƒCƒ‹(F)‚Æ‚©‚ÅF‚ð’P‘̂ʼnŸ‚µ‚½‚Æ‚«‚É‘I‘ð‚³‚ê‚Ä‚µ‚Ü‚¤Œ»Û‚ð‰ñ”ð
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;}
4917+ end else begin
4918+ Handled := GikoDM.GikoFormActionList.IsShortCut(Msg);
77564919 end;
77574920 end;
77584921
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-
78084922 procedure TGikoForm.PreviewTimerTimer(Sender: TObject);
78094923 var
78104924 p: TPoint;
@@ -7949,7 +5063,7 @@ end;
79495063
79505064 procedure TGikoForm.MessageHideButtonClick(Sender: TObject);
79515065 begin
7952- MsgBarCloseAction.Execute;
5066+ GikoDM.MsgBarCloseAction.Execute;
79535067 end;
79545068
79555069 function TGikoForm.OnDocumentContextMenu(Sender: TObject): WordBool;
@@ -7973,7 +5087,7 @@ begin
79735087 if ThreadItem <> nil then begin
79745088 Num := StrToInt(s);
79755089 FHint.PopupType := gptThread;
7976- SetResPopupText(ThreadItem, Num, Num, False, False);
5090+ HTMLCreater.SetResPopupText(FHint, ThreadItem, Num, Num, False, False);
79775091 if FHint.ResCount <> 0 then
79785092 ShowTextPopup;
79795093 Result := False;
@@ -7985,104 +5099,6 @@ begin
79855099 end;
79865100 end;
79875101
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ƒŒƒX‚Ü‚Å•\Ž¦
8010- if StNum + MAX_POPUP_RES < ToNum then
8011- ToNum := StNum + MAX_POPUP_RES;
8012-
8013- //ƒ^ƒCƒgƒ‹•\Ž¦
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- //===== ƒvƒ‰ƒOƒCƒ“‚É‚æ‚é•\Ž¦
8022- //boardPlugIn := ThreadItem.BoardPlugIn;
8023- boardPlugIn := ThreadItem.ParentBoard.BoardPlugIn;
8024-
8025- // ƒtƒHƒ“ƒg‚âƒTƒCƒY‚̐ݒè
8026- // •¶ŽšƒR[ƒh‚̓vƒ‰ƒOƒCƒ“‚É”C‚¹‚é
8027- for i := StNum to ToNum do begin
8028- Line := i;
8029- //‚±‚±‚Å‚Q‚¿‚á‚ñ‚Ë‚é‚Ìdat‚ÌŒ`Ž®‚Å‚Ps“ǂݍž‚ß‚ê‚Î¥¥¥B«“Ç‚ß‚é‚悤‚É‚È‚Á‚½
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) + ' –¼‘OF ' + Res.FName + ' “Še“úF ' + Res.FDateTime
8035- else
8036- Header := IntToStr(Line) + ' –¼‘OF ' + Res.FName + ' [' + res.FMailTo + '] “Še“úF ' + 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) + ' –¼‘OF ' + Res.FName + ' “Še“úF ' + Res.FDateTime
8063- else
8064- Header := IntToStr(Line) + ' –¼‘OF ' + Res.FName + ' [' + res.FMailTo + '] “Še“úF ' + 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 := ''; //‚½‚Ô‚ñ‚±‚ê‚Í‚¢‚ç‚È‚¢‚ñ‚¾‚¯‚ǂˁB‚à‚¶‚ã ‚â‚Á‚Ï‚è‚¢‚ç‚È‚©‚Á‚½i2004/01/13j
8078- end;
8079- end;
8080- end;
8081- end;
8082- finally
8083- end;
8084-end;
8085-
80865102 procedure TGikoForm.ShowTextPopup;
80875103 var
80885104 p: TPoint;
@@ -8123,25 +5139,7 @@ begin
81235139 end;
81245140 end;
81255141
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- 'ƒwƒ‹ƒv‚ªŒ©‚‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½' + #13#10 +
8135- 'ƒwƒ‹ƒvƒtƒ@ƒCƒ‹‚ðƒMƒRƒiƒr‚̃tƒHƒ‹ƒ_‚É’u‚¢‚Ä‚­‚¾‚³‚¢' + #13#10 +
8136- 'ƒwƒ‹ƒv‚̓MƒRƒiƒr‚̃TƒCƒg‚É’u‚¢‚Ä‚ ‚è‚Ü‚·',
8137- 'ƒGƒ‰[',
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);
5142+procedure TGikoForm.HistoryAllClearToolButtonClick(Sender: TObject);
81455143 const
81465144 DEL_MSG = '‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
81475145 DEL_TITLE = 'íœŠm”F';
@@ -8156,18 +5154,6 @@ begin
81565154 end;
81575155 end;
81585156
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-
81715157 procedure TGikoForm.SetLinkBar;
81725158 var
81735159 i: Integer;
@@ -8743,112 +5729,6 @@ begin
87435729 end;
87445730 end;
87455731
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- //Å“K•‚ðÄÝ’è‚·‚邽‚ß‚É“K“–‚ȃvƒƒpƒeƒB‚ð‚¢‚¶‚­‚é
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‚É‚¢‚é‚©‚à‚µ‚ê‚È‚¢iž‚ÝComboBox‚ð”z’u
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- // ƒXƒŒƒbƒhiž‚ׂ̗ɃZƒpƒŒ[ƒ^‚ª‚ ‚éê‡‚͉B‚·
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- // ƒXƒŒƒbƒhižƒ{ƒ^ƒ“‚ð‰B‚·
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-
88525732 function TGikoForm.FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
88535733 var
88545734 i : Integer;
@@ -8876,21 +5756,21 @@ begin
88765756 for i := 0 to StdToolBar.ButtonCount - 1 do begin
88775757 end;
88785758 for i := 0 to ListToolBar.ButtonCount - 1 do begin
8879- if ListToolBar.Buttons[i].Action = IconStyle then
5759+ if ListToolBar.Buttons[i].Action = GikoDM.IconStyle then
88805760 ListToolBar.Buttons[i].DropdownMenu := ListIconPopupMenu;
8881- if ListToolBar.Buttons[i].Action = SelectReservAction then
5761+ if ListToolBar.Buttons[i].Action = GikoDM.SelectReservAction then
88825762 ListToolBar.Buttons[i].DropdownMenu := RoundNamePopupMenu;
88835763 end;
8884- aIEButton := FindToolBarButton( BrowserToolBar, IEAction );
5764+ aIEButton := FindToolBarButton( BrowserToolBar, GikoDM.IEAction );
88855765 if aIEButton <> nil then
88865766 aIEButton.DropdownMenu := BrowserPopupMenu;
8887- aCabinetBBSButton := FindToolBarButton( StdToolBar, CabinetBBSAction );
5767+ aCabinetBBSButton := FindToolBarButton( StdToolBar, GikoDM.CabinetBBSAction );
88885768 if aCabinetBBSButton <> nil then
88895769 aCabinetBBSButton.DropdownMenu := BBSSelectPopupMenu;
8890- aResRangeButton := FindToolBarButton( BrowserToolBar, ResRangeAction );
5770+ aResRangeButton := FindToolBarButton( BrowserToolBar, GikoDM.ResRangeAction );
88915771 if aResRangeButton <> nil then
88925772 aResRangeButton.DropdownMenu := ResRangePopupMenu;
8893- aThreadRangeButton:= FindToolBarButton( ListToolBar, ThreadRangeAction );
5773+ aThreadRangeButton:= FindToolBarButton( ListToolBar, GikoDM.ThreadRangeAction );
88945774 if aThreadRangeButton <> nil then
88955775 aThreadRangeButton.DropdownMenu := ThreadRangePopupMenu;
88965776 end;
@@ -8936,17 +5816,17 @@ begin
89365816
89375817 if Length( text ) = 0 then
89385818 begin
8939- AllItemAction.Checked := True;
8940- LogItemAction.Checked := False;
8941- NewItemAction.Checked := False;
5819+ GikoDM.AllItemAction.Checked := True;
5820+ GikoDM.LogItemAction.Checked := False;
5821+ GikoDM.NewItemAction.Checked := False;
89425822 end else begin
89435823 // ƒ`ƒ‰‚‚­‚ÆŒ™‚¾‚©‚çAˆê‰ž‰Ÿ‚µ‚Ä‚ ‚é‚Æ‚«‚¾‚¯ˆ—‚·‚é
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;
5824+ if GikoDM.AllItemAction.Checked then
5825+ GikoDM.AllItemAction.Checked := False;
5826+ if GikoDM.LogItemAction.Checked then
5827+ GikoDM.LogItemAction.Checked := False;
5828+ if GikoDM.NewItemAction.Checked then
5829+ GikoDM.NewItemaction.Checked := False;
89505830 end;
89515831
89525832 if Length( text ) = 0 then
@@ -8999,12 +5879,12 @@ begin
89995879 *}
90005880 end else begin
90015881 // ƒ`ƒ‰‚‚­‚ÆŒ™‚¾‚©‚çAˆê‰ž‰Ÿ‚µ‚Ä‚ ‚é‚Æ‚«‚¾‚¯ˆ—‚·‚é
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;
5882+ if GikoDM.AllItemAction.Checked then
5883+ GikoDM.AllItemAction.Checked := False;
5884+ if GikoDM.LogItemAction.Checked then
5885+ GikoDM.LogItemAction.Checked := False;
5886+ if GikoDM.NewItemAction.Checked then
5887+ GikoDM.NewItemaction.Checked := False;
90085888 end;
90095889
90105890 end;
@@ -9052,140 +5932,7 @@ begin
90525932 end;
90535933
90545934
9055-//NGƒ[ƒhƒtƒ@ƒCƒ‹‚ðÄ“ǂݍž‚Ý‚·‚é
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 ‚͍i‚荞‚Ý‰ðœ‚Æ“¯ˆÓ‹`
9071- ResRangeAction.Execute;
9072- end else begin
9073- GikoSys.ResRange := Ord( grrSelect );
9074-
9075- // ÅŒã‚ɐݒ肵‚½‚à‚Ì‚ðŠo‚¦‚Ä‚¨‚­
9076- FSelectResWord := Dlg.SelectComboBox.Text;
9077-
9078- // ŒŸõ—š—ð‚̍XV
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- // ƒtƒBƒ‹ƒ^‚̐ݒè
9095- FilterList := TStringList.Create;
9096- try
9097- GikoSys.FSelectResFilter.Reverse := True;
9098- FilterList.Delimiter := ' '; //‹æØ‚èŽq‚𔼊pƒXƒy[ƒX‚ɐݒè
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- // ƒLƒƒƒ“ƒZƒ‹
9109- if GikoSys.ResRange <> Ord( grrSelect ) then
9110- ResRangeAction.Execute;
9111- end;
9112- finally
9113- Dlg.Release;
9114- end;
9115-
9116-end;
9117-
9118-// ‘S‚ẴŒƒX‚ð•\Ž¦
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- // ƒtƒBƒ‹ƒ^•¶Žš—ñ‚ð‹ó‚É‚·‚é
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ƒ[ƒhƒtƒ@ƒCƒ‹‚̍ēǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½', 'ƒGƒ‰[', 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, 'ˆê‚‘O‚ÌNGƒ[ƒhƒtƒ@ƒCƒ‹‚̓ǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½', 'ƒGƒ‰[', 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ƒ[ƒhƒtƒ@ƒCƒ‹‚̓ǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½', 'ƒGƒ‰[', 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-
5935+// ‘S‚ẴŒƒX‚ð•\Ž¦
91895936 procedure TGikoForm.SelectComboBoxSplitterMouseMove(Sender: TObject;
91905937 Shift: TShiftState; X, Y: Integer);
91915938 var
@@ -9261,106 +6008,6 @@ begin
92616008 end;
92626009
92636010 //”–¼ŒŸõ
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 := 'æ“ª‚É–ß‚è‚Ü‚·‚©H';
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 := 'ŽŸ‚ɍs‚«‚Ü‚·‚©H';
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- // ƒLƒƒƒrƒlƒbƒgƒc[ƒ‹ƒo[‹y‚уLƒƒƒrƒlƒbƒg‚Ì•\Ž¦Ø‘Ö
9347- HistoryToolBar.Hide;
9348- FavoriteToolBar.Show;
9349- TreeView.Visible := False;
9350- FavoriteTreeView.Visible := True;
9351-
9352- CabinetSelectToolButton.Caption := '‚¨‹C‚É“ü‚è';
9353- FTreeType := gttFavorite;
9354-
9355- // ƒƒjƒ…[‹y‚у{ƒ^ƒ“‚̃`ƒFƒbƒN‚ðÝ’è
9356- CabinetBBSAction.Checked := False;
9357- CabinetHistoryAction.Checked := False;
9358-
9359- // ‚¨‹C‚É“ü‚è‚̃cƒŠ[‚ð“WŠJ
9360- FavoriteTreeView.Items.GetFirstNode.Expanded := True;
9361-
9362-end;
9363-
93646011 procedure TGikoForm.FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
93656012 begin
93666013
@@ -9450,33 +6097,20 @@ begin
94506097 SenderNode := FDropSpaceNode;
94516098
94526099 if Source = FavoriteTreeView then begin
9453-
94546100 SourceNode := FavoriteTreeView.Selected;
94556101 FavoriteMoveTo( SenderNode, SourceNode );
9456-
94576102 end else if Source is TLinkToolButton then begin
9458-
94596103 LinkToolButton := TLinkToolButton( Source );
9460- //ShowMessage(LinkToolButton.Text);
94616104 SourceNode := TreeNodeDataFind( FavoriteTreeView.Items.GetFirstNode, LinkToolButton.Data );
94626105 FavoriteMoveTo( SenderNode, SourceNode );
9463-
94646106 end else if Source = BrowserTab then begin
9465-
94666107 idx := BrowserTab.TabIndex;
94676108 FavoriteAddTo( SenderNode, BrowserTab.Tabs.Objects[idx] );
94686109 end else if Source = ListView then begin
9469-
94706110 FavoriteAddTo( SenderNode, ListView.Selected.Data );
9471-
94726111 end else if Source = TreeView then begin
9473-
94746112 FavoriteAddTo( SenderNode, TreeView.Selected.Data );
9475-
94766113 end;
9477-
9478-
9479-
94806114 end;
94816115
94826116 procedure TGikoForm.FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
@@ -9520,12 +6154,12 @@ begin
95206154 VK_F2:
95216155 begin
95226156 FClickNode := FavoriteTreeView.Selected;
9523- FavoriteTreeViewRenameActionExecute( Sender );
6157+ GikoDM.FavoriteTreeViewRenameActionExecute( Sender );
95246158 end;
95256159 VK_DELETE:
95266160 begin
95276161 FClickNode := FavoriteTreeView.Selected;
9528- FavoriteTreeViewDeleteActionExecute( Sender );
6162+ GikoDM.FavoriteTreeViewDeleteActionExecute( Sender );
95296163 end;
95306164 VK_RETURN:
95316165 begin
@@ -9580,8 +6214,6 @@ begin
95806214 FavoriteTreeDeletePopupMenu.Visible := False;
95816215 FavoriteTreeRenamePopupMenu.Visible := False;
95826216 FavoriteTreeNewFolderPopupMenu.Visible := False;
9583- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9584- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
95856217 FavoriteTreeURLCopyPopupMenu.Visible := False;
95866218 FavoriteTreeNameCopyPopupMenu.Visible := False;
95876219 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9592,8 +6224,6 @@ begin
95926224 FavoriteTreeDeletePopupMenu.Visible := False;
95936225 FavoriteTreeRenamePopupMenu.Visible := False;
95946226 FavoriteTreeNewFolderPopupMenu.Visible := True;
9595- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9596- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
95976227 FavoriteTreeURLCopyPopupMenu.Visible := False;
95986228 FavoriteTreeNameCopyPopupMenu.Visible := True;
95996229 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9604,8 +6234,6 @@ begin
96046234 FavoriteTreeDeletePopupMenu.Visible := True;
96056235 FavoriteTreeRenamePopupMenu.Visible := False;
96066236 FavoriteTreeNewFolderPopupMenu.Visible := True;
9607- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9608- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96096237 FavoriteTreeURLCopyPopupMenu.Visible := False;
96106238 FavoriteTreeNameCopyPopupMenu.Visible := True;
96116239 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9616,8 +6244,6 @@ begin
96166244 FavoriteTreeDeletePopupMenu.Visible := True;
96176245 FavoriteTreeRenamePopupMenu.Visible := True;
96186246 FavoriteTreeNewFolderPopupMenu.Visible := True;
9619- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9620- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96216247 FavoriteTreeURLCopyPopupMenu.Visible := False;
96226248 FavoriteTreeNameCopyPopupMenu.Visible := True;
96236249 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9628,8 +6254,6 @@ begin
96286254 FavoriteTreeDeletePopupMenu.Visible := True;
96296255 FavoriteTreeRenamePopupMenu.Visible := True;
96306256 FavoriteTreeNewFolderPopupMenu.Visible := True;
9631- //FavoriteTreeBrowseBoardPopupMenu.Visible := True;
9632- //FavoriteTreeBrowseThreadPopupMenu.Visible := True;
96336257 FavoriteTreeURLCopyPopupMenu.Visible := True;
96346258 FavoriteTreeNameCopyPopupMenu.Visible := True;
96356259 FavoriteTreeNameURLCopyPopupMenu.Visible := True;
@@ -9640,8 +6264,6 @@ begin
96406264 FavoriteTreeDeletePopupMenu.Visible := True;
96416265 FavoriteTreeRenamePopupMenu.Visible := True;
96426266 FavoriteTreeNewFolderPopupMenu.Visible := True;
9643- //FavoriteTreeBrowseBoardPopupMenu.Visible := True;
9644- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96456267 FavoriteTreeURLCopyPopupMenu.Visible := True;
96466268 FavoriteTreeNameCopyPopupMenu.Visible := True;
96476269 FavoriteTreeNameURLCopyPopupMenu.Visible := True;
@@ -9652,8 +6274,6 @@ begin
96526274 FavoriteTreeDeletePopupMenu.Visible := False;
96536275 FavoriteTreeRenamePopupMenu.Visible := False;
96546276 FavoriteTreeNewFolderPopupMenu.Visible := False;
9655- //FavoriteTreeBrowseBoardPopupMenu.Visible := False;
9656- //FavoriteTreeBrowseThreadPopupMenu.Visible := False;
96576277 FavoriteTreeURLCopyPopupMenu.Visible := False;
96586278 FavoriteTreeNameCopyPopupMenu.Visible := False;
96596279 FavoriteTreeNameURLCopyPopupMenu.Visible := False;
@@ -9663,304 +6283,36 @@ begin
96636283
96646284 end;
96656285
9666-procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject);
9667-const
9668- DEL_LINK_MSG = 'gƒŠƒ“ƒNh‚̓Šƒ“ƒNƒo[—pƒtƒHƒ‹ƒ_‚Å‚·Bíœ‚µ‚Ä‚æ‚낵‚¢‚Å‚·‚©H';
9669- DEL_MSG = 'g^0h‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
9670- DEL_TITLE = 'íœŠm”F';
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( '–¼‘O‚̕ύX', '‚¨‹C‚É“ü‚è‚̐V‚µ‚¢–¼‘O‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢', 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, 'V‚µ‚¢ƒtƒHƒ‹ƒ_', 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-
9759-procedure TGikoForm.FavoriteBrowseFolder( node: TTreeNode );
9760-var
9761- i: Integer;
9762-begin
9763-
9764- if not (TObject(node.Data) is TFavoriteFolder) then
9765- exit;
9766-
9767- for i := 0 to node.Count - 1 do
9768- begin
9769- if TObject(node.Item[i].Data) is TFavoriteFolder then
9770- FavoriteBrowseFolder( node.Item[i] )
9771- else if TObject(node.Item[i].Data) is TFavoriteThreadItem then
9772- FavoriteClick( node.Item[i], False );
9773- end;
9774-
9775-end;
9776-
9777-procedure TGikoForm.FavoriteTreeViewBrowseFolderActionExecute(
9778- Sender: TObject);
9779-begin
9780-
9781- FavoriteBrowseFolder( FClickNode );
9782- //BrowserTab.OnChange(nil);
9783-
9784-end;
9785-
9786-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 = 'g^0h‚̃ƒO‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
9798- DEL_TITLE = 'íœŠm”F';
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);
9854-var
9855- FavThread : TFavoriteThreadItem;
9856- FavBoard : TFavoriteBoardItem;
9857- s : string;
9858-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);
6286+procedure TGikoForm.FavoriteBrowseFolder( node: TTreeNode );
6287+var
6288+ i: Integer;
6289+begin
99536290
9954- try
9955- s := Board.Title + #13#10 + Board.URL + #13#10;
9956- if s <> '' then
9957- Clipboard.AsText := s;
9958- finally
9959- end;
6291+ if not (TObject(node.Data) is TFavoriteFolder) then
6292+ exit;
99606293
6294+ for i := 0 to node.Count - 1 do
6295+ begin
6296+ if TObject(node.Item[i].Data) is TFavoriteFolder then
6297+ FavoriteBrowseFolder( node.Item[i] )
6298+ else if TObject(node.Item[i].Data) is TFavoriteThreadItem then
6299+ FavoriteClick( node.Item[i], False );
99616300 end;
99626301
99636302 end;
6303+// *************************************************************************
6304+//! ‚¨‹C‚É“ü‚èƒcƒŠ[‚̃_ƒuƒ‹ƒNƒŠƒbƒNƒCƒxƒ“ƒg
6305+// *************************************************************************
6306+procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
6307+begin
6308+ //ƒNƒŠƒbƒNŽž‚Ì‘I‘ðƒCƒxƒ“ƒg‚Æ“¯‚¶‚È‚çƒ_ƒuƒ‹ƒNƒŠƒbƒNŽÀs
6309+ if (FClickNode = FavoriteTreeView.Selected) then begin
6310+{$IFDEF DEBUG}
6311+ Writeln('FVDbClick');
6312+{$ENDIF}
6313+ GikoDM.FavoriteTreeViewReloadActionExecute( Sender );
6314+ end;
6315+end;
99646316
99656317 function TGikoForm.TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
99666318 var
@@ -10019,11 +6371,11 @@ begin
100196371 //*)
100206372 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
100216373 if GikoSys.Setting.ListWidthState = glsMin then begin
10022- BrowserMaxAndFocusAction.Execute;
6374+ GikoDM.BrowserMaxAndFocusAction.Execute;
100236375 end;
100246376 end else begin
100256377 if GikoSys.Setting.ListHeightState = glsMin then begin
10026- BrowserMaxAndFocusAction.Execute;
6378+ GikoDM.BrowserMaxAndFocusAction.Execute;
100276379 end;
100286380 end;
100296381 end;
@@ -10037,16 +6389,6 @@ begin
100376389
100386390 end;
100396391
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-
100506392 procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
100516393 Y: Integer);
100526394 begin
@@ -10091,15 +6433,6 @@ begin
100916433 MainCoolBarPopupMenu.Popup( MousePos.X, MousePos.Y );
100926434
100936435 end;
10094-procedure TGikoForm.ExportFavoriteFileAccept(Sender: TObject);
10095-begin
10096-
10097- if FavoriteDM.SaveFavoriteFile( ExportFavoriteFile.Dialog.FileName ) Then begin
10098- ShowMessage('ƒtƒ@ƒCƒ‹‚ðo—Í‚µ‚Ü‚µ‚½');
10099- end else begin
10100- ShowMessage('ƒtƒ@ƒCƒ‹‚̏o—Í‚ÉŽ¸”s‚µ‚Ü‚µ‚½');
10101- end;
10102-end;
101036436 procedure TGikoForm.SetListViewBackGroundColor(value: TColor);
101046437 begin
101056438 if FListViewBackGroundColor <> value then begin
@@ -10107,53 +6440,6 @@ begin
101076440 ListView.Color := FListViewBackGroundColor;
101086441 end;
101096442 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 );
10152-
10153- end;
10154-
10155-end;
10156-
101576443 procedure TGikoForm.FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
101586444 var
101596445 threadItem : TThreadItem;
@@ -10180,13 +6466,6 @@ begin
101806466
101816467 end;
101826468
10183-procedure TGikoForm.UpBoardActionExecute(Sender: TObject);
10184-begin
10185-
10186- SelectTreeNode( GetActiveContent.ParentBoard, True );
10187-
10188-end;
10189-
101906469 procedure TGikoForm.BrowserTabContextPopup(Sender: TObject;
101916470 MousePos: TPoint; var Handled: Boolean);
101926471 var
@@ -10197,13 +6476,8 @@ begin
101976476 BrowserTab.TabIndex := idx;
101986477 BrowserTab.OnChange(nil);
101996478 end;
10200-
102016479 end;
102026480
10203-procedure TGikoForm.KoreCopyExecute(Sender: TObject);
10204-begin
10205- KonoresCopy(KokoPopupMenu.Tag, true);
10206-end;
102076481 procedure TGikoForm.KonoresCopy(Number: Integer; ReplaceTag : Boolean);
102086482 var
102096483 ThreadItem: TThreadItem;
@@ -10403,6 +6677,9 @@ begin
104036677 FavoriteClick( Node );
104046678 Exit;
104056679 end;
6680+ //Œ»Ý•\Ž¦‚µ‚Ä‚¢‚é‚Ì‚Æ“¯‚¶‚È‚çÄ•`‰æ‚µ‚È‚¢
6681+ if ActiveList = Node.Data then
6682+ Exit;
104066683
104076684 ActiveListColumnSave;
104086685
@@ -10414,7 +6691,7 @@ begin
104146691 if not TBoard(Node.Data).IsThreadDatRead then begin
104156692 Screen.Cursor := crHourGlass;
104166693 try
10417- if not TBoard(Node.Data).IsThreadDatRead then
6694+ if not TBoard(Node.Data).IsThreadDatRead then
104186695 GikoSys.ReadSubjectFile(Node.Data);
104196696 finally
104206697 Screen.Cursor := crDefault;
@@ -10426,13 +6703,13 @@ begin
104266703 if TObject( Node.Data ) is TBoard then begin // not TCategory
104276704 if GikoSys.Setting.ListOrientation = gloHorizontal then begin
104286705 if GikoSys.Setting.ListWidthState = glsMax then begin
10429- BrowserMinAction.Execute;
6706+ GikoDM.BrowserMinAction.Execute;
104306707 if GikoForm.Visible then
104316708 ListView.SetFocus;
104326709 end;
104336710 end else begin
104346711 if GikoSys.Setting.ListHeightState = glsMax then begin
10435- BrowserMinAction.Execute;
6712+ GikoDM.BrowserMinAction.Execute;
104366713 if GikoForm.Visible then
104376714 ListView.SetFocus;
104386715 end;
@@ -10464,12 +6741,13 @@ begin
104646741 end;
104656742
104666743 end;
10467-
6744+// *************************************************************************
6745+//! ƒcƒŠ[ƒrƒ…[‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
6746+// *************************************************************************
104686747 procedure TGikoForm.TreeViewClick(Sender: TObject);
104696748 begin
10470- TreeClick( TreeView.Selected );
6749+ FClickNode := TreeView.Selected;
104716750 end;
10472-
104736751 procedure TGikoForm.TreeViewKeyDown(Sender: TObject; var Key: Word;
104746752 Shift: TShiftState);
104756753 begin
@@ -10483,43 +6761,6 @@ begin
104836761 end;
104846762 end;
104856763
10486-
10487-// ƒMƒRƒiƒr‚̃ƒbƒZ[ƒWƒ‹[ƒv‚ð‰¡Žæ‚肵‚Ü‚·
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-
105236764 procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
105246765 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
105256766 var
@@ -10528,11 +6769,12 @@ var
105286769 begin
105296770
105306771 case Button of
10531- mbLeft:
6772+ {mbLeft:
105326773 begin
105336774 FMouseDownPos.X := X;
105346775 FMouseDownPos.Y := Y;
105356776 end;
6777+ }
105366778 mbMiddle:
105376779 begin
105386780 favItem := FavoriteTreeView.GetNodeAt( X, Y );
@@ -10590,25 +6832,20 @@ begin
105906832 end;
105916833
105926834 end;
10593-
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-
6835+// *************************************************************************
6836+//! ‚¨‹C‚É“ü‚èƒcƒŠ[‚̃}ƒEƒXƒAƒbƒvƒCƒxƒ“ƒg
6837+// *************************************************************************
106036838 procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;
106046839 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
106056840 begin
10606-
10607- if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and
10608- (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin
10609- FavoriteClick( TObject( FavoriteTreeView.Selected ) );
6841+ if (Button = mbLeft) and not (ssDouble in Shift) then begin
6842+ if (FClickNode = FavoriteTreeView.Selected) then begin
6843+{$IFDEF DEBUG}
6844+ Writeln('FVMouseUp');
6845+{$ENDIF}
6846+ FavoriteClick( TObject( FClickNode ) );
6847+ end;
106106848 end;
10611-
106126849 end;
106136850
106146851 destructor TBrowserRecord.Destroy;
@@ -10663,7 +6900,7 @@ begin
106636900 stlist := TStringList.Create;
106646901 try
106656902 stList.DelimitedText := AID;
10666- AID := '';
6903+ AID := '';
106676904 for i := 0 to stList.Count - 1 do
106686905 if Length(WideString(stList[i])) = 8 then begin
106696906 if GikoSys.NotDateorTimeString(stList[i]) then begin
@@ -10673,318 +6910,38 @@ begin
106736910 end;
106746911 finally
106756912 stList.Free;
10676- end;
10677- end;
10678- count := GikoSys.GetSameIDResCount(AID, FActiveContent.Thread);
10679- limited := false;
10680- if count > 20 then begin
10681- rc := GikoUtil.MsgBox(Handle,
10682- '20ŒÂˆÈã‚ ‚è‚Ü‚·‚ªA‚·‚ׂĕ\Ž¦‚µ‚Ü‚·‚©H',
10683- 'IDƒ|ƒbƒvƒAƒbƒvŒx',
10684- MB_YESNO or MB_ICONQUESTION);
10685- limited := rc <> ID_YES;
10686- end;
10687- body := GikoSys.GetSameIDResAnchor(AID, FActiveContent.Thread, limited);
10688- IDAnchorPopup(body);
10689- end;
10690- end;
10691- except
10692- end;
10693- except
10694- end;
10695-end;
10696-
10697-
10698-procedure TGikoForm.SetFocusForBrowserActionExecute(Sender: TObject);
10699-begin
10700- FActiveContent.FBrowser.SetFocus;
10701-end;
10702-//ƒuƒ‰ƒEƒU‚ª‚ ‚Á‚āANULLƒ^ƒu—p‚Ì‚È‚¯‚ê‚ΗLŒø‚É‚È‚éAction‚Å‹¤’Ê
10703-procedure TGikoForm.SetFocusForBrowserActionUpdate(Sender: TObject);
10704-begin
10705-{$IFDEF ACTCHK}
10706- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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; //‘I‘ðƒAƒCƒeƒ€‚ª–³‚¢‚Æ‚«‚͐擪‚Ì‚ð‘I‘ð‚·‚é
10727-
10728- //ƒXƒNƒ[ƒ‹‚³‚¹‚é
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-//ƒuƒ‰ƒEƒU‚ðÅ‘剻‚µ‚ătƒH[ƒJƒX‚ð“–‚Ä‚éB
10754-procedure TGikoForm.BrowserMaxAndFocusActionExecute(Sender: TObject);
10755-begin
10756- BrowserMaxAction.Execute;
10757- SetFocusForBrowserAction.Execute;
10758-end;
10759-
10760-//ƒXƒŒƒbƒhˆê——‚ðÅ‘剻‚µ‚ătƒH[ƒJƒX‚ð“–‚Ä‚é
10761-procedure TGikoForm.ThreadlistMaxAndFocusActionExecute(Sender: TObject);
10762-begin
10763- BrowserMinAction.Execute;
10764- SetFocusForThreadListAction.Execute;
10765-end;
10766-
10767-procedure TGikoForm.SelectTimerTimer(Sender: TObject);
10768-begin
10769- SelectTimer.Interval := 0;
10770- if not (ListView.Selected = nil) then
10771- if( FActiveContent = nil) or
10772- (GetActiveContent <> TThreadItem(ListView.Selected.Data) ) then begin
10773- ListClick;
10774- end;
10775-end;
10776-
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('ƒXƒŒƒbƒhˆê——‚ð•\Ž¦‚µ‚Ä‚­‚¾‚³‚¢')
10791- else if(List.Count = 0) then
10792- ShowMessage('ƒXƒŒƒbƒh‚ð‘I‘ð‚µ‚Ä‚­‚¾‚³‚¢')
10793- else begin
10794- FileSaveAs1.Dialog.Title := '‘I‘ðƒXƒŒƒbƒh‚ðdat‚Ì‚Ü‚Ü•Û‘¶';
10795- FileSaveAs1.Dialog.Filter := 'DATƒtƒ@ƒCƒ‹(*.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('ƒXƒŒƒbƒhˆê——‚ð•\Ž¦‚µ‚Ä‚­‚¾‚³‚¢')
10829- else if(List.Count = 0) then
10830- ShowMessage('ƒXƒŒƒbƒh‚ð‘I‘ð‚µ‚Ä‚­‚¾‚³‚¢')
10831- else begin
10832- FileSaveAs1.Dialog.Title := '‘I‘ðƒXƒŒƒbƒh‚ðHTML‰»‚µ‚Ä•Û‘¶';
10833- FileSaveAs1.Dialog.Filter := 'HTMLƒtƒ@ƒCƒ‹(*.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;
6913+ end;
6914+ end;
6915+ count := GikoSys.GetSameIDResCount(AID, FActiveContent.Thread);
6916+ limited := false;
6917+ if count > 20 then begin
6918+ rc := GikoUtil.MsgBox(Handle,
6919+ '20ŒÂˆÈã‚ ‚è‚Ü‚·‚ªA‚·‚ׂĕ\Ž¦‚µ‚Ü‚·‚©H',
6920+ 'IDƒ|ƒbƒvƒAƒbƒvŒx',
6921+ MB_YESNO or MB_ICONQUESTION);
6922+ limited := rc <> ID_YES;
6923+ end;
6924+ body := GikoSys.GetSameIDResAnchor(AID, FActiveContent.Thread, limited);
6925+ IDAnchorPopup(body);
109536926 end;
109546927 end;
6928+ except
109556929 end;
10956- if TreeView.Visible then
10957- TreeView.Refresh;
10958- if ListView.Visible then
10959- ListView.Refresh;
10960- finally
10961- List.Free;
10962- end;
6930+ except
6931+ end;
109636932 end;
109646933
10965-procedure TGikoForm.LogFolderOpenActionExecute(Sender: TObject);
10966-var
10967- List: TList;
6934+
6935+
6936+//ƒXƒŒƒbƒhˆê——‚ðÅ‘剻‚µ‚ătƒH[ƒJƒX‚ð“–‚Ä‚é
6937+procedure TGikoForm.SelectTimerTimer(Sender: TObject);
109686938 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;
6939+ SelectTimer.Interval := 0;
6940+ if not (ListView.Selected = nil) then
6941+ if( FActiveContent = nil) or
6942+ (GetActiveContent <> TThreadItem(ListView.Selected.Data) ) then begin
6943+ ListClick;
109836944 end;
10984- end else if GetActiveList is TBoard then begin
10985- GikoSys.CreateProcess('explorer.exe', '/e,"' + ExtractFilePath(TBoard(GetActiveList).FilePath) + '"');
10986- end;
10987-
109886945 end;
109896946
109906947 function TGikoForm.GetTabURLs(AStringList: TStringList) : Boolean;
@@ -11006,17 +6963,6 @@ begin
110066963 Result := True;
110076964 end;
110086965
11009-procedure TGikoForm.TabsSaveActionExecute(Sender: TObject);
11010-begin
11011-
11012- if not SaveTabURLs then begin
11013- if TabsSaveAction.Tag = 0 then
11014- ShowMessage('•Û‘¶‚·‚éƒ^ƒu‚ª‚ ‚è‚Ü‚¹‚ñ')
11015- else if TabsSaveAction.Tag = 1 then
11016- GikoForm.TabsOpenAction.Tag := -1;
11017- end;
11018-end;
11019-
110206966 function TGikoForm.SaveTabURLs : Boolean;
110216967 const
110226968 Filename = 'tab.sav';
@@ -11044,16 +6990,6 @@ begin
110446990 end;
110456991 end;
110466992
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('•\Ž¦‚·‚éƒ^ƒu‚ª‚ ‚è‚Ü‚¹‚ñB');
11053- end;
11054- end;
11055-end;
11056-
110576993 function TGikoForm.LoadTabURLs : Boolean;
110586994 var
110596995 i, bound : Integer;
@@ -11104,141 +7040,6 @@ begin
111047040
111057041 end;
111067042
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- // ƒtƒBƒ‹ƒ^•¶Žš—ñ‚ð‹ó‚É‚·‚é
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- // ƒtƒBƒ‹ƒ^•¶Žš—ñ‚ð‹ó‚É‚·‚é
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- // ƒtƒBƒ‹ƒ^•¶Žš—ñ‚ð‹ó‚É‚·‚é
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('”‚ð“Á’è‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½B');
11214- end;
11215-
11216-end;
11217-
11218-//NGƒ[ƒhƒtƒ@ƒCƒ‹‚ð•ÒW‚·‚邽‚ß‚ÉŠJ‚­
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;
11230- end;
11231-end;
11232-
11233-procedure TGikoForm.TabAutoSaveActionExecute(Sender: TObject);
11234-begin
11235- SaveTabURLs;
11236-end;
11237-
11238-procedure TGikoForm.TabAutoLoadActionExecute(Sender: TObject);
11239-begin
11240- LoadTabURLs;
11241-end;
112427043
112437044 /// ListView ‚̃Jƒ‰ƒ€•‚¨‚æ‚шʒu‚Ì•Û‘¶
112447045 procedure TGikoForm.ActiveListColumnSave;
@@ -11421,38 +7222,6 @@ begin
114217222
114227223 end;
114237224 //Žw’肵‚½”ԍ†‚̃ŒƒX‚Éjump‚·‚éAction
11424-procedure TGikoForm.JumpToNumOfResActionExecute(Sender: TObject);
11425-var
11426- str: string;
11427- res: integer;
11428-begin
11429- str := '1';
11430- if( InputQuery('Žw’肵‚½”ԍ†‚̃ŒƒX‚É”ò‚Ô', '”ԍ†‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢', 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;
114567225 procedure TGikoForm.ReleaseBrowser( BRecord: TBrowserRecord);
114577226 begin
114587227 if BRecord <> nil then begin
@@ -11531,7 +7300,7 @@ begin
115317300 if GikoSys.Setting.GestureEnabled then begin
115327301 GikoSys.Setting.Gestures.ClearGesture;
115337302 GikoSys.Setting.Gestures.LoadGesture(
11534- GikoSys.Setting.GetGestureFileName, ActionList );
7303+ GikoSys.Setting.GetGestureFileName, GikoDM.GikoFormActionList );
115357304 MouseGesture.UnHook;
115367305 MouseGesture.OnGestureStart := OnGestureStart;
115377306 MouseGesture.OnGestureMove := OnGestureMove;
@@ -11654,73 +7423,6 @@ begin
116547423 CoolBarResized( Sender, BrowserCoolBar );
116557424 end;
116567425
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-//ƒuƒ‰ƒEƒUƒ^ƒu‚ª‚Q‚ˆȏ゠‚ê‚ΗLŒø‚É‚È‚éƒAƒNƒVƒ‡ƒ“‚Å‹¤’ʉ»
11672-procedure TGikoForm.RightTabCloseActionUpdate(Sender: TObject);
11673-begin
11674-{$IFDEF ACTCHK}
11675- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
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ŒÂˆÈã‚ ‚è‚Ü‚·‚ªA‚·‚ׂĕ\Ž¦‚µ‚Ü‚·‚©H',
11717- 'IDƒ|ƒbƒvƒAƒbƒvŒx',
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;
117247426 //IDƒAƒ“ƒJ[’ljÁ
117257427 procedure TGikoForm.IDAnchorPopup(Abody :string);
117267428 var
@@ -11756,16 +7458,6 @@ begin
117567458 except
117577459 end;
117587460 end;
11759-//‚±‚̃ŒƒX‚ ‚ځ`‚ñ
11760-procedure TGikoForm.IndividualAbon1ActionExecute(Sender: TObject);
11761-begin
11762- IndividualAbon(KokoPopupMenu.Tag, 1);
11763-end;
11764-//‚±‚̃ŒƒX“§–¾‚ ‚ځ`‚ñ
11765-procedure TGikoForm.IndividualAbon0ActionExecute(Sender: TObject);
11766-begin
11767- IndividualAbon(KokoPopupMenu.Tag, 0);
11768-end;
117697461
117707462 //‚±‚̃ŒƒX‚ ‚ځ`‚ñ
117717463 procedure TGikoForm.IndividualAbon(Atag, Atype : Integer);
@@ -11797,106 +7489,6 @@ begin
117977489 InsertBrowserTab( ThreadItem, True );
117987490 end;
117997491
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- // ƒXƒpƒ€‚ð‰ðœ
11819- ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
11820- GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
11821- GikoSys.SpamForget( wordCount, True ); // ƒXƒpƒ€‚ð‰ðœ
11822- GikoSys.SpamLearn( wordCount, False ); // ƒnƒ€‚ɐݒè
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 := '‚±‚̃XƒŒƒbƒh‚ł͌•ʂ ‚ځ`‚ñ‚ðs‚Á‚Ä‚Ü‚¹‚ñ';
11834- MsgBox(Handle, msg, 'ƒƒbƒZ[ƒW', 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- // ƒXƒpƒ€‚ð‰ðœ
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 ); // ƒXƒpƒ€‚ð‰ðœ
11869- GikoSys.SpamLearn( wordCount, False ); // ƒnƒ€‚ɐݒè
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 := '‚±‚̃XƒŒƒbƒh‚ł͌•ʂ ‚ځ`‚ñ‚ðs‚Á‚Ä‚Ü‚¹‚ñ';
11883- MsgBox(Handle, msg, 'ƒƒbƒZ[ƒW', 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;
119007492 //“¯ˆêID‚Ì‚ ‚ځ`‚ñ
119017493 procedure TGikoForm.IndividualAbonID(Atype : Integer);
119027494 var
@@ -11957,230 +7549,406 @@ begin
119577549 firstElement.style.visibility := 'hidden';
119587550
119597551 end;
11960-
11961-procedure TGikoForm.MuteActionExecute(Sender: TObject);
7552+
7553+procedure TGikoForm.RepaintAllTabsBrowser();
7554+var
7555+ i : Integer;
7556+ ThreadItem: TThreadItem;
7557+begin
7558+ for i := BrowserTab.Tabs.Count - 1 downto 0 do
7559+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
7560+
7561+ ThreadItem := GetActiveContent;
7562+ if ThreadItem <> nil then
7563+ InsertBrowserTab( ThreadItem, True );
7564+
7565+end;
7566+
7567+procedure TGikoForm.BeLogInOutActionUpdate(Sender: TObject);
7568+begin
7569+end;
7570+//ListView‚Ì‘I‘ðó‘Ô‚ð‰ðœ‚·‚é
7571+procedure TGikoForm.ListViewKeyUp(Sender: TObject; var Key: Word;
7572+ Shift: TShiftState);
7573+begin
7574+ //ƒuƒ‰ƒEƒUƒ^ƒu–³‚µ‚ŁAƒL[ˆÚ“®‚Å“Ç‚Ý”ò‚΂µ‚ð‰Â”\‚É‚·‚邽‚ß‚Ì
7575+ //–³ŒøŽžŠÔ‚ÌTimer‚̏ˆ—
7576+ //‚Æ‚è‚ ‚¦‚¸Aƒ^ƒCƒ}[‚ð’âŽ~‚·‚éB
7577+ SelectTimer.Interval := 0;
7578+ if not (GikoSys.Setting.BrowserTabVisible) then begin
7579+ if (GetActiveList is TBoard) then begin
7580+ //Shift Alt Ctrl‚ª˜b‚³‚ꂽ‚Æ‚«‚́A•ûŒüƒL[‚𗣂µ‚Ä‚¢‚Ä‚à–³Ž‹
7581+ if not ((ssShift in Shift) or (ssAlt in Shift) or (ssCtrl in Shift)) and
7582+ (( Key = VK_LEFT) or (Key = VK_RIGHT) or
7583+ (Key = VK_UP) or (Key = VK_DOWN)) then
7584+ SelectTimer.Interval := GikoSys.Setting.SelectInterval;
7585+ end;
7586+ end;
7587+end;
7588+
7589+procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject;
7590+ Node: TTreeNode; var AllowEdit: Boolean);
7591+begin
7592+ //•ÒW‘O‚Ì•¶Žš—ñ‚ðˆêŽž•Û‘¶‚·‚é
7593+ FOrigenCaption := Node.Text;
7594+end;
7595+// *************************************************************************
7596+//! Application‚ÌMainForm‚ðŽæ“¾‚·‚é
7597+// *************************************************************************
7598+function TGikoForm.GetMainForm(): TComponent;
7599+begin
7600+ Result := Application.MainForm;
7601+end;
7602+// *************************************************************************
7603+//! Œ»Ý‚̃J[ƒ\ƒ‹‚ðŽæ“¾‚·‚é
7604+// *************************************************************************
7605+function TGikoForm.GetScreenCursor(): TCursor;
7606+begin
7607+ Result := Screen.Cursor;
7608+end;
7609+// *************************************************************************
7610+//! ƒJ[ƒ\ƒ‹‚ðÝ’è‚·‚é
7611+// *************************************************************************
7612+procedure TGikoForm.SetScreenCursor(Cursor : TCursor);
119627613 begin
11963- GikoSys.Setting.Mute := not GikoSys.Setting.Mute;
7614+ if (Screen.Cursor <> Cursor) then
7615+ Screen.Cursor := Cursor;
119647616 end;
11965-
11966-procedure TGikoForm.SortActiveColumnActionExecute(Sender: TObject);
7617+// *************************************************************************
7618+//! ƒXƒNƒŠ[ƒ“ã‚ÉEditorForm‚ª‚¢‚é‚©
7619+// *************************************************************************
7620+function TGikoForm.EditorFormExists(): boolean;
119677621 var
11968- i : Integer;
7622+ i : Integer;
119697623 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;
7624+ Result := false;
7625+ //ƒXƒNƒŠ[ƒ“ã‚Ì‘S‚ẴtƒH[ƒ€‚©‚çAEditorForm‚ð’T‚·
7626+ for i := 0 to Screen.CustomFormCount - 1 do begin
7627+ if TObject(Screen.CustomForms[i]) is TEditorForm then begin
7628+ Result := true;
7629+ Break;
119767630 end;
119777631 end;
119787632 end;
11979-
11980-procedure TGikoForm.SortNextColumnActionExecute(Sender: TObject);
7633+// *************************************************************************
7634+//! ƒXƒNƒŠ[ƒ“ã‚É‚¢‚é‚·‚ׂĂÌEditorForm‚©‚ç–¼‘O‚Ì—š—ð‚ðíœ‚·‚é
7635+// *************************************************************************
7636+procedure TGikoForm.AllEditroFormNameTextClearClear();
119817637 var
11982- i, id : Integer;
7638+ i : Integer;
119837639 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;
7640+ for i := 0 to Screen.CustomFormCount - 1 do begin
7641+ if TObject(Screen.CustomForms[i]) is TEditorForm then
7642+ TEditorForm(Screen.CustomForms[i]).NameComboBox.Items.Clear;
119947643 end;
11995-
119967644 end;
11997-procedure TGikoForm.SortPrevColumnActionExecute(Sender: TObject);
7645+// *************************************************************************
7646+//! ƒXƒNƒŠ[ƒ“ã‚É‚¢‚é‚·‚ׂĂÌEditorForm‚©‚烁[ƒ‹—š—ð‚ðíœ‚·‚é
7647+// *************************************************************************
7648+procedure TGikoForm.AllEditroFormMailTextClearClear();
119987649 var
11999- i, id : Integer;
7650+ i : Integer;
120007651 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;
7652+ for i := 0 to Screen.CustomFormCount - 1 do begin
7653+ if TObject(Screen.CustomForms[i]) is TEditorForm then
7654+ TEditorForm(Screen.CustomForms[i]).MailComboBox.Items.Clear;
120117655 end;
12012-
120137656 end;
12014-
12015-procedure TGikoForm.RepaintAllTabsBrowser();
12016-var
12017- i : Integer;
12018- ThreadItem: TThreadItem;
7657+// *************************************************************************
7658+//! ƒLƒƒƒrƒlƒbƒg‚ð•Â‚¶‚é~ƒ{ƒ^ƒ“‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
7659+// *************************************************************************
7660+procedure TGikoForm.CabinetCloseSpeedButtonClick(Sender: TObject);
120197661 begin
12020- for i := BrowserTab.Tabs.Count - 1 downto 0 do
12021- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
12022-
12023- ThreadItem := GetActiveContent;
12024- if ThreadItem <> nil then
12025- InsertBrowserTab( ThreadItem, True );
12026-
7662+ //Action‚Őݒ肷‚é‚ƃLƒƒƒvƒVƒ‡ƒ“‚ªÁ‚¹‚È‚¢‚̂ŁAOnClickƒCƒxƒ“ƒg‚Å‚Ì
7663+ //ŒÄ‚яo‚µ‚É‚µ‚½@by ‚à‚¶‚ã
7664+ if GikoDM.CabinetVisibleAction.Enabled then begin
7665+ GikoDM.CabinetVisibleAction.Execute;
7666+ end;
120277667 end;
12028-
12029-procedure TGikoForm.MessageListViewAdvancedCustomDrawItem(
12030- Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
12031- Stage: TCustomDrawStage; var DefaultDraw: Boolean);
7668+// *************************************************************************
7669+//! ‚¨‹C‚É“ü‚èƒLƒƒƒrƒlƒbƒg‚̐®—ƒ{ƒ^ƒ“‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
7670+// *************************************************************************
7671+procedure TGikoForm.FavoriteArrangeToolButtonClick(Sender: TObject);
120327672 begin
12033- //if DiffComp then begin
12034- //if Odd(Item.Index) then Sender.Canvas.Brush.Color := clBlue;
12035- //DiffComp := False;
12036-// end;
7673+ if GikoDM.FavoriteArrangeAction.Enabled then begin
7674+ GikoDM.FavoriteArrangeAction.Execute;
7675+ end;
120377676 end;
12038-
12039-procedure TGikoForm.BeLogInOutActionExecute(Sender: TObject);
7677+// *************************************************************************
7678+//! ƒMƒRƒiƒr‚̃ƒbƒZ[ƒWƒnƒ“ƒhƒŠƒ“ƒO (’ˆÓjˆ——Ê‚É’ˆÓI
7679+// *************************************************************************
7680+procedure TGikoForm.GikoApplicationEventsMessage(var Msg: tagMSG;
7681+ var Handled: Boolean);
7682+var
7683+ wmMsg: TWMKey;
7684+ hand : HWND;
120407685 begin
12041- GikoSys.Setting.BeLogin := not GikoSys.Setting.BeLogin;
7686+ //GikoForm‚ªƒAƒNƒeƒBƒu‚È‚Æ‚«‚¾‚¯Žó‚¯Žæ‚é ‘¼‚̃tƒH[ƒ€‚Ì‚ð‰¡Žæ‚肵‚È‚¢‚½‚ß
7687+ if Self.Active then begin
7688+ case Msg.message of
7689+ //ƒL[“ü—Í‚·‚ׂÄ
7690+ WM_KEYFIRST..WM_KEYLAST :
7691+ begin
7692+ //ƒL[ƒAƒbƒv‚Í–³Ž‹‚·‚é@KeyDown‚ƍ‡‚킹‚Ä‚Q‰ñŒÄ‚΂ê‚é‚©‚ç
7693+ if Msg.message <> WM_KEYUP then begin
7694+ wmMsg.Msg := Msg.message;
7695+ wmMsg.CharCode := Word(Msg.wParam);
7696+ wmMsg.KeyData := Msg.lParam;
7697+ //ƒtƒH[ƒ€‚̃Vƒ‡[ƒgƒJƒbƒg‚̏ˆ—‚É“]‘—
7698+ Self.OnShortCut(wmMsg, Handled);
7699+ end;
7700+ end;
7701+ end;
7702+ end;
120427703 end;
12043-
12044-procedure TGikoForm.BeLogInOutActionUpdate(Sender: TObject);
7704+// *************************************************************************
7705+//! ƒAƒvƒŠƒP[ƒVƒ‡ƒ“‚ªƒAƒNƒeƒBƒu‚Å‚È‚­‚È‚Á‚½‚Æ‚«‚̃Cƒxƒ“ƒg
7706+// *************************************************************************
7707+procedure TGikoForm.GikoApplicationEventsDeactivate(Sender: TObject);
120457708 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;
7709+ Application.ProcessMessages;
7710+ if not Application.Terminated then begin
7711+ if PreviewTimer.Enabled then
7712+ PreviewTimer.Enabled := False;
7713+ //ƒtƒH[ƒJƒX‚ª‘¼‚̃AƒvƒŠ‚É•Ï‚í‚Á‚½‚Æ‚«‚Ƀqƒ“ƒg‚ðÁ‹Ž
7714+ if FHint <> nil then begin
7715+ FHint.ReleaseHandle;
7716+ FHint.ClearAllRes;
7717+ end;
7718+ //ƒvƒŒƒrƒ…[‚ð‰B‚·
7719+ if FPreviewBrowser <> nil then
7720+ ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
7721+ end;
120527722
120537723 end;
12054-//ƒŠƒ“ƒN‚Ì•¶Žš—ñ‚©‚烌ƒXƒ|ƒbƒvƒAƒbƒv—p‚ÌURL‚É•ÏŠ·‚·‚é
12055-function TGikoForm.GetRespopupURL(AText, AThreadURL : string): string;
7724+// *************************************************************************
7725+//! ƒAƒvƒŠƒP[ƒVƒ‡ƒ“‚ªˆ—‚³‚ê‚È‚¢—áŠO‚ðE‚Á‚½‚Æ‚«‚̃Cƒxƒ“ƒg
7726+// *************************************************************************
7727+procedure TGikoForm.GikoApplicationEventsException(Sender: TObject;
7728+ E: Exception);
120567729 var
12057- wkInt: Integer;
7730+ s : String;
120587731 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 “n‚µ
12064- Result := Copy( AThreadURL, 1, LastDelimiter( '/', AThreadURL ) );
12065- wkInt := LastDelimiter( '/', AText );
12066- if Pos( '?', Copy( AText, wkInt, MaxInt ) ) = 0 then
12067- // Text ‚à PATH_INFO “n‚µ
12068- Result := Result + Copy( AText, LastDelimiter( '/', AText ) + 1, MaxInt )
12069- else
12070- // Text ‚Í QUERY_STRING “n‚µ
12071- Result := Result + Copy( AText, LastDelimiter( '?', AText ) + 1, MaxInt );
12072- end else begin
12073- // Thread.URL ‚Í QUERY_STRING “n‚µ
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 “n‚µ
12078- // URL ‚ɔ‚ƃL[‚ª‘«‚ç‚È‚¢‚Ì‚Å 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 “n‚µ
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‚ÌŽd•Ï‚Ì‹zŽû
12089- AText := CustomStringReplace(AText, 'about:blank/bbs/', 'about:blank../../bbs/');
12090- Result := GetRespopupURL(AText, AThreadURL);
7732+ if (Sender <> nil) then begin
7733+ s := ' [' + Sender.ClassName + ']' + #13#10;
120917734 end else begin
12092- Result := AText;
7735+ s := ' [ Sender is nil ] ' + #13#10;
120937736 end;
12094-
7737+ s := s + E.Message;
7738+ MsgBox(Handle, s, 'ˆ—‚³‚ê‚È‚©‚Á‚½—áŠO', MB_OK or MB_ICONSTOP);
120957739 end;
12096-//ListView‚Ì‘I‘ðó‘Ô‚ð‰ðœ‚·‚é
12097-procedure TGikoForm.UnSelectedListViewActionExecute(Sender: TObject);
7740+// *************************************************************************
7741+//! ƒAƒNƒVƒ‡ƒ“‚̃`ƒFƒbƒNó‘Ԃ̏‰Šú‰» Form‚ÌCreate‚ŌĂяo‚µ‚Ä‚à”½‰f‚µ‚È‚¢
7742+// *************************************************************************
7743+procedure TGikoForm.InitActionChecked();
120987744 begin
12099- if ListView.Selected <> nil then begin
12100- ListView.Selected.Focused := True;
12101- ListView.Selected := nil;
7745+ //ƒƒOƒCƒ“ó‘Ô‚ðÄÝ’è
7746+ GikoDM.LoginAction.Checked := GikoDM.LoginAction.Checked;
7747+ //ƒ~ƒ…[ƒg‚̏ó‘Ô‚ðÝ’è
7748+ GikoDM.MuteAction.Checked := GikoSys.Setting.Mute;
7749+ //‰æ–Ê‚Ì•ªŠ„‚̏ó‘Ô‚ðÄÝ’è
7750+ GikoDM.ArrangeAction.Checked := GikoDM.ArrangeAction.Checked;
7751+
7752+ //ƒXƒŒ‘S•”•\Ž¦ƒ{ƒ^ƒ“‚ð‰Ÿ‚³‚ꂽó‘Ô‚É‚·‚é
7753+ GikoDM.AllItemAction.Checked := True;
7754+ GikoDM.AllResAction.Checked := True;
7755+
7756+ // ƒŒƒX•\Ž¦”͈Í
7757+ FResRangeMenuSelect := GikoSys.ResRange;
7758+ case GikoSys.ResRange of
7759+ Ord( grrAll ):
7760+ begin
7761+ GikoDM.AllResAction.Execute;
7762+ end;
7763+ Ord( grrSelect ):
7764+ begin
7765+ SelectComboBox.Text := SelectComboBox.Items[ 1 ];
7766+ GikoDM.SelectResAction.Checked := True;
7767+ end;
7768+ else
7769+ case FResRangeMenuSelect of
7770+ Ord( grrKoko ): GikoDM.OnlyKokoResAction.Checked := True;
7771+ Ord( grrNew ): GikoDM.OnlyNewResAction.Checked := True;
7772+ 100: GikoDM.OnlyAHundredResAction.Checked := True;
7773+ end;
121027774 end;
12103-end;
121047775
12105-procedure TGikoForm.ListViewKeyUp(Sender: TObject; var Key: Word;
12106- Shift: TShiftState);
12107-begin
12108- //ƒuƒ‰ƒEƒUƒ^ƒu–³‚µ‚ŁAƒL[ˆÚ“®‚Å“Ç‚Ý”ò‚΂µ‚ð‰Â”\‚É‚·‚邽‚ß‚Ì
12109- //–³ŒøŽžŠÔ‚ÌTimer‚̏ˆ—
12110- //‚Æ‚è‚ ‚¦‚¸Aƒ^ƒCƒ}[‚ð’âŽ~‚·‚éB
12111- SelectTimer.Interval := 0;
12112- if not (GikoSys.Setting.BrowserTabVisible) then begin
12113- if (GetActiveList is TBoard) then begin
12114- //Shift Alt Ctrl‚ª˜b‚³‚ꂽ‚Æ‚«‚́A•ûŒüƒL[‚𗣂µ‚Ä‚¢‚Ä‚à–³Ž‹
12115- if not ((ssShift in Shift) or (ssAlt in Shift) or (ssCtrl in Shift)) and
12116- (( Key = VK_LEFT) or (Key = VK_RIGHT) or
12117- (Key = VK_UP) or (Key = VK_DOWN)) then
12118- SelectTimer.Interval := GikoSys.Setting.SelectInterval;
7776+ // ƒXƒŒƒbƒhˆê——•\Ž¦”͈Í
7777+ case GikoSys.Setting.ThreadRange of
7778+ gtrAll:
7779+ begin
7780+ GikoDM.AllItemAction.Checked := True;
7781+ ViewType := gvtAll;
7782+ end;
7783+ gtrLog:
7784+ begin
7785+ GikoDM.LogItemAction.Checked := True;
7786+ ViewType := gvtLog;
7787+ end;
7788+ gtrNew:
7789+ begin
7790+ GikoDM.NewItemAction.Checked := True;
7791+ ViewType := gvtNew;
121197792 end;
121207793 end;
121217794 end;
12122-//TAction‚ÅGetActiveContent‚ªnilˆÈŠO‚Å—LŒø‚É‚È‚é
12123-procedure TGikoForm.DependActiveCntentActionUpdate(Sender: TObject);
7795+// *************************************************************************
7796+//! ‚¨‹C‚É“ü‚èƒcƒŠ[‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
7797+// *************************************************************************
7798+procedure TGikoForm.FavoriteTreeViewClick(Sender: TObject);
121247799 begin
12125-{$IFDEF ACTCHK}
12126- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
12127- if (Sender <> nil) and (Sender is TAction) then begin
12128-{$ENDIF}
12129- TAction(Sender).Enabled := (GetActiveContent <> nil);
12130-{$IFDEF ACTCHK}
12131- end;
7800+{$IFDEF DEBUG}
7801+ Writeln('FVClick');
121327802 {$ENDIF}
7803+ //Œ»Ý‘I‘ð‚³‚ê‚Ä‚¢‚éƒAƒCƒeƒ€‚ð•Û‘¶
7804+ FClickNode := FavoriteTreeView.Selected;
7805+end;
7806+// *************************************************************************
7807+//! ‚¨‹C‚É“ü‚èƒcƒŠ[‚̃AƒCƒeƒ€‚̏k¬ŽžƒCƒxƒ“ƒg
7808+// *************************************************************************
7809+procedure TGikoForm.FavoriteTreeViewCollapsing(Sender: TObject;
7810+ Node: TTreeNode; var AllowCollapse: Boolean);
7811+begin
7812+ //k¬‚³‚ꂽ‚ç•Û‘¶‚³‚ê‚Ä‚¢‚éƒNƒŠƒbƒNŽž‘I‘ðƒAƒCƒeƒ€‚ðƒNƒŠƒA
7813+ FClickNode := nil;
121337814 end;
12134-//TAction‚ÅGetActiveContent‚ªnilˆÈŠO‚©‚ƒƒO‚ðŽ‚Á‚Ä‚¢‚é
12135-procedure TGikoForm.DependActiveCntentLogActionUpdate(Sender: TObject);
7815+// *************************************************************************
7816+//! ‚¨‹C‚É“ü‚èƒcƒŠ[‚̃AƒCƒeƒ€‚Ì“WŠJŽžƒCƒxƒ“ƒg
7817+// *************************************************************************
7818+procedure TGikoForm.FavoriteTreeViewExpanding(Sender: TObject;
7819+ Node: TTreeNode; var AllowExpansion: Boolean);
121367820 begin
12137-{$IFDEF ACTCHK}
12138- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
12139- if (Sender <> nil) and (Sender is TAction) then begin
12140-{$ENDIF}
12141- TAction(Sender).Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
12142-{$IFDEF ACTCHK}
12143- end;
12144-{$ENDIF}
7821+ //“WŠJ‚³‚ꂽ‚ç•Û‘¶‚³‚ê‚Ä‚¢‚éƒNƒŠƒbƒNŽž‘I‘ðƒAƒCƒeƒ€‚ðƒNƒŠƒA
7822+ FClickNode := nil;
121457823 end;
12146-//TAction‚ÅActiveList‚ªTBoard‚Å—LŒø‚É‚È‚é
12147-procedure TGikoForm.DependActiveListTBoardActionUpdate(Sender: TObject);
7824+// *************************************************************************
7825+//! ƒcƒŠ[ƒrƒ…[‚̃AƒCƒeƒ€‚̏k¬ŽžƒCƒxƒ“ƒg
7826+// *************************************************************************
7827+procedure TGikoForm.TreeViewCollapsing(Sender: TObject; Node: TTreeNode;
7828+ var AllowCollapse: Boolean);
121487829 begin
12149-{$IFDEF ACTCHK}
12150- //–³‚­‚Ä‚à‚¢‚¢IF•¶@ƒR[ƒh‚©‚ç–³—‚â‚èŒÄ‚΂Ȃ¢‚È‚çƒ`ƒFƒbƒN‚µ‚È‚­‚Ä‚àc
12151- if (Sender <> nil) and (Sender is TAction) then begin
12152-{$ENDIF}
12153- TAction(Sender).Enabled := (GetActiveList is TBoard);
12154-{$IFDEF ACTCHK}
7830+ FClickNode := nil;
7831+end;
7832+// *************************************************************************
7833+//! ƒcƒŠ[ƒrƒ…[‚̃AƒCƒeƒ€‚Ì“WŠJŽžƒCƒxƒ“ƒg
7834+// *************************************************************************
7835+procedure TGikoForm.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
7836+ var AllowExpansion: Boolean);
7837+begin
7838+ FClickNode := nil;
7839+end;
7840+// *************************************************************************
7841+//! ƒcƒŠ[ƒrƒ…[‚̃}ƒEƒXƒAƒbƒvƒCƒxƒ“ƒg
7842+// *************************************************************************
7843+procedure TGikoForm.TreeViewMouseUp(Sender: TObject; Button: TMouseButton;
7844+ Shift: TShiftState; X, Y: Integer);
7845+begin
7846+ if (Button = mbLeft) and not (ssDouble in Shift) then begin
7847+ if (FClickNode = TreeView.Selected) then begin
7848+ TreeClick(FClickNode);
7849+ end;
121557850 end;
12156-{$ENDIF}
121577851 end;
12158-
12159-procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject;
12160- Node: TTreeNode; var AllowEdit: Boolean);
7852+// *************************************************************************
7853+//! ƒ_ƒEƒ“ƒ[ƒhƒRƒ“ƒgƒ[ƒ‹ƒXƒŒƒbƒh‚̐¶¬
7854+// *************************************************************************
7855+procedure TGikoForm.CreateControlThread();
121617856 begin
12162- //•ÒW‘O‚Ì•¶Žš—ñ‚ðˆêŽž•Û‘¶‚·‚é
12163- FOrigenCaption := Node.Text;
7857+ //ƒ_ƒEƒ“ƒ[ƒhƒIƒuƒWƒFƒNƒg
7858+ FControlThread := TThreadControl.Create(True);
7859+ FControlThread.MaxThreadCount := 1;
7860+ FControlThread.Resume;
7861+ FControlThread.OnDownloadEnd := DownloadEnd;
7862+ FControlThread.OnDownloadMsg := DownloadMsg;
7863+ FControlThread.OnWork := Work;
7864+ FControlThread.OnWorkBegin := WorkBegin;
7865+ FControlThread.OnWorkEnd := WorkEnd;
121647866 end;
12165-//—áŠOˆ—‚³‚ê‚È‚©‚Á‚½—áŠO‚ðˆ—‚·‚é
12166-procedure TGikoForm.AppException(Sender: TObject; E: Exception);
7867+// *************************************************************************
7868+//! ƒuƒ‰ƒEƒU‚̐¶¬
7869+// *************************************************************************
7870+procedure TGikoForm.CreateBrowsers(count: Integer);
121677871 var
12168- s : String;
7872+ i: Integer;
7873+ newBrowser: TWebBrowser;
121697874 begin
12170- if (Sender <> nil) then begin
12171- s := ' [' + Sender.ClassName + ']' + #13#10;
12172- end else begin
12173- s := ' [ Sender is nil ] ' + #13#10;
7875+ BrowserNullTab := TBrowserRecord.Create;
7876+ BrowserNullTab.Browser := Browser;
7877+ BrowserNullTab.Browser.Navigate(BLANK_HTML);
7878+ FBrowsers := TList.Create;
7879+ for i := 0 to count -1 do begin
7880+ FBrowsers.Add(TWebBrowser.Create(BrowserPanel));
7881+ newBrowser := FBrowsers[FBrowsers.Count - 1];
7882+ TOleControl(newBrowser).Parent := BrowserPanel;
7883+ TOleControl(newBrowser).Align := alNone;
7884+ TOleControl(newBrowser).Left := 0;
7885+ TOleControl(newBrowser).Top := 0;
7886+ newBrowser.OnDocumentComplete := BrowserDocumentComplete;
7887+ newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
7888+ newBrowser.OnEnter := BrowserEnter;
7889+ newBrowser.OnNewWindow2 := BrowserNewWindow2;
7890+ newBrowser.OnStatusTextChange := BrowserStatu

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