ギコナビ
Revision | 21307e449d34ed4eea9a2d3256ad82e4c6095edd (tree) |
---|---|
Zeit | 2008-03-05 00:28:49 |
Autor | cvs2git <cvs2git> |
Commiter | cvs2git |
This commit was manufactured by cvs2svn to create tag 'v1_58_0_746'.
@@ -183,37 +183,17 @@ const | ||
183 | 183 | var |
184 | 184 | CmdTarget : IOleCommandTarget; |
185 | 185 | vaIn, vaOut: OleVariant; |
186 | - PtrGUID: PGUID; | |
187 | 186 | begin |
188 | - if (Self.Browser <> nil) and (Self.Browser.Document <> nil) then begin | |
189 | - //uEUªf[^ÌÇÝÝÌÍÇÝÝðÒÂ | |
190 | - while (Self.Browser.ReadyState <> READYSTATE_COMPLETE) and | |
191 | - (Self.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin | |
192 | - Sleep(1); | |
193 | - Application.ProcessMessages; | |
187 | + if Assigned(Self.Browser) then begin | |
188 | + vaIn := 0; | |
189 | + vaOut := 0; | |
190 | + try | |
191 | + CmdTarget := Self.Browser.ControlInterface.Document as IOleCommandTarget; | |
192 | + if Assigned(CmdTarget) then begin | |
193 | + CmdTarget.Exec(@CGID_WebBrowser, HTMLID_FIND, 0, vaIn, vaOut); | |
194 | + end; | |
195 | + except | |
194 | 196 | end; |
195 | - vaIn := 0; | |
196 | - vaOut := 0; | |
197 | - New(PtrGUID); | |
198 | - PtrGUID^ := CGID_WebBrowser; | |
199 | - try | |
200 | - try | |
201 | - if Self.Browser.Document | |
202 | - .QueryInterface(IOleCommandTarget, CmdTarget) | |
203 | - = S_OK then begin | |
204 | - if CmdTarget <> nil then begin | |
205 | - try | |
206 | - CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut); | |
207 | - finally | |
208 | - CmdTarget._Release; | |
209 | - end; | |
210 | - end; | |
211 | - end; | |
212 | - except | |
213 | - end; | |
214 | - finally | |
215 | - Dispose(PtrGUID); | |
216 | - end; | |
217 | 197 | end; |
218 | 198 | end; |
219 | 199 |
@@ -0,0 +1,16 @@ | ||
1 | +object ExtPreviewDM: TExtPreviewDM | |
2 | + OldCreateOrder = False | |
3 | + OnCreate = DataModuleCreate | |
4 | + OnDestroy = DataModuleDestroy | |
5 | + Left = 200 | |
6 | + Top = 120 | |
7 | + Height = 150 | |
8 | + Width = 215 | |
9 | + object ExecuteTimer: TTimer | |
10 | + Enabled = False | |
11 | + Interval = 200 | |
12 | + OnTimer = ExecuteTimerTimer | |
13 | + Left = 120 | |
14 | + Top = 40 | |
15 | + end | |
16 | +end |
@@ -0,0 +1,181 @@ | ||
1 | +unit ExtPreviewDatamodule; | |
2 | + | |
3 | +interface | |
4 | + | |
5 | +uses | |
6 | + SysUtils, Classes, bmRegExp, ExtCtrls, GikoSystem; | |
7 | + | |
8 | +type | |
9 | + TCommand = class(TObject) | |
10 | + private | |
11 | + FCommand: String; | |
12 | + FConfirm: Boolean; | |
13 | + FContinue: Boolean; | |
14 | + FToURL: String; | |
15 | + public | |
16 | + constructor Create(const comm: String); | |
17 | + property Command: String read FCommand; | |
18 | + property Confirm: Boolean read FConfirm write FConfirm; | |
19 | + property Continue: Boolean read FContinue write FContinue; | |
20 | + property ToURL: String read FToURL write FToURL; | |
21 | + end; | |
22 | + | |
23 | + TExtPreviewDM = class(TDataModule) | |
24 | + ExecuteTimer: TTimer; | |
25 | + procedure DataModuleCreate(Sender: TObject); | |
26 | + procedure DataModuleDestroy(Sender: TObject); | |
27 | + procedure ExecuteTimerTimer(Sender: TObject); | |
28 | + private | |
29 | + { Private é¾ } | |
30 | + FAWKStr: TAWKStr; | |
31 | + FRegs: TStringList; | |
32 | + FExecCommand: TCommand; | |
33 | + function ReadCommand(const Line: String): TCommand; | |
34 | + public | |
35 | + { Public é¾ } | |
36 | + function PreviewURL(const URL: String): Boolean; | |
37 | + end; | |
38 | + | |
39 | +var | |
40 | + ExtPreviewDM: TExtPreviewDM; | |
41 | + | |
42 | +implementation | |
43 | + | |
44 | +uses | |
45 | + IniFiles, GikoUtil, Windows; | |
46 | + | |
47 | +constructor TCommand.Create(const comm: String); | |
48 | +begin | |
49 | + FCommand := comm; | |
50 | + FConfirm := False; | |
51 | + FContinue := False; | |
52 | + FToURL := ''; | |
53 | +end; | |
54 | +{$R *.dfm} | |
55 | +{ | |
56 | +\brief RXgN^ | |
57 | +} | |
58 | +procedure TExtPreviewDM.DataModuleCreate(Sender: TObject); | |
59 | +var | |
60 | + values: TStringList; | |
61 | + i, pos: Integer; | |
62 | +begin | |
63 | + FAWKStr := TAWKStr.Create(Self); | |
64 | + FRegs := TStringList.Create; | |
65 | + if (FileExists(GikoSys.GetExtpreviewFileName)) then begin | |
66 | + values := TStringList.Create; | |
67 | + try | |
68 | + values.LoadFromFile(GikoSys.GetExtpreviewFileName); | |
69 | + for i := 0 to values.Count - 1 do begin | |
70 | + if ( AnsiPos('#',values[i]) = 1 ) then begin | |
71 | + // æª#ÅnÜéÍRgs | |
72 | + end else begin | |
73 | + pos := AnsiPos(#9,values[i]); | |
74 | + if (pos > 0) then begin | |
75 | + FRegs.AddObject( | |
76 | + Copy(values[i], 1, pos - 1), | |
77 | + ReadCommand( | |
78 | + Copy(values[i], pos + 1, Length(values[i]))) | |
79 | + ); | |
80 | + end; | |
81 | + end; | |
82 | + end; | |
83 | + finally | |
84 | + values.Free; | |
85 | + end; | |
86 | + end; | |
87 | +end; | |
88 | +{ | |
89 | +\brief fXgN^ | |
90 | +} | |
91 | +procedure TExtPreviewDM.DataModuleDestroy(Sender: TObject); | |
92 | +begin | |
93 | + FRegs.Clear; | |
94 | + FRegs.Free; | |
95 | + FAWKStr.Free; | |
96 | +end; | |
97 | +{ | |
98 | +\brief R}hsðß | |
99 | +} | |
100 | +function TExtPreviewDM.ReadCommand(const Line: String): TCommand; | |
101 | +var | |
102 | + pos: Integer; | |
103 | + sub: String; | |
104 | +begin | |
105 | + | |
106 | + // FCommand , FConfirm , FContinue Ì | |
107 | + pos := AnsiPos(#9, Line); | |
108 | + if (pos > 0) then begin | |
109 | + Result := TCommand.Create( Copy(Line, 1, pos - 1) ); | |
110 | + sub := Copy(Line, pos + 1, Length(Line)); | |
111 | + end else begin | |
112 | + Result := TCommand.Create( '' ); | |
113 | + sub := ''; | |
114 | + end; | |
115 | + pos := AnsiPos(#9, sub); | |
116 | + if (pos > 0) then begin | |
117 | + if (AnsiLowerCase(Copy(sub, 1, pos - 1)) = 'true' ) then begin | |
118 | + Result.Confirm := True; | |
119 | + end; | |
120 | + sub := Copy(Line, pos + 1, Length(Line)); | |
121 | + end; | |
122 | + sub := Trim(sub); | |
123 | + if (AnsiLowerCase(sub) = 'true' ) then begin | |
124 | + Result.Continue := True; | |
125 | + end; | |
126 | +end; | |
127 | +{ | |
128 | +\brief o^³ê½URLð·éR}hðÔ· | |
129 | +} | |
130 | +function TExtPreviewDM.PreviewURL(const URL: String): Boolean; | |
131 | +var | |
132 | + i: Integer; | |
133 | + RStart: Integer; | |
134 | + RLength: Integer; | |
135 | + EsqURL: String; | |
136 | +begin | |
137 | + Result := False; | |
138 | + ExecuteTimer.Interval := 0; | |
139 | + ExecuteTimer.Enabled := False; | |
140 | + FExecCommand := nil; | |
141 | + if (Length(URL) > 0) and (FRegs.Count > 0) then begin | |
142 | + EsqURL := FAWKStr.ProcessEscSeq(URL); | |
143 | + for i := 0 to FRegs.Count - 1 do begin | |
144 | + FAWKStr.RegExp := FRegs[i]; | |
145 | + if ( FAWKStr.Match(EsqURL, RStart, RLength ) <> 0 ) then begin | |
146 | + FExecCommand := TCommand(FRegs.Objects[i]); | |
147 | + FExecCommand.ToURL := Copy(EsqURL, RStart, RLength); | |
148 | + ExecuteTimer.Interval := GikoSys.Setting.PreviewWait; | |
149 | + ExecuteTimer.Enabled := True; | |
150 | + Result := not FExecCommand.FContinue; | |
151 | + break; | |
152 | + end; | |
153 | + end; | |
154 | + end; | |
155 | +end; | |
156 | + | |
157 | +procedure TExtPreviewDM.ExecuteTimerTimer(Sender: TObject); | |
158 | +var | |
159 | + rc: Integer; | |
160 | +begin | |
161 | + // ^C}[â~ | |
162 | + ExecuteTimer.Interval := 0; | |
163 | + ExecuteTimer.Enabled := False; | |
164 | + | |
165 | + if (FExecCommand <> nil) then begin | |
166 | + rc := ID_YES; | |
167 | + if (FExecCommand.Confirm) then begin | |
168 | + // Msg | |
169 | + rc := GikoUtil.MsgBox(0, FExecCommand.Command + 'É'#13#10 + | |
170 | + FExecCommand.ToURL + ' ðnµÜ·©H', | |
171 | + 'mF', MB_ICONQUESTION or MB_YESNO); | |
172 | + end; | |
173 | + | |
174 | + if (rc = ID_YES) then begin | |
175 | + GikoSys.CreateProcess( | |
176 | + FExecCommand.Command, '"' + FExecCommand.ToURL + '"'); | |
177 | + end; | |
178 | + end; | |
179 | +end; | |
180 | + | |
181 | +end. |
@@ -48,10 +48,9 @@ type | ||
48 | 48 | private |
49 | 49 | { Private é¾ } |
50 | 50 | FAbEnd: Boolean; |
51 | - FStack: TStack; | |
52 | 51 | FTreeView: TTreeView; |
53 | 52 | FModified: boolean; |
54 | - procedure ReadNode(Node: IXMLNode); | |
53 | + procedure ReadNode(Node: IXMLNode; Stack: TStack; TreeView: TTreeView); | |
55 | 54 | procedure AddSaveString(Node: TTreeNode; SaveList: TStringList); |
56 | 55 | public |
57 | 56 | { Public é¾ } |
@@ -288,6 +287,7 @@ var | ||
288 | 287 | i: Integer; |
289 | 288 | FavFolder: TFavoriteFolder; |
290 | 289 | LinkExists: Boolean; |
290 | + Stack: TStack; | |
291 | 291 | begin |
292 | 292 | FABend := False; |
293 | 293 |
@@ -306,13 +306,13 @@ begin | ||
306 | 306 | LoadXMLDocument(FileName, XMLDoc); |
307 | 307 | XMLNode := XMLDoc.DocumentElement; |
308 | 308 | |
309 | - FStack := TStack.Create; | |
309 | + Stack := TStack.Create; | |
310 | 310 | try |
311 | - FStack.Push(Node); | |
311 | + Stack.Push(Node); | |
312 | 312 | LinkExists := False; |
313 | 313 | if XMLNode.NodeName = 'favorite' then begin |
314 | 314 | for i := XMLNode.ChildNodes.Count - 1 downto 0 do begin |
315 | - ReadNode(XMLNode.ChildNodes[i]); | |
315 | + ReadNode(XMLNode.ChildNodes[i], Stack, FTreeView); | |
316 | 316 | if (XMLNode.ChildNodes[i].NodeName = 'folder') and |
317 | 317 | (XMLNode.ChildNodes[i].Attributes['title'] = FAVORITE_LINK_NAME) then begin |
318 | 318 | LinkExists := True; |
@@ -327,7 +327,7 @@ begin | ||
327 | 327 | end; |
328 | 328 | |
329 | 329 | finally |
330 | - FStack.Free; | |
330 | + Stack.Free; | |
331 | 331 | XMLDoc.Free; |
332 | 332 | end; |
333 | 333 | except |
@@ -337,29 +337,9 @@ begin | ||
337 | 337 | end; |
338 | 338 | end; |
339 | 339 | |
340 | -{ | |
341 | - FavFolder := TFavoriteFolder.Create; | |
342 | - Node := FTreeView.Items.AddChildObjectFirst(nil, FAVORITE_ROOT_NAME, FavFolder); | |
343 | - Node.ImageIndex := 12; | |
344 | - Node.SelectedIndex := 13; | |
345 | - | |
346 | - FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME; | |
347 | - if not FileExists(FileName) then | |
348 | - Exit; | |
349 | - | |
350 | - FavSAXHandler.OnStartDocument := SAXStartDocument; | |
351 | - FavSAXHandler.OnEndDocument := SAXEndDocument; | |
352 | - FavSAXHandler.OnStartElement := SAXStartElement; | |
353 | - FavSAXHandler.OnStartElement := SAXStartElement; | |
354 | - FavSAXHandler.OnEndElement := SAXEndElement; | |
355 | - FavSAXHandler.OnCharacters := SAXCharacters; | |
356 | - | |
357 | - FavSAXReader.Vendor := 'Keith Wood'; | |
358 | - FavSAXReader.URL := FileName; | |
359 | - FavSAXReader.Parse;} | |
360 | 340 | end; |
361 | 341 | |
362 | -procedure TFavoriteDM.ReadNode(Node: IXMLNode); | |
342 | +procedure TFavoriteDM.ReadNode(Node: IXMLNode; Stack: TStack; TreeView: TTreeView); | |
363 | 343 | var |
364 | 344 | i: Integer; |
365 | 345 |
@@ -372,24 +352,25 @@ var | ||
372 | 352 | threadItem : TThreadItem; |
373 | 353 | begin |
374 | 354 | if Node.NodeName = 'folder' then begin |
375 | - ParentNode := FStack.Peek; | |
355 | + CurrentNode := nil; | |
356 | + ParentNode := Stack.Peek; | |
376 | 357 | if TObject(ParentNode.Data) is TFavoriteFolder then begin |
377 | 358 | FavFolder := TFavoriteFolder.Create; |
378 | - CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavFolder); | |
359 | + CurrentNode := TreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavFolder); | |
379 | 360 | CurrentNode.ImageIndex := 14; |
380 | 361 | CurrentNode.SelectedIndex := 14; |
381 | - FStack.Push(CurrentNode); | |
362 | + Stack.Push(CurrentNode); | |
382 | 363 | end; |
383 | 364 | for i := Node.ChildNodes.Count - 1 downto 0 do begin |
384 | - ReadNode(Node.ChildNodes[i]); | |
365 | + ReadNode(Node.ChildNodes[i], Stack, TreeView); | |
385 | 366 | end; |
386 | - if TObject(ParentNode.Data) is TFavoriteFolder then | |
367 | + if CurrentNode <> nil then | |
387 | 368 | CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true'; |
388 | - if FStack.Count <> 0 then | |
389 | - FStack.Pop; | |
369 | + if Stack.Count <> 0 then | |
370 | + Stack.Pop; | |
390 | 371 | end else if Node.NodeName = 'favitem' then begin |
391 | 372 | try |
392 | - ParentNode := FStack.Peek; | |
373 | + ParentNode := Stack.Peek; | |
393 | 374 | if TObject(ParentNode.Data) is TFavoriteFolder then begin |
394 | 375 | if Node.Attributes['favtype'] = 'board' then begin |
395 | 376 | FavBoard := nil; |
@@ -403,7 +384,7 @@ begin | ||
403 | 384 | FavBoard := TFavoriteBoardItem.Create( |
404 | 385 | Node.Attributes[ 'url' ], MojuUtils.UnSanitize(Node.Attributes[ 'title' ]), nil ); |
405 | 386 | end; |
406 | - CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavBoard); | |
387 | + CurrentNode := TreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavBoard); | |
407 | 388 | CurrentNode.ImageIndex := 15; |
408 | 389 | CurrentNode.SelectedIndex := 15; |
409 | 390 | end else if Node.Attributes['favtype'] = 'thread' then begin |
@@ -431,7 +412,7 @@ begin | ||
431 | 412 | FavThread := TFavoriteThreadItem.Create( |
432 | 413 | Node.Attributes[ 'url' ], UnSanitize(Node.Attributes[ 'title' ]), nil ); |
433 | 414 | end; |
434 | - CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavThread); | |
415 | + CurrentNode := TreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavThread); | |
435 | 416 | CurrentNode.ImageIndex := 16; |
436 | 417 | CurrentNode.SelectedIndex := 16; |
437 | 418 | end; |
@@ -19,7 +19,7 @@ uses | ||
19 | 19 | {HintWindow,} GikoCoolBar, GikoListView, Search, ExternalBoardManager, |
20 | 20 | ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection, |
21 | 21 | IdBaseComponent, IdTCPClient, AppEvnts, BrowserRecord, MoveHistoryItem, |
22 | - ShellAPI,Preview, HistoryList, ResPopupBrowser; | |
22 | + ShellAPI,Preview, HistoryList, ResPopupBrowser, ExtPreviewDatamodule; | |
23 | 23 | |
24 | 24 | const |
25 | 25 | NGWORDNAME_PANEL = 3; |
@@ -1992,7 +1992,10 @@ begin | ||
1992 | 1992 | |
1993 | 1993 | //file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10 |
1994 | 1994 | //file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10-15 |
1995 | - | |
1995 | + // ¼ÌAvÅ·éURL©mF | |
1996 | + if (ExtPreviewDM.PreviewURL(Text2)) then begin | |
1997 | + Exit; | |
1998 | + end; | |
1996 | 1999 | s := ''; |
1997 | 2000 | Ext := AnsiLowerCase(ExtractFileExt(Text2)); |
1998 | 2001 | if (Pos('http://', Text2) = 1) and (GikoSys.Setting.PreviewVisible) and |
@@ -2533,9 +2536,11 @@ begin | ||
2533 | 2536 | |
2534 | 2537 | //ñ èÌêPOOO´Íñí |
2535 | 2538 | if (Item.ThreadItem.Round) and (Item.ThreadItem.Count > 1000) then begin |
2536 | - Item.ThreadItem.Round := False; | |
2537 | - //Item.ThreadItem.RoundName := ''; | |
2538 | - AddMessageList('1000¾ð´¦½ÌÅñðíµÜµ½ - [' + Item.ThreadItem.Title + ']', nil, gmiOK); | |
2539 | + // 2chÈOÍA1000ªÅ©s¾ÈÌÅA2chÀèÉ·é | |
2540 | + if (Item.ThreadItem.ParentBoard.Is2ch) then begin | |
2541 | + Item.ThreadItem.Round := False; | |
2542 | + AddMessageList('1000¾ð´¦½ÌÅñðíµÜµ½ - [' + Item.ThreadItem.Title + ']', nil, gmiOK); | |
2543 | + end; | |
2539 | 2544 | end; |
2540 | 2545 | TreeView.Refresh; |
2541 | 2546 | //ListViewűÌXªÜÜêéÂð\¦µÄ¢éÆ«ÌXV |
@@ -256,6 +256,7 @@ type | ||
256 | 256 | procedure AddOutofIndexDat(Board: TBoard; DatList: TStringList; AllCreate: boolean = True); |
257 | 257 | //! t@C¼©çÌXbhì¬úÌæ¾ |
258 | 258 | function GetCreateDateFromName(FileName: String): TDateTime; |
259 | + function GetExtpreviewFileName: String; | |
259 | 260 | end; |
260 | 261 | |
261 | 262 | var |
@@ -265,7 +266,7 @@ const | ||
265 | 266 | ZERO_DATE: Integer = 25569; |
266 | 267 | BETA_VERSION_NAME_E = 'beta'; |
267 | 268 | BETA_VERSION_NAME_J = 'ÊÞÀ'; |
268 | - BETA_VERSION = 57; | |
269 | + BETA_VERSION = 58; | |
269 | 270 | BETA_VERSION_BUILD = ''; //!< debugÅÈÇ |
270 | 271 | APP_NAME = 'gikoNavi'; |
271 | 272 | BE_PHP_URL = 'http://be.2ch.net/test/p.php?i='; |
@@ -3447,6 +3448,12 @@ function TGikoSys.GetReplaceFileName: String; | ||
3447 | 3448 | begin |
3448 | 3449 | Result := Setting.GetReplaceFileName; |
3449 | 3450 | end; |
3451 | +//! vr [g£ÌÝèt@Cæ¾ | |
3452 | +function TGikoSys.GetExtpreviewFileName: String; | |
3453 | +begin | |
3454 | + Result := Setting.GetExtprevieFileName; | |
3455 | +end; | |
3456 | + | |
3450 | 3457 | //! t@C¼©çÌXbhì¬úÌæ¾ |
3451 | 3458 | function TGikoSys.GetCreateDateFromName(FileName: String): TDateTime; |
3452 | 3459 | var |
@@ -538,9 +538,10 @@ type | ||
538 | 538 | procedure WriteLogFolder(AVal : String); |
539 | 539 | function GetInputAssistFileName : String; |
540 | 540 | function GetReplaceFileName: String; |
541 | + function GetExtprevieFileName: String; | |
541 | 542 | { |
542 | 543 | \brief NðÌÛTCYÌsetter |
543 | - \param AVal Ýè·éTCY( >0) | |
544 | + \param AVal Ýè·éTCY( >0) | |
544 | 545 | } |
545 | 546 | procedure SetMoveHistorySize(AVal : Integer); |
546 | 547 | //óMobt@TCY |
@@ -860,6 +861,7 @@ const | ||
860 | 861 | INPUTASSIST_FILE_NAME = 'InputAssist.ini'; |
861 | 862 | FIXED_COOKIE = 'hana=mogera'; |
862 | 863 | REPLACE_FILE_NAME = 'replace.ini'; |
864 | + EXT_PREVIEW_FILE_NAME = 'extpreview.ini'; | |
863 | 865 | |
864 | 866 | implementation |
865 | 867 |
@@ -2167,6 +2169,10 @@ function TSetting.GetReplaceFileName: String; | ||
2167 | 2169 | begin |
2168 | 2170 | Result := GetConfigDir + REPLACE_FILE_NAME; |
2169 | 2171 | end; |
2172 | +function TSetting.GetExtprevieFileName: String; | |
2173 | +begin | |
2174 | + Result := GetConfigDir + EXT_PREVIEW_FILE_NAME; | |
2175 | +end; | |
2170 | 2176 | procedure TSetting.SetMoveHistorySize(AVal : Integer); |
2171 | 2177 | begin |
2172 | 2178 | if (AVal > 0) then begin |
@@ -79,7 +79,8 @@ uses | ||
79 | 79 | ReplaceDataModule in 'ReplaceDataModule.pas' {ReplaceDM: TDataModule}, |
80 | 80 | ResPopupBrowser in 'ResPopupBrowser.pas', |
81 | 81 | SkinFiles in 'SkinFiles.pas', |
82 | - NewBoardURL in 'NewBoardURL.pas' {NewBoardURLForm}; | |
82 | + NewBoardURL in 'NewBoardURL.pas' {NewBoardURLForm}, | |
83 | + ExtPreviewDatamodule in 'ExtPreviewDatamodule.pas' {ExtPreviewDM: TDataModule}; | |
83 | 84 | |
84 | 85 | {$R *.RES} |
85 | 86 | {$R gikoResource.res} |
@@ -136,6 +137,7 @@ begin | ||
136 | 137 | Application.CreateForm(TGikoDM, GikoDM); |
137 | 138 | Application.CreateForm(TInputAssistDM, InputAssistDM); |
138 | 139 | Application.CreateForm(TReplaceDM, ReplaceDM); |
140 | + Application.CreateForm(TExtPreviewDM, ExtPreviewDM); | |
139 | 141 | Application.CreateForm(TGikoForm, GikoForm); |
140 | 142 | Application.Run; |
141 | 143 | ReleaseMutex(hMutex); |
@@ -21,3 +21,7 @@ TO=config\Board\ | ||
21 | 21 | [replace] |
22 | 22 | FROM=config\default\replace.default |
23 | 23 | TO=config\replace.ini |
24 | + | |
25 | +[extpreview] | |
26 | +FROM=config\default\extpreview.default | |
27 | +TO=config\extpreview.ini |
@@ -13,8 +13,8 @@ SourceDir=G:\Release | ||
13 | 13 | OutputDir=G:\InnoSetup\Output |
14 | 14 | SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico" |
15 | 15 | ; MRirÌo[WÉ í¹Ä¾³¢ |
16 | -VersionInfoVersion=1.56.1.716 | |
17 | -OutputBaseFilename=gikoNavi_b56_setup | |
16 | +VersionInfoVersion=1.57.1.744 | |
17 | +OutputBaseFilename=gikoNavi_b57_setup | |
18 | 18 | |
19 | 19 | |
20 | 20 | [Tasks] |
@@ -108,7 +108,7 @@ LICENSE | ||
108 | 108 | ------------------------------ |
109 | 109 | ð |
110 | 110 | ------------------------------ |
111 | -2008/XX/XX | |
111 | +2008/03/08 | |
112 | 112 | Version ÊÞÀ57 |
113 | 113 | Ú×ÝèÉAXbhêÇÝÝÉ[JÌdatt@Cð`FbNµÈ¢IvVðÇÁ |
114 | 114 | X|bvAbvÌEBhEð_uNbNÅÁ¹éæ¤ÉC³ |
@@ -0,0 +1,6 @@ | ||
1 | +# sªÌ#ÍRg | |
2 | +# ÎÛURL̳K\»(AWK)[TAB]ÀsvO(àÅ"ÉÍÜêé)[TAB]mF_CAOðo·(true/other)[TAB]MRirÅà·é(true/other) | |
3 | +# youtubeÍFirefoxÉéimFsvj | |
4 | +#http://jp.youtube.com/watch\?.* C:\Program Files\Mozilla Firefox\firefox.exe false false | |
5 | +# jRjR®æàAFirefoxÉéiñmF·éj | |
6 | +#http://www.nicovideo.jp/watch/sm[0-9]+$ C:\Program Files\Mozilla Firefox\firefox.exe true false |