Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.515.2.18 by h677, Wed Jul 6 15:07:59 2005 UTC revision 1.515.2.19 by h677, Wed Jul 6 15:46:53 2005 UTC
# Line 835  type Line 835  type
835          procedure BrowserMaxAndFocusActionExecute(Sender: TObject);          procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
836          procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);          procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
837      procedure SetFocusForCabinetActionUpdate(Sender: TObject);      procedure SetFocusForCabinetActionUpdate(Sender: TObject);
     procedure ListViewSelectItem(Sender: TObject; Item: TListItem;  
       Selected: Boolean);  
838      procedure SelectTimerTimer(Sender: TObject);      procedure SelectTimerTimer(Sender: TObject);
839      procedure SelectItemSaveForHTMLExecute(Sender: TObject);      procedure SelectItemSaveForHTMLExecute(Sender: TObject);
840          procedure KidokuActionExecute(Sender: TObject);          procedure KidokuActionExecute(Sender: TObject);
# Line 10808  begin Line 10806  begin
10806          SetFocusForThreadListAction.Execute;          SetFocusForThreadListAction.Execute;
10807  end;  end;
10808    
 procedure TGikoForm.ListViewSelectItem(Sender: TObject; Item: TListItem;  
   Selected: Boolean);  
 begin  
 {  
         if not (GikoSys.Setting.BrowserTabVisible) and (Item <> nil) then  
                         if (TObject( Item.Data ) is TThreadItem) then begin  
                                 SelectTimer.Interval := GikoSys.Setting.SelectInterval;  
                         end else  
                                 SelectTimer.Interval := 0  
         else  
                 SelectTimer.Interval := 0;  
 }  
 end;  
   
10809  procedure TGikoForm.SelectTimerTimer(Sender: TObject);  procedure TGikoForm.SelectTimerTimer(Sender: TObject);
10810  begin  begin
10811          if not (ListView.Selected = nil) then          if not (ListView.Selected = nil) then
# Line 10854  begin Line 10838  begin
10838                          for i := 0 to List.Count - 1 do begin                          for i := 0 to List.Count - 1 do begin
10839                                  if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin                                  if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin
10840                                          FileSaveAs1.Dialog.FileName := TThreadItem(List[i]).FileName;                                          FileSaveAs1.Dialog.FileName := TThreadItem(List[i]).FileName;
10841                                          if FileSaveAs1.Execute then begin                                          if FileSaveAs1.Dialog.Execute then begin
10842                                                  //なぜかキャンセルでもこっちに入ってくる                                                  CopyFile(PChar(TThreadItem(List[i]).FilePath),
10843                                                  if ExtractFilePath(FileSaveAs1.Dialog.FileName) <> '' then begin                                                  PChar(FileSaveAs1.Dialog.FileName), true);
                                                         CopyFile(PChar(TThreadItem(List[i]).FilePath),  
                                                                 PChar(FileSaveAs1.Dialog.FileName), true);  
                                                 end;  
10844                                          end;                                          end;
10845                                  end;                                  end;
10846                          end;                          end;
# Line 10895  begin Line 10876  begin
10876                          for i := 0 to List.Count - 1 do begin                          for i := 0 to List.Count - 1 do begin
10877                                  if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin                                  if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin
10878                                          FileSaveAs1.Dialog.FileName := ReplaseNoValidateChar(TThreadItem(List[i]).Title) + '.html';                                          FileSaveAs1.Dialog.FileName := ReplaseNoValidateChar(TThreadItem(List[i]).Title) + '.html';
10879                                          if FileSaveAs1.Execute then begin                                          if FileSaveAs1.Dialog.Execute then begin
10880                                                  //なぜかキャンセルでもこっちに入ってくる                                                  html := TStringList.Create;
10881                                                  if ExtractFilePath(FileSaveAs1.Dialog.FileName) <> '' then begin                                                  title := TThreadItem(List[i]).Title;
10882                                                          html := TStringList.Create;                                                  try
10883                                                          title := TThreadItem(List[i]).Title;                                                          GikoSys.CreateHTML3(html, TThreadItem(List[i]), title);
10884                                                          try                                                          html.SaveToFile(FileSaveAs1.Dialog.FileName);
10885                                                                  GikoSys.CreateHTML3(html, TThreadItem(List[i]), title);                                                          SkinorCSSFilesCopy(ExtractFilePath(FileSaveAs1.Dialog.FileName));
10886                                                                  html.SaveToFile(FileSaveAs1.Dialog.FileName);                                                  finally
10887                                                                  SkinorCSSFilesCopy(ExtractFilePath(FileSaveAs1.Dialog.FileName));                                                          html.Free;
                                                         finally  
                                                                 html.Free;  
                                                         end;  
10888                                                  end;                                                  end;
10889                                          end;                                          end;
10890                                  end;                                  end;
# Line 12220  end; Line 12198  end;
12198  procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject;  procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject;
12199    Node: TTreeNode; var AllowEdit: Boolean);    Node: TTreeNode; var AllowEdit: Boolean);
12200  begin  begin
12201        //編集前の文字列を一時保存する
12202          FOrigenCaption := Node.Text;          FOrigenCaption := Node.Text;
12203  end;  end;
12204  //例外処理されなかった例外を処理する  //例外処理されなかった例外を処理する
# Line 12227  procedure TGikoForm.AppException(Sender: Line 12206  procedure TGikoForm.AppException(Sender:
12206  var  var
12207          s : String;          s : String;
12208  begin  begin
         s := '処理されない例外' ;  
12209          if (Sender <> nil) then begin          if (Sender <> nil) then begin
12210                  s := s + ' [' + Sender.ClassName + ']' + #13#10;                  s := ' [' + Sender.ClassName + ']' + #13#10;
12211          end else begin          end else begin
12212                  s := s + ' [ Sender is nil ]' + #13#10;                  s := ' [ Sender is nil ] ' + #13#10;
12213          end;          end;
12214          s := s + E.Message;          s := s + E.Message;
12215            MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP);
         ShowMessage(s);  
12216  end;  end;
12217    
12218  initialization  initialization

Legend:
Removed from v.1.515.2.18  
changed lines
  Added in v.1.515.2.19

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