Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.57 by h677, Sat Apr 14 16:52:57 2007 UTC revision 1.57.2.2 by h677, Sun Jun 10 14:20:06 2007 UTC
# Line 12  uses Line 12  uses
12          MSHTML_TLB,          MSHTML_TLB,
13  {$IFEND}  {$IFEND}
14    ComCtrls, BrowserRecord, Graphics, Messages, Setting, Dialogs,    ComCtrls, BrowserRecord, Graphics, Messages, Setting, Dialogs,
15    ActiveX, MoveHistoryItem, HistoryList;    ActiveX, GikoSystem, MoveHistoryItem, HistoryList;
16    
17  const  const
18          CAPTION_NAME: string = 'ギコナビ';          CAPTION_NAME: string = 'ギコナビ';
# Line 49  const Line 49  const
49    
50    
51  type  type
52    
53    TGikoDM = class(TDataModule)    TGikoDM = class(TDataModule)
54          GikoFormActionList: TActionList;          GikoFormActionList: TActionList;
55          OnlyAHundredResAction: TAction;          OnlyAHundredResAction: TAction;
# Line 487  implementation Line 488  implementation
488    
489  uses  uses
490          Windows, Math, Clipbrd,          Windows, Math, Clipbrd,
491          Giko, GikoSystem, GikoUtil, BoardGroup,          Giko, GikoUtil, BoardGroup,
492          FavoriteArrange, Favorite, MojuUtils,          FavoriteArrange, Favorite, MojuUtils,
493          Editor, ListSelect, Search, Option, Round,          Editor, ListSelect, Search, Option, Round,
494          KeySetting, Gesture, Kotehan, ToolBarSetting,          KeySetting, Gesture, Kotehan, ToolBarSetting,
# Line 2335  var Line 2336  var
2336  begin  begin
2337          No := GikoForm.KokoPopupMenu.Tag;          No := GikoForm.KokoPopupMenu.Tag;
2338          if No = 0 then Exit;          if No = 0 then Exit;
2339          ThreadItem := GikoForm.GetActiveContent;          ThreadItem := GikoForm.GetActiveContent(True);
2340          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
2341          ThreadItem.Kokomade := No;          ThreadItem.Kokomade := No;
2342          GikoForm.ActiveContent.Thread.ScrollTop :=          GikoForm.ActiveContent.Thread.ScrollTop :=
# Line 2352  procedure TGikoDM.ZenbuActionExecute(Sen Line 2353  procedure TGikoDM.ZenbuActionExecute(Sen
2353  var  var
2354          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
2355  begin  begin
2356          ThreadItem := GikoForm.GetActiveContent;          ThreadItem := GikoForm.GetActiveContent(True);
2357          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
2358          ThreadItem.Kokomade := -1;          ThreadItem.Kokomade := -1;
2359          GikoForm.ActiveContent.Thread.ScrollTop :=          GikoForm.ActiveContent.Thread.ScrollTop :=
# Line 2373  var Line 2374  var
2374  begin  begin
2375          Number := GikoForm.KokoPopupMenu.Tag;          Number := GikoForm.KokoPopupMenu.Tag;
2376          if Number = 0 then Exit;          if Number = 0 then Exit;
2377          Item := GikoForm.GetActiveContent;          Item := GikoForm.GetActiveContent(True);
2378          if Item = nil then Exit;          if Item = nil then Exit;
2379    
2380          Editor := TEditorForm.Create(GikoForm);          Editor := TEditorForm.Create(GikoForm);
# Line 2403  var Line 2404  var
2404  begin  begin
2405          No := GikoForm.KokoPopupMenu.Tag;          No := GikoForm.KokoPopupMenu.Tag;
2406          if No = 0 then Exit;          if No = 0 then Exit;
2407          ThreadItem := GikoForm.GetActiveContent;          ThreadItem := GikoForm.GetActiveContent(True);
2408          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
2409          count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread);          count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread);
2410          limited := LIMIT;          limited := LIMIT;
# Line 2445  var Line 2446  var
2446  begin  begin
2447          IndividualForm := TIndividualAbonForm.Create(GikoForm);          IndividualForm := TIndividualAbonForm.Create(GikoForm);
2448          try          try
2449                  ThreadItem := GikoForm.GetActiveContent;                  ThreadItem := GikoForm.GetActiveContent(True);
2450                  ThreadItem.ScrollTop :=                  ThreadItem.ScrollTop :=
2451                          OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;                          OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
2452                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
# Line 2493  var Line 2494  var
2494  begin  begin
2495          IndividualForm := TIndividualAbonForm.Create(GikoForm);          IndividualForm := TIndividualAbonForm.Create(GikoForm);
2496          try          try
2497                  ThreadItem := GikoForm.GetActiveContent;                  ThreadItem := GikoForm.GetActiveContent(True);
2498                  ThreadItem.ScrollTop :=                  ThreadItem.ScrollTop :=
2499                          OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;                          OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
2500                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.57.2.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26